FUNCTION: LieTools/CharProduct
USAGE: CharProduct(x1,x2)
SYNOPSIS: CharProduct(x1,x2) computes the product of two character
  polynomials (in accordance with the interpretation of the product 
  as the character of the tensor product of the corresponding modules);
EXAMPLE: 
> xc := LieTools[Char]([1,0],A2);

                 xc := X[1, 0] + X[-1, 1] + X[0, -1]

> pxc := LieTools[CharProduct](xc,xc);

  pxc := X[2, 0] + 2 X[0, 1] + 2 X[1, -1] + X[-2, 2] + 2 X[-1, 0]

         + X[0, -2]


SEE ALSO: LieTools[Char], LieTools[Char2DomChar] 
