24 lines
517 B
Lua
24 lines
517 B
Lua
|
local env = environment()
|
||
|
|
|
||
|
|
parse_lean_cmds([[
|
||
|
|
Variable f : Int -> Int -> Int
|
||
|
|
Notation 20 _ +++ _ : f
|
||
|
|
Show f 10 20
|
||
|
|
Notation 20 _ --- _ : f
|
||
|
|
Show f 10 20
|
||
|
|
]], env)
|
||
|
|
|
||
|
|
local F = parse_lean('f 10 20', env)
|
||
|
|
print(lean_formatter(env)(F))
|
||
|
|
assert(tostring(lean_formatter(env)(F)) == "10 --- 20")
|
||
|
|
|
||
|
|
local child = env:mk_child()
|
||
|
|
|
||
|
|
parse_lean_cmds([[
|
||
|
|
Show f 10 20
|
||
|
|
]], child)
|
||
|
|
|
||
|
|
assert(tostring(lean_formatter(env)(F)) == "10 --- 20")
|
||
|
|
print(lean_formatter(child)(F))
|
||
|
|
assert(tostring(lean_formatter(child)(F)) == "10 --- 20")
|