12 lines
193 B
Text
12 lines
193 B
Text
|
|
definition f (a b : nat) : nat :=
|
|
nat.cases_on a
|
|
(a + b + a + a + b)
|
|
(λ a', a + a + b)
|
|
|
|
definition g (a b : nat) :=
|
|
f (f a b) a
|
|
|
|
set_option trace.compiler true
|
|
|
|
vm_eval g (g (f 2 3) 2) 3
|