lean2/tests/lean/univ2.lean

universe M1 >= 1
universe M2 >= 1
universe Z >= max M1+1 M2+1
print environment
(*
local env = get_environment()
assert(env:get_universe_distance("Z", "M1") == 1)
assert(env:get_universe_distance("Z", "M2") == 1)
*)
feat(kernel): make sure U is the maximal universe Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-30 00:31:00 +00:00			`universe M1 >= 1`
			`universe M2 >= 1`
			`universe Z >= max M1+1 M2+1`
			`print environment`
test(tests/lean): new tests for exercising the environment object Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-07 22:34:21 +00:00			`(*`
			`local env = get_environment()`
feat(kernel): make sure U is the maximal universe Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-30 00:31:00 +00:00			`assert(env:get_universe_distance("Z", "M1") == 1)`
			`assert(env:get_universe_distance("Z", "M2") == 1)`
test(tests/lean): new tests for exercising the environment object Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-07 22:34:21 +00:00			`*)`