intuition.
symmetry.
eapply comp_spec_eq_impl_eq.
eapply xor_OTP.
Qed.
End xor_OTP.
(* OTP for cyclic groups *)
Local Open Scope group_scope.
Section Group_OTP.
Context`{FCG : FiniteCyclicGroup}.
Hypothesis GroupElement_EqDec : EqDec GroupElement.

(* Specifications: *)
Theorem group_OTP_l :
forall (x : GroupElement),
comp_spec eq (RndG) (r <-$ RndG; ret (groupOp x r)).