Une passe sur les réels:

- Renommage de Rlt_not_le de Fourier_util en Rlt_not_le_frac_opp pour
  éviter la confusion avec le Rlt_not_le de RIneq.
- Quelques variantes de lemmes en plus dans RIneq.
- Déplacement des énoncés de sigT dans sig (y compris la complétude)
  et utilisation de la notation { l:R | }.
- Suppression hypothèse inutile de ln_exists1.
- Ajout notation ² pour Rsqr.

Au passage:
- Déplacement de dec_inh_nat_subset_has_unique_least_element
  de ChoiceFacts vers Wf_nat.
- Correction de l'espace en trop dans les notations de Specif.v liées à "&".
- MAJ fichier CHANGES

Note: il reste un axiome dans Ranalysis (raison technique: Ltac ne
sait pas manipuler un terme ouvert) et dans Rtrigo.v ("sin PI/2 = 1"
non prouvé).



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

1 files changed, 5 insertions, 5 deletions

diff --git a/theories/Reals/PartSum.v b/theories/Reals/PartSum.v
index 6692fd8c7..40972fbcf 100644
--- a/theories/Reals/PartSum.v
+++ b/theories/Reals/PartSum.v
@@ -153,7 +153,7 @@ Lemma tech12 :
     Un_cv (fun N:nat => sum_f_R0 (fun i:nat => An i * x ^ i) N) l ->
     Pser An x l.
 Proof.
-  intros; unfold Pser in |- *; unfold infinit_sum in |- *; unfold Un_cv in H;
+  intros; unfold Pser in |- *; unfold infinite_sum in |- *; unfold Un_cv in H;
     assumption.
 Qed. 
 
@@ -218,9 +218,9 @@ Qed.
 (* Unicity of the limit defined by convergent series *)
 Lemma uniqueness_sum :
   forall (An:nat -> R) (l1 l2:R),
-    infinit_sum An l1 -> infinit_sum An l2 -> l1 = l2.
+    infinite_sum An l1 -> infinite_sum An l2 -> l1 = l2.
 Proof.
-  unfold infinit_sum in |- *; intros.
+  unfold infinite_sum in |- *; intros.
   case (Req_dec l1 l2); intro.
   assumption.
   cut (0 < Rabs ((l1 - l2) / 2)); [ intro | apply Rabs_pos_lt ].
@@ -450,7 +450,7 @@ Qed.
 (**********)
 Lemma cv_cauchy_1 :
   forall An:nat -> R,
-    sigT (fun l:R => Un_cv (fun N:nat => sum_f_R0 An N) l) ->
+    { l:R | Un_cv (fun N:nat => sum_f_R0 An N) l } ->
     Cauchy_crit_series An.
 Proof.
   intros An X.
@@ -481,7 +481,7 @@ Qed.
 Lemma cv_cauchy_2 :
   forall An:nat -> R,
     Cauchy_crit_series An ->
-    sigT (fun l:R => Un_cv (fun N:nat => sum_f_R0 An N) l).
+    { l:R | Un_cv (fun N:nat => sum_f_R0 An N) l }.
 Proof.
   intros.
   apply R_complete.