unfold TrueRepeat_G3, TrueMult_G.
inline_first.
comp_skip.
inline_first.
comp_skip.
inline_first.
comp_irr_l.
edestruct Repeat_c_terminating; eauto.
eapply well_formed_Repeat.
unfold eq_dec; intuition.
eapply (EqDec_dec _).
eauto.
eauto.
simpl.
intuition.
Qed.

(* Specifications: *)
Theorem TrueRepeat_G1_bad_equiv :
Pr  [x <-$ TrueRepeat_G3; ret snd x ] ==
Pr[TrueRepeat_G3_bad].