involut.lib
LIB "involut.lib"; def A = makeUsl(2); setring A; map I = A,-e,-f,-h; //correct antiauto involution isAntiEndo(I); ==> 1 map J = A,3*e,1/3*f,-h; // antiauto but not involution isAntiEndo(J); ==> 1 map K = A,f,e,-h; // not antiendo isAntiEndo(K); ==> 0