diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/include | 2 | ||||
| -rw-r--r-- | dev/top_printers.ml | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/dev/include b/dev/include index 4a025d077c..7c63f54436 100644 --- a/dev/include +++ b/dev/include @@ -53,6 +53,8 @@ #install_printer (* type_judgement *) pptype;; #install_printer (* judgement *) ppj;; +#install_printer (* judgement *) pp_cst_stack_t;; + (*#install_printer (* hint_db *) print_hint_db;;*) (*#install_printer (* hints_path *) pphintspath;;*) #install_printer (* goal *) ppgoal;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index fb8509c503..fccf580a50 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -140,6 +140,7 @@ let pp_idpred s = pp (pr_idpred s) let pp_cpred s = pp (pr_cpred s) let pp_transparent_state s = pp (pr_transparent_state s) let pp_stack_t n = pp (Reductionops.Stack.pr Termops.print_constr n) +let pp_cst_stack_t n = pp (Reductionops.Cst_stack.pr n) (* proof printers *) let pr_evar ev = Pp.int (Evar.repr ev) |