lean2/tests/lean/lua11.lean

Import int.
(**

 local env = get_environment()
 local o1  = env:find_object(name("Int", "add"))
 print(o1:get_value())
 assert(is_kernel_object(o1))
 assert(o1)
 assert(o1:is_builtin())
 assert(o1:keyword() == "Builtin")
 assert(o1:get_name() == name("Int", "add"))
 local o2  = env:find_object("xyz31213")
 assert(not o2)

 local found1 = false
 local found2 = false
 local bs = nil
 for obj in env:objects() do
    if not obj:has_name() then
       found1 = true
    end
    if obj:is_builtin_set() then
       if not found2 then
          found2 = true
          bs = obj
       end
    end
 end
 assert(found1)
 assert(found2)
 print(bs)
 assert(not bs:in_builtin_set(Const("a")))
 assert(not pcall(function() M:in_builtin_set(Const("a")) end))

 local M   = env:find_object("M")
 assert(not M:has_type())
 assert(not pcall(function() M:get_type() end))
 assert(M:has_cnstr_level())
 print(M:get_cnstr_level())
 assert(not pcall(function() o1:get_cnstr_level() end))
 assert(not pcall(function() M:get_value() end))
 env:add_var("x", Const("Int"))
 env:add_definition("val", Const("Int"), Const("x"))
 assert(env:find_object("val"):get_value() == Const("x"))
 assert(env:find_object("val"):get_weight() == 1)
 assert(not pcall(function() M:get_weight() end))
 assert(env:find_object("Congr"):is_opaque())
 assert(env:find_object("Congr"):is_theorem())
 assert(env:find_object("Refl"):is_axiom())
 assert(env:find_object(name("Int", "sub")):is_definition())
 assert(env:find_object("x"):is_var_decl())
**)