intuition.
unfold DistMult_G, DM_RC_G6, DM_RC_B2.
comp_skip.
comp_simp.
inline_first.
comp_skip.
Qed.
Variable k1 : Rat.
Hypothesis c1_fail_prob :
forall a s_A, In (a, s_A) (getSupport A1) -> Pr[b <-$ c1 a; ret (negb (P b))] <= k1.
Variable k2 : Rat.
Hypothesis c2_fail_prob :
forall a s_A, In (a, s_A) (getSupport A1) -> Pr[b <-$ c2 a; ret (negb (P b))] <= k2.

(* Specifications: *)
Theorem DistMult_impl_RepeatCore :
RepeatCore_Adv P c1 c2 A1 A2 <=
DistMult_Adv _ c1 c2 A1 DM_RC_B2 n +
expRat k1 n +
expRat k2 n.