File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -791,7 +791,7 @@ let name_for n i =
791
791
else
792
792
(* prevent resetting the number *)
793
793
let base = if i = 0 then base else Id. of_string (Id. to_string base ^ " _" ) in
794
- Namegen. next_global_ident_away base Id.Set. empty
794
+ Namegen. next_global_ident_away ( Global. safe_env () ) base Id.Set. empty
795
795
796
796
let get_predeclared_ind indn n i =
797
797
if N. equal n (N. append_list N. anon indn) then
@@ -1408,7 +1408,7 @@ and declare_ind n { params; ty; ctors; univs } i =
1408
1408
match na.Context. binder_name with
1409
1409
| Names. Anonymous -> (ids, (na, t))
1410
1410
| Names. Name id ->
1411
- let id = Namegen. next_global_ident_away id ids in
1411
+ let id = Namegen. next_global_ident_away ( Global. safe_env () ) id ids in
1412
1412
let ids = Id.Set. add id ids in
1413
1413
line_msg
1414
1414
(N. of_list
You can’t perform that action at this time.
0 commit comments