diff options
| -rw-r--r-- | dev/base_include | 1 | ||||
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 2 |
3 files changed, 4 insertions, 0 deletions
diff --git a/dev/base_include b/dev/base_include index b7fa38ea8..26949cde9 100644 --- a/dev/base_include +++ b/dev/base_include @@ -38,6 +38,7 @@ #install_printer ppvblock;; #install_printer (* bigint *) ppbigint;; #install_printer (* loc *) pploc;; +#install_printer (* substitution *) prsubst;; (* Open main files *) @@ -34,5 +34,6 @@ install_printer Top_printers.ppclenv install_printer Top_printers.pptac install_printer Top_printers.ppobj install_printer Top_printers.pploc +install_printer Top_printers.prsubst diff --git a/dev/top_printers.ml b/dev/top_printers.ml index e1ee29e4f..df089f0b1 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -81,6 +81,8 @@ let genppj f j = let (c,t) = f j in (c ++ str " : " ++ t) let ppj j = pp (genppj pr_ljudge j) +let prsubst s = pp (Mod_subst.debug_pr_subst s) + (* proof printers *) let ppevm evd = pp(pr_evar_map evd) let ppevd evd = pp(pr_evar_defs evd) |