lean4-htt/tests/lean/simpcfg.lean
2021-01-01 15:12:18 -08:00

6 lines
173 B
Text

theorem ex6 (f : Nat → Nat) (x y z : Nat) (h : (x, z).1 = (fun x => x) y) : f x = f y := by
simp { beta := false } at h
traceState
simp at h
traceState
simp [h]