"Source: Text/Algebra/AlgNAss.text";
"Line: 149";
"Date: Tue Nov 24 16:13:09 2020";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgNAss.text, line: 149
// Example: H96E3 ()
print "Example: H96E3";
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);
