14 lines
278 B
Text
14 lines
278 B
Text
|
Variables x y z : Int
|
||
|
|
Variable f : Int -> Int -> Int
|
||
|
|
|
||
|
|
(**
|
||
|
|
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()
|
||
|
|
assert(d == env:find_object("Int"):get_value())
|
||
|
|
**)
|