blob: 79616ee7e43b510e9cc442434a92afbbecdfd493 [file] [edit]
import Lean
open Lean
syntax (docComment)? "foo" term : command
def foo2 : Syntax → Nat
| `($[$_]? foo !$_) => 1
| `(foo -$_) => 2
| _ => 0
#eval foo2 (Unhygienic.run `(foo -x))