Section contents.
Variables (X: Set) (eq_X_dec: forall (x y: X), { x = y } + { x <> y }).
Definition beq_X (x y: X): bool := unsum_bool (eq_X_dec x y).
Proof with auto.
destruct l; simpl...
intros.
elimtype False.
specialize (H x).
unfold beq_X in H.
destruct (eq_X_dec x x)...
simpl in H.
discriminate.
Qed.

Lemma counts_0_expec_length_0 t:
(forall i, expec (count (beq_X i)) t = 0) -> expec (@length (_:Set)) t = 0.