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 | |
| 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
| -rw-r--r-- | parsing/coqlib.ml | 14 | ||||
| -rwxr-xr-x | theories/Init/Logic_Type.v | 14 |
2 files changed, 7 insertions, 21 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") diff --git a/theories/Init/Logic_Type.v b/theories/Init/Logic_Type.v index 81805c9c49..b6a1fca718 100755 --- a/theories/Init/Logic_Type.v +++ b/theories/Init/Logic_Type.v @@ -174,20 +174,6 @@ Definition identityT_rect_r : Intros A x P H y H0; Case sym_idT with 1:= H0; Trivial. Defined. -Inductive sigT [A:Set; P:A->Prop] : Type := existT : (x:A)(P x)->(sigT A P). - -Section sigT_proj. - - Variable A : Set. - Variable P : A->Prop. - - Definition projT1 := [H:(sigT A P)] - let (x, _) = H in x. - Definition projT2 := [H:(sigT A P)]<[H:(sigT A P)](P (projT1 H))> - let (_, h) = H in h. - -End sigT_proj. - Inductive prodT [A,B:Type] : Type := pairT : A -> B -> (prodT A B). Section prodT_proj. |