diff options
-rw-r--r-- | dev/db | 1 | ||||
-rw-r--r-- | dev/include | 1 | ||||
-rw-r--r-- | dev/printers.mllib | 4 | ||||
-rw-r--r-- | dev/top_printers.ml | 1 |
4 files changed, 7 insertions, 0 deletions
@@ -38,6 +38,7 @@ install_printer Top_printers.pp_cst_stack_t install_printer Top_printers.ppmetas install_printer Top_printers.ppevm install_printer Top_printers.ppgoal +install_printer Top_printers.pphintdb install_printer Top_printers.pptac install_printer Top_printers.ppobj diff --git a/dev/include b/dev/include index 941fa3383..ac0915007 100644 --- a/dev/include +++ b/dev/include @@ -68,6 +68,7 @@ #install_printer (* Evar.Set.t *) ppexistentialset;; #install_printer (* clenv *) ppclenv;; #install_printer (* env *) ppenv;; +#install_printer (* Hint_db.t *) pphintdb;; #install_printer (* tactic *) pptac;; #install_printer (* object *) ppobj;; diff --git a/dev/printers.mllib b/dev/printers.mllib index 703c44647..526a402dd 100644 --- a/dev/printers.mllib +++ b/dev/printers.mllib @@ -194,6 +194,10 @@ Egramml Egramcoq Tacsubst Tacenv +Trie +Dn +Btermdn +Hints Himsg Cerrors Locality diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 0345ddfab..d98810b43 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -159,6 +159,7 @@ let ppclenv clenv = pp(pr_clenv clenv) 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 ppopenconstr (x : Evd.open_constr) = let (evd,c) = x in pp (pr_evar_map (Some 2) evd ++ pr_constr c) |