lean2/tests/lua/coercion_bug1.lua

24 lines
537 B
Lua
Raw Normal View History

local env = environment()
env:import("Int")
parse_lean_cmds([[
Variable f : Int -> Int -> Int
Notation 20 _ +++ _ : f
print f 10 20
Notation 20 _ -+- _ : f
print 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([[
print 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")