18 lines
437 B
Lua
18 lines
437 B
Lua
|
local env = environment()
|
||
|
|
|
||
|
|
local tricky = Const("tricky")
|
||
|
|
local P = Const("P")
|
||
|
|
|
||
|
|
env = add_inductive(env,
|
||
|
|
"tricky", Bool,
|
||
|
|
"C", mk_arrow(Pi(P, Bool, mk_arrow(P, P)), tricky))
|
||
|
|
|
||
|
|
function display_type(env, t)
|
||
|
|
print(tostring(t) .. " : " .. tostring(type_checker(env):check(t)))
|
||
|
|
end
|
||
|
|
|
||
|
|
env = env:add_global_level("u")
|
||
|
|
local tricky_rec = Const("tricky_rec", {0})
|
||
|
|
|
||
|
|
display_type(env, tricky_rec)
|