lean2/tests/lua/coercion_bug1.lua

24 lines
534 B
Lua
Raw Normal View History

local env = environment()
env:import("int")
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")