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))))))
(Forall (?I ?J) (=> (And (Defined (Value ?M ?I ?J)) (/= ?I ?J)) (Zero-Element (Value ?M ?I ?J)))) (Square-Matrix ?M) (Matrix ?M)
(<=> (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))))))