diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 13:39:23 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-22 13:39:23 +0000 |
| commit | b5e03cd4521fa470e04ad552b401f250a99ae09c (patch) | |
| tree | 51a9132728854a1271d34dbfe4cc221a7d3fbdba /theories/Reals/PartSum.v | |
| parent | 126143a69589f397b7485f111a0edcb51f03589c (diff) | |
Renommages dans Rcomplete
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3578 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/PartSum.v')
| -rw-r--r-- | theories/Reals/PartSum.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/PartSum.v b/theories/Reals/PartSum.v index cddcf54c1..737520552 100644 --- a/theories/Reals/PartSum.v +++ b/theories/Reals/PartSum.v @@ -11,7 +11,7 @@ Require Rbase. Require Rfunctions. Require Rseries. -Require Rcomplet. +Require Rcomplete. Require Max. Lemma tech1 : (An:nat->R;N:nat) ((n:nat)``(le n N)``->``0<(An n)``) -> ``0 < (sum_f_R0 An N)``. @@ -362,7 +362,7 @@ Qed. Lemma cv_cauchy_2 : (An:nat->R) (Cauchy_crit_series An) -> (sigTT R [l:R](Un_cv [N:nat](sum_f_R0 An N) l)). Intros. -Apply R_complet. +Apply R_complete. Unfold Cauchy_crit_series in H. Exact H. Qed. |