diff options
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index d48c85616c..a9d3704471 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -149,7 +149,7 @@ let free_vars_of_rawconstr ?(bound=Idset.empty) = let rec make_fresh ids env x = if is_freevar ids env x then x else make_fresh ids env (Nameops.lift_ident x) -let freevars_of_ids env ids = +let fre_ids env ids = List.filter (is_freevar env (Global.env())) ids let next_ident_away_from id avoid = make_fresh avoid (Global.env ()) id |