isInjective -- whether a map is injective

i1 : R = QQ[a..d];

i2 : F = matrix{{a,b},{c,d}}

o2 = | a b |
     | c d |

             2       2
o2 : Matrix R  <--- R

i3 : isInjective F

o3 = true

i4 : G = substitute(F, R/(det F))

o4 = | a b |
     | c d |

                  R      2            R      2
o4 : Matrix (-----------)  <--- (-----------)
             - b*c + a*d         - b*c + a*d

i5 : isInjective G

o5 = false

i6 : S = QQ[r,s,t];

i7 : phi = map(S,R,{r^3, r^2*s, r*s*t, s^3})

               3   2           3
o7 = map(S,R,{r , r s, r*s*t, s })

o7 : RingMap S <--- R

i8 : isInjective phi

o8 = false

i9 : S' = coimage phi

o9 = S'

o9 : QuotientRing

i10 : phi' = phi * map(R,S')

                 3   2           3
o10 = map(S,S',{r , r s, r*s*t, s })

o10 : RingMap S <--- S'

i11 : isInjective phi'

o11 = true