diff options
| author | Hugo Herbelin | 2014-05-24 10:17:53 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-05-24 10:26:37 +0200 |
| commit | 9cef8345e8a25dad2b5e8e7c7525fbf804847a16 (patch) | |
| tree | b1a4e8bad865cbd3aaf5b8c23312a5de64ea1887 | |
| parent | 180a39219f6987b63e7cc34500371d5ce03188c4 (diff) | |
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.
| -rw-r--r-- | parsing/g_tactic.ml4 | 4 |
1 files 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) |