"Source: Text/Algebra/AlgAss.text";
"Line: 853";
"Date: Mon Aug 13 23:00:02 2018";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgAss.text, line: 853
// Example: H88E6 ()
print "Example: H88E6";
ei := GetEchoInput();
SetEchoInput(true);
F<w> := CyclotomicField(3);
A := FPAlgebra<F, x,y | x^3-3, y^3+5, y*x-w*x*y>;
Aass, f := Algebra(A);
Aass;
f;
S := [f(A.i) : i in [1..2]];
S;
O := Order(S);
O;
A := GroupAlgebra(F, DihedralGroup(6));
Aass := Algebra(A);
O := Order([g : g in Generators(Aass)]);
O;
SetEchoInput(ei);
