14 lines
446 B
Lua
14 lines
446 B
Lua
|
local env = environment()
|
||
|
|
env = env:begin_section_scope()
|
||
|
|
env = env:add_global_level("l")
|
||
|
|
local l = mk_global_univ("l")
|
||
|
|
local l1 = mk_param_univ("l")
|
||
|
|
env = add_decl(env, mk_definition("A", {l1}, mk_sort(max_univ(l, l1)+1), mk_sort(max_univ(l, l1))))
|
||
|
|
env = env:end_scope()
|
||
|
|
print (env:find("A"):type())
|
||
|
|
local ls = env:find("A"):univ_params()
|
||
|
|
assert(#ls == 2)
|
||
|
|
print(ls:head())
|
||
|
|
assert(ls:head() == name("l"))
|
||
|
|
assert(ls:tail():head() == name("l_1"))
|