diff options
| author | Pierre-Marie Pédrot | 2014-04-23 21:38:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-04-23 22:58:51 +0200 |
| commit | 5bddbf141cc6462563cdc86dcc7c02edccd295fd (patch) | |
| tree | 9ebc3de6396f376064b67c5da0202b1e33ed22af /dev | |
| parent | 74ddca99c649f2f8c203582a9b82bddf64fb6b52 (diff) | |
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.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 5 |
1 files changed, 3 insertions, 2 deletions
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) |