protected definition nat.add : ℕ → ℕ → ℕ :=
λ (a : ℕ), nat.rec a (λ (b₁ : ℕ), nat.succ)