2014-05-21 18:24:24 +00:00
|
|
|
local env = bare_environment()
|
2014-05-08 02:03:46 +00:00
|
|
|
local g = name_generator("tst")
|
|
|
|
|
local tc = type_checker(env, g)
|
|
|
|
|
assert(is_type_checker(tc))
|
|
|
|
|
local a = Const("a")
|
|
|
|
|
local t = Fun(a, Bool, a)
|
|
|
|
|
local b = Const("b")
|
|
|
|
|
print(t(b))
|
|
|
|
|
assert(tc:whnf(t(b)) == b)
|
|
|
|
|
local cs = {}
|
|
|
|
|
local tc2 = type_checker(env, g, constraint_handler(function (c) print(c); cs[#cs+1] = c end))
|
|
|
|
|
assert(tc:check(Bool) == mk_sort(mk_level_one()))
|
|
|
|
|
print(tc:infer(t))
|
|
|
|
|
local m = mk_metavar("m1", mk_metavar("m2", mk_sort(mk_meta_univ("u"))))
|
|
|
|
|
print(tc:infer(m))
|
|
|
|
|
local t2 = Fun(a, Bool, m(a))
|
|
|
|
|
print(t2)
|
|
|
|
|
print(tc2:check(t))
|
|
|
|
|
print(tc2:check(t2))
|
|
|
|
|
assert(#cs == 2)
|
