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 /theories/Init | |
| 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 'theories/Init')
| -rwxr-xr-x | theories/Init/Logic_Type.v | 14 |
1 files changed, 0 insertions, 14 deletions
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. |