2014-06-13 15:26:05 +00:00
|
|
|
local env = environment()
|
2014-07-22 16:43:18 +00:00
|
|
|
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))
|
2014-06-13 15:26:05 +00:00
|
|
|
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"}))
|
|
|
|
|
|
