feat: add elab and elab_rules command syntax

This commit is contained in:
Leonardo de Moura 2020-06-24 18:34:23 -07:00
parent 6f8dbb4506
commit cefbc27720

View file

@ -77,6 +77,12 @@ def macroTailDefault : Parser := try (" : " >> ident) >> darrow >> (("`(" >> ca
def macroTail := macroTailTactic <|> macroTailCommand <|> macroTailDefault
@[builtinCommandParser] def «macro» := parser! "macro " >> optPrecedence >> macroHead >> many macroArg >> macroTail
@[builtinCommandParser] def «elab_rules» := parser! "elab_rules" >> optKind >> optional (" : " >> ident) >> Term.matchAlts
def elabHead := macroHead
def elabArg := macroArg
def elabTail := try (" : " >> ident) >> darrow >> termParser
@[builtinCommandParser] def «elab» := parser! "elab " >> optPrecedence >> elabHead >> many elabArg >> elabTail
end Command
end Parser