A diagonal-matrix is a matrix with 0 apart from the diagonal
(<=> (Diagonal-Matrix ?M)
(And (Matrix ?M)
(Square-Matrix ?M)
(Forall (?I ?J)
(=> (And (Defined (Value ?M ?I ?J)) (/= ?I ?J))
(Zero-Element (Value ?M ?I ?J))))))