Section FixedInRndList.
Variable A : Set.
Variable eta : nat.

Theorem FixedInRndList_prob :
forall (ls : list A)(x : Bvector eta),
(Pr[lsR <-$ compMap _ (fun _ => {0, 1}^eta) ls; ret (if (in_dec (EqDec_dec _) x lsR) then true else false)
] <= (length ls) / 2 ^ eta)%rat.