lean2/tests/lua/hidden1.lua

15 lines
369 B
Lua
Raw Normal View History

local env = environment()
env:import("Int")
assert(env:is_opaque("and"))
assert(env:is_opaque("or"))
assert(env:is_opaque({"Int", "lt"}))
parse_lean_cmds([[
definition a : Bool := true
]], env)
assert(not env:is_opaque("a"))
env:set_opaque("a", true)
assert(env:is_opaque("a"))
env:set_opaque("a", false)
assert(not env:is_opaque("a"))
assert(not env:is_opaque("b"))