diff options
| author |  cek <cek@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-07 09:04:51 +0000 |
|---|---|---|
| committer | cek <cek@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-07 09:04:51 +0000 |
| commit | d03b0e0740379b72f3e14d397378c1b02867714c (patch) | |
| tree | 5397c4145bb8b5c62ef1f710944dd4de9d51e2af /plugins/xml | |
| parent | 250d227e2b71ac661fda21efcd37227ca9612b7a (diff) | |
Fix for missing hypotesae in XML proof tree export.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12377 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/xml')
| -rw-r--r-- | plugins/xml/dumptree.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/xml/dumptree.ml4 b/plugins/xml/dumptree.ml4 index 82e90876d..9419ba597 100644 --- a/plugins/xml/dumptree.ml4 +++ b/plugins/xml/dumptree.ml4 @@ -116,7 +116,7 @@ let pr_subgoal_metas_xml metas env= ;; let pr_goal_xml g = - let env = try evar_env g with _ -> empty_env in + let env = try evar_unfiltered_env g with _ -> empty_env in if g.evar_extra = None then (hov 2 (str "<goal>" ++ fnl () ++ str "<concl type=\"" ++ xmlstream (pr_ltype_env_at_top env g.evar_concl) ++ |