From 002dd75ca36ea088848318c3fbdc0ecd1adc63a7 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 17 Oct 2011 09:51:24 +0000
Subject: New evar_map printer ppevmfull which can typically be installed for
 debugging with full sigma (typically for debugging type inference).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14567 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/top_printers.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 3fc90761d1..68880c6969 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -113,6 +113,7 @@ let pp_transparent_state s = pp (pr_transparent_state s)
 (* proof printers *)
 let ppmetas metas = pp(pr_metaset metas)
 let ppevm evd = pp(pr_evar_map (Some 2) evd)
+let ppevmfull evd = pp(pr_evar_map None evd)
 let ppevmall evd = pp(pr_evar_map None evd)
 let pr_existentialset evars =
   prlist_with_sep spc pr_meta (ExistentialSet.elements evars)
-- 
cgit v1.2.3