diff options
author | 2009-10-25 21:16:51 +0000 | |
---|---|---|
committer | 2009-10-25 21:16:51 +0000 | |
commit | 14893db7bda6542fa466508d962920ee64d3e45a (patch) | |
tree | 4920d09d5f2313c3b5cacc3a898c398a108d572e /parsing/pptactic.ml | |
parent | fb956e945678e0c69766c219cd7ab026925a57ea (diff) |
Restore (and test) broken chaining of lemmas in "apply in" in presence
of side conditions.
Fix a small presentation issue in printing the "exists" tactic.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12416 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pptactic.ml')
-rw-r--r-- | parsing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index d316a8b05..a0c9a15ad 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -820,7 +820,7 @@ and pr_atom1 = function | TacLeft (ev,l) -> hov 1 (str (with_evars ev "left") ++ pr_bindings l) | TacRight (ev,l) -> hov 1 (str (with_evars ev "right") ++ pr_bindings l) | TacSplit (ev,false,l) -> hov 1 (str (with_evars ev "split") ++ prlist_with_sep pr_coma pr_bindings l) - | TacSplit (ev,true,l) -> hov 1 (str (with_evars ev "exists") ++ prlist_with_sep pr_coma pr_ex_bindings l) + | TacSplit (ev,true,l) -> hov 1 (str (with_evars ev "exists") ++ prlist_with_sep (fun () -> str",") pr_ex_bindings l) | TacAnyConstructor (ev,Some t) -> hov 1 (str (with_evars ev "constructor") ++ pr_arg (pr_tac_level (latom,E)) t) | TacAnyConstructor (ev,None) as t -> pr_atom0 t |