lean2/tests/lean/lua9.lean

37 lines
719 B
Text
Raw Normal View History

Variable x : Bool
(**
local env = get_environment()
local Int = Const("Int")
local plus = Const{"Int", "add"}
local x1, x2 = Consts("x1, x2")
print(env:check_type(Int))
print(env:check_type(plus))
env:add_var("x1", Int)
env:add_var("x2", Int)
print(plus(x1, x2))
print(env:check_type(plus(x1)))
function sum(...)
local args = {...}
if #args == 0 then
error("sum must have at least one argument")
else
local r = args[1]
for i = 2, #args do
r = plus(r, args[i])
end
return r
end
end
local s = sum(x1, x1, x1, x2, x2)
print(s)
print(env:check_type(s))
env:add_definition("sum1", s)
**)
Show Environment 1
Eval sum1
Variable y : Bool