hyps = LIST0
[ id = IDENT ; SYMBOL ":" ; ty = tactic_term -> id,`Decl ty
| id = IDENT ; SYMBOL ":" ; ty = tactic_term ;
SYMBOL <:unicode<def>> ; bo = tactic_term ->
id,`Def (bo,ty)];
SYMBOL <:unicode<vdash>>;
hyps = LIST0
[ id = IDENT ; SYMBOL ":" ; ty = tactic_term -> id,`Decl ty
| id = IDENT ; SYMBOL ":" ; ty = tactic_term ;
SYMBOL <:unicode<def>> ; bo = tactic_term ->
id,`Def (bo,ty)];
SYMBOL <:unicode<vdash>>;
- concl = tactic_term ->
- GrafiteAst.NAssert (loc, hyps, concl)
+ concl = tactic_term -> (List.rev hyps,concl) ] ->
+ GrafiteAst.NAssert (loc, seqs)
| IDENT "ncases"; what = tactic_term ; where = pattern_spec ->
GrafiteAst.NCases (loc, what, where)
| IDENT "nchange"; what = pattern_spec; "with"; with_what = tactic_term ->
| IDENT "ncases"; what = tactic_term ; where = pattern_spec ->
GrafiteAst.NCases (loc, what, where)
| IDENT "nchange"; what = pattern_spec; "with"; with_what = tactic_term ->