diff options
| author | herbelin | 2011-10-17 09:51:24 +0000 |
|---|---|---|
| committer | herbelin | 2011-10-17 09:51:24 +0000 |
| commit | 002dd75ca36ea088848318c3fbdc0ecd1adc63a7 (patch) | |
| tree | cecf93186d72dd476ba30af3c95f03f081b64a70 /dev | |
| parent | b96cef1c1d86834ef6818f937b15cb6fd8bdb270 (diff) | |
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
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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) |