diff options
| author | herbelin | 2011-06-21 18:43:33 +0000 |
|---|---|---|
| committer | herbelin | 2011-06-21 18:43:33 +0000 |
| commit | 6810929f652be3ebe40de86fe360665c6aded049 (patch) | |
| tree | 2e1a337d99c206f98837cab110f4d3f39ec8566e /dev/top_printers.ml | |
| parent | 580539fce36067d7c6ee89cbcb8707fd29ebc117 (diff) | |
Cleaning debugging printer relative to new proof engine. In
particular, new printer for evar_map which displays undefined evars +
defined evars that were instantiated by these undefined evars and
recursively, up to some arbitrary level n chosen to be in practice
n=2 (thanks to Arnaud).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14231 85f007b7-540e-0410-9357-904b9bb8a0f7
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 547ca0475a..333cf1a67b 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -112,7 +112,8 @@ 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 evd) +let ppevm evd = pp(pr_evar_map (Some 2) evd) +let ppevmall evd = pp(pr_evar_map None evd) let ppclenv clenv = pp(pr_clenv clenv) let ppgoalgoal gl = pp(Goal.pr_goal gl) (* spiwack: deactivated until a replacement is found |