fact: Definition PRF_A' := z <--$ OC_Run _ _ _ A1 PRFE_Encrypt_OC tt; b <--$$ (m <-$ { 0 , 1 }^1; ret Vector.hd m); r <--$$ { 0 , 1 }^eta; pad <--$ OC_Query (Vector.t bool eta) r; z0 <--$ OC_Run _ _ _ (A2 (snd (fst z)) (r, (if b then (snd (fst (fst z))) else (fst (fst (fst z)))) xor pad)) PRFE_Encrypt_OC (snd z); $ ret eqb b (fst z0).
imports: FCF PRF Encryption RndInList OTP WC_PolyTime