"Testing minor"

clear
A = ((A11,A12),(A21,A22))
check(minor(A,1,1) == A22)
check(minor(A,1,2) == A21)
check(minor(A,2,1) == A12)
check(minor(A,2,2) == A11)
A = ((A11,A12,A13),(A21,A22,A23),(A31,A32,A33))
check(minor(A,1,1) == A22 A33 - A23 A32)
check(minor(A,1,2) == A21 A33 - A23 A31)
check(minor(A,1,3) == A21 A32 - A22 A31)
check(minor(A,2,1) == A12 A33 - A13 A32)
check(minor(A,2,2) == A11 A33 - A13 A31)
check(minor(A,2,3) == A11 A32 - A12 A31)
check(minor(A,3,1) == A12 A23 - A13 A22)
check(minor(A,3,2) == A11 A23 - A13 A21)
check(minor(A,3,3) == A11 A22 - A12 A21)

A = ((A11,A12,A13),(A21,A22,A23),(A31,A32,A33))
B = ((0,0,0),(0,0,0),(0,0,0))
for(i,1,3,for(j,1,3,B[j,i] = (-1)^(i + j) minor(A,i,j)))
check(B == adj(A))
