diff options
| author | Matthieu Sozeau | 2014-06-11 15:41:40 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-11 15:42:51 +0200 |
| commit | a26b8afbe5b6b0b5bb034884f5271c6d845a67b4 (patch) | |
| tree | b21bca651952bd5f40a65c61056eb5305b8a7a7c /dev/top_printers.ml | |
| parent | e781fdf9a135526e67ebb014412c663d54ef9e28 (diff) | |
- Fix bug #3368, due to wrong use of the Cst_stack for projections.
- Monomorphize Cst_stack to 'a = constr.
- Add corresponding debug printer.
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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) |