Synopsis:
Code:
-- ../m2/matrix1.m2:681-687 degree Matrix := List => (f) -> ( M := source f; N := target f; d := getshift f; if M.?generators then d = d - getshift M.generators; if N.?generators then d = d + getshift N.generators; d)