diff options
| author | Hugo Herbelin | 2017-01-26 13:24:04 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2017-01-26 18:39:41 +0100 |
| commit | c7a0568967a8a6e40888a2106b9b59325f2f09a5 (patch) | |
| tree | 131f69969a4f5b0f49029479c9724acee3a371fc /dev | |
| 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')
| -rw-r--r-- | dev/include | 2 | ||||
| -rw-r--r-- | dev/top_printers.ml | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/dev/include b/dev/include index 9068688f19..0f43f00729 100644 --- a/dev/include +++ b/dev/include @@ -61,7 +61,7 @@ (*#install_printer (* hints_path *) pphintspath;;*) #install_printer (* goal *) ppgoal;; (*#install_printer (* sigma goal *) ppsigmagoal;;*) -(*#install_printer (* proof *) pproof;;*) +#install_printer (* proof *) pproof;; #install_printer (* Goal.goal *) ppgoalgoal;; #install_printer (* proofview *) ppproofview;; #install_printer (* metaset.t *) ppmetas;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index b552d99949..4fcad88202 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) |