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

i1 : R = QQ[a,b];

i2 : f1 = matrix{{a,b}}

o2 = | a b |

             1       2
o2 : Matrix R  <--- R

i3 : f = a * f1

o3 = | a2 ab |

             1       2
o3 : Matrix R  <--- R

i4 : degree f

o4 = {1}

o4 : List

i5 : source f == source f1

o5 = true

i6 : g = map(f, Degree => 0)

o6 = | a2 ab |

             1       2
o6 : Matrix R  <--- R

i7 : degree g

o7 = {0}

o7 : List

i8 : source g == (source f) ** R^{-1}

o8 = true

i9 : g2 = a ** matrix{{a,b}}

o9 = | a2 ab |

             1       2
o9 : Matrix R  <--- R

i10 : degree g2

o10 = {0}

o10 : List

i11 : isHomogeneous g2

o11 = true

i12 :