12 lines
224 B
Text
12 lines
224 B
Text
def f (x : Nat) := x
|
|
|
|
def test : (λ x => f x)
|
|
=
|
|
(λ x : Nat =>
|
|
let foo := λ y => id (id y)
|
|
foo x) := by
|
|
conv =>
|
|
pattern (id _)
|
|
trace_state
|
|
simp
|
|
trace_state
|