"Source: Text/Algebra/AlgAss.text";
"Line: 857";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgAss.text, line: 857
// Example: H90E6 ()
print "Example: H90E6";
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);
