`p_nf'
------

p_nf(POLY,PLIST,VLIST,OTYPE)
     :: ̐K`߂.

RETURN
     
POLY
     
PLIST,VLIST
     Xg
OTYPE
     

   * `gr' Œ`Ă.
   * , Xgɂ鐳K`߂.
   * `dp_nf()' ɑ΂̃C^tF[Xł.
   * POLY  PLIST , ϐ VLIST ѕϐ^ OTYPE ɏ]
     ĕU\ɕϊ, `dp_nf()' ɓn.
   * `dp_nf()'  FULLREDUCE  1 ŌĂяo.
   * ʂ͑ɕϊďo͂.
   *  `dp_ord(OTYPE)' s邽, ϐ `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

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

