16 lines
510 B
Lua
16 lines
510 B
Lua
local env = environment()
|
|
local l = param_univ("l")
|
|
local U_l = mk_sort(l)
|
|
local inhabited = Const("inhabited", {l})
|
|
local A = Local("A", U_l)
|
|
local a = Local("a", A)
|
|
|
|
env = add_inductive(env,
|
|
"inhabited", {l}, 1, mk_arrow(U_l, Bool),
|
|
"inhabited_intro", Pi({A, a}, inhabited(A)))
|
|
|
|
function display_type(env, t)
|
|
print(tostring(t) .. " : " .. tostring(type_checker(env):check(t)))
|
|
end
|
|
|
|
display_type(env, Const("inhabited_rec", {1}))
|