From 607c5c1da030bf3b372d514ca0ff9e09043e4a4e Mon Sep 17 00:00:00 2001
From: desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 16 Jan 2003 13:16:56 +0000
Subject: 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
---
 theories/Reals/DiscrR.v | 1 +
 1 file changed, 1 insertion(+)

(limited to 'theories/Reals')

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
-- 
cgit v1.2.3