"Source: Text/Algebra/AlgNAss.text";
"Line: 149";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgNAss.text, line: 149
// Example: H98E3 ()
print "Example: H98E3";
ei := GetEchoInput();
SetEchoInput(true);
J := ExceptionalJordanCSA(Rationals());
T := Tensor(J);                                     
T := ChangeTensorCategory(T, HomotopismCategory(3));
D := DerivationAlgebra(T);
_, D2 := Induce(D, 2);           // Represent D on U2.
F4 := D2*D2;                  // Commutator.
SemisimpleType(F4);
F4;               // F4 represented on a 27-dim module.
SetEchoInput(ei);
