From 14893db7bda6542fa466508d962920ee64d3e45a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 25 Oct 2009 21:16:51 +0000
Subject: 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
---
 parsing/pptactic.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parsing/pptactic.ml')

diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml
index d316a8b05f..a0c9a15ad7 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
-- 
cgit v1.2.3