"Source: Text/Algebra/AlgClff.text";
"Line: 358";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgClff.text, line: 358
// Example: H97E6 ()
print "Example: H97E6";
ei := GetEchoInput();
SetEchoInput(true);
F<a,b> := RationalFunctionField(Rationals(),2);
Q := DiagonalMatrix(F,[1,-a,-b]);  
C,V,f := CliffordAlgebra(Q);
E, h := EvenSubalgebra(C);
i := E.2;
j := E.3;
i^2;
j^2;
i*j eq -j*i;
assert $1;
SetEchoInput(ei);
