diff options
| author | Théo Winterhalter | 2018-09-26 11:26:50 +0200 |
|---|---|---|
| committer | Théo Winterhalter | 2018-09-26 11:27:21 +0200 |
| commit | 5ea3d1b1e01f56573e72d7818a4b7e6393ffdfa8 (patch) | |
| tree | 7fbf839f73df5a45a98802db2def92c4e610eaee /library/coqlib.ml | |
| parent | b7cd70b5732d43280fc646115cd8597f2e844f95 (diff) | |
Combined Scheme tests sort to use either "*" or "/\"
And update documentation.
Diffstat (limited to 'library/coqlib.ml')
| -rw-r--r-- | library/coqlib.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/library/coqlib.ml b/library/coqlib.ml index 36a9598f36..026b7aa316 100644 --- a/library/coqlib.ml +++ b/library/coqlib.ml @@ -349,6 +349,9 @@ let coq_iff = lazy_init_reference ["Logic"] "iff" let coq_iff_left_proj = lazy_init_reference ["Logic"] "proj1" let coq_iff_right_proj = lazy_init_reference ["Logic"] "proj2" +let coq_prod = lazy_init_reference ["Datatypes"] "prod" +let coq_pair = lazy_init_reference ["Datatypes"] "pair" + (* Runtime part *) let build_coq_True () = Lazy.force coq_True let build_coq_I () = Lazy.force coq_I @@ -364,6 +367,9 @@ let build_coq_iff () = Lazy.force coq_iff let build_coq_iff_left_proj () = Lazy.force coq_iff_left_proj let build_coq_iff_right_proj () = Lazy.force coq_iff_right_proj +let build_coq_prod () = Lazy.force coq_prod +let build_coq_pair () = Lazy.force coq_pair + (* The following is less readable but does not depend on parsing *) let coq_eq_ref = lazy (init_reference ["Logic"] "eq") |