16 lines
308 B
Plaintext
16 lines
308 B
Plaintext
f := FreeGroup( 4 );
|
|
g := f / [ f.1^2,
|
|
f.2^2,
|
|
f.3^2,
|
|
f.4^2,
|
|
( f.1*f.2 )^5,
|
|
( f.2*f.3 )^3,
|
|
( f.3*f.4 )^3,
|
|
( f.1*f.3 )^2,
|
|
( f.1*f.4 )^2,
|
|
( f.2*f.4 )^2
|
|
];
|
|
|
|
tab := CosetTable( g, Subgroup(g, [ ]));
|
|
time;
|