michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test(lua): add example suggested by Cody

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-19 17:06:19 -07:00
parent 9de8249d8f
commit a72be5eea4
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
tests/lua/ind_tricky.lua Normal file
View file

@ -0,0 +1,17 @@
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)