-- -*- M2-comint -*- {* hash: 819240808 *}

i1 : R = ZZ[x,y]

o1 = R

o1 : PolynomialRing

i2 : f = random(R^{2:1},R^2)

o2 = {-1} | 8x+7y 7x+7y |
     {-1} | 2x+9y x+y   |

             2       2
o2 : Matrix R  <--- R

i3 : g = transpose (vars R ++ vars R)

o3 = {-1} | x 0 |
     {-1} | y 0 |
     {-1} | 0 x |
     {-1} | 0 y |

             4       2
o3 : Matrix R  <--- R

i4 : quotient'(f,g)

o4 = {-1} | 8 7 7 7 |
     {-1} | 2 9 1 1 |

             2       4
o4 : Matrix R  <--- R

i5 : f = f + map(target f, source f, id_(R^2))

o5 = {-1} | 8x+7y+1 7x+7y |
     {-1} | 2x+9y   x+y+1 |

             2       2
o5 : Matrix R  <--- R

i6 : quotient'(f,g)

o6 = {-1} | 8 7 7 7 |
     {-1} | 2 9 1 1 |

             2       4
o6 : Matrix R  <--- R

i7 :