Proof of forall n : nat, n = fold S Z n