From 9cef8345e8a25dad2b5e8e7c7525fbf804847a16 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 24 May 2014 10:17:53 +0200
Subject: Complying with reference manual for the syntax of exists/eexists,
 i.e. removing the strange kind of syntax "exists ,t,". which was equivalent
 to "split; exists t; split", as in e.g.:

Goal (exists x, x=0) /\ (exists x, x=0).
exists ,0,.
Qed.

This answers bug request #3340.
---
 parsing/g_tactic.ml4 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4
index 52973fef2c..348722c849 100644
--- a/parsing/g_tactic.ml4
+++ b/parsing/g_tactic.ml4
@@ -628,8 +628,8 @@ GEXTEND Gram
       (* Constructors *)
       | IDENT "split";  bl = with_bindings -> TacSplit (false,false,[bl])
       | IDENT "esplit"; bl = with_bindings -> TacSplit (true,false,[bl])
-      | "exists"; bll = LIST1 opt_bindings SEP "," -> TacSplit (false,true,bll)
-      | IDENT "eexists"; bll = LIST1 opt_bindings SEP "," ->
+      | "exists"; bll = LIST0 bindings SEP "," -> TacSplit (false,true,bll)
+      | IDENT "eexists"; bll = LIST0 bindings SEP "," ->
 	  TacSplit (true,true,bll)
       | IDENT "constructor"; n = nat_or_var; l = with_bindings ->
 	  TacConstructor (false,n,l)
-- 
cgit v1.2.3