diff options
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) |