i1 : gndR = QQ[x,y,z];
i2 : subR = subring({x^2, y^2, z^2});
i3 : ambient subR o3 = gndR o3 : PolynomialRing