Réorganisation de la librairie des réels

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3311 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 10 deletions

diff --git a/theories/Reals/Rsigma.v b/theories/Reals/Rsigma.v
index dfd34a1de..766365c13 100644
--- a/theories/Reals/Rsigma.v
+++ b/theories/Reals/Rsigma.v
@@ -8,10 +8,10 @@
 
 (*i $Id$ i*)
 
-Require Rbase.
+Require RealsB.
+Require Rfunctions.
 Require Rseries.
-Require Alembert.
-Require Binome.
+Require PartSum.
 
 Set Implicit Arguments.
 
@@ -21,13 +21,6 @@ Variable f : nat->R.
 
 Definition sigma [low,high:nat] : R := (sum_f_R0 [k:nat](f (plus low k)) (minus high low)).
 
-Lemma lt_minus_O_lt : (m,n:nat) (lt m n) -> (lt O (minus n m)).
-Intros n m; Pattern n m; Apply nat_double_ind; [
-  Intros; Rewrite <- minus_n_O; Assumption
-| Intros; Elim (lt_n_O ? H)
-| Intros; Simpl; Apply H; Apply lt_S_n; Assumption].
-Qed.
-
 Theorem sigma_split : (low,high,k:nat) (le low k)->(lt k high)->``(sigma low high)==(sigma low k)+(sigma (S k) high)``.
 Intros; Induction k.
 Cut low = O.