`p_nf'
------

p_nf(POLY,PLIST,VLIST,OTYPE)
     :: ¿༰.

RETURN
     ¿༰
POLY
     ¿༰
PLIST,VLIST
     ꥹ
OTYPE
     

   * `gr' Ƥ.
   * ¿༰, ¿༰ꥹȤˤ.
   * `dp_nf()' ФĤΥ󥿥եǤ.
   * POLY  PLIST , ѿ VLIST ѿ OTYPE ˽
     ʬɽ¿༰Ѵ, `dp_nf()' Ϥ.
   * `dp_nf()'  FULLREDUCE  1 ǸƤӽФ.
   * ̤¿༰ѴƽϤ.
   *  `dp_ord(OTYPE)' ¹Ԥ뤿, ѿ `Ord'ȼºݤ
     ۤʤ뤳Ȥ⤢.

     [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


     `dp_ptod', `dp_dtop', `dp_ord', `dp_nf'

