lean2/tests/lua/expr9.lua

24 lines
742 B
Lua
Raw Normal View History

local env = environment()
local m = mk_metavar("m", mk_arrow(Bool, Bool))
local a = Local("a", Bool)
print(env:normalize(Fun(a, m)))
print(env:normalize(Fun(a, m(a))))
local m2 = mk_metavar("m2", mk_arrow(Bool, Bool, Bool))
print(env:normalize(Fun(a, (m2(a))(a))))
env:type_check(m)
env:type_check(Fun(a, m(a)))
env:type_check(Fun(a, (m2(a))(a)))
local m3 = mk_metavar("m3", mk_metavar("m4", mk_sort(mk_meta_univ("l"))))
env:type_check(m3)
-- The following call fails, because the type checker will try to
-- create a constraint, but constraint generation is not supported by
-- the type checker used to implement the method type_check
assert(not pcall(function()
env:type_check(m3(a))
end
))