-- -*- M2-comint -*- hash: 4177920072422385958

i1 : setRandomSeed 0
 -- setting random seed to 0

o1 = 0

i2 : R = CC[a,b,c,d][x,y];

i3 : polys = polySystem {a*x+b*y^2,c*x*y+d};

i4 : (p0,x0) := createSeedPair polys;

i5 : polys0=specializeSystem(p0,polys);

i6 : apply(polys0,p->sub(p,{x=>first x0.Coordinates,y=>last x0.Coordinates}))

o6 = {-5.55112e-17, -5.55112e-17-1.66533e-16*ii}

o6 : List

i7 : 
