lean4-htt/tests/lean/run/simpRwBug.lean
2021-08-30 08:33:58 -07:00

4 lines
181 B
Text

open Nat
theorem add_assoc (m n k : Nat) : m + n + k = m + (n + k) :=
Nat.recOn (motive := fun k => m + n + k = m + (n + k)) k rfl (fun k ih => by simp [Nat.add_succ, ih]; done)