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/Rfunctions.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/Rfunctions.v')
-rw-r--r-- | theories/Reals/Rfunctions.v | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/theories/Reals/Rfunctions.v b/theories/Reals/Rfunctions.v index 31c3e13ea..3ea74f862 100644 --- a/theories/Reals/Rfunctions.v +++ b/theories/Reals/Rfunctions.v @@ -25,9 +25,8 @@ Require Export SplitRmult. Require Export ArithProp. Require Omega. Require Zpower. -V7only [Import nat_scope.]. +V7only [ Import nat_scope. Import Z_scope. Import R_scope. ]. Open Local Scope nat_scope. -V7only [Import R_scope.]. Open Local Scope R_scope. (*******************************) @@ -68,8 +67,6 @@ Fixpoint pow [r:R;n:nat]:R:= |(S n) => (Rmult r (pow r n)) end. -Arguments Scope pow [ R_scope nat_scope ]. - Lemma pow_O: (e : R) (pow e O) == R1. Simpl; Auto with real. Qed. @@ -675,14 +672,10 @@ 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)) == |