(* Check if matrix is a singleton *)

DEF Singleton AS [length,#1]|=;

