"Source: Text/Algebra/AlgNAss.text";
"Line: 109";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgNAss.text, line: 109
// Example: H98E2 ()
print "Example: H98E2";
ei := GetEchoInput();
SetEchoInput(true);
F := IdentityMatrix(Rationals(),2);
J := JordanSpinAlgebra(F);
T := Tensor(J); 
R := AsMatrices( T, 2,0); 
R[1];   // Is J.1 the identity?
J.2*J.2 eq J.1;  // J.2^2=1?
J.2*J.3 eq 0;  // Yet J.2 is a zero-divisor.
e := (1/2)*(J.1+J.2);             
e^2 eq e;  // An idempotent of J?
Re := (1/2)*(R[1]+R[2]);
Eigenvalues(Re);
SetEchoInput(ei);
