Section TrueSingle_impl_Mult.
Variable A B : Set.
Hypothesis B_EqDec : EqDec B.
Variable c : A -> Comp B.
Variable A1 : Comp A.
Variable Q : B -> bool.
Definition TrueSingle_G :=
a <-$ A1;
b <-$ c a;
ret (Q b).
Variable n : nat.
Definition TrueMult_G :=
a <-$ A1;
bs <-$ compMap _ (fun _ => (c a)) (forNats n);
ret (fold_left (fun b x => b || (Q x)) bs false).

Theorem TrueSingle_impl_Mult :
Pr[TrueMult_G] <= (n / 1) * Pr[TrueSingle_G].