"Source: Text/Algebra/AlgClff.text";
"Line: 358";
"Date: Tue Jun  7 22:27:14 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgClff.text, line: 358
// Example: H95E6 ()
print "Example: H95E6";
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);
