lean2/tests/lua/tc5.lua

46 lines
1.5 KiB
Lua
Raw Normal View History

local env = bare_environment()
env = add_decl(env, mk_var_decl("A", Bool))
env = add_decl(env, mk_var_decl("T", Type))
env = add_decl(env, mk_definition("B2", Type, Bool, {opaque=false}))
env = add_decl(env, mk_var_decl("C", Const("B2")))
env = add_decl(env, mk_definition("BB", Type, mk_arrow(Bool, Bool), {opaque=false}))
local tc = type_checker(env)
assert(tc:is_prop(Const("A")))
assert(tc:is_prop(Const("C")))
assert(not tc:is_prop(Const("T")))
assert(not tc:is_prop(Const("B2")))
print(tc:check(mk_lambda("x", mk_metavar("m", mk_metavar("t", mk_sort(mk_meta_univ("l")))), Var(0))))
assert(tc:next_cnstr())
print(tc:ensure_sort(Const("B2")))
assert(not pcall(function()
print(tc:ensure_sort(Const("A")))
end
))
print(tc:ensure_pi(Const("BB")))
assert(not pcall(function()
print(tc:ensure_pi(Const("A")))
end
))
assert(not pcall(function()
env = add_decl(env, mk_var_decl("A", mk_local("l1", Bool)))
end
))
assert(not pcall(function()
print(tc:check(Let("x", Type, Const("A"), Var(0))))
end
))
assert(not pcall(function()
print(tc:check(mk_lambda("x", Bool, Var(0))(Type)))
end
))
assert(not pcall(function()
print(tc:check(Var(0)))
end
))
assert(tc:check(mk_pi("x", Bool, Var(0))) == Bool)
local env = bare_environment({impredicative=false})
local tc = type_checker(env)
assert(tc:check(mk_pi("x", Bool, Var(0))) == Type)