Section IND_CPA_SecretKey_concrete.
Variable State : Set.
Variable A1 : OracleComp Plaintext Ciphertext (Plaintext * Plaintext * State).
Variable A2 : State -> Ciphertext -> OracleComp Plaintext Ciphertext bool.
Hypothesis Ciphertext_EqDec : EqDec Ciphertext.
Hypothesis Plaintext_EqDec : EqDec Plaintext.
Definition EncryptOracle(k : Key)(x : unit)(p : Plaintext) :=
c <-$ Encrypt k p;
ret (c, tt).
Hypothesis Encrypt_wf :
forall k p,
well_formed_comp (Encrypt k p).

Theorem EncryptOracle_wf :
forall k x p,
well_formed_comp (EncryptOracle k x p).