diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-17 09:45:10 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-17 09:45:10 +0000 |
| commit | 8fd1080fcfd0b7f3f462cd0ccea03632c8e1dc21 (patch) | |
| tree | ce7c6f040222864131bd431b6a129cdac2207c10 /theories/Reals/DiscrR.v | |
| parent | 81474590f5ccb6b975cba3ca31a5bf88fa3dcc85 (diff) | |
Optimisations pour Sup et RCompute
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3519 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/DiscrR.v')
| -rw-r--r-- | theories/Reals/DiscrR.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/DiscrR.v b/theories/Reals/DiscrR.v index 2d8d0476a..ff5d807e0 100644 --- a/theories/Reals/DiscrR.v +++ b/theories/Reals/DiscrR.v @@ -59,7 +59,7 @@ Recursive Tactic Definition Sup0 := | [ |- ``0<?1`` ] -> Repeat (Apply Rmult_lt_pos Orelse Apply Rplus_lt_pos; Try Apply Rlt_R0_R1 Orelse Apply Rlt_R0_R2) | [ |- ``?1>0`` ] -> Change ``0<?1``; Sup0. -Tactic Definition SupOmega := Replace R1 with (IZR `1`); [Repeat Rewrite <- plus_IZR Orelse Rewrite <- mult_IZR; Apply IZR_lt; Omega | Reflexivity]. +Tactic Definition SupOmega := Replace ``2`` with (IZR `2`); [Replace R1 with (IZR `1`); [Replace R0 with (IZR `0`); [Repeat Rewrite <- plus_IZR Orelse Rewrite <- mult_IZR Orelse Rewrite <- Ropp_Ropp_IZR Orelse Rewrite Z_R_minus; Apply IZR_lt; Omega | Reflexivity] | Reflexivity] | Reflexivity]. Recursive Tactic Definition Sup := Match Context With @@ -75,4 +75,4 @@ Lemma IZR_eq : (z1,z2:Z) z1=z2 -> (IZR z1)==(IZR z2). Intros; Rewrite H; Reflexivity. Qed. -Tactic Definition RCompute := Replace R1 with (IZR `1`); [Replace R0 with (IZR `0`); [Repeat Rewrite <- plus_IZR Orelse Rewrite <- mult_IZR Orelse Rewrite <- Ropp_Ropp_IZR Orelse Rewrite Z_R_minus; Apply IZR_eq; Ring | Reflexivity] | Reflexivity]. +Tactic Definition RCompute := Replace ``2`` with (IZR `2`); [Replace R1 with (IZR `1`); [Replace R0 with (IZR `0`); [Repeat Rewrite <- plus_IZR Orelse Rewrite <- mult_IZR Orelse Rewrite <- Ropp_Ropp_IZR Orelse Rewrite Z_R_minus; Apply IZR_eq; Try Reflexivity | Reflexivity] | Reflexivity] | Reflexivity]. |