From 97960adb8426e5270fe16b027e82a2c61674f821 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 27 Apr 2026 23:24:19 -0300 Subject: Foreign call PRL (#67) --- lib/prelude/standard.ml | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/prelude/standard.ml') diff --git a/lib/prelude/standard.ml b/lib/prelude/standard.ml index 2a507e5..b4f5834 100644 --- a/lib/prelude/standard.ml +++ b/lib/prelude/standard.ml @@ -31,6 +31,7 @@ let make_comparison ~name ~domain_name ~pred ~cardinality ~generator = ~cardinality ~generator:(Some generator) ~membership_criteria ~provenance:(Relation.Provenance.Base name) ~lineage:(Relation.Lineage.Base name) + () (** Enumerate pairs (a, b) where a < b using triangular indexing. *) let pair_of_nat_lt n = @@ -197,6 +198,7 @@ let plus_natural : Relation.t = ~generator:(Some generator) ~membership_criteria ~provenance:(Relation.Provenance.Base "plus") ~lineage:(Relation.Lineage.Base "plus") + () let times_natural : Relation.t = let schema = @@ -236,6 +238,7 @@ let times_natural : Relation.t = ~generator:(Some generator) ~membership_criteria ~provenance:(Relation.Provenance.Base "times") ~lineage:(Relation.Lineage.Base "times") + () let minus_natural : Relation.t = let schema = @@ -277,6 +280,7 @@ let minus_natural : Relation.t = ~generator:(Some generator) ~membership_criteria ~provenance:(Relation.Provenance.Base "minus") ~lineage:(Relation.Lineage.Base "minus") + () let divide_natural : Relation.t = let schema = @@ -328,6 +332,7 @@ let divide_natural : Relation.t = ~generator:(Some generator) ~membership_criteria ~provenance:(Relation.Provenance.Base "divide") ~lineage:(Relation.Lineage.Base "divide") + () let prelude_relations = [ less_than_natural -- cgit v1.2.3