IsQuotientRing(R: RING): BOOL
/**/ use R ::= QQ[x,y]; /**/ S := R/ideal(x); /**/ IsQuotientRing(S); true;