`rattoalgp'
-----------

rattoalgp(POLY,ALGLIST)
     :: Substitutes a root for the associated indeterminate with the
     root.

RETURN
     polynomial

POLY
     polynomial

ALGLIST
     list

   * Defined in the file `sp'.

   * The second argument is a list of root's. Function `rattoalgp()'
     substitutes a root for the associated indeterminate of the root.

     [51] rattoalgp((-2*algv(0)+3)*x^2+(1/7*algv(0)-3/7),[alg(0)]);
     (-2*#0+3)*x^2+(1/7*#0-3/7)

Reference
     *Note `alg': alg, *Note `algv': algv

