diff options
| author | msozeau | 2011-08-04 14:42:55 +0000 |
|---|---|---|
| committer | msozeau | 2011-08-04 14:42:55 +0000 |
| commit | 726130d3d847e59d3556f6b302de155dc052d6a4 (patch) | |
| tree | 1a867c16ecfb46992dfc1ee76f7f1cb0b152249f /dev/top_printers.ml | |
| parent | cd411cddcd2f24c892146916e530635dda086d8d (diff) | |
Fix unification: detect invalid evar instantiations due to scoping earlier.
Add a debug printer for existential sets (used for frozen_evars in w_unify).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14384 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index bb8d0a68b2..278fdb399c 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -114,6 +114,10 @@ let pp_transparent_state s = pp (pr_transparent_state s) let ppmetas metas = pp(pr_metaset metas) let ppevm evd = pp(pr_evar_map (Some 2) evd) let ppevmall evd = pp(pr_evar_map None evd) +let pr_existentialset evars = + prlist_with_sep spc pr_meta (ExistentialSet.elements evars) +let ppexistentialset evars = + pp (pr_existentialset evars) let ppclenv clenv = pp(pr_clenv clenv) let ppgoalgoal gl = pp(Goal.pr_goal gl) let ppgoal g = pp(Printer.pr_goal g) |