proposition: Theorem PRFE_Encrypt_OC_oc_cost : forall (x : unit) (y : Bvector eta), oc_cost cost (comp_cost cost) (PRFE_Encrypt_OC x y) (fun x => x + 3*eta).
proof: Proof. intuition. eapply oc_cost_le. unfold PRFE_Encrypt_OC. costtac. eapply cost_compose_binary; costtac. eapply cost_uncurry_1. eapply cost_compose_unary; costtac. eapply cost_compose_unary; costtac. eapply cost_compose_binary; costtac. eapply cost_compose_binary; costtac. eapply cost_uncurry_2. eapply cost_BVxor. intuition. costtac. eapply cost_compose_unary; costtac. eapply cost_compose_unary; costtac. eapply cost_compose_binary; costtac. eapply cost_uncurry_2. eapply cost_BVxor. eapply cost_pair_2. intuition. costtac. intuition. Qed.
imports: FCF PRF Encryption RndInList OTP WC_PolyTime