diff options
author | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-17 07:25:23 +0000 |
---|---|---|
committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-17 07:25:23 +0000 |
commit | d440c9c6b4c64bfea5e1dc6bc4003d677fd493ca (patch) | |
tree | 19225b9e815613bf1cdf5982c4d9b09d9e1c51d7 /theories/Reals/Ranalysis.v | |
parent | 1a750105e7d9630acf44dd0833cdc34578a0aea5 (diff) |
Field ne fait maintenant que les reductions necessaires
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2539 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Ranalysis.v')
-rw-r--r-- | theories/Reals/Ranalysis.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/Ranalysis.v b/theories/Reals/Ranalysis.v index 005bdb3a1..dcf4e6406 100644 --- a/theories/Reals/Ranalysis.v +++ b/theories/Reals/Ranalysis.v @@ -750,7 +750,7 @@ Field. DiscrR. Case delta; Intros. Apply prod_neq_R0. -Red; Intro H13; Rewrite H13 in cond_pos; Elim (Rlt_antirefl ``0`` cond_pos). +Compute; Intro H13; Rewrite H13 in cond_pos; Elim (Rlt_antirefl ``0`` cond_pos). Apply Rinv_neq_R0; DiscrR. Replace ``((f (x+delta/2))-(f x))/(delta/2)`` with ``-(((f x)-(f (x+delta/2)))/(delta/2))``. Rewrite <- Ropp_O. @@ -765,7 +765,7 @@ Left; Apply Rlt_Rinv; Assumption. Field. Case delta; Intros. Apply prod_neq_R0. -Red; Intro H13; Rewrite H13 in cond_pos; Elim (Rlt_antirefl ``0`` cond_pos). +Compute; Intro H13; Rewrite H13 in cond_pos; Elim (Rlt_antirefl ``0`` cond_pos). Apply Rinv_neq_R0; DiscrR. Split. Unfold Rdiv; Apply prod_neq_R0. |