diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/coqlib.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/interp/coqlib.ml b/interp/coqlib.ml index ca3347dbbf..73614797a7 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -109,6 +109,14 @@ let arith_module = make_dir ["Coq";"Arith";"Arith"] (* TODO: temporary hack *) let make_kn dir id = Libnames.encode_kn dir id +let make_con dir id = Libnames.encode_con dir id + +(** Identity *) + +let id = make_con datatypes_module (id_of_string "id") +let type_of_id = make_con datatypes_module (id_of_string "ID") + +let _ = Cases.set_impossible_default_clause (mkConst id,mkConst type_of_id) (** Natural numbers *) let nat_kn = make_kn datatypes_module (id_of_string "nat") |