diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-12 14:50:43 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-12 14:50:43 +0000 |
commit | 1e86253b17a160f28e323ec362dfed412dc9b9e6 (patch) | |
tree | 35295c0d2143796f074be1248a77b808c315fb3e /theories/Reals/SeqSeries.v | |
parent | 8ef66fc139ee212aa01afc5c5152acc220f780eb (diff) |
Ajout et MAJ commandes de scopes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4375 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/SeqSeries.v')
-rw-r--r-- | theories/Reals/SeqSeries.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/theories/Reals/SeqSeries.v b/theories/Reals/SeqSeries.v index 088a9280e..03963fc4d 100644 --- a/theories/Reals/SeqSeries.v +++ b/theories/Reals/SeqSeries.v @@ -21,7 +21,8 @@ Require Export Rsigma. Require Export Rprod. Require Export Cauchy_prod. Require Export Alembert. -V7only [Import R_scope.]. Open Local Scope R_scope. +V7only [ Import nat_scope. Import Z_scope. Import R_scope. ]. +Open Local Scope R_scope. (**********) Lemma sum_maj1 : (fn:nat->R->R;An:nat->R;x,l1,l2:R;N:nat) (Un_cv [n:nat](SP fn n x) l1) -> (Un_cv [n:nat](sum_f_R0 An n) l2) -> ((n:nat)``(Rabsolu (fn n x))<=(An n)``) -> ``(Rabsolu (l1-(SP fn N x)))<=l2-(sum_f_R0 An N)``. @@ -303,4 +304,4 @@ Apply sum_eq; Intros; Ring. Apply H5; Unfold ge; Apply le_S_n; Replace (S (pred n)) with n. Apply S_pred with O; Apply lt_le_trans with (S x). Apply lt_O_Sn. -Qed.
\ No newline at end of file +Qed. |