Section Dihedral_extension.
Variable p : nat.
Hypotheses (p_gt1 : p > 1) (even_p : 2 %| p).
Local Notation ED := [set: gsort (Extremal.gtype q p q.-1)].
End Dihedral_extension.
End DihedralGroup.

Lemma Grp_semidihedral n : n > 3 ->
'SD_(2 ^ n) \isog
Grp (x : y : (x ^+ (2 ^ n.-1), y ^+ 2, x ^ y = x ^+ (2 ^ n.-2).-1)).