"Source: Text/Algebra/AlgBas.text";
"Line: 1486";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgBas.text, line: 1486
// Example: H94E7 ()
print "Example: H94E7";
ei := GetEchoInput();
SetEchoInput(true);
A := BasicAlgebraOfSchurAlgebra(3,6,GF(3));
A;
B := BasicAlgebraOfExtAlgebra(A,10);
B;
C := BasicAlgebraOfExtAlgebra(B,10);
C;
boo,mat := IsIsomorphic(A,C);
boo;
assert $1;
IsAlgebraHomomorphism(mat);
assert $1;
SetEchoInput(ei);
