fact: Hypothesis IND_CPA_Adv_correct : (forall i, IND_CPA_SecretKey_O_Advantage (A_c (B1 defA _ _ A1 i) A2 (B2 (fun x : A => key <-$ KeyGen; z <-$ (A2 x) unit unit_EqDec (EncryptOracle Ciphertext_EqDec key) tt; [b, _]<-2 z; ret b) (fun x : A => key <-$ KeyGen; z <-$ (A2 x) unit unit_EqDec (EncryptNothingOracle Ciphertext_EqDec ptDefault key) tt; [b, _]<-2 z; ret b) B_EqDec A3) ) _ ptDefault <= IND_CPA_Adv)%rat.
imports: FCF.FCF FCF.CompFold FCF.Hybrid