“…** / use S ::= QQ[x,y,z]; / ** / A:=[x,y,z,x-y,x-y-z,x-y+2 * z]; / ** / A_1:=MultiArrRestrictionZiegler(A,z);A_1;[[y[1], 1], [y[2], 1], [y[1]-y[2], 3]] / ** / MultiArrDerMod(A_1); matrix( / * RingWithID(18, "QQ[y[1],y[2]]") * / [[y[1] * y[2], y[1]ˆ3], [y[1] * y[2], 3 * y[1]ˆ2 * y[2]-3 * y[1] * y[2]ˆ2+y[2]ˆ3]]) / ** / MultiArrExponents(A_1); [2, 3]/ ** / ArrExponents(A);[1,2,3] …”