From fcf027f0caf42b9133b50bb6cb76c16087975f33 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 9 Oct 2018 19:58:17 +0200
Subject: Removing useless call to Global.env in check_and_clear_in_constr.

---
 engine/evarutil.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'engine')

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
-- 
cgit v1.2.3


From 8a3fa648109ab4fae20a424fd1342cb26a123d58 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 9 Oct 2018 22:16:46 +0200
Subject: A useless occurrence of Global.env.

---
 engine/termops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'engine')

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] *)
-- 
cgit v1.2.3