diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-27 21:18:40 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-27 21:18:40 +0000 |
| commit | bcc5b59c086d1c06a1ec03ee0bff7647338bb258 (patch) | |
| tree | 4f332b460941cdbb211806659b1fe76253f2fc67 /theories/Reals/RiemannInt.v | |
| parent | 35cd1baf98895aa07d300d22c9e8148c91b43dac (diff) | |
Réorganisation de la librairie des réels
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3311 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/RiemannInt.v')
| -rw-r--r-- | theories/Reals/RiemannInt.v | 25 |
1 files changed, 7 insertions, 18 deletions
diff --git a/theories/Reals/RiemannInt.v b/theories/Reals/RiemannInt.v index 316af925b..fed86e6ef 100644 --- a/theories/Reals/RiemannInt.v +++ b/theories/Reals/RiemannInt.v @@ -8,23 +8,12 @@ (*i $Id$ i*) -Require Rsqrt_def. -Require Rbase. -Require DiscrR. -Require Rbasic_fun. -Require Rlimit. -Require Rseries. -Require Alembert. -Require Rcomplet. -Require Cv_prop. -Require Rtrigo_alt. -Require Rderiv. -Require Ranalysis1. -Require Ranalysis4. -Require Exp_prop. -Require Rtopology. -Require NewtonInt. -Require Export RiemannInt_SF. +Require Rfunctions. +Require SeqSeries. +Require Ranalysis. +Require RealsB. +Require RiemannInt_SF. +Require Classical_Prop. Require Classical_Pred_Type. Require Max. @@ -459,7 +448,7 @@ Elim (H0 n); Intros; Rewrite <- (Ropp_Ropp (RiemannInt_SF (mkStepFun (StepFun_P6 Elim (H n); Intros; Apply Rle_lt_trans with (Rabsolu (RiemannInt_SF (psi2 n))); [Apply Rle_Rabsolu | Apply Rlt_trans with (pos (RinvN n)); [Assumption | Apply H4; Unfold ge; Apply le_trans with (max N0 N1); [Apply le_max_l | Assumption]]]. Unfold R_dist in H1; Apply H1; Unfold ge; Apply le_trans with (max N0 N1); [Apply le_max_r | Assumption]. Apply r_Rmult_mult with ``3``; [Unfold Rdiv; Rewrite Rmult_Rplus_distr; Do 2 Rewrite (Rmult_sym ``3``); Repeat Rewrite Rmult_assoc; Rewrite <- Rinv_l_sym; [Ring | DiscrR] | DiscrR]. -Split with [n:nat](projT1 ? ? (phi_sequence_prop RinvN pr2 n)); Intro; Rewrite Rmin_sym; Rewrite Rmax_sym; Apply (projT2 ? ? (phi_sequence_prop RinvN pr2 n)). +Split with [n:nat](projT1 ? ? (phi_sequence_prop RinvN pr2 n)); Intro; Rewrite Rmin_sym; Rewrite RmaxSym; Apply (projT2 ? ? (phi_sequence_prop RinvN pr2 n)). Split with [n:nat](projT1 ? ? (phi_sequence_prop RinvN pr1 n)); Intro; Apply (projT2 ? ? (phi_sequence_prop RinvN pr1 n)). Qed. |