lean2/tests/lean/univ2.lean

universe M >= 1
universe U >= M + 1
universe Z >= max U+1 M+1
print environment 2
(*
local env = get_environment()
assert(env:get_universe_distance("Z", "U") == 1)
assert(env:get_universe_distance("Z", "M") == 2)
*)
refactor(builtin/kernel): start with small universes The universe constraint manager is more flexible now. We don't need to start with a huge universe U >= 512. We can start small, and increase it on demand. If module mod1 needs it, it can always add universe U >= 3 Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-08 20:34:55 +00:00			`universe M >= 1`
			`universe U >= M + 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			`universe Z >= max U+1 M+1`
			`print environment 2`
			`(*`
			`local env = get_environment()`
			`assert(env:get_universe_distance("Z", "U") == 1)`
refactor(builtin/kernel): start with small universes The universe constraint manager is more flexible now. We don't need to start with a huge universe U >= 512. We can start small, and increase it on demand. If module mod1 needs it, it can always add universe U >= 3 Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-08 20:34:55 +00:00			`assert(env:get_universe_distance("Z", "M") == 2)`
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			`*)`