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/R_Ifp.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/R_Ifp.v')
| -rw-r--r-- | theories/Reals/R_Ifp.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Reals/R_Ifp.v b/theories/Reals/R_Ifp.v index 37d987855..492b2571c 100644 --- a/theories/Reals/R_Ifp.v +++ b/theories/Reals/R_Ifp.v @@ -140,7 +140,7 @@ repeat rewrite <- INR_IZR_INZ; auto with real. Qed. (**********) -Lemma fp_nat : forall r:R, frac_part r = 0 -> exists c : Z | r = IZR c. +Lemma fp_nat : forall r:R, frac_part r = 0 -> exists c : Z, r = IZR c. unfold frac_part in |- *; intros; split with (Int_part r); apply Rminus_diag_uniq; auto with zarith real. Qed. |