diff options
author | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 16:46:36 +0000 |
---|---|---|
committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 16:46:36 +0000 |
commit | 9aeaac7698c670cc7ac92dd53cd674b5b321aab3 (patch) | |
tree | b02945c21c26e6c67d0e17175bfb0e3f52b89f5c /theories/Reals/AltSeries.v | |
parent | 096310efb4266fe89455d473f704ec6c7ed5a97c (diff) |
Modifications dans SeqProp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3590 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/AltSeries.v')
-rw-r--r-- | theories/Reals/AltSeries.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/AltSeries.v b/theories/Reals/AltSeries.v index c5e1e0ba5..d9477c50d 100644 --- a/theories/Reals/AltSeries.v +++ b/theories/Reals/AltSeries.v @@ -97,8 +97,8 @@ Apply CV_ALT_step2; Assumption. Qed. (**********) -Lemma CV_ALT_step4 : (Un:nat->R) (Un_decreasing Un) -> (positivity_seq Un) -> (majoree [N:nat](sum_f_R0 (tg_alt Un) (S (mult (2) N)))). -Intros; Unfold majoree; Unfold bound. +Lemma CV_ALT_step4 : (Un:nat->R) (Un_decreasing Un) -> (positivity_seq Un) -> (has_ub [N:nat](sum_f_R0 (tg_alt Un) (S (mult (2) N)))). +Intros; Unfold has_ub; Unfold bound. Exists ``(Un O)``. Unfold is_upper_bound; Intros; Elim H1; Intros. Rewrite H2; Rewrite decomp_sum. |