FUNCTION: LieTools/SgHWV2WgtSpace
USAGE: SgHWV2WgtSpace(fwgt,hwv)
SYNOPSIS: SgHWV2WgtSpace(fwgt,hwv) will produce a basis for the
  fwgt-space of the submodule of S[g] generated by the highest weight vector
  hwv (which should be a polynomial in S(g)). 
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> with(LieTools):
> gSetup(G,2):
Setting up Gtype = G   rnk = 2
> hwv := g[14]^2;

                                        2
                            hwv := g[14]

> SgHWV2WgtSpace([0,1],hwv);

  [g[14] g[8] + g[12] g[11], g[13] g[10] + g[12] g[11],

        g[14] g[7] - 2 g[12] g[11]]

SEE ALSO: 
