bridge/class-master/depend/pari/src/basemath/base2.c
/* lift A from residue field to nf */
lift A from residue field to nf
lift A from residue field to nf
GEN
Fq_to_nf(GEN A, GEN modpr)
{
  long dA;
  if (typ(A) == t_INT || lg(modpr) < LARGEMODPR) return A;
  dA = degpol(A);
  if (dA <= 0) return dA ? gen_0: gel(A,2);
  return ZM_ZX_mul(gel(modpr,mpr_NFP), A);
}
GEN Fq_to_nf ( GEN A , GEN modpr ) { long dA ; if ( typ ( A ) == t_INT || lg ( modpr ) < LARGEMODPR ) return A ; dA = degpol ( A ) ; if ( dA <= 0 ) return dA ? gen_0 : gel ( A , 2 ) ; return ZM_ZX_mul ( gel ( modpr , mpr_NFP ) , A ) ; }
lift A from residue field to nf
lift A from residue field to nf