proposition: Theorem G1_PRF_A'_equiv : Pr[k <-$ {0, 1}^ eta; [b, _] <-$2 PRF_A _ _ (f_oracle k) tt; ret b] == Pr[k <-$ {0, 1}^ eta; [b, _] <-$2 PRF_A' _ _ (f_oracle k) tt; ret b].
proof: Proof. intuition. comp_skip. comp_skip. eapply PRF_A'_equiv. Qed.
imports: FCF PRF Encryption RndInList OTP WC_PolyTime