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).

(* Specifications: *)
Lemma Grp_quaternion : GrpQ.
Lemma eq_Mod8_D8 : 'Mod_8 = 'D_8.