ncpreim.lib
LIB "ncpreim.lib"; ring r = 0,x,dp; matrix M[2][3] = 0,1,2, 0,0,3; isUpperTriangular(M); ==> 1 isUpperTriangular(M,1); ==> 1 M[2,2] = 4; isUpperTriangular(M); ==> 1 isUpperTriangular(M,1); ==> 0