"Source: Text/Algebra/AlgBas.text";
"Line: 1468";
"Date: Thu Jun 16 15:34:16 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgBas.text, line: 1468
// Example: H92E7 ()
print "Example: H92E7";
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);
