"Source: Text/Algebra/AlgInv.text";
"Line: 510";
"Date: Tue Feb 25 10:14:52 2020";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgInv.text, line: 510
// Example: H96E5 ()
print "Example: H96E5";
ei := GetEchoInput();
SetEchoInput(true);
K := GF(16);
S := SimpleStarAlgebra("exchange", 4, K);
Dimension(S);
assert $1 eq 8;
IsStarAlgebra(S);
w := K.1;
s := S.1 * S.2 + w * S.1;
s;
star := Star(S);
s@star;
SetEchoInput(ei);
