`defpoly'
---------

defpoly(ALG)
     :: `root' の定義多項式を返す.

RETURN
     多項式

ALG
     代数的数 (`root')

   * `root' ALG の定義多項式を返す.

   * `root' を `#N' とすれば, 定義多項式の主変数は `t#N' となる.

     [1] defpoly(A0);
     t#0^2-2

参照
     *Note `newalg': newalg, *Note `alg': alg, *Note `algv': algv

