48 lines
1.6 KiB
Lua
48 lines
1.6 KiB
Lua
|
local env = empty_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")))
|
||
|
|
assert(not pcall(function()
|
||
|
|
print(tc:check(mk_lambda("x", mk_metavar("m", mk_metavar("t", mk_sort(mk_meta_univ("l")))), Var(0))))
|
||
|
|
end
|
||
|
|
))
|
||
|
|
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 = empty_environment({impredicative=false})
|
||
|
|
local tc = type_checker(env)
|
||
|
|
assert(tc:check(mk_pi("x", Bool, Var(0))) == Type)
|