diff options
author | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 13:28:03 +0000 |
---|---|---|
committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 13:28:03 +0000 |
commit | 7d555bede1664a62ed65798b00953f50a6d453fe (patch) | |
tree | fe4c2c7c45ab7e61db29f9b46525bf66ff1c8c3c /theories/Reals/Ranalysis3.v | |
parent | 3ddd13cd688ca63e6bd8a05fe17098d7a3ebcba5 (diff) |
Suppression de lemmes superflus
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3576 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Ranalysis3.v')
-rw-r--r-- | theories/Reals/Ranalysis3.v | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/theories/Reals/Ranalysis3.v b/theories/Reals/Ranalysis3.v index 20c02f360..9cc34059b 100644 --- a/theories/Reals/Ranalysis3.v +++ b/theories/Reals/Ranalysis3.v @@ -65,15 +65,15 @@ Apply Rlt_4; Assumption. Rewrite H8. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite H8. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite H9. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite <- Rabsolu_mult. Apply (maj_term1 x h eps l1 alp_f2 eps_f2 alp_f1d f1 f2); Try Assumption Orelse Apply H2. Apply H14. @@ -123,11 +123,11 @@ Apply Rlt_4; Assumption. Rewrite H8. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite H8. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite <- Rabsolu_mult. Apply (maj_term2 x h eps l1 alp_f2 alp_f2t2 eps_f2 f2); Try Assumption. Apply H2; Assumption. @@ -200,7 +200,7 @@ Apply Rlt_4; Assumption. Rewrite H10. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite <- Rabsolu_mult. Apply (maj_term3 x h eps l2 alp_f2 eps_f2 alp_f2d f1 f2); Try Assumption. Apply H2; Assumption. @@ -208,7 +208,7 @@ Apply Rmin_2; Assumption. Rewrite H9. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite <- Rabsolu_mult. Apply (maj_term1 x h eps l1 alp_f2 eps_f2 alp_f1d f1 f2); Assumption Orelse Idtac. Apply H2; Assumption. @@ -275,7 +275,7 @@ Apply Rmin_2; Assumption. Rewrite H9. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite <- Rabsolu_mult. Apply (maj_term1 x h eps l1 alp_f2 eps_f2 alp_f1d f1 f2); Try Assumption. Apply H2; Assumption. @@ -379,7 +379,7 @@ Apply Rlt_4; Assumption. Rewrite H10. Unfold Rdiv; Repeat Rewrite Rmult_Or Orelse Rewrite Rmult_Ol. Rewrite Rabsolu_R0; Rewrite Rmult_Ol. -Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Apply Rgt_4_0]. +Apply Rmult_lt_pos; [Assumption | Apply Rlt_Rinv; Sup]. Rewrite <- Rabsolu_mult. Apply (maj_term3 x h eps l2 alp_f2 eps_f2 alp_f2d f1 f2); Try Assumption. Apply H2; Assumption. |