From 56f7e0db738982684cda88a7cda833acdaa21d1f Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Thu, 16 Oct 2014 17:55:45 +0200
Subject: Refresh to avoid algebraic universes on the right.

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

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index e0b7624317..d131e2d33d 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -468,7 +468,8 @@ let weak_check env sigma deep newc origc =
   let t1 = Retyping.get_type_of env sigma newc in
   if deep then
     let t2 = Retyping.get_type_of env sigma origc in
-    snd (infer_conv ~pb:Reduction.CUMUL env sigma t1 t2)
+    let sigma, t2 = Evarsolve.refresh_universes ~onlyalg:true (Some false) env sigma t2 in
+      snd (infer_conv ~pb:Reduction.CUMUL env sigma t1 t2)
   else
     isSort (whd_betadeltaiota env sigma t1)
 
-- 
cgit v1.2.3