DefiningIdeal(S: RING): IDEAL
/**/ Use R ::= QQ[x,y,z]; /**/ S := R/ideal(x); /**/ DefiningIdeal(S); ideal(x)