diff options
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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) |