Definition sdprod_mul u v := SdPair to (sdprod_mul_proof u v).

(* Specifications: *)
Lemma sdprod_mul1g : left_id sdprod_one sdprod_mul.
Lemma sdprod_mulVg : left_inverse sdprod_one sdprod_inv sdprod_mul.
Lemma sdprod_mulgA : associative sdprod_mul.
Canonical sdprod_groupMixin :=
FinGroup.Mixin sdprod_mulgA sdprod_mul1g sdprod_mulVg.