FUNCTION: LieTools/SgEvalOnHRt
USAGE: SgEvalOnHRt(gpoly);
SYNOPSIS: This routine evaluates a polynomial on the highest root vector
  in g.
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 

SEE ALSO: 
