17 lines
340 B
Text
17 lines
340 B
Text
def foo (x : Nat) :=
|
|
2*x
|
|
|
|
def boo (x : Nat) :=
|
|
x + x
|
|
|
|
@[csimp] theorem foo_eq_boo1 (x : Nat) : foo x = boo x := by -- Error
|
|
simp [foo, boo, Nat.mul_comm]
|
|
show (x * 1) + x = x + x
|
|
simp
|
|
|
|
@[csimp] theorem foo_eq_boo2 : foo = boo :=
|
|
funext foo_eq_boo1
|
|
|
|
set_option trace.Compiler.toImpure true
|
|
def f (x : Nat) : Nat :=
|
|
foo (foo x)
|