From 0f4d47058356bb93a0945b561d84f411b0ef5ca5 Mon Sep 17 00:00:00 2001
From: delahaye
Date: Tue, 4 Dec 2001 17:06:09 +0000
Subject: Traitement t de -1<>0

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

diff --git a/theories/Reals/DiscrR.v b/theories/Reals/DiscrR.v
index c955c57eff..ae58bee316 100644
--- a/theories/Reals/DiscrR.v
+++ b/theories/Reals/DiscrR.v
@@ -34,6 +34,6 @@ Tactic Definition DiscrR :=
     Isrealint ?1;Isrealint ?2;
     Apply Rminus_not_eq; Ring ``?1-?2``; 
       (Match Context With
-      | [ |- ``-1+?<>0`` ] -> 
+      | [ |- [``-1``] ] -> 
         Repeat Rewrite <- Ropp_distr1;Apply Ropp_neq
       | _ -> Idtac);Apply Rgt_not_eq;Sup0.
-- 
cgit v1.2.3