From 726130d3d847e59d3556f6b302de155dc052d6a4 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Thu, 4 Aug 2011 14:42:55 +0000
Subject: Fix unification: detect invalid evar instantiations due to scoping
 earlier. Add a debug printer for existential sets (used for frozen_evars in
 w_unify).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14384 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/top_printers.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'dev/top_printers.ml')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index bb8d0a68b2..278fdb399c 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -114,6 +114,10 @@ let pp_transparent_state s = pp (pr_transparent_state s)
 let ppmetas metas = pp(pr_metaset metas)
 let ppevm evd = pp(pr_evar_map (Some 2) evd)
 let ppevmall evd = pp(pr_evar_map None evd)
+let pr_existentialset evars =
+  prlist_with_sep spc pr_meta (ExistentialSet.elements evars)
+let ppexistentialset evars =
+  pp (pr_existentialset evars)
 let ppclenv clenv = pp(pr_clenv clenv)
 let ppgoalgoal gl = pp(Goal.pr_goal gl)
 let ppgoal g = pp(Printer.pr_goal g)
-- 
cgit v1.2.3