%relations de commutation de l'algŠbre n_{6,8} de dim 6
dim:=6$
REFALGTEX:={8}$
 NONCOM x;
  FOR i:=1:DIM DO
  FOR j:=i:DIM DO
         x(i)*x(j):=
    IF i=1 THEN
       IF j=2 THEN x(4) ELSE
       IF j=4 THEN x(5) ELSE 0
    ELSE
    IF i=2 THEN
       IF j=3 THEN x(5) ELSE
       IF j=4 THEN x(6) ELSE 0
    ELSE 0;
  
 FOR i:=1:DIM-1 DO
 FOR j:=i+1:DIM DO
       x(j)*x(i):=-x(i)*x(j);
%Les projecteurs de la base duale
NONCOM X,V ;
FOR i:=1:DIM DO
    FOR j:=1:DIM DO
       V(i)*X(j):= IF i=j THEN 1 ELSE 0;
% les racines de g
operator R$ operator mu$
R(1):=MU(1)$
R(2):=MU(2)$
R(3):=2*MU(1)$
R(4):=MU(1)+MU(2)$
R(5):=2*MU(1)+MU(2)$
R(6):=MU(1)+2*MU(2)$