| LIB "redcgs.lib";
ring r=(0,a,b,c),(x,y),dp;
setglobalrings();
ideal N=(ab-c)*(a-b),(a-bc)*(a-b);
ideal W=a^2-b^2,bc;
redspec(N,W);
==> [1]:
==> _[1]=(b2-1)
==> _[2]=(a-bc)
==> [2]:
==> _[1]=(b)
==> _[2]=(c-1)
==> _[3]=(c+1)
==> _[4]=(c)
==> [3]:
==> [1]:
==> _[1]=(b+1)
==> _[2]=(a+c)
==> [2]:
==> _[1]=(b-1)
==> _[2]=(a-c)
|