diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2013-12-03 13:40:51 +0100 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2013-12-03 13:40:51 +0100 |
| commit | e0ff9328c51cec3bd65d4893af5da5c9f8ba2570 (patch) | |
| tree | 56faa40ecf27fcd735c0315d450931bb96e73069 /theories/Reals/Ratan.v | |
| parent | a0383d4ce6d69b086331310b32c7262223a659e5 (diff) | |
Remove a useless hypothesis from Rle_Rinv.
Diffstat (limited to 'theories/Reals/Ratan.v')
| -rw-r--r-- | theories/Reals/Ratan.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/theories/Reals/Ratan.v b/theories/Reals/Ratan.v index 1a0ea969e..b1eb17b21 100644 --- a/theories/Reals/Ratan.v +++ b/theories/Reals/Ratan.v @@ -810,13 +810,11 @@ intros x Hx eps Heps. apply Rle_lt_trans with (/ INR (2 * N + 1))%R. unfold Rdiv. rewrite Rmult_1_l. - apply Rle_Rinv. + apply Rinv_le_contravar. apply lt_INR_0. omega. - replace 0 with (INR 0) by intuition. - apply lt_INR. + apply le_INR. omega. - intuition. rewrite <- (Rinv_involutive eps). apply Rinv_lt_contravar. apply Rmult_lt_0_compat. |