i1 : R = ZZ[x,y,z]; |
i2 : S = ZZ/101[x,y,z,Degrees => {{1,2},{1,3},{1,3}}]/ideal(x+z^3);
|
i3 : F = map(S,R,{x,y^2,z^3})
2
o3 = map(S,R,{x, y , -x})
o3 : RingMap S <--- R
|
i4 : use R; F(107*x+y+z)
2
o5 = y + 5x
o5 : S
|
i6 : T = ZZ/5[x,y]; |
i7 : G = map(T,S); o7 : RingMap T <--- S |
i8 : G*F
2
o8 = map(T,R,{x, y , -x})
o8 : RingMap T <--- R
|
i9 : use R; G(F(107*x+y+z))
2
o10 = y
o10 : T
|