diff options
author | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-16 12:48:05 +0000 |
---|---|---|
committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-16 12:48:05 +0000 |
commit | 037beacda5dcc3a772ef54570abab6c103931da2 (patch) | |
tree | 3345cefc0073da54b3be529418aab7a7c70e4a08 /theories/Reals/NewtonInt.v | |
parent | 77a0d61c489dba03cab01ae6b4058cd2ebe7a843 (diff) |
Renommage de RealsB en Rbase
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3508 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/NewtonInt.v')
-rw-r--r-- | theories/Reals/NewtonInt.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/theories/Reals/NewtonInt.v b/theories/Reals/NewtonInt.v index 031870b93..6346fc2ee 100644 --- a/theories/Reals/NewtonInt.v +++ b/theories/Reals/NewtonInt.v @@ -8,7 +8,7 @@ (*i $Id$ i*) -Require RealsB. +Require Rbase. Require Rfunctions. Require SeqSeries. Require Rtrigo. @@ -198,7 +198,7 @@ Symmetry; Assumption. Assert H8 := (derive_pt_eq_1 F0 x (f x) x0 H7); Unfold derivable_pt_lim in H8; Intros; Elim (H8 ? H9); Intros; Pose D := (Rmin x1 ``b-x``). Assert H11 : ``0<D``. Unfold D; Unfold Rmin; Case (total_order_Rle x1 ``b-x``); Intro. -Apply (Rbase.cond_pos x1). +Apply (cond_pos x1). Apply Rlt_Rminus; Assumption. Exists (mkposreal ? H11); Intros; Case (total_order_Rle x b); Intro. Case (total_order_Rle ``x+h`` b); Intro. @@ -225,8 +225,8 @@ Symmetry; Assumption. Assert H11 := (derive_pt_eq_1 F0 x (f x) x1 H9); Assert H12 := (derive_pt_eq_1 F1 x (f x) x0 H10); Assert H13 : (derivable_pt_lim [x:R]Cases (total_order_Rle x b) of (leftT _) => (F0 x) | (rightT _) => ``(F1 x)+((F0 b)-(F1 b))`` end x (f x)). Unfold derivable_pt_lim; Unfold derivable_pt_lim in H11 H12; Intros; Elim (H11 ? H13); Elim (H12 ? H13); Intros; Pose D := (Rmin x2 x3); Assert H16 : ``0<D``. Unfold D; Unfold Rmin; Case (total_order_Rle x2 x3); Intro. -Apply (Rbase.cond_pos x2). -Apply (Rbase.cond_pos x3). +Apply (cond_pos x2). +Apply (cond_pos x3). Exists (mkposreal ? H16); Intros; Case (total_order_Rle x b); Intro. Case (total_order_Rle ``x+h`` b); Intro. Apply H15. @@ -248,7 +248,7 @@ Unfold derivable_pt_lim; Assert H7 : ``(derive_pt F1 x x0)==(f x)``. Symmetry; Assumption. Assert H8 := (derive_pt_eq_1 F1 x (f x) x0 H7); Unfold derivable_pt_lim in H8; Intros; Elim (H8 ? H9); Intros; Pose D := (Rmin x1 ``x-b``); Assert H11 : ``0<D``. Unfold D; Unfold Rmin; Case (total_order_Rle x1 ``x-b``); Intro. -Apply (Rbase.cond_pos x1). +Apply (cond_pos x1). Apply Rlt_Rminus; Assumption. Exists (mkposreal ? H11); Intros; Case (total_order_Rle x b); Intro. Elim (Rlt_antirefl ? (Rle_lt_trans ? ? ? r0 r)). |