IsFractionField(R: RING): BOOL
/**/ Use R ::= QQ[x,y]; /**/ K := NewFractionField(R); /**/ IsFractionField(K); true; /**/ BaseRing(K); RingWithID(3, "QQ[x,y]")