From 370575d3e98f375969983d26f62a1ddeab524d0e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 6 Feb 2009 20:00:19 +0000
Subject: Fixed bug #2036 (wrong copy-paste in RIneq) [copy of 11887 in branch
 v8.2]

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11888 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Reals/RIneq.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/theories/Reals/RIneq.v b/theories/Reals/RIneq.v
index 17425ca48b..8823e5d5be 100644
--- a/theories/Reals/RIneq.v
+++ b/theories/Reals/RIneq.v
@@ -1200,7 +1200,7 @@ Hint Resolve Rmult_le_compat: real.
 
 Lemma Rmult_ge_compat :
   forall r1 r2 r3 r4,
-    0 <= r1 -> 0 <= r3 -> r1 <= r2 -> r3 <= r4 -> r1 * r3 <= r2 * r4.
+    r2 >= 0 -> r4 >= 0 -> r1 >= r2 -> r3 >= r4 -> r1 * r3 >= r2 * r4.
 Proof. auto with real rorders. Qed.
 
 Lemma Rmult_gt_0_lt_compat :
-- 
cgit v1.2.3