"Source: Text/Algebra/AlgQEA.text";
"Line: 754";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgQEA.text, line: 754
// Example: H112E4 ()
print "Example: H112E4";
ei := GetEchoInput();
SetEchoInput(true);
R:= RootDatum("G2");
U:= QuantizedUEA(R); 
u:= U.10*U.7^3*U.1;
m:= Monomials(u); m;
Coefficients(u);
Degree(m[1], 1);
assert $1 eq 1;
Degree(m[1], 9);
assert $1 eq 0;
Degree(m[1], 10);
assert $1 eq 1;
KDegree(m[1], 1);
U.7^-1;
U.7*U.7^-1;
assert $1 eq 1;
SetEchoInput(ei);
