diff options
| author | Hugo Herbelin | 2014-10-12 09:59:32 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-10-13 19:12:34 +0200 |
| commit | 9632987e1eb0b035c760ab293e785c752d5eac92 (patch) | |
| tree | 520cdf75a430e5ce86459cbab7f7f84c2259d224 /dev/top_printers.ml | |
| parent | 51934650858ad04c6fff2ffe2d017b7a1a20bd1c (diff) | |
Adding printers for ppproofview.
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 75310163f3..c12f8a2760 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -161,6 +161,9 @@ let ppgoalgoal gl = pp(Goal.pr_goal gl) let ppgoal g = pp(Printer.pr_goal g) let ppgoalsigma g = pp(Printer.pr_goal g ++ pr_evar_map None (Refiner.project g)) let pphintdb db = pp(Hints.pr_hint_db db) +let ppproofview p = + let gls,sigma = Proofview.proofview p in + pp(pr_enum Goal.pr_goal gls ++ fnl () ++ pr_evar_map (Some 1) sigma) let ppopenconstr (x : Evd.open_constr) = let (evd,c) = x in pp (pr_evar_map (Some 2) evd ++ pr_constr c) |