"Source: Text/Algebra/AlgInv.text";
"Line: 595";
"Date: Tue Feb 25 10:14:52 2020";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgInv.text, line: 595
// Example: H96E6 ()
print "Example: H96E6";
ei := GetEchoInput();
SetEchoInput(true);
K := GF(5);
G := AlternatingGroup(5);
A := GroupAlgebraAsStarAlgebra(K, G);
J, W := WedderburnDecomposition(A);
Dimension(J); Dimension(W);
forall { i : i in [1..Ngens (W)] | W.i@Star(A) in W };
assert not $1;
J, T := TaftDecomposition(A);
Dimension(J); Dimension(W);
forall { i : i in [1..Ngens(T)] | T.i@Star(A) in T };
assert $1;
SetEchoInput(ei);
