FUNCTION: LieTools/UgProduct
USAGE: UgProduct(upoly1,upoly2);
SYNOPSIS: UgProduct(upoly1,upoly2) computes the product of upoly1*upoly2 in U(g).
EXAMPLE: 
> up1 := u(g[1])+5*u(g[1],g[2]);

                   up1 := u(g[1]) + 5 u(g[1], g[2])

> up2 := 3*u(g[3],g[2],g[2])+2*u(g[2],g[2],g[3]);

         up2 := 3 u(g[3], g[2], g[2]) + 2 u(g[2], g[2], g[3])


                 upoly2 := u(g[1]) + 5 u(g[1], g[2])

> UgProduct(up1,up2);

  3 u(g[1], g[3], g[2], g[2]) + 2 u(g[1], g[2], g[2], g[3])

         + 15 u(g[1], g[2], g[3], g[2], g[2])

         + 10 u(g[1], g[2], g[2], g[2], g[3])


SEE ALSO: 
