max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

test: for issue #1321

Browse source
This commit is contained in:
Leonardo de Moura 2022-07-18 23:50:41 -04:00
parent 678cfda909
commit 73fce217f6
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/lean/1321.lean Normal file
View file

@ -0,0 +1,11 @@
@[reducible]
syntax (name := fooParser) "foo" term : term
#print fooParser
macro_rules
| `(foo $x) => `($x + 1)
#check foo 5

4
tests/lean/1321.lean.expected.out Normal file
View file

@ -0,0 +1,4 @@
@[reducible] def fooParser : Lean.ParserDescr :=
Lean.ParserDescr.node `fooParser 1022
(Lean.ParserDescr.binary `andthen (Lean.ParserDescr.symbol "foo") (Lean.ParserDescr.cat `term 0))
5 + 1 : Nat