End IND_CPA_SecretKey_O_concrete_3Proc.> Comp bool.Section IND_CPA_SecretKey_OI_concrete.vantage := 
    | Pr[IND_CPA_SecretKey_OI_G0] - Pr[IND_CPA_SecretKey_OI_G1]  |.    

  Section IND_CPA_SecretKey_OIHypothesis A2_wf : 
      forall a,well_formed_oc (A2 a).

    Variable maxA : nat.
    Hypothesis maxA_correct : 
      forall ls s_A,
        In (ls, s_A) (getSuppor)].

      reflexivity.
    Qed.

forall k p, well_formed_comp (Encrypt k p).