rewrite  evalDist_orb_le.
rewrite G3_TrueMult_equiv.
rewrite TrueRepeat_G1_bad_equiv .
rewrite TrueRepeat_G2_bad_small.
intuition.
Qed.

(* Specifications: *)
Theorem TrueMult_impl_Repeat :
Pr[TrueRepeat_G] <=
Pr[TrueMult_G _ c A1 f n] + (expRat failProb n).