"Source: Text/Module/Multilinear.text";
"Line: 6017";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Module/Multilinear.text, line: 6017
// Example: H63E76 ()
print "Example: H63E76";
ei := GetEchoInput();
SetEchoInput(true);
A := MatrixAlgebra(Rationals(), 4);
R<x> := PolynomialRing(Rationals());
F := sub< A | A!1, CompanionMatrix(x^4-x^2-2) >;
F;
t := Tensor(F);
t;
C := Centroid(t);
C;
sub< C | C.1 > eq C;
forall{ c : c in Generators(C) | IsInvertible(c) };
IsCommutative(C);
MinimalPolynomial(C.1);
Factorization(MinimalPolynomial(C.1));
SetEchoInput(ei);
