proposition: Theorem G2_4_5_close : forall z, | evalDist (x <-$ G2_4; ret fst x) z - evalDist (x <-$ G2_5; ret fst x) z | <= q2 / (2 ^ eta).
proof: Proof. intuition. eapply leRat_trans. eapply fundamental_lemma_h. eapply G2_4_5_badness_same. eapply G2_4_5_eq_until_bad. eapply G2_4_bad_small. Qed.
imports: FCF PRF Encryption RndInList OTP WC_PolyTime