diff options
| -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`. |