kill(all)$

van=facebook.com/LearningCalculus$

A:matrix([1,1,0],[1,2,1],[2,1,0]);

I:ident(3);

Z:I-I;

a:is(equal(A.A.A+3*A.A-I,Z));
b:is(equal(A.A.A-3*A.A-I,Z));
c:is(equal(A.A.A+2*A.A-I,Z));
d:is(equal(A.A.A-A.A+I,Z));