Dim(R:RING or TAGGED("Quotient")):INT
Use R ::= QQ[x,y,z]; Dim(R/Ideal(0)); 3 ------------------------------- Dim(R/Ideal(y^2-x,xz-y^3)); 1 -------------------------------