diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-27 10:34:50 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-27 10:34:50 +0000 |
| commit | 5563b7abf1a93e42a99305b2e57d4e2924cef896 (patch) | |
| tree | df650fe5cbb526128dd911fccc89ca12a69f708a /theories/Reals/R_Ifp.v | |
| parent | 900bd7c4d4d6327b5ed77cb8a7cefefa749f13e3 (diff) | |
Suppression de Unfold inutile et maintenant échouant
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@981 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/R_Ifp.v')
| -rw-r--r-- | theories/Reals/R_Ifp.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/R_Ifp.v b/theories/Reals/R_Ifp.v index 8d5971a4e..aa4fbef8b 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; Unfold up; 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`. @@ -100,7 +100,7 @@ Save. (**********) Lemma base_Int_part:(r:R)(Rle (IZR (Int_part r)) r)/\ (Rgt (Rminus (IZR (Int_part r)) r) (Ropp R1)). -Intro;Unfold Int_part;Elim (archimed r);Intros;Unfold up. +Intro;Unfold Int_part;Elim (archimed r);Intros. Split;Rewrite <- (Z_R_minus (up r) `1`);Simpl. Generalize (Rle_minus (Rminus (IZR (up r)) r) R1 H0);Intro; Unfold Rminus in H1; |