From c7a0568967a8a6e40888a2106b9b59325f2f09a5 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 26 Jan 2017 13:24:04 +0100
Subject: 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.
---
 dev/include         | 2 +-
 dev/top_printers.ml | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'dev')

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)
-- 
cgit v1.2.3