intuition.
eapply le_trans.
eapply qam_count_gen; eauto.
omega.
Qed.
Local Transparent evalDist.
Section RndInList.
Variable eta : nat.

(* Specifications: *)
Theorem RndInList_prob_h :
forall (ls : list (Bvector eta)),
(Pr[r <-$ {0, 1}^eta;
ret (if (in_dec (EqDec_dec _) r ls) then true else false)
] <= (length ls) / 2 ^ eta)%rat.