diff options
author | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-04-02 17:59:39 +0200 |
---|---|---|
committer | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-04-02 18:02:15 +0200 |
commit | 49a2f8411fc69c9cdffc776a25fcb521aab7de74 (patch) | |
tree | 347436d844e8f63db5477713b6dd25be8878f78c /dev | |
parent | 207057490b62390c5003b429393e30405914c26d (diff) |
A debug printer for Evd.Filter.t
Diffstat (limited to 'dev')
-rw-r--r-- | dev/db | 1 | ||||
-rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 3 insertions, 0 deletions
@@ -6,6 +6,7 @@ install_printer Top_printers.ppid install_printer Top_printers.ppidset install_printer Top_printers.ppevar install_printer Top_printers.ppevarsubst +install_printer Top_printers.ppexistentialfilter install_printer Top_printers.ppintset install_printer Top_printers.pplab install_printer Top_printers.ppdir diff --git a/dev/top_printers.ml b/dev/top_printers.ml index eefd07e60..0aa29cadf 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) |