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 | |
| parent | 51934650858ad04c6fff2ffe2d017b7a1a20bd1c (diff) | |
Adding printers for ppproofview.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/include | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 3 |
3 files changed, 5 insertions, 0 deletions
@@ -40,6 +40,7 @@ install_printer Top_printers.ppmetas install_printer Top_printers.ppevm install_printer Top_printers.ppgoalgoal install_printer Top_printers.ppgoal +install_printer Top_printers.ppproofview install_printer Top_printers.pphintdb install_printer Top_printers.pptac diff --git a/dev/include b/dev/include index 069622a028..7f72f55d9d 100644 --- a/dev/include +++ b/dev/include @@ -62,6 +62,7 @@ (*#install_printer (* sigma goal *) ppsigmagoal;;*) (*#install_printer (* proof *) pproof;;*) #install_printer (* Goal.goal *) ppgoalgoal;; +#install_printer (* proofview *) ppproofview;; #install_printer (* metaset.t *) ppmetas;; #install_printer (* evar *) ppevar;; #install_printer (* evar_map *) ppevm;; 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) |