Canonical action := Action actP.Definition groupAction := GroupAction gactP.Fact gtype_key : unit.Definition gtype := locked_with gtype_key (sdprod_groupType groupAction).Notation "''D^' n * 'Q'" := (Pextraspecial.ngtypeQ n) : type_scope.Local Notation gtype := Pextraspecial.gtype.Local Notation actp := (Pextraspecial.groupAction p).

(* Specifications: *)
Lemma pX1p2_extraspecial : extraspecial p^{1+2}.
Lemma exponent_pX1p2n n : prime p -> odd p -> exponent p^{1+2*n} = p.
Lemma pX1p2n_extraspecial n : prime p -> n > 0 -> extraspecial p^{1+2*n}.
Lemma DnQ_extraspecial n : extraspecial 'D^n*Q.