"Source: Text/Group/GrpGPC.text";
"Line: 941";
"Date: Wed Nov  6 12:03:12 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpGPC.text, line: 941
// Example: H79E5 ()
print "Example: H79E5";
ei := GetEchoInput();
SetEchoInput(true);
G1<a,b> := DihedralGroup(GrpGPC, 3);
G2<u,v> := DihedralGroup(GrpGPC, 0);
D, incl, proj := DirectProduct(G1, G2);
D;
S := sub<D| incl[1](a)*incl[2](u), incl[1](b)*incl[2](v)>;
S;
Q, pi := quo<D|S>;
Q;
Q.1 @@ pi;
SetEchoInput(ei);
