2014-01-05 20:05:08 +00:00
|
|
|
import Int.
|
|
|
|
|
variables x y z : Int
|
|
|
|
|
variable f : Int -> Int -> Int
|
2013-11-15 23:55:15 +00:00
|
|
|
|
2014-01-05 18:32:47 +00:00
|
|
|
(*
|
2013-11-15 23:55:15 +00:00
|
|
|
local t = parse_lean("fun w, f w (f y 0)")
|
|
|
|
|
print(t)
|
|
|
|
|
assert(t:closed())
|
|
|
|
|
local n, d, b = t:fields()
|
|
|
|
|
print(b)
|
|
|
|
|
assert(not b:closed())
|
|
|
|
|
local env = get_environment()
|
2013-12-30 01:04:06 +00:00
|
|
|
assert(env:find_object("Int"):get_name() == name("Int"))
|
2013-11-15 23:55:15 +00:00
|
|
|
parse_lean_cmds([[
|
2014-01-05 20:05:08 +00:00
|
|
|
eval 10 + 20
|
|
|
|
|
check x + y
|
|
|
|
|
variable g : Int -> Int
|
2013-11-15 23:55:15 +00:00
|
|
|
]])
|
|
|
|
|
|
2014-01-05 18:32:47 +00:00
|
|
|
*)
|
2013-11-15 23:55:15 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
check g (f x 10)
|
