lean2/tests/lua/alias3.lua

14 lines
583 B
Lua
Raw Normal View History

local env = environment()
env = add_decl(env, mk_var_decl(name("foo", "x"), Prop))
env = add_decl(env, mk_var_decl(name("foo", "y"), Prop))
env = add_decl(env, mk_var_decl(name("foo", "z"), Prop))
env = env:add_universe(name("foo", "u"))
env = env:add_universe(name("foo", "v"))
env = add_aliases(env, "foo", "bla", {"z", "v"})
assert(not get_alias_exprs(env, {"bla", "x"}):is_nil())
assert(not get_alias_exprs(env, {"bla", "y"}):is_nil())
assert(get_alias_exprs(env, {"bla", "z"}):is_nil())
assert(get_alias_level(env, {"bla", "u"}))
assert(not get_alias_level(env, {"bla", "v"}))