Section OTP.
Variable c : nat.
Definition OTP (x : Bvector c) : Comp (Bvector c)
:= p <-$ {0, 1}^c; ret (BVxor c p x).

Theorem OTP_eq_Rnd:
forall (x y : Bvector c),
D (OTP x) y == D ({0, 1}^c) y.