diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 1 | ||||
| -rw-r--r-- | interp/constrintern.ml | 1 | ||||
| -rw-r--r-- | interp/implicit_quantifiers.ml | 2 |
3 files changed, 3 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index fc607e354b..e948dc6b47 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -16,6 +16,7 @@ open Names open Nameops open Term open Termops +open Namegen open Inductive open Sign open Environ diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 36a219a61a..d8cb8c7157 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -13,6 +13,7 @@ open Util open Flags open Names open Nameops +open Namegen open Libnames open Impargs open Rawterm diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index f9ac88e6bc..123998411b 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -203,7 +203,7 @@ let generalizable_vars_of_rawconstr ?(bound=Idset.empty) ?(allowed=Idset.empty) vars let rec make_fresh ids env x = - if is_freevar ids env x then x else make_fresh ids env (Nameops.lift_ident x) + if is_freevar ids env x then x else make_fresh ids env (Nameops.lift_subscript x) let next_ident_away_from id avoid = make_fresh avoid (Global.env ()) id |