From ca318cd0d21ce157a3042b600ded99df6face25e Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 12 Mar 2014 12:21:40 +0100
Subject: Fix issue #88: restrict_universe_context was wrongly forgetting about
 constraints, and keeping spurious equalities. simplify_universe_context is
 correct, although it might keep unused universes around (it's the
 responsibility of the tactics to not produce unused universes then). Add
 printer for future universe contexts for debugging.

---
 dev/top_printers.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'dev/top_printers.ml')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 857a989dc7..ec7716356c 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -192,6 +192,9 @@ let ppevar_universe_context l = pp (Evd.pr_evar_universe_context l)
 let ppconstraints_map c = pp (Universes.pr_constraints_map c)
 let ppconstraints c = pp (pr_constraints c)
 let ppuniverseconstraints c = pp (UniverseConstraints.pr c)
+let ppuniverse_context_future c = 
+  let ctx = Future.force c in
+    ppuniverse_context ctx
 
 let ppenv e = pp
   (str "[" ++ pr_named_context_of e ++ str "]" ++ spc() ++
-- 
cgit v1.2.3