unfold G0_1, G0.
eapply eqRat_trans.
eapply evalDist_seq_eq.
eapply Rnd_split_equiv.
intros.
eapply eqRat_refl.
inline_first.
comp_swap_r.
comp_skip.
inline_first.
comp_skip.
Qed.

Theorem G0_equiv :
Pr[PRF_G_A ({0, 1}^(c + k)) hF _ A] == Pr[G0].