lean2/tests/lean/slow/deep.lean

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.
Set pp::width 80.
Set lean::pp::max_depth 2000.
Eval f3 f 0.
Improve pretty printer performance for deep formulas and formats with long lines. Add example that demonstrates performance problem (before: 13 secs, after: 1 sec). Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-08-22 05:45:48 +00: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`
feat(kernel/replace_fn): non-recursive replace_fn Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-18 00:35:39 +00:00			`Definition f3 (f : Int -> Int) (x : Int) : Int := f1 (f2 (f2 f)) x`
Improve pretty printer performance for deep formulas and formats with long lines. Add example that demonstrates performance problem (before: 13 secs, after: 1 sec). Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-08-22 05:45:48 +00:00			`Variable f : Int -> Int.`
			`Set pp::width 80.`
Fix example Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-08-23 15:52:52 +00:00			`Set lean::pp::max_depth 2000.`
Improve pretty printer performance for deep formulas and formats with long lines. Add example that demonstrates performance problem (before: 13 secs, after: 1 sec). Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-08-22 05:45:48 +00:00			`Eval f3 f 0.`