diff options
Diffstat (limited to 'theories7/Reals/PartSum.v')
-rw-r--r-- | theories7/Reals/PartSum.v | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/theories7/Reals/PartSum.v b/theories7/Reals/PartSum.v index ee5fa498..4d28bec8 100644 --- a/theories7/Reals/PartSum.v +++ b/theories7/Reals/PartSum.v @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: PartSum.v,v 1.1.2.1 2004/07/16 19:31:33 herbelin Exp $ i*) +(*i $Id: PartSum.v,v 1.1.2.2 2005/07/13 23:19:16 herbelin Exp $ i*) Require Rbase. Require Rfunctions. @@ -385,8 +385,7 @@ Elim s; Intro. Left; Apply a. Right; Apply b. Cut (Un_growing [n:nat](sum_f_R0 An n)). -Intro; Pose l1 := (sum_f_R0 An N). -Fold l1 in r. +Intro; LetTac l1 := (sum_f_R0 An N) in r. Unfold Un_cv in H; Cut ``0<l1-l``. Intro; Elim (H ? H2); Intros. Pose N0 := (max x N); Cut (ge N0 x). |