diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.mli | 1 | ||||
| -rw-r--r-- | interp/constrintern.ml | 4 | ||||
| -rw-r--r-- | interp/constrintern.mli | 1 | ||||
| -rw-r--r-- | interp/implicit_quantifiers.mli | 2 |
4 files changed, 3 insertions, 5 deletions
diff --git a/interp/constrextern.mli b/interp/constrextern.mli index 4cf79337c0..de4b13b062 100644 --- a/interp/constrextern.mli +++ b/interp/constrextern.mli @@ -11,7 +11,6 @@ open Names open Term open Context open Termops -open Sign open Environ open Libnames open Globnames diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 4e63b16fa7..c7f4635c9d 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -98,7 +98,7 @@ let global_reference id = let construct_reference ctx id = try - Term.mkVar (let _ = Sign.lookup_named id ctx in id) + Term.mkVar (let _ = Context.lookup_named id ctx in id) with Not_found -> global_reference id @@ -636,7 +636,7 @@ let intern_var genv (ltacvars,ntnvars) namedctx loc id = | Some id0 -> Pretype_errors.error_var_not_found_loc loc id0 with Not_found -> (* Is [id] a goal or section variable *) - let _ = Sign.lookup_named id namedctx in + let _ = Context.lookup_named id namedctx in try (* [id] a section variable *) (* Redundant: could be done in intern_qualid *) diff --git a/interp/constrintern.mli b/interp/constrintern.mli index 1fa0db911f..e352c7f7a3 100644 --- a/interp/constrintern.mli +++ b/interp/constrintern.mli @@ -9,7 +9,6 @@ open Names open Term open Context -open Sign open Evd open Environ open Libnames diff --git a/interp/implicit_quantifiers.mli b/interp/implicit_quantifiers.mli index 66be2ae5a3..df29d05926 100644 --- a/interp/implicit_quantifiers.mli +++ b/interp/implicit_quantifiers.mli @@ -10,7 +10,7 @@ open Loc open Names open Decl_kinds open Term -open Sign +open Context open Evd open Environ open Nametab |