gap> R := RootSystem("A",4); gap> U := QuantizedUEA(R); QuantumUEA( , Qpar = q ) gap> U5 := QuantizedUEA(R,CF(5),E(5)); QuantumUEA( , Qpar = E(5) ) gap> G := GeneratorsOfAlgebra(U); [ F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, K1, (-q+q^-1)*[ K1 ; 1 ]+K1, K2, (-q+q^-1)*[ K2 ; 1 ]+K2, K3, (-q+q^-1)*[ K3 ; 1 ]+K3, K4, (-q+q^-1)*[ K4 ; 1 ]+K4, E1, E2, E3, E4, E5, E6, E7, E8, E9, E10 ] gap> G5 := GeneratorsOfAlgebra(U5); [ F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, K1, (-E(5)+E(5)^4)*[ K1 ; 1 ]+K1, K2, (-E(5)+E(5)^4)*[ K2 ; 1 ]+K2, K3, (-E(5)+E(5)^4)*[ K3 ; 1 ]+K3, K4, (-E(5)+E(5)^4)*[ K4 ; 1 ]+K4, E1, E2, E3, E4, E5, E6, E7, E8, E9, E10 ] gap> G[1]^5; (q^10+4*q^8+9*q^6+15*q^4+20*q^2+22+20*q^-2+15*q^-4+9*q^-6+4*q^-8+q^-10)*F1^(5) gap> G5[1]^5; 0