diff options
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 37d9878553..492b2571cf 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. |