diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-01-26 13:24:04 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-01-26 18:39:41 +0100 |
| commit | c7a0568967a8a6e40888a2106b9b59325f2f09a5 (patch) | |
| tree | 131f69969a4f5b0f49029479c9724acee3a371fc /dev/top_printers.ml | |
| parent | d6bcc6ebe4f65d0555414851f7e4fb6fa1fb22a4 (diff) | |
Adding a printer for Proof.proof reflecting the focusing layout.
This is a modest contribution serving before all the purpose of
displaying the focus stack and the shelf and give_up list. It does not
print the sigma (while it could).
Any improvements are welcome.
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index b552d9994..4fcad8820 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -200,7 +200,8 @@ let pppftreestate p = pp(print_pftreestate p) (* let ppsigmagoal g = pp(pr_goal (sig_it g)) *) (* let prgls gls = pp(pr_gls gls) *) (* let prglls glls = pp(pr_glls glls) *) -(* let pproof p = pp(print_proof Evd.empty empty_named_context p) *) + +let pproof p = pp(Proof.pr_proof p) let ppuni u = pp(pr_uni u) let ppuni_level u = pp (Level.pr u) |