From cd9acfec55378cfe1651b910b93387724efe251d Mon Sep 17 00:00:00 2001
From: filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 5 Jul 2001 14:41:37 +0000
Subject: correction bug Omega

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1826 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/omega/coq_omega.ml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'contrib/omega')

diff --git a/contrib/omega/coq_omega.ml b/contrib/omega/coq_omega.ml
index e17336a71..7307075be 100644
--- a/contrib/omega/coq_omega.ml
+++ b/contrib/omega/coq_omega.ml
@@ -1368,9 +1368,10 @@ let normalize_equation id flag theorem pos t t1 t2 (tactic,defs) =
       (clear [id]) 
   in
   if tac <> [] then
-    ((id,((tclTHEN ((tclTHEN (shift_left) (mk_then tac))) 
-	     (intros_using [id])))) :: tactic,
-     compile id flag t' :: defs)
+    let id' = new_identifier () in 
+    ((id',((tclTHEN ((tclTHEN (shift_left) (mk_then tac))) 
+	     (intros_using [id'])))) :: tactic,
+     compile id' flag t' :: defs)
   else 
     (tactic,defs)
     
-- 
cgit v1.2.3