aboutsummaryrefslogtreecommitdiffhomepage
path: root/dev
diff options
context:
space:
mode:
authorGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2011-08-04 14:42:55 +0000
committerGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2011-08-04 14:42:55 +0000
commit726130d3d847e59d3556f6b302de155dc052d6a4 (patch)
tree1a867c16ecfb46992dfc1ee76f7f1cb0b152249f /dev
parentcd411cddcd2f24c892146916e530635dda086d8d (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')
-rw-r--r--dev/include1
-rw-r--r--dev/top_printers.ml4
2 files changed, 5 insertions, 0 deletions
diff --git a/dev/include b/dev/include
index 5d4872273..705e8e375 100644
--- a/dev/include
+++ b/dev/include
@@ -28,6 +28,7 @@
#install_printer (* Goal.goal *) ppgoalgoal;;
#install_printer (* metaset.t *) ppmetas;;
#install_printer (* evar_map *) ppevm;;
+#install_printer (* ExistentialSet.t *) ppexistentialset;;
#install_printer (* clenv *) ppclenv;;
#install_printer (* env *) ppenv;;
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index bb8d0a68b..278fdb399 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)