From c30d9432f023fd86fdb2bd3546971f6b36f62db7 Mon Sep 17 00:00:00 2001 From: herbelin Date: Fri, 10 Oct 2003 20:56:09 +0000 Subject: identity est equivalent sur Type (sauf sans argument) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4592 85f007b7-540e-0410-9357-904b9bb8a0f7 --- interp/coqlib.ml | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/interp/coqlib.ml b/interp/coqlib.ml index 963d391e1a..280d54486e 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -186,13 +186,13 @@ let build_coq_eqT () = Lazy.force coq_eqT_eq let build_coq_sym_eqT () = Lazy.force coq_eqT_sym (* Equality on Type as a Type *) -let coq_idT_eq = lazy_init_constant ["Logic_Type"] "identityT" -let coq_idT_refl = lazy_init_constant ["Logic_Type"] "refl_identityT" -let coq_idT_ind = lazy_init_constant ["Logic_Type"] "identityT_ind" -let coq_idT_rec = lazy_init_constant ["Logic_Type"] "identityT_rec" -let coq_idT_rect = lazy_init_constant ["Logic_Type"] "identityT_rect" -let coq_idT_congr = lazy_init_constant ["Logic_Type"] "congr_idT" -let coq_idT_sym = lazy_init_constant ["Logic_Type"] "sym_idT" +let coq_idT_eq = lazy_init_constant ["Datatypes"] "identity" +let coq_idT_refl = lazy_init_constant ["Datatypes"] "refl_identity" +let coq_idT_ind = lazy_init_constant ["Logic_Type"] "identity_ind" +let coq_idT_rec = lazy_init_constant ["Logic_Type"] "identity_rec" +let coq_idT_rect = lazy_init_constant ["Logic_Type"] "identity_rect" +let coq_idT_congr = lazy_init_constant ["Logic_Type"] "congr_id" +let coq_idT_sym = lazy_init_constant ["Logic_Type"] "sym_id" let build_coq_idT_data () = { eq = Lazy.force coq_idT_eq; @@ -273,8 +273,8 @@ let coq_eqdec_pattern = (* The following is less readable but does not depend on parsing *) let coq_eq_ref = lazy (init_reference ["Logic"] "eq") -let coq_eqT_ref = lazy (init_reference ["Logic"] "eq") -let coq_idT_ref = lazy (init_reference ["Logic_Type"] "identityT") +let coq_eqT_ref = coq_eq_ref +let coq_idT_ref = lazy (init_reference ["Datatypes"] "identity") let coq_existS_ref = lazy (init_reference ["Specif"] "existS") let coq_existT_ref = lazy (init_reference ["Specif"] "existT") let coq_not_ref = lazy (init_reference ["Logic"] "not") -- cgit v1.2.3