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

Theorem Umonoid_expec_qs_bounded_by_sumOver_ijs l: IndexSeq 0 l -> @monoid_expec U.monoid length _ (qs (@U.cmp ee ol) U.pick l) <= RsumOver (ijs (length l)) (fun ij => 2 / INR (S (snd ij - fst ij))).