2014-05-21 18:24:24 +00:00
|
|
|
local env = bare_environment()
|
2014-05-07 23:17:04 +00:00
|
|
|
assert(is_environment(env))
|
|
|
|
assert(not env:is_global_level("U"))
|
|
|
|
local env2 = env:add_global_level("U")
|
|
|
|
assert(not env:is_global_level("U"))
|
|
|
|
assert(env2:is_global_level("U"))
|
|
|
|
assert(env:eta())
|
2014-05-16 22:04:34 +00:00
|
|
|
assert(env:prop_proof_irrel())
|
2014-05-07 23:17:04 +00:00
|
|
|
assert(env:impredicative())
|