diff options
| author | herbelin | 2003-10-10 20:56:09 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-10 20:56:09 +0000 |
| commit | c30d9432f023fd86fdb2bd3546971f6b36f62db7 (patch) | |
| tree | 0fc0245750c9a199eedf81fc10412fddaf9c94ca | |
| parent | d7154b5201733cced13a8e1b3a2e177b98f89eb1 (diff) | |
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
| -rw-r--r-- | interp/coqlib.ml | 18 |
1 files 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") |