diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-27 12:23:04 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-27 12:23:04 +0000 |
| commit | 00150efde21b9e493a1578dc35a30025fc79d9d7 (patch) | |
| tree | 32cb5e940468cf160a25a36c1f3a843f8417fd34 /theories/Reals/R_Ifp.v | |
| parent | 58ddb993920f1460d949d6768484a3279b9bb9b4 (diff) | |
La bonne modif des Unfold
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@989 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 aa4fbef8b..d3f0464ee 100644 --- a/theories/Reals/R_Ifp.v +++ b/theories/Reals/R_Ifp.v @@ -44,7 +44,7 @@ Save. (**********) Lemma fp_R0:(frac_part R0)==R0. -Unfold frac_part; Unfold Int_part;Elim (archimed R0); +Unfold frac_part; Unfold Int_part; Elim (archimed R0); Intros; Unfold Rminus; Elim (Rplus_ne (Ropp (IZR `(up R0)-1`))); Intros a b; Rewrite b;Clear a b;Rewrite <- Z_R_minus;Cut (up R0)=`1`. |