diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-16 13:16:56 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-16 13:16:56 +0000 |
| commit | 607c5c1da030bf3b372d514ca0ff9e09043e4a4e (patch) | |
| tree | b1acc078253335cfde54018238a31f68e9fbc459 /theories/Reals/DiscrR.v | |
| parent | 037beacda5dcc3a772ef54570abab6c103931da2 (diff) | |
Correction d'un petit bug dans Sup0
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3509 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/DiscrR.v')
| -rw-r--r-- | theories/Reals/DiscrR.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/theories/Reals/DiscrR.v b/theories/Reals/DiscrR.v index 4e917ddbf..b3982dab1 100644 --- a/theories/Reals/DiscrR.v +++ b/theories/Reals/DiscrR.v @@ -54,5 +54,6 @@ Qed. Recursive Tactic Definition Sup0 := Match Context With + | [ |- ``0<1`` ] -> Apply Rlt_R0_R1 | [ |- ``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.
\ No newline at end of file |