eapply OTP_inf_th_sec_l; intuition.
eapply BVxor_assoc.
eapply BVxor_same_id.
eapply BVxor_same_id.
eapply BVxor_id_l.
eapply comp_spec_rnd.
Qed.

(* Specifications: *)
Theorem xor_OTP_eq:
forall (x y : Bvector n),
evalDist (r <-$ Rnd n; ret (BVxor n x r)) y ==
evalDist (Rnd n) y.