FUNCTION: LieTools/UgNormalize
USAGE: UgNormalize(upoly);
SYNOPSIS: UgNormalize(upoly) normalizes an element upoly in U[g]
  so that the leading term in its expression in terms of a PBW basis is 1.
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> with(LieTools):
> gSetup(G,2):
Setting up Gtype = G   rnk = 2
> upoly := 96*u(g[3],g[2],g[2])+6*u(g[2],g[2],g[3])+5*u(g[1],g[2]);
> 

  upoly := 96 u(g[3], g[2], g[2]) + 6 u(g[2], g[2], g[3])

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

> UgNormalize(upoly);

              5/102 u(g[1], g[2]) + u(g[2], g[2], g[3])

SEE ALSO: 
