9 lines
332 B
Lua
9 lines
332 B
Lua
local env1 = bare_environment()
|
|
local env2 = add_decl(env1, mk_constant_assumption("A", Type))
|
|
assert(env2:is_descendant(env1))
|
|
assert(env2:is_descendant(env2))
|
|
assert(not env1:is_descendant(env2))
|
|
local env3 = env2:forget()
|
|
assert(not env3:is_descendant(env1))
|
|
assert(not env3:is_descendant(env2))
|
|
assert(env3:is_descendant(env3))
|