[
[ SYMBOL "[" -> GrafiteAst.Branch loc
| SYMBOL "|" -> GrafiteAst.Shift loc
- | i = int; SYMBOL ":" -> GrafiteAst.Pos (loc, i)
+ | i = LIST1 int SEP SYMBOL ","; SYMBOL ":" -> GrafiteAst.Pos (loc, i)
+ | SYMBOL "*"; SYMBOL ":" -> GrafiteAst.Wildcard loc
| SYMBOL "]" -> GrafiteAst.Merge loc
| SYMBOL ";" -> GrafiteAst.Semicolon loc
| SYMBOL "." -> GrafiteAst.Dot loc
body = term ->
GrafiteAst.Obj (loc,
Ast.Theorem (flavour, name, Ast.Implicit, Some body))
+ | IDENT "axiom"; name = IDENT; SYMBOL ":"; typ = term ->
+ GrafiteAst.Obj (loc, Ast.Theorem (`Axiom, name, typ, None))
| "let"; ind_kind = [ "corec" -> `CoInductive | "rec"-> `Inductive ];
defs = CicNotationParser.let_defs ->
let name,ty =