diff options
-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 069622a02..7f72f55d9 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 75310163f..c12f8a276 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) |