69e72c278d
We can use this feature to implement proof irrelevance for Identity types. Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
9 lines
534 B
Lua
9 lines
534 B
Lua
assert(not empty_environment({eta=false}):eta())
|
|
assert(empty_environment({eta=true}):eta())
|
|
assert(not empty_environment({prop_proof_irrel=false}):prop_proof_irrel())
|
|
assert(empty_environment({prop_proof_irrel=true}):prop_proof_irrel())
|
|
assert(empty_environment({impredicative=true}):impredicative())
|
|
assert(not empty_environment({impredicative=false}):impredicative())
|
|
assert(empty_environment({trust_lvl=10}):trust_lvl() == 10)
|
|
assert(empty_environment({trust_lvl=0}):trust_lvl() == 0)
|
|
assert(empty_environment():trust_lvl() == 0)
|