IsDiagonal(M: MAT): BOOL
/**/ M := mat([[0, 1, 2],[-1, 0, 3],[-2, -3, 0]]); /**/ IsDiagonal(M); false