2015-01-29 18:37:15 +00:00
|
|
|
definition x [reducible] := 10
|
|
|
|
|
definition y := 20
|
|
|
|
|
definition z [irreducible] := 30
|
2015-05-08 22:42:42 +00:00
|
|
|
definition w := 40
|
2015-01-29 18:37:15 +00:00
|
|
|
|
|
|
|
|
(*
|
|
|
|
|
local env = get_env()
|
|
|
|
|
local x = Const("x")
|
|
|
|
|
local y = Const("y")
|
|
|
|
|
local z = Const("z")
|
|
|
|
|
local w = Const("w")
|
|
|
|
|
local val_x = env:find("x"):value()
|
|
|
|
|
local val_y = env:find("y"):value()
|
|
|
|
|
local val_z = env:find("z"):value()
|
|
|
|
|
local val_w = env:find("w"):value()
|
|
|
|
|
-- All definitions are not unfolded
|
|
|
|
|
local tc = opaque_type_checker(env)
|
|
|
|
|
assert(tc:whnf(x) == x)
|
|
|
|
|
assert(tc:whnf(y) == y)
|
|
|
|
|
assert(tc:whnf(z) == z)
|
|
|
|
|
assert(tc:whnf(w) == w)
|
|
|
|
|
-- Opaque and definitions marked as irreducibled are not unfolded
|
|
|
|
|
local tc = non_irreducible_type_checker(env)
|
|
|
|
|
assert(tc:whnf(x) == val_x)
|
|
|
|
|
assert(tc:whnf(y) == val_y)
|
|
|
|
|
assert(tc:whnf(z) == z)
|
|
|
|
|
-- Only definitions marked as reducible are unfolded
|
|
|
|
|
local tc = reducible_type_checker(env)
|
|
|
|
|
assert(tc:whnf(x) == val_x)
|
|
|
|
|
assert(tc:whnf(y) == y)
|
|
|
|
|
assert(tc:whnf(z) == z)
|
|
|
|
|
assert(tc:whnf(w) == w)
|
|
|
|
|
-- Default: only opaque definitions are not unfolded.
|
|
|
|
|
-- Opaqueness is a feature of the kernel.
|
|
|
|
|
local tc = type_checker(env)
|
|
|
|
|
assert(tc:whnf(x) == val_x)
|
|
|
|
|
assert(tc:whnf(y) == val_y)
|
|
|
|
|
assert(tc:whnf(z) == val_z)
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
eval [whnf] x
|
