diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-15 19:48:24 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-15 19:48:24 +0000 |
| commit | 3675bac6c38e0a26516e434be08bc100865b339b (patch) | |
| tree | 87f8eb1905c7b508dea60b1e216f79120e9e772d /theories/Wellfounded | |
| parent | c881bc37b91a201f7555ee021ccb74adb360d131 (diff) | |
modif existentielle (exists | --> exists ,) + bug d'affichage des pt fixes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5099 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Wellfounded')
| -rw-r--r-- | theories/Wellfounded/Inverse_Image.v | 2 | ||||
| -rw-r--r-- | theories/Wellfounded/Lexicographic_Exponentiation.v | 4 | ||||
| -rw-r--r-- | theories/Wellfounded/Union.v | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/theories/Wellfounded/Inverse_Image.v b/theories/Wellfounded/Inverse_Image.v index 66a7f5b5b..b11c8c635 100644 --- a/theories/Wellfounded/Inverse_Image.v +++ b/theories/Wellfounded/Inverse_Image.v @@ -35,7 +35,7 @@ Section Inverse_Image. Variable F : A -> B -> Prop. Let RoF (x y:A) : Prop := - exists2 b : B | F x b & (forall c:B, F y c -> R b c). + exists2 b : B, F x b & (forall c:B, F y c -> R b c). Lemma Acc_inverse_rel : forall b:B, Acc R b -> forall x:A, F x b -> Acc RoF x. induction 1 as [x _ IHAcc]; intros x0 H2. diff --git a/theories/Wellfounded/Lexicographic_Exponentiation.v b/theories/Wellfounded/Lexicographic_Exponentiation.v index e8203c399..3daf09a97 100644 --- a/theories/Wellfounded/Lexicographic_Exponentiation.v +++ b/theories/Wellfounded/Lexicographic_Exponentiation.v @@ -54,7 +54,7 @@ Qed. Lemma right_prefix : forall x y z:List, - ltl x (y ++ z) -> ltl x y \/ ( exists y' : List | x = y ++ y' /\ ltl y' z). + ltl x (y ++ z) -> ltl x y \/ (exists y' : List, x = y ++ y' /\ ltl y' z). Proof. intros x y; generalize x. elim y; simpl in |- *. @@ -371,4 +371,4 @@ Proof. Qed. -End Wf_Lexicographic_Exponentiation.
\ No newline at end of file +End Wf_Lexicographic_Exponentiation. diff --git a/theories/Wellfounded/Union.v b/theories/Wellfounded/Union.v index d7f241dd0..6a6a9882f 100644 --- a/theories/Wellfounded/Union.v +++ b/theories/Wellfounded/Union.v @@ -26,7 +26,7 @@ Remark strip_commut : commut A R1 R2 -> forall x y:A, clos_trans A R1 y x -> - forall z:A, R2 z y -> exists2 y' : A | R2 y' x & clos_trans A R1 z y'. + forall z:A, R2 z y -> exists2 y' : A, R2 y' x & clos_trans A R1 z y'. Proof. induction 2 as [x y| x y z H0 IH1 H1 IH2]; intros. elim H with y x z; auto with sets; intros x0 H2 H3. |