diff options
author | 2000-10-04 16:08:36 +0000 | |
---|---|---|
committer | 2000-10-04 16:08:36 +0000 | |
commit | b4ace8546bf9de05a8cdd4267e17c32ee6806f18 (patch) | |
tree | 5c402a955151e959d0642f79adedb60c4f07fd0d /theories | |
parent | bb02036b476d3a3e7b3b79568257ef3d28ea6a11 (diff) |
Commit malencontreux sur précédente version
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@655 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
-rw-r--r-- | theories/Arith/Even.v | 2 | ||||
-rwxr-xr-x | theories/Logic/Eqdep.v | 8 |
2 files changed, 4 insertions, 6 deletions
diff --git a/theories/Arith/Even.v b/theories/Arith/Even.v index e2ae8eed2..a79a4d267 100644 --- a/theories/Arith/Even.v +++ b/theories/Arith/Even.v @@ -30,7 +30,7 @@ Auto with arith. Intros n' H. Elim H; Auto with arith. Save. -Lemma not_even_and_odd2 : (n:nat) (even n) -> (odd n) -> False. +Lemma not_even_and_odd : (n:nat) (even n) -> (odd n) -> False. Proof. Induction n. Intros. Inversion H0. diff --git a/theories/Logic/Eqdep.v b/theories/Logic/Eqdep.v index 86fd7c9ec..d1f45be08 100755 --- a/theories/Logic/Eqdep.v +++ b/theories/Logic/Eqdep.v @@ -46,7 +46,7 @@ Lemma eq_dep_dep1 : (p,q:U)(x:(P p))(y:(P q))(eq_dep p x q y)->(eq_dep1 p x q y) Proof. Induction 1; Intros. Apply eq_dep1_intro with (refl_equal U p). -Simpl. Trivial. +Elim eq_rec_eq; Trivial. Qed. Lemma eq_dep1_eq : (p:U)(x,y:(P p))(eq_dep1 p x p y)->x=y. @@ -60,7 +60,7 @@ Proof. Intros; Apply eq_dep1_eq; Apply eq_dep_dep1; Trivial. Qed. -Lemma equiv_eqex_eq_dep : (p,q:U)(x:(P p))(y:(P q)) +Lemma equiv_eqex_eqdep : (p,q:U)(x:(P p))(y:(P q)) (existS U P p x)=(existS U P q y) <-> (eq_dep p x q y). Proof. Split. @@ -79,15 +79,13 @@ Elim H. Auto. Qed. -(* For compatibility *) -Syntactic Definition equiv_eqex_eqdep := equiv_eqex_eq_dep. Lemma inj_pair2: (p:U)(x,y:(P p)) (existS U P p x)=(existS U P p y)-> x=y. Proof. Intros. Apply eq_dep_eq. -Generalize (equiv_eqex_eq_dep p p x y) . +Generalize (equiv_eqex_eqdep p p x y) . Induction 1. Intros. Auto. |