"Source: Text/Group/GrpGPC.text";
"Line: 941";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpGPC.text, line: 941
// Example: H81E5 ()
print "Example: H81E5";
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);
