fact: Definition IND_CPA_SecretKey_G := key <-$ KeyGen ; [b, _] <-$2 ( [p0, p1, s_A] <--$3 A1; b <--$$ {0, 1}; pb <- if b then p1 else p0; c <--$$ Encrypt key pb; b' <--$ A2 s_A c; $ ret eqb b b' ) _ _ (EncryptOracle key) tt; ret b.
imports: FCF.FCF FCF.CompFold FCF.Hybrid