From a970072a64348a1b5af1cd45a138da819ef0a8d2 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Sun, 23 Aug 2020 17:52:15 +0200
Subject: Update sigma instead of erasing it in `update_global_env`

---
 engine/proofview.ml  | 3 +++
 engine/proofview.mli | 3 +++
 2 files changed, 6 insertions(+)

(limited to 'engine')

diff --git a/engine/proofview.ml b/engine/proofview.ml
index de38104ecd..fd8512d73e 100644
--- a/engine/proofview.ml
+++ b/engine/proofview.ml
@@ -1032,6 +1032,9 @@ module Unsafe = struct
   let mark_as_unresolvables p evs =
     { p with solution = mark_in_evm ~goal:false p.solution evs }
 
+  let update_sigma_env pv env =
+    { pv with solution = Evd.update_sigma_env pv.solution env }
+
 end
 
 module UnsafeRepr = Proof.Unsafe
diff --git a/engine/proofview.mli b/engine/proofview.mli
index d0a2b37a69..0f49d2f5d8 100644
--- a/engine/proofview.mli
+++ b/engine/proofview.mli
@@ -503,6 +503,9 @@ module Unsafe : sig
   val undefined : Evd.evar_map -> Proofview_monad.goal_with_state list ->
     Proofview_monad.goal_with_state list
 
+  (** [update_sigma_env] lifts [Evd.update_sigma_env] to the proofview *)
+  val update_sigma_env : proofview -> Environ.env -> proofview
+
 end
 
 (** This module gives access to the innards of the monad. Its use is
-- 
cgit v1.2.3