IsPolyRing(R: RING): BOOL
/**/ use P ::= QQ[x,y]; /**/ IsPolyRing(P); true /**/ PmodI := NewQuotientRing(P,ideal([x])); // NO, but isom to QQ[y] false /**/ IsPolyRing(QQ); false