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/Reals/ArithProp.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/Reals/ArithProp.v')
-rw-r--r-- | theories/Reals/ArithProp.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/ArithProp.v b/theories/Reals/ArithProp.v index 72c99fc10..8be8c47fa 100644 --- a/theories/Reals/ArithProp.v +++ b/theories/Reals/ArithProp.v @@ -55,7 +55,7 @@ intros n m; pattern n, m in |- *; apply nat_double_ind; Qed. Lemma even_odd_cor : - forall n:nat, exists p : nat | n = (2 * p)%nat \/ n = S (2 * p). + forall n:nat, exists p : nat, n = (2 * p)%nat \/ n = S (2 * p). intro. assert (H := even_or_odd n). exists (div2 n). @@ -87,7 +87,7 @@ Qed. Lemma euclidian_division : forall x y:R, y <> 0 -> - exists k : Z | ( exists r : R | x = IZR k * y + r /\ 0 <= r < Rabs y). + exists k : Z, (exists r : R, x = IZR k * y + r /\ 0 <= r < Rabs y). intros. pose (k0 := |