From 5bddbf141cc6462563cdc86dcc7c02edccd295fd Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 23 Apr 2014 21:38:37 +0200
Subject: Better representation of evar filters: we represent the vacuous
 filters of any length with a [None] representation and ensure that this
 representation is canonical through the restricted interface.

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

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index c0ef89a712..6f2c241767 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -135,8 +135,9 @@ 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 ppexistentialfilter filter = match Evd.Filter.repr filter with
+| None -> pp (Pp.str "ø")
+| Some f -> pp (prlist_with_sep spc bool f)
 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