Definition ijs (n: nat): list (nat * nat) :=
  concat (map (fun j => map (fun i => (i, j)) (nats 0 j)) (nats 0 n)).

Lemma expand_sumOver_ijs n (f: nat * nat -> R): RsumOver (ijs n) f = RsumOver (nats 0 n) (fun j => RsumOver (nats 0 j) (fun i => f (i, j))).