DIM:=6$
REFALGTEX:={sl2bisxsl2bis}$
 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(3) ELSE
       IF j=3 THEN x(2) ELSE 0
    ELSE
    IF i=2 THEN
       IF j=3 THEN x(1) ELSE 0
    ELSE
    IF i=4 THEN
       IF j=5 THEN x(6) ELSE
       IF j=6 THEN x(5) ELSE 0
    ELSE
    IF i=5 THEN
       IF j=6 THEN x(4) 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;
operator r$
END$