proposition: Theorem RndGrpElem_spec : forall x y, comp_spec (fun a b => a = x <-> b = y) RndGrpElem RndGrpElem.
proof: Proof. intuition. eapply eq_impl_comp_spec; eauto using RndGrpElem_wf. eapply RndGrpElem_uniform. Qed.
imports: FCF.FCF FCF.GroupTheory