2014-05-21 11:24:24 -07:00
|
|
|
local env1 = bare_environment()
|
2014-10-02 16:54:56 -07:00
|
|
|
local env2 = add_decl(env1, mk_constant_assumption("A", Type))
|
2014-05-13 08:40:46 -07:00
|
|
|
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))
|
