diff options
| author | Gaëtan Gilbert | 2020-10-02 15:08:33 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-10-02 15:08:52 +0200 |
| commit | 2c092c76a3cb96043c4eba837646c330c30398e4 (patch) | |
| tree | 4fbd02911367f986ef8aef88733f38b512e879cf /interp/implicit_quantifiers.ml | |
| parent | bb2d0d56df08ca54764be5a3eb5c09ce00009d6c (diff) | |
Understand Mangle Names in implicit generalization
Fix #13131
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index 4016a3600e..af66f177bb 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -114,8 +114,8 @@ let generalizable_vars_of_glob_constr ?(bound=Id.Set.empty) ?(allowed=Id.Set.emp ungeneralizable loc id) vars; vars -let rec make_fresh ids env x = - if is_freevar ids env x then x else make_fresh ids env (Nameops.increment_subscript x) +let make_fresh ids env x = + Namegen.next_ident_away_from x (fun x -> not (is_freevar ids env x)) let next_name_away_from na avoid = match na with |