Definition act_morphism := eltm_morphism aut_dvdn.Fact gtype_key : unit.Definition gtype := locked_with gtype_key (sdprod_groupType gact).Definition quaternion_gtype :=
  locked_with gtype_key (coset_groupType quaternion_kernel).Notation "''Q_' m" := (quaternion_gtype m) : type_scope.Implicit Types (gT : finGroupType) (p q m n : nat).

Lemma Grp_quaternion : GrpQ.