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/Euclid.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/Euclid.v')
| -rw-r--r-- | theories/Arith/Euclid.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Arith/Euclid.v b/theories/Arith/Euclid.v index 02c48f028..b246de635 100644 --- a/theories/Arith/Euclid.v +++ b/theories/Arith/Euclid.v @@ -36,7 +36,7 @@ Qed. Lemma quotient : forall n, n > 0 -> - forall m:nat, {q : nat | exists r : nat | m = q * n + r /\ n > r}. + forall m:nat, {q : nat | exists r : nat, m = q * n + r /\ n > r}. intros b H a; pattern a in |- *; apply gt_wf_rec; intros n H0. elim (le_gt_dec b n). intro lebn. @@ -53,7 +53,7 @@ Qed. Lemma modulo : forall n, n > 0 -> - forall m:nat, {r : nat | exists q : nat | m = q * n + r /\ n > r}. + forall m:nat, {r : nat | exists q : nat, m = q * n + r /\ n > r}. intros b H a; pattern a in |- *; apply gt_wf_rec; intros n H0. elim (le_gt_dec b n). intro lebn. |