2014-05-20 18:53:58 +00:00
|
|
|
local env = environment()
|
2014-07-22 16:43:18 +00:00
|
|
|
local f = Local("f", mk_arrow(Prop, Prop, Prop))
|
|
|
|
|
local a = Local("a", Prop)
|
|
|
|
|
local b = Local("b", Prop)
|
|
|
|
|
local x = Local("x", Prop)
|
2014-06-30 16:14:55 +00:00
|
|
|
local t = Fun(f, a, b, f(Fun(x, x)(b), a))
|
2014-05-20 18:53:58 +00:00
|
|
|
print(env:normalize(t))
|
2014-06-30 16:14:55 +00:00
|
|
|
assert(env:normalize(t) == Fun(f, a, b, f(b, a)))
|
