fact: Definition G1 := key <-$ PRFE_KeyGen; [b, _] <-$2 ( [p0, p1, s_A] <--$3 A1; b <--$$ {0, 1}; pb <- if b then p1 else p0; c <--$$ PRFE_Encrypt key pb; b' <--$ (A2 s_A c); $ ret (eqb b b') ) _ _ (PRFE_EncryptOracle key) tt; ret b.
imports: FCF PRF Encryption RndInList OTP WC_PolyTime