diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/coqlib.ml | 7 | ||||
| -rw-r--r-- | interp/coqlib.mli | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/interp/coqlib.ml b/interp/coqlib.ml index 8a55bfc2c8..f9a1c6466f 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -166,6 +166,13 @@ let build_sigma_type () = intro = init_constant ["Specif"] "existT"; typ = init_constant ["Specif"] "sigT" } +let build_prod () = + { proj1 = init_constant ["Datatypes"] "fst"; + proj2 = init_constant ["Datatypes"] "snd"; + elim = init_constant ["Datatypes"] "prod_rec"; + intro = init_constant ["Datatypes"] "pair"; + typ = init_constant ["Datatypes"] "prod" } + (* Equalities *) type coq_leibniz_eq_data = { eq : constr; diff --git a/interp/coqlib.mli b/interp/coqlib.mli index ed5e46c1a0..098dad1d5f 100644 --- a/interp/coqlib.mli +++ b/interp/coqlib.mli @@ -94,6 +94,8 @@ type coq_sigma_data = { val build_sigma_set : coq_sigma_data delayed val build_sigma_type : coq_sigma_data delayed +(* Non-dependent pairs in Set from Datatypes *) +val build_prod : coq_sigma_data delayed type coq_leibniz_eq_data = { eq : constr; |