22 lines
648 B
OCaml
22 lines
648 B
OCaml
{
|
|
open Parser
|
|
}
|
|
|
|
rule token_ty = parse
|
|
| [' ' '\t' '\n'] { token_ty lexbuf }
|
|
| eof { EOF }
|
|
|
|
| '(' { LPAREN }
|
|
| ')' { RPAREN }
|
|
| "->" { RARROW }
|
|
| '~' { TILDE }
|
|
| "False" { FALSE }
|
|
| ['A'-'Z']+['0'-'9']* as s { TYPE_NAME s }
|
|
|
|
and token_tactic = parse
|
|
| [' ' '\t' '\n'] { token_tactic lexbuf }
|
|
| eof { EOF }
|
|
| "intro" { INTRO }
|
|
| ['a'-'z']+['0'-'9']* as s { VAR_NAME s }
|
|
| '.' { DOT }
|