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/Sets/Relations_2_facts.v | |
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/Sets/Relations_2_facts.v')
-rwxr-xr-x | theories/Sets/Relations_2_facts.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/Sets/Relations_2_facts.v b/theories/Sets/Relations_2_facts.v index 4fda8d8e9..2a0aaf98b 100755 --- a/theories/Sets/Relations_2_facts.v +++ b/theories/Sets/Relations_2_facts.v @@ -67,7 +67,7 @@ Qed. Theorem Rstar_cases : forall (U:Type) (R:Relation U) (x y:U), - Rstar U R x y -> x = y \/ ( exists u : _ | R x u /\ Rstar U R u y). + Rstar U R x y -> x = y \/ (exists u : _, R x u /\ Rstar U R u y). Proof. intros U R x y H'; elim H'; auto with sets. intros x0 y0 z H'0 H'1 H'2; right; exists y0; auto with sets. @@ -116,7 +116,7 @@ Qed. Theorem RstarRplus_RRstar : forall (U:Type) (R:Relation U) (x y z:U), - Rstar U R x y -> Rplus U R y z -> exists u : _ | R x u /\ Rstar U R u z. + Rstar U R x y -> Rplus U R y z -> exists u : _, R x u /\ Rstar U R u z. Proof. generalize Rstar_contains_Rplus; intro T; red in T. generalize Rstar_transitive; intro T1; red in T1. @@ -134,7 +134,7 @@ Theorem Lemma1 : Strongly_confluent U R -> forall x b:U, Rstar U R x b -> - forall a:U, R x a -> exists z : _ | Rstar U R a z /\ R b z. + forall a:U, R x a -> exists z : _, Rstar U R a z /\ R b z. Proof. intros U R H' x b H'0; elim H'0. intros x0 a H'1; exists a; auto with sets. |