diff options
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/evarutil.ml | 2 | ||||
| -rw-r--r-- | engine/termops.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index fc2189f870..13356627f0 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -579,7 +579,7 @@ let rec check_and_clear_in_constr env evdref err ids global c = has dependencies in another hyp of the context of ev and transitively remember the dependency *) let check id _ = - if occur_var_in_decl (Global.env ()) !evdref id h + if occur_var_in_decl env !evdref id h then raise (Depends id) in let () = Id.Map.iter check ri in diff --git a/engine/termops.ml b/engine/termops.ml index efe1525c9a..1244074d50 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -963,7 +963,7 @@ let collect_vars sigma c = let vars_of_global_reference env gr = let c, _ = Global.constr_of_global_in_context env gr in - vars_of_global (Global.env ()) c + vars_of_global env c (* Tests whether [m] is a subterm of [t]: [m] is appropriately lifted through abstractions of [t] *) |