diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-07-18 15:13:32 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-07-18 15:13:32 +0000 |
| commit | 78ab4244f2059844e9ebb1b1ba6d24ab764015e9 (patch) | |
| tree | ad22f1056e5a30e6c7f0b19a6cff104f4cae89a5 /theories/Reals/Ranalysis4.v | |
| parent | 991b52905ed29cdabe7fa2a1bc59cfa25da23e68 (diff) | |
MAJ pour Sqrt_reg
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2898 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Ranalysis4.v')
| -rw-r--r-- | theories/Reals/Ranalysis4.v | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/theories/Reals/Ranalysis4.v b/theories/Reals/Ranalysis4.v index afd65a500..86e2cecec 100644 --- a/theories/Reals/Ranalysis4.v +++ b/theories/Reals/Ranalysis4.v @@ -19,21 +19,7 @@ Require Ranalysis1. Require R_sqrt. Require Ranalysis2. Require Ranalysis3. - -(* sqrt *) -Axiom derivable_pt_lim_sqrt : (x:R) ``0<x`` -> (derivable_pt_lim sqrt x ``/(2*(sqrt x))``). - -Lemma derivable_pt_sqrt : (x:R) ``0<x`` -> (derivable_pt sqrt x). -Unfold derivable_pt; Intros. -Apply Specif.existT with ``/(2*(sqrt x))``. -Apply derivable_pt_lim_sqrt; Assumption. -Qed. - -Lemma derive_pt_sqrt : (x:R;pr:``0<x``) ``(derive_pt sqrt x (derivable_pt_sqrt ? pr)) == /(2*(sqrt x))``. -Intros. -Apply derive_pt_eq_0. -Apply derivable_pt_lim_sqrt; Assumption. -Qed. +Require Export Sqrt_reg. (**********) Lemma derivable_pt_inv : (f:R->R;x:R) ``(f x)<>0`` -> (derivable_pt f x) -> (derivable_pt (inv_fct f) x). |