lean4-htt/tests/lean/simpcfg.lean
2021-03-17 16:37:04 -07:00

6 lines
185 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 (config := { beta := false }) at h
traceState
simp at h
traceState
simp [h]