IsZeroDim(I: IDEAL): BOOL
/**/ Use QQ[x,y,z]; /**/ IsZeroDim(ideal(x)); false /**/ IsZeroDim(ideal(x^3, y^4-x ,z-3)); true /**/ IsZeroDim(ideal(x^2, x*y^3)); false