2014-01-01 13:52:25 -08:00
|
|
|
Import Int.
|
2013-08-21 22:45:48 -07:00
|
|
|
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
|
2013-12-17 16:35:39 -08:00
|
|
|
Definition f3 (f : Int -> Int) (x : Int) : Int := f1 (f2 (f2 f)) x
|
2013-08-21 22:45:48 -07:00
|
|
|
Variable f : Int -> Int.
|
2013-12-18 21:18:45 -08:00
|
|
|
SetOption pp::width 80.
|
|
|
|
SetOption lean::pp::max_depth 2000.
|
2013-08-21 22:45:48 -07:00
|
|
|
Eval f3 f 0.
|