let D be non empty set ; :: thesis: for j being Nat
for A being Matrix of D
for Q, P being finite without_zero Subset of NAT st j in Seg (card Q) & P c= Seg (len A) holds
Col ((Segm (A,P,Q)),j) = (Col (A,((Sgm Q) . j))) * (Sgm P)

let j be Nat; :: thesis: for A being Matrix of D
for Q, P being finite without_zero Subset of NAT st j in Seg (card Q) & P c= Seg (len A) holds
Col ((Segm (A,P,Q)),j) = (Col (A,((Sgm Q) . j))) * (Sgm P)

let A be Matrix of D; :: thesis: for Q, P being finite without_zero Subset of NAT st j in Seg (card Q) & P c= Seg (len A) holds
Col ((Segm (A,P,Q)),j) = (Col (A,((Sgm Q) . j))) * (Sgm P)

let Q, P be finite without_zero Subset of NAT; :: thesis: ( j in Seg (card Q) & P c= Seg (len A) implies Col ((Segm (A,P,Q)),j) = (Col (A,((Sgm Q) . j))) * (Sgm P) )
assume that
A1: j in Seg (card Q) and
A2: P c= Seg (len A) ; :: thesis: Col ((Segm (A,P,Q)),j) = (Col (A,((Sgm Q) . j))) * (Sgm P)
rng (Sgm P) = P by A2, FINSEQ_1:def 13;
hence Col ((Segm (A,P,Q)),j) = (Col (A,((Sgm Q) . j))) * (Sgm P) by A1, A2, Th28; :: thesis: verum