i1 : R = QQ[x,y]; |
i2 : S = QQ[t]; |
i3 : f = map(S,R,{t^2,t^3}) 2 3 o3 = map(S,R,{t , t }) o3 : RingMap S <--- R |
i4 : f ** coker vars R o4 = cokernel | t2 t3 | 1 o4 : S-module, quotient of S |
i5 : f ** image vars R o5 = cokernel {1} | -t3 | {1} | t2 | 2 o5 : S-module, quotient of S |