Section contents.
Variables (ee: E) (ol: list ee).

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))).