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 +++
 1 file changed, 3 insertions(+)

(limited to 'engine/proofview.ml')

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