"Source: Text/Group/GrpGPC.text";
"Line: 1051";
"Date: Wed Nov  6 12:03:12 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpGPC.text, line: 1051
// Example: H79E6 ()
print "Example: H79E6";
ei := GetEchoInput();
SetEchoInput(true);
a := GL(2,3) ! [1,1,0,1];
b := GL(2,3) ! [0,1,1,0];
M := sub<Parent(a)|a,b>;
IsSolvable(M);
assert $1;
IsFinite(M);
assert $1;
G, f := GPCGroup(M);
H<u,v> := DihedralGroup(GrpGPC, 0);
D, incl, proj := DirectProduct(G, H);
S := sub<D | incl[1](f(a*b)), incl[2]((u,v)^2)>;
N := ncl<D|S>;
Q := D/N;
Q;
Q_ := PCGroup(Q);
Q_;
SetEchoInput(ei);
