bridge/class-master/depend/pari/src/basemath/mftrace.c
/* embed polynomial f in variable vx [ may be a scalar ], E from getembed */
embed polynomial f in variable vx [ may be a scalar ], E from getembed
embed polynomial f in variable vx [ may be a scalar ] E from getembed
static GEN
RgX_embed(GEN f, long vx, GEN E)
{
  GEN vT;
  if (typ(f) != t_POL || varn(f) != vx) return mfembed(E, f);
  if (lg(E) == 1) return f;
  vT = gel(E,2);
  if (lg(E) == 3)
    f = RgX_embed1(f, vT);
  else
    f = RgX_embed2(f, varn(gel(E,1)), vT, gel(E,3));
  return f;
}
static GEN RgX_embed ( GEN f , long vx , GEN E ) { GEN vT ; if ( typ ( f ) != t_POL || varn ( f ) != vx ) return mfembed ( E , f ) ; if ( lg ( E ) == 1 ) return f ; vT = gel ( E , 2 ) ; if ( lg ( E ) == 3 ) f = RgX_embed1 ( f , vT ) ; else f = RgX_embed2 ( f , varn ( gel ( E , 1 ) ) , vT , gel ( E , 3 ) ) ; return f ; }
embed polynomial f in variable vx [ may be a scalar ], E from getembed
embed polynomial f in variable vx [ may be a scalar ] E from getembed