lean2/tests/lua/ind_tricky.lua
Leonardo de Moura 5eaf04518b refactor(*): rename Bool to Prop
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-07-22 09:43:18 -07:00

17 lines
433 B
Lua

local env = environment()
local tricky = Const("tricky")
local P = Local("P", Prop)
env = add_inductive(env,
"tricky", Prop,
"C", mk_arrow(Pi(P, mk_arrow(P, P)), tricky))
function display_type(env, t)
print(tostring(t) .. " : " .. tostring(type_checker(env):check(t)))
end
env = env:add_universe("u")
local tricky_rec = Const("tricky_rec", {0})
display_type(env, tricky_rec)