From 49a2f8411fc69c9cdffc776a25fcb521aab7de74 Mon Sep 17 00:00:00 2001
From: Pierre Boutillier
Date: Wed, 2 Apr 2014 17:59:39 +0200
Subject: A debug printer for Evd.Filter.t

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

(limited to 'dev/top_printers.ml')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index eefd07e605..0aa29cadf2 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -127,6 +127,8 @@ let pr_existentialset evars =
   prlist_with_sep spc pr_evar (Evar.Set.elements evars)
 let ppexistentialset evars =
   pp (pr_existentialset evars)
+let ppexistentialfilter filter =
+  pp (prlist_with_sep spc bool (Evd.Filter.repr filter))
 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