Definition sumToN (n : nat) :=
  nat_rec (fun _ => nat) 0 (fun x y : nat => S x + y) n.

(* Specifications: *)
Lemma sumToN1 : forall n : nat, n <= sumToN n.
Lemma sumToN2 : forall b a : nat, a <= b -> sumToN a <= sumToN b.
Lemma sumToNIsPR : isPR 1 sumToN.