lean2/tests/lua/tc8.lua

24 lines
623 B
Lua
Raw Normal View History

local env = environment()
local N = Const("N")
env = add_decl(env, mk_var_decl("N", Type))
env = add_decl(env, mk_var_decl("f", mk_arrow(N, N)))
env = add_decl(env, mk_var_decl("a", N))
local f = Const("f")
local a = Const("a")
local m1 = mk_metavar("m1", mk_metavar("m2", mk_sort(mk_meta_univ("l"))))
local ngen = name_generator("tst")
local tc = type_checker(env, ngen)
function test_check(e)
t, cs = tc:check(e)
print(tostring(e) .. " : " .. tostring(t))
cs = cs:linearize()
for i = 1, #cs do
print(" >> " .. tostring(cs[i]))
end
end
test_check(f(m1))
test_check(f(f(m1)))
test_check(f(m1))