From 78ab4244f2059844e9ebb1b1ba6d24ab764015e9 Mon Sep 17 00:00:00 2001
From: desmettr
Date: Thu, 18 Jul 2002 15:13:32 +0000
Subject: MAJ pour Sqrt_reg

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2898 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Reals/Ranalysis4.v | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/theories/Reals/Ranalysis4.v b/theories/Reals/Ranalysis4.v
index afd65a5000..86e2cececa 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).
-- 
cgit v1.2.3