From d58eb14b26a3a0774bc16e130a7bc87adadd262d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 13 Oct 2003 09:05:03 +0000
Subject: Deplacement next_global_ident_away dans Termops

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4611 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coq.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ide')

diff --git a/ide/coq.ml b/ide/coq.ml
index d6a6f33979..487bc13a6b 100644
--- a/ide/coq.ml
+++ b/ide/coq.ml
@@ -22,6 +22,7 @@ open Evd
 open Hipattern
 open Tacmach
 open Reductionops
+open Termops
 open Ideutils
 
 let prerr_endline s = if !debug then prerr_endline s else ()
@@ -404,7 +405,7 @@ let make_cases s =
 	     let rec rename avoid = function 
 	       | [] -> []
 	       | (n,_)::l -> 
-		   let n' = Tactics.next_global_ident_away 
+		   let n' = next_global_ident_away true
 			      (id_of_name n) 
 			      avoid
 		   in (string_of_id n')::(rename (n'::avoid) l)
-- 
cgit v1.2.3