| LIB "nchomolog.lib";
def A = makeUsl2(); setring A;
poly p = 4*e*f + h^2-2*h; // generator of the center
matrix M[2][2] = p, p^2-7,0,p*(p+1);
is_cenBimodule(M); // M is centralizing
==> 1
matrix N[2][2] = p, e*f,h,p*(p+1);
is_cenBimodule(N); // N is not centralizing
==> 0
|