theorem Th15:
  for f be FinSequence of K, i,j st i in Seg n & j in Seg n holds
  Delete(M,i,j) = Delete(RLine(M,i,f),i,j)
proof
  let f be FinSequence of K, i,j such that
A1: i in Seg n and
A2: j in Seg n;
A3: Delete(M,i,j) = Deleting(M,i,j) by A1,A2,Def1;
A4: Delete(RLine(M,i,f),i,j) = Deleting(RLine(M,i,f),i,j) by A1,A2,Def1;
  reconsider f9=f as Element of (the carrier of K)* by FINSEQ_1:def 11;
  reconsider I=i as Element of NAT by ORDINAL1:def 12;
  per cases;
  suppose
    len f=width M;
    then RLine(M,I,f)=Replace(M,i,f9) by MATRIX11:29;
    hence thesis by A3,A4,COMPUT_1:3;
  end;
  suppose
    len f<>width M;
    hence thesis by MATRIX11:def 3;
  end;
end;
