diff options
| author | herbelin | 2003-10-13 09:05:03 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-13 09:05:03 +0000 |
| commit | d58eb14b26a3a0774bc16e130a7bc87adadd262d (patch) | |
| tree | 8105b435dc4189ff87b30a65b9fc8081d8cb7477 /ide | |
| parent | 4064c96e05556c6fe75c97e3df175b59af70f43e (diff) | |
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
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/coq.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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) |