let M1, M2 be Matrix of n,K; :: thesis: ( ( for i, j being Nat st [i,j] in Indices A holds
M1 * (i,j) = - (A * (i,j)) ) & ( for i, j being Nat st [i,j] in Indices A holds
M2 * (i,j) = - (A * (i,j)) ) implies M1 = M2 )
assume that
A17: for i, j being Nat st [i,j] in Indices A holds
M1 * (i,j) = - (A * (i,j)) and
A18: for i, j being Nat st [i,j] in Indices A holds
M2 * (i,j) = - (A * (i,j)) ; :: thesis: M1 = M2

A19: now

let i, j be Nat; :: thesis: ( [i,j] in Indices A implies M1 * (i,j) = M2 * (i,j) )
assume A20: [i,j] in Indices A ; :: thesis: M1 * (i,j) = M2 * (i,j)
then M1 * (i,j) = - (A * (i,j)) by A17;
hence M1 * (i,j) = M2 * (i,j) by A18, A20; :: thesis: verum

end;

Indices M1 = [:(Seg n),(Seg n):] by Th25;
then Indices A = Indices M1 by Th25;
hence M1 = M2 by A19, Th28; :: thesis: verum