"Source: Text/Algebra/AlgBas.text";
"Line: 1499";
"Date: Thu Jun 16 15:34:16 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgBas.text, line: 1499
// Example: H92E8 ()
print "Example: H92E8";
ei := GetEchoInput();
SetEchoInput(true);
A := BasicAlgebraOfSchurAlgebra(3,5,GF(3));
A;
B, uu  := ChangeIdempotents(A,[2,4,5,1,3]);
B;
DimensionsOfProjectiveModules(A);
DimensionsOfProjectiveModules(B);
IsAlgebraHomomorphism(A,B,uu);
assert $1;
uu;
SetEchoInput(ei);
