diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-06 15:21:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-06 15:32:36 +0200 |
| commit | 3b83b311798f0d06444e1994602e0b531e207ef5 (patch) | |
| tree | 8d41bca774ee92bfa2c9866cc54ef4d7acd5a20c /parsing | |
| parent | ce85edee592fef31575e138af2945ce8be74cd07 (diff) | |
Moving the [split] tactic out of the AST.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index a97b73da7..77461213b 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -626,11 +626,9 @@ GEXTEND Gram | IDENT "revert"; l = LIST1 id_or_meta -> TacRevert l (* Constructors *) - | IDENT "split"; bl = with_bindings -> TacSplit (false,false,[bl]) - | IDENT "esplit"; bl = with_bindings -> TacSplit (true,false,[bl]) - | "exists"; bll = opt_bindings -> TacSplit (false,true,bll) + | "exists"; bll = opt_bindings -> TacSplit (false,bll) | IDENT "eexists"; bll = opt_bindings -> - TacSplit (true,true,bll) + TacSplit (true,bll) | IDENT "constructor"; n = nat_or_var; l = with_bindings -> TacConstructor (false,n,l) | IDENT "econstructor"; n = nat_or_var; l = with_bindings -> |