diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-21 13:14:04 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-21 13:14:04 +0000 |
| commit | d2edc017ee972bb4a1779ceb4a1961a6ab89f409 (patch) | |
| tree | aac35b907fba18fff846e723ba09c5026b03b854 /theories/Reals/Rfunctions.v | |
| parent | 6b68976978fc8b4e9589a35858bd5592347be635 (diff) | |
Bug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4046 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rfunctions.v')
| -rw-r--r-- | theories/Reals/Rfunctions.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/theories/Reals/Rfunctions.v b/theories/Reals/Rfunctions.v index d1a49ae9b..31c3e13ea 100644 --- a/theories/Reals/Rfunctions.v +++ b/theories/Reals/Rfunctions.v @@ -675,10 +675,14 @@ Fixpoint sum_f_R0 [f:nat->R;N:nat]:R:= |(S i) => (Rplus (sum_f_R0 f i) (f (S i))) end. +Arguments Scope sum_f_R0 [ _ nat_scope ]. + (*********) Definition sum_f [s,n:nat;f:nat->R]:R:= (sum_f_R0 [x:nat](f (plus x s)) (minus n s)). +Arguments Scope sum_f [ nat_scope nat_scope _ ]. + Lemma GP_finite: (x:R) (n:nat) (Rmult (sum_f_R0 [n:nat] (pow x n) n) (Rminus x R1)) == |