2014-01-05 20:05:08 +00:00
|
|
|
import Int.
|
|
|
|
|
definition f1 (f : Int -> Int) (x : Int) : Int := f (f (f (f x)))
|
|
|
|
|
definition f2 (f : Int -> Int) (x : Int) : Int := f1 (f1 (f1 (f1 f))) x
|
|
|
|
|
definition f3 (f : Int -> Int) (x : Int) : Int := f1 (f2 (f2 f)) x
|
|
|
|
|
variable f : Int -> Int.
|
2014-01-09 16:33:52 +00:00
|
|
|
set_option pp::width 80.
|
|
|
|
|
set_option lean::pp::max_depth 2000.
|
2014-01-05 20:05:08 +00:00
|
|
|
eval f3 f 0.
|
