FUNCTION: LieTools/Char2DomChar
USAGE: Char2DomChar(xc);
SYNOPSIS: Char2DomChar(xt) filters a character polynomial in such a 
  that only those terms corresponding to dominant weights are retained.
EXAMPLE: 
> xc := LieTools[Char]([2,0],A2);

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

> dxc := LieTools[Char2DomChar](xc);

                       dxc := X[2, 0] + X[0, 1]


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