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, 4 deletions

diff --git a/theories/Reals/MVT.v b/theories/Reals/MVT.v
index 5d36e3ce8..ca4c38954 100644
--- a/theories/Reals/MVT.v
+++ b/theories/Reals/MVT.v
@@ -11,7 +11,8 @@
 Require Import Rbase.
 Require Import Rfunctions.
 Require Import Ranalysis1.
-Require Import Rtopology. Open Local Scope R_scope.
+Require Import Rtopology.
+Open Local Scope R_scope.
 
 (* The Mean Value Theorem *)
 Theorem MVT :
@@ -189,7 +190,7 @@ Proof.
   intros; apply derivable_pt_id.
   intros; apply derivable_continuous_pt; apply X; assumption.
   intros; elim H1; intros; apply X; split; left; assumption.
-  intros; unfold derivable_pt in |- *; apply existT with (f' c); apply H0;
+  intros; unfold derivable_pt in |- *; exists (f' c); apply H0;
     apply H1.
 Qed.
 
@@ -695,11 +696,11 @@ Proof.
   unfold antiderivative in |- *; intros; elim H; clear H; intros; elim H0;
     clear H0; intros H0 _; exists (g1 a - g2 a); intros;
       assert (H3 : forall x:R, a <= x <= b -> derivable_pt g1 x).
-  intros; unfold derivable_pt in |- *; apply existT with (f x0); elim (H x0 H3);
+  intros; unfold derivable_pt in |- *; exists (f x0); elim (H x0 H3);
     intros; eapply derive_pt_eq_1; symmetry  in |- *; 
       apply H4.
   assert (H4 : forall x:R, a <= x <= b -> derivable_pt g2 x).
-  intros; unfold derivable_pt in |- *; apply existT with (f x0);
+  intros; unfold derivable_pt in |- *; exists (f x0);
     elim (H0 x0 H4); intros; eapply derive_pt_eq_1; symmetry  in |- *; 
       apply H5.
   assert (H5 : forall x:R, a < x < b -> derivable_pt (g1 - g2) x).