| LIB "grobcov.lib";
if(defined(R)){kill R;}
ring R=(0,a,b,c),(x,y),dp;
short=0;
// parametric polynom
poly f=(b^2-1)*x^3*y+(c^2-1)*x*y^2+(c^2*b-b)*x+(a-bc)*y;
// ideals defining V(p)\V(q)
ideal p=c-1;
ideal q=a-b;
// pnormaform of f on V(p) \ V(q)
pnormalf(f,p,q);
==> (b^2-1)*x^3*y+(a-b)*y
|