Definition sum_n_m (a : nat -> G) n m :=
  iter_nat plus zero a n m.Definition sum_n (a : nat -> G) n :=
  sum_n_m a O n.

Lemma sum_n_plus : forall (u v : nat -> G) (n : nat), sum_n (fun k => plus (u k) (v k)) n = plus (sum_n u n) (sum_n v n).