diff options
| author | herbelin | 2003-11-09 14:14:53 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-09 14:14:53 +0000 |
| commit | eb905490e4f02ab4a626b32ad9b83cc44e94d4c0 (patch) | |
| tree | f07d31f029f1dcdb43e12034643458fd147cce77 /parsing | |
| parent | bb238a7d3035712171d2f97cfbc71e5e9aae15a4 (diff) | |
'as' avant 'using' dans 'destruct'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4838 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tacticnew.ml4 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/parsing/g_tacticnew.ml4 b/parsing/g_tacticnew.ml4 index d98f8ad458..45253cd908 100644 --- a/parsing/g_tacticnew.ml4 +++ b/parsing/g_tacticnew.ml4 @@ -355,14 +355,14 @@ GEXTEND Gram (* Derived basic tactics *) | IDENT "simple_induction"; h = quantified_hypothesis -> TacSimpleInduction h - | IDENT "induction"; c = induction_arg; el = OPT eliminator; - ids = with_names -> TacNewInduction (c,el,ids) + | IDENT "induction"; c = induction_arg; ids = with_names; + el = OPT eliminator -> TacNewInduction (c,el,ids) | IDENT "double"; IDENT "induction"; h1 = quantified_hypothesis; h2 = quantified_hypothesis -> TacDoubleInduction (h1,h2) | IDENT "simple_destruct"; h = quantified_hypothesis -> TacSimpleDestruct h - | IDENT "destruct"; c = induction_arg; el = OPT eliminator; - ids = with_names -> TacNewDestruct (c,el,ids) + | IDENT "destruct"; c = induction_arg; ids = with_names; + el = OPT eliminator -> TacNewDestruct (c,el,ids) | IDENT "decompose"; IDENT "record" ; c = constr -> TacDecomposeAnd c | IDENT "decompose"; IDENT "sum"; c = constr -> TacDecomposeOr c | IDENT "decompose"; "["; l = LIST1 global; "]"; c = constr |