2014-05-10 02:54:52 +00:00
|
|
|
local f = Const("f")
|
|
|
|
local a = Const("a")
|
|
|
|
local b = Const("b")
|
|
|
|
local x = Var(0)
|
|
|
|
assert(f(a, a):is_lt(f(a, b)))
|
|
|
|
assert(Const("a"):is_lt(Const("b")))
|
|
|
|
assert(Var(0):is_lt(Const("b")))
|
|
|
|
assert(name("a") < name("b"))
|
|
|
|
assert(not (Bool:is_lt(Bool)))
|
|
|
|
assert(not (Bool < Bool))
|
|
|
|
assert(mk_metavar("a", Bool):is_lt(mk_metavar("b", Bool)))
|
|
|
|
assert(not mk_metavar("a", Bool):is_lt(mk_metavar("a", Bool)))
|
|
|
|
assert(mk_metavar("a", Bool):is_lt(mk_metavar("a", Type)))
|
|
|
|
assert(mk_local("a", Bool):is_lt(mk_local("b", Bool)))
|
|
|
|
assert(not mk_local("a", Bool):is_lt(mk_local("a", Bool)))
|
|
|
|
assert(Bool:is_lt(Const("a")))
|
2014-06-30 16:14:55 +00:00
|
|
|
local a = Local("a", Bool)
|
|
|
|
local a1 = Local("a1", Type)
|
|
|
|
assert(Fun(a, a):is_lt(Fun(a1, a1)))
|
|
|
|
assert(Fun(a, a):is_lt(Fun(a, Var(2))))
|
|
|
|
assert(Pi(a, a):is_lt(Pi(a1, a1)))
|
|
|
|
assert(Pi(a, a):is_lt(Pi(a, Var(2))))
|
2014-05-10 02:54:52 +00:00
|
|
|
assert(Var(0) < Var(1))
|
|
|
|
print(Const("a", {mk_level_one(), mk_level_zero()}))
|
|
|
|
assert(Const("a", {mk_level_one()}):is_lt(Const("a", {mk_level_one(), mk_level_zero()})))
|
|
|
|
assert(Const("a", {mk_level_zero(), mk_level_one()}):is_lt(Const("a", {mk_level_one()})))
|
|
|
|
assert(not Const("a", {mk_level_zero(), mk_level_one()}):is_lt(Const("a", {mk_level_zero(), mk_level_one()})))
|