fact: Definition IND_CPA_SecretKey_OI_G0 := [lsa, s_A] <-$2 A1; lsb <-$ compMap _ (fun x => key <-$ KeyGen; [b, _] <-$2 (A2 x) _ _ (EncryptOracle _ key) tt; ret b ) lsa; A3 s_A lsb.
imports: FCF.FCF FCF.CompFold FCF.Hybrid