proposition: Theorem PRF_Encrypt_correct : forall k p c, In c (getSupport (PRFE_Encrypt k p)) -> PRFE_Decrypt k c = p.
proof: Proof. intuition. unfold PRFE_Encrypt, PRFE_Decrypt in *. repeat simp_in_support. simpl. rewrite BVxor_assoc. rewrite BVxor_same_id. rewrite BVxor_id_r. intuition. Qed.
imports: FCF PRF Encryption RndInList OTP WC_PolyTime