From 1bead2a1ef23f2a281613093d7861815279e336d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 3 Oct 2007 12:31:45 +0000
Subject: Ajout de eelim, ecase, edestruct et einduction (expérimental). Ajout
 de l'option with à (e)destruct et (e)induction.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10169 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/db              | 1 +
 dev/include         | 1 +
 dev/top_printers.ml | 1 +
 3 files changed, 3 insertions(+)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index 2ba7756fa8..dc323ec474 100644
--- a/dev/db
+++ b/dev/db
@@ -27,6 +27,7 @@ install_printer Top_printers.ppenv
 install_printer Top_printers.ppgoal
 install_printer Top_printers.ppsigmagoal
 install_printer Top_printers.pproof
+install_printer Top_printers.ppmetas
 install_printer Top_printers.ppevd
 install_printer Top_printers.ppevm
 install_printer Top_printers.ppclenv
diff --git a/dev/include b/dev/include
index 42d2a01710..1fc82be838 100644
--- a/dev/include
+++ b/dev/include
@@ -17,6 +17,7 @@
 #install_printer  (* goal *)  ppgoal;;
 #install_printer  (* sigma goal *)  ppsigmagoal;;
 #install_printer  (* proof *)  pproof;;
+#install_printer  (* metaset.t *) ppmeta;;
 #install_printer  (* evar_map *)  ppevm;;
 #install_printer  (* evar_defs *)  ppevd;;
 #install_printer  (* clenv *) ppclenv;;
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index f2b9c996bc..cd0fa0c0d6 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -86,6 +86,7 @@ let ppj j = pp (genppj pr_ljudge j)
 let prsubst s = pp (Mod_subst.debug_pr_subst s)
 
 (* proof printers *)
+let ppmetas metas = pp(pr_metaset metas)
 let ppevm evd = pp(pr_evar_map evd)
 let ppevd evd = pp(pr_evar_defs evd)
 let ppclenv clenv = pp(pr_clenv clenv)
-- 
cgit v1.2.3