13 lines
583 B
Lua
13 lines
583 B
Lua
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"}))
|
|
|