`lex_hensel_gsl', `tolex_gsl', `tolex_gsl_d'
--------------------------------------------

lex_hensel_gsl(PLIST,VLIST1,ORDER,VLIST2,HOMO)
     :: GSL $B7A<0$N%$%G%"%k4pDl$N7W;;(B

tolex_gsl(PLIST,VLIST1,ORDER,VLIST2,HOMO)
tolex_gsl_d(PLIST,VLIST1,ORDER,VLIST2,HOMO,PROCS)
     :: $B%0%l%V%J4pDl$rF~NO$H$9$k(B, GSL $B7A<0$N%$%G%"%k4pDl$N7W;;(B

RETURN
     $B%j%9%H(B

PLIST, VLIST1, VLIST2, PROCS
     $B%j%9%H(B

ORDER
     $B?t(B, $B%j%9%H$^$?$O9TNs(B

HOMO
     $B%U%i%0(B

   * `lex_hensel_gsl()' $B$O(B `lex_hensel()' $B$N(B, `tolex_gsl()' $B$O(B
     `tolex()' $B$NJQ<o$G(B, $B7k2L$N$_$,0[$J$k(B.  `tolex_gsl_d()' $B$O(B,
     $B4pDl7W;;$r(B, `procs' $B$G;XDj$5$l$k;R%W%m%;%9$K(B $BJ,;67W;;$5$;$k(B.

   * $BF~NO$,(B 0 $B<!85%7%9%F%`$G(B, $B$=$N<-=q<0=g=x%0%l%V%J4pDl$,(B
     `[f0,x1-f1,...,xn-fn]' (`f0',...,`fn' $B$O(B `x0' $B$N(B 1 $BJQ?tB?9`<0(B)
     $B$J$k7A(B ($B$3$l$r(B SL $B7A<0$H8F$V(B) $B$r;}$D>l9g(B,
     `[[x1,g1,d1],...,[xn,gn,dn],[x0,f0,f0']]' $B$J$k%j%9%H(B ($B$3$l$r(B GSL
     $B7A<0$H8F$V(B) $B$rJV$9(B.  $B$3$3$G(B, `gi' $B$O(B, `di*f0'*fi-gi' $B$,(B `f0'
     $B$G3d$j@Z$l$k$h$&$J(B `x0' $B$N(B1 $BJQ?tB?9`<0$G(B, $B2r$O(B `f0(x0)=0' $B$J$k(B
     `x0' $B$KBP$7(B, `[x1=g1/(d1*f0'),...,xn=gn/(dn*f0')]' $B$H$J$k(B.
     $B<-=q<0=g=x%0%l%V%J4pDl$,>e$N$h$&$J7A$G$J$$>l9g(B, `tolex()' $B$K(B
     $B$h$kDL>o$N%0%l%V%J4pDl$rJV$9(B.

   * GSL $B7A<0$K$h$jI=$5$l$k4pDl$O%0%l%V%J4pDl$G$O$J$$$,(B, $B0lHL$K78?t$,(B
     SL $B7A<0(B $B$N%0%l%V%J4pDl$h$jHs>o$K>.$5$$$?$a7W;;$bB.$/(B,
     $B2r$b5a$a$d$9$$(B.  `tolex_gsl_d()' $B$GI=<($5$l$k;~4V$O(B,
     $B$3$NH!?t$,<B9T$5$l$F$$$k%W%m%;%9$K(B
     $B$*$$$F9T$o$l$?7W;;$KBP1~$7$F$$$F(B,
     $B;R%W%m%;%9$K$*$1$k;~4V$O4^$^$l$J$$(B.

     [103] K=katsura(5)$
     [104] V=[u5,u4,u3,u2,u1,u0]$
     [105] G0=gr(K,V,0)$
     [106] GSL=tolex_gsl(G0,V,0,V)$
     [107] GSL[0];
     [u1,8635837421130477667200000000*u0^31-...]
     [108] GSL[1];
     [u2,10352277157007342793600000000*u0^31-...]
     [109] GSL[5];
     [u0,11771021876193064124640000000*u0^32-...,376672700038178051988480000000*u0^31-...]

$B;2>H(B
     *Note `lex_hensel lex_tl tolex tolex_d tolex_tl': lex_hensel
     lex_tl tolex tolex_d tolex_tl, *Note `$BJ,;67W;;(B': $BJ,;67W;;(B

