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/RiemannInt.v | |
parent | a0383d4ce6d69b086331310b32c7262223a659e5 (diff) |
Remove a useless hypothesis from Rle_Rinv.
Diffstat (limited to 'theories/Reals/RiemannInt.v')
-rw-r--r-- | theories/Reals/RiemannInt.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/theories/Reals/RiemannInt.v b/theories/Reals/RiemannInt.v index 0a00ca223..3fe3694f9 100644 --- a/theories/Reals/RiemannInt.v +++ b/theories/Reals/RiemannInt.v @@ -388,11 +388,9 @@ Proof. [ idtac | left; change (0 < / (INR n + 1)); apply Rinv_0_lt_compat; assumption ]; apply Rle_lt_trans with (/ (INR x + 1)). - apply Rle_Rinv. + apply Rinv_le_contravar. apply Rplus_le_lt_0_compat; [ apply pos_INR | apply Rlt_0_1 ]. - assumption. - do 2 rewrite <- (Rplus_comm 1); apply Rplus_le_compat_l; apply le_INR; - apply H4. + apply Rplus_le_compat_r; apply le_INR; apply H4. rewrite <- (Rinv_involutive eps). apply Rinv_lt_contravar. apply Rmult_lt_0_compat. |