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/Arith/Wf_nat.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/Arith/Wf_nat.v')
-rwxr-xr-x | theories/Arith/Wf_nat.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Arith/Wf_nat.v b/theories/Arith/Wf_nat.v index a7a50795e..6e95af673 100755 --- a/theories/Arith/Wf_nat.v +++ b/theories/Arith/Wf_nat.v @@ -179,10 +179,10 @@ Variable R : A -> A -> Prop. (* Relational form of inversion *) Variable F : A -> nat -> Prop. Definition inv_lt_rel x y := - exists2 n : _ | F x n & (forall m, F y m -> n < m). + exists2 n : _, F x n & (forall m, F y m -> n < m). Hypothesis F_compat : forall x y:A, R x y -> inv_lt_rel x y. -Remark acc_lt_rel : forall x:A, ( exists n : _ | F x n) -> Acc R x. +Remark acc_lt_rel : forall x:A, (exists n : _, F x n) -> Acc R x. intros x [n fxn]; generalize x fxn; clear x fxn. pattern n in |- *; apply lt_wf_ind; intros. constructor; intros. |