fact: Definition PRF_A : OracleComp (Bvector eta) (Bvector eta) bool := [a, n] <--$2 OC_Run _ _ _ A1 PRFE_Encrypt_OC tt; [p0, p1, s_A] <-3 a; b <--$$ {0, 1}; pb <- if b then p1 else p0; r <--$$ {0, 1} ^ eta; pad <--$ OC_Query _ r; c <- (r, pb xor pad); z <--$ OC_Run _ _ _ (A2 s_A c) PRFE_Encrypt_OC n; [b', _] <-2 z; $ ret (eqb b b').
imports: FCF PRF Encryption RndInList OTP WC_PolyTime