lean2/tests/lean/run/reducible.lean

42 lines
1.2 KiB
Text
Raw Normal View History

definition x [reducible] := 10
definition y := 20
definition z [irreducible] := 30
definition w := 40
(*
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