`p_nf'
------

p_nf(POLY,PLIST,VLIST,OTYPE)
     :: $@B?9`<0$N@55,7A$r5a$a$k(J.

RETURN
     $@B?9`<0(J
POLY
     $@B?9`<0(J
PLIST,VLIST
     $@%j%9%H(J
OTYPE
     $@@0?t(J

   * `gr' $@$GDj5A$5$l$F$$$k(J.
   * $@B?9`<0$N(J, $@B?9`<0%j%9%H$K$h$k@55,7A$r5a$a$k(J.
   * `dp_nf()' $@$KBP$9$k0l$D$N%$%s%?%U%'!<%9$G$"$k(J.
   * POLY $@$*$h$S(J PLIST $@$O(J, $@JQ?t=g=x(J VLIST $@$*$h$SJQ?t=g=x7?(J OTYPE $@$K=>$C(J
     $@$FJ,;6I=8=B?9`<0$KJQ49$5$l(J, `dp_nf()' $@$KEO$5$l$k(J.
   * `dp_nf()' $@$O(J FULLREDUCE $@$,(J 1 $@$G8F$S=P$5$l$k(J.
   * $@7k2L$OB?9`<0$KJQ49$5$l$F=PNO$5$l$k(J.
   * $@FbIt$G(J `dp_ord(OTYPE)' $@$r<B9T$9$k$?$a(J, $@Bg0hJQ?t(J `Ord'$@$H<B:]$N@_Dj(J
     $@$,0[$J$k$3$H$b$"$jF@$k(J.

     [78] Ord = 2$
     [79] K = katsura(5)$
     [80] V = [u5,u4,u3,u2,u1,u0]$
     [81] NOCRIB = 1$
     [82] G = grm(K,V)$
     [83] p_nf(K[1],G,V,2);
     0
     [84] p_nf(K[1],G,V,1);
     2*u4*u0+(2*u3+2*u5)*u1+u2^2-u4

$@;2>H(J
     `dp_ptod', `dp_dtop', `dp_ord', `dp_nf'

