diff options
| author | herbelin | 2001-10-24 22:25:37 +0000 |
|---|---|---|
| committer | herbelin | 2001-10-24 22:25:37 +0000 |
| commit | 668075356a3239ad0d7490c3dd88c0108bb714ee (patch) | |
| tree | 602fafd41100553d0da4971bd98f9ce8cb1f0b94 /parsing | |
| parent | d83077dba038d573b8d8bd807d00c432929bff84 (diff) | |
Suppression de Logic_Type.sigT, redondant avec Specif.sigT
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2139 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/coqlib.ml | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/parsing/coqlib.ml b/parsing/coqlib.ml index 4d3e5ce233..d691b82972 100644 --- a/parsing/coqlib.ml +++ b/parsing/coqlib.ml @@ -70,11 +70,11 @@ let build_sigma_set () = typ = constant "Specif" "sigS" } let build_sigma_type () = - { proj1 = constant "Logic_Type" "projT1"; - proj2 = constant "Logic_Type" "projT2"; - elim = constant "Logic_Type" "sigT_rec"; - intro = constant "Logic_Type" "existT"; - typ = constant "Logic_Type" "sigT" } + { proj1 = constant "Specif" "projT1"; + proj2 = constant "Specif" "projT2"; + elim = constant "Specif" "sigT_rec"; + intro = constant "Specif" "existT"; + typ = constant "Specif" "sigT" } (* Equalities *) type coq_leibniz_eq_data = { @@ -200,7 +200,7 @@ let coq_idT_pattern = let coq_existS_pattern = lazy (snd (parse_pattern "(Coq.Init.Specif.existS ?1 ?2 ?3 ?4)")) let coq_existT_pattern = - lazy (snd (parse_pattern "(Coq.Init.Logic_Type.existT ?1 ?2 ?3 ?4)")) + lazy (snd (parse_pattern "(Coq.Init.Specif.existT ?1 ?2 ?3 ?4)")) let coq_not_pattern = lazy (snd (parse_pattern "(Coq.Init.Logic.not ?)")) let coq_imp_False_pattern = @@ -218,7 +218,7 @@ let coq_eq_ref = lazy (reference "Logic" "eq") let coq_eqT_ref = lazy (reference "Logic_Type" "eqT") let coq_idT_ref = lazy (reference "Logic_Type" "identityT") let coq_existS_ref = lazy (reference "Specif" "existS") -let coq_existT_ref = lazy (reference "Logic_Type" "existT") +let coq_existT_ref = lazy (reference "Specif" "existT") let coq_not_ref = lazy (reference "Logic" "not") let coq_False_ref = lazy (reference "Logic" "False") let coq_sumbool_ref = lazy (reference "Specif" "sumbool") |