From b335fccae5514ef738376354aa619e08bb221d5c Mon Sep 17 00:00:00 2001
From: Andreas Lynge
Date: Sat, 6 Jul 2019 21:17:20 +0200
Subject: Solve universe error with SSR 'rewrite !term'

---
 proofs/goal.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/goal.ml b/proofs/goal.ml
index 888c4785df..f95a904a5f 100644
--- a/proofs/goal.ml
+++ b/proofs/goal.ml
@@ -91,7 +91,8 @@ module V82 = struct
 
   let weak_progress glss gls =
     match glss.Evd.it with
-    | [ g ] -> not (Proofview.Progress.goal_equal glss.Evd.sigma g gls.Evd.sigma gls.Evd.it)
+    | [ g ] -> not (Proofview.Progress.goal_equal ~evd:gls.Evd.sigma
+                      ~extended_evd:glss.Evd.sigma gls.Evd.it g)
     | _ -> true
 
   let progress glss gls =
-- 
cgit v1.2.3