reserve x,y for object,X,Y for set,
  D for non empty set,
  i,j,k,l,m,n,m9,n9 for Nat,
  i0,j0,n0,m0 for non zero Nat,
  K for Field,
  a,b for Element of K,
  p for FinSequence of K,
  M for Matrix of n,K;
reserve A for (Matrix of D),
  A9 for Matrix of n9,m9,D,
  M9 for Matrix of n9, m9,K,
  nt,nt1,nt2 for Element of n-tuples_on NAT,
  mt,mt1 for Element of m -tuples_on NAT,
  M for Matrix of K;
reserve P,P1,P2,Q,Q1,Q2 for without_zero finite Subset of NAT;

theorem Th56:
  P c= P1 & Q c= Q1 & P2 = Sgm P1 " P & Q2 = Sgm Q1 " Q implies [:
rng Sgm P2,rng Sgm Q2:] c= Indices Segm(A,P1,Q1) & Segm(Segm(A,P1,Q1),P2,Q2) =
  Segm(A,P,Q)
proof
  assume that
A1: P c= P1 and
A2: Q c= Q1 and
A3: P2 = Sgm P1 " P and
A4: Q2 = Sgm Q1 " Q;
  set SA=Segm(A,P1,Q1);
A5: card Q=card Q2 by A2,A4,Lm2;
  card P=card P2 by A1,A3,Lm2;
  then reconsider SAA=Segm(SA,P2,Q2) as Matrix of card P,card Q,D by A5;
  set Sq2=Sgm Q2;
  set Sp2=Sgm P2;
  set Sq1=Sgm Q1;
  set Sp1=Sgm P1;
  set S=Segm(A,P,Q);
A7: rng Sq2=Q2 by FINSEQ_1:def 14;
  rng Sp2=P2 by FINSEQ_1:def 14;
  hence
A9: [:rng Sp2,rng Sq2:] c= Indices SA by A3,A4,A7,Th55;
  now
A10: Sq1*Sq2=Sgm Q by A2,A4,Th54;
    let i,j such that
A11: [i,j] in Indices S;
A12: [i,j] in Indices SAA by A11,MATRIX_0:26;
    then
A13: j in Seg width SAA by ZFMISC_1:87;
    reconsider Sp2i=Sp2.i,Sq2j=Sq2.j as Element of NAT by ORDINAL1:def 12;
A14: Sp1*Sp2=Sgm P by A1,A3,Th54;
    Indices SAA=[:Seg card P2,Seg width SAA:] by MATRIX_0:25;
    then
A15: i in Seg card P2 by A12,ZFMISC_1:87;
    then card P2 <> 0;
    then width SAA = card Q2 by Th1;
    then j in dom Sq2 by A13,FINSEQ_3:40;
    then
A16: Sq1.Sq2j=Sgm Q.j by A10,FUNCT_1:13;
    reconsider i9=i,j9=j as Element of NAT by ORDINAL1:def 12;
A17: [i9,j9] in Indices SAA by A11,MATRIX_0:26;
    then
A18: SAA*(i,j)=SA*(Sp2i,Sq2j) by Def1;
    i in dom Sp2 by A15,FINSEQ_3:40;
    then
A19: Sp1.Sp2i=Sgm P.i by A14,FUNCT_1:13;
    [Sp2i,Sq2j] in Indices SA by A9,A17,Th17;
    then SAA*(i,j)=A*(Sp1.Sp2i,Sq1.Sq2j) by A18,Def1;
    hence S*(i,j) = SAA*(i,j) by A11,A19,A16,Def1;
  end;
  hence thesis by MATRIX_0:27;
end;
