2014-08-05 01:24:01 +00:00
|
|
|
function tst_match(p, t)
|
|
|
|
|
local r1, r2 = match(p, t)
|
|
|
|
|
assert(r1)
|
|
|
|
|
print("--------------")
|
|
|
|
|
for i = 1, #r1 do
|
|
|
|
|
print(" expr:#" .. i .. " := " .. tostring(r1[i]))
|
|
|
|
|
end
|
|
|
|
|
for i = 1, #r2 do
|
|
|
|
|
print(" lvl:#" .. i .. " := " .. tostring(r2[i]))
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
local env = environment()
|
|
|
|
|
local N = Const("N")
|
|
|
|
|
local a = Const("a")
|
|
|
|
|
local b = Const("b")
|
|
|
|
|
local x = Local("x", N)
|
|
|
|
|
local y = Local("y", N)
|
|
|
|
|
local u1 = mk_global_univ("u1")
|
|
|
|
|
local u2 = mk_global_univ("u2")
|
|
|
|
|
local z = level()
|
|
|
|
|
local f = Const("f", {u1, z})
|
|
|
|
|
local f2 = Const("f", {u1, u1+1})
|
|
|
|
|
local fp = Const("f", {mk_idx_meta_univ(0), mk_idx_meta_univ(1)})
|
2015-02-03 23:15:04 +00:00
|
|
|
local V0 = mk_idx_meta(0, N)
|
|
|
|
|
local V1 = mk_idx_meta(1, N)
|
|
|
|
|
tst_match(fp(V0, V0), f(a, a))
|
|
|
|
|
tst_match(fp(V0, V1), f2(a, b))
|
|
|
|
|
local F0 = mk_idx_meta(0, Pi(x, y, N))
|
|
|
|
|
tst_match(F0(x, y), f(x, f(x, y)))
|
|
|
|
|
assert(not match(F0(x, x), f(x, f(x, y))))
|
|
|
|
|
assert(not match(F0(x), f(x, y)))
|
