From 4585baa53e7fa4c25e304b8136944748a7622e10 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Thu, 1 Oct 2015 18:42:38 +0200
Subject: Univs: refined handling of assumptions

According to their polymorphic/non-polymorphic status, which
imply that universe variables introduced with it are assumed
to be >= or > Set respectively in the following definitions.
---
 tactics/extratactics.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tactics')

diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4
index a72c6ab51e..cab74968d2 100644
--- a/tactics/extratactics.ml4
+++ b/tactics/extratactics.ml4
@@ -270,7 +270,7 @@ let add_rewrite_hint bases ort t lcsr =
     let ctx =
       let ctx = Evd.evar_universe_context_set Univ.UContext.empty ctx in
         if poly then ctx
-	else (Global.push_context_set ctx; Univ.ContextSet.empty)
+	else (Global.push_context_set false ctx; Univ.ContextSet.empty)
     in
       Constrexpr_ops.constr_loc ce, (c, ctx), ort, t in
   let eqs = List.map f lcsr in
-- 
cgit v1.2.3