reserve i,j,k,l,m,n for Nat,
  D for non empty set,
  f for FinSequence of D;
reserve X for compact Subset of TOP-REAL 2;
reserve r for Real;
reserve f for non trivial FinSequence of TOP-REAL 2;
reserve f for non constant standard special_circular_sequence;

theorem
  for i,j st i in dom f & j in dom f & mid(f,i,j) is S-Sequence_in_R2 &
f/.j = E-max L~f & E-max L~f <> NE-corner L~f holds mid(f,i,j)^<*NE-corner L~f
  *> is S-Sequence_in_R2
proof
  set p = NE-corner L~f;
  let i,j such that
A1: i in dom f and
A2: j in dom f and
A3: mid(f,i,j) is S-Sequence_in_R2 and
A4: f/.j = E-max L~f and
A5: E-max L~f <> NE-corner L~f;
A6: 1<=i & i<=len f by A1,FINSEQ_3:25;
A7: (mid(f,i,j))/.len mid(f,i,j) = E-max L~f by A1,A2,A4,Th9;
  then
A8: p`1 = ((mid(f,i,j))/.len mid(f,i,j))`1 by PSCOMP_1:45;
A9: 1<=j & j<=len f by A2,FINSEQ_3:25;
  len mid(f,i,j) >= 2 by A3,TOPREAL1:def 8;
  then
  LSeg(NE-corner L~f, E-max L~f)/\L~f = {E-max L~f} & E-max L~f in L~mid(f
  ,i,j ) by A7,JORDAN3:1,PSCOMP_1:51;
  then
  LSeg(p, (mid(f,i,j))/.len mid(f,i,j)) /\ L~mid(f,i,j) = {(mid(f,i,j))/.
  len mid(f,i,j)} by A7,A6,A9,JORDAN4:35,ZFMISC_1:124;
  hence thesis by A3,A5,A7,A8,Th61;
end;
