Definition beq_X (x y: X): bool := unsum_bool (eq_X_dec x y).

Lemma exp_list_sum_le (fr: X -> R) (q: list X) (t: ne_tree.T (list X)): (forall i, In i q -> expec (count (beq_X i)) t <= fr i) -> (forall i, ~ In i q -> expec (count (beq_X i)) t = 0) -> expec (@length (_:Set)) t <= Rsum (map fr q).