unfold TrueRepeat_G3_bad.
comp_irr_l.
rewrite prob_fold_and_eq_exp.
eapply expRat_leRat_compat.
intuition.
Qed.

(* Specifications: *)
Theorem TrueRepeat_G3_eq_sum :
Pr[x <-$ TrueRepeat_G3; ret (fst x || snd x)] <=
Pr[TrueMult_G _ c A1 f n] + expRat failProb n.