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/Exp_prop.v | |
parent | a0383d4ce6d69b086331310b32c7262223a659e5 (diff) |
Remove a useless hypothesis from Rle_Rinv.
Diffstat (limited to 'theories/Reals/Exp_prop.v')
-rw-r--r-- | theories/Reals/Exp_prop.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/theories/Reals/Exp_prop.v b/theories/Reals/Exp_prop.v index b65ab045b..40064fd51 100644 --- a/theories/Reals/Exp_prop.v +++ b/theories/Reals/Exp_prop.v @@ -173,8 +173,7 @@ Proof. apply pow_le; apply Rabs_pos. rewrite (Rmult_comm (/ INR (fact (S n0)))); apply Rmult_le_compat_l. apply pow_le; apply Rabs_pos. - apply Rle_Rinv. - apply INR_fact_lt_0. + apply Rinv_le_contravar. apply INR_fact_lt_0. apply le_INR; apply fact_le; apply le_n_S. apply le_plus_l. @@ -254,8 +253,7 @@ Proof. do 2 rewrite <- (Rmult_comm (/ INR (fact (N - n0)))). apply Rmult_le_compat_l. left; apply Rinv_0_lt_compat; apply INR_fact_lt_0. - apply Rle_Rinv. - apply INR_fact_lt_0. + apply Rinv_le_contravar. apply INR_fact_lt_0. apply le_INR. apply fact_le. |