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 Th64:
  for i,j st i in dom f & j in dom f & mid(f,i,j) is
S-Sequence_in_R2 & f/.j = S-max L~f & S-max L~f <> SE-corner L~f holds mid(f,i,
  j)^<*SE-corner L~f*> is S-Sequence_in_R2
proof
  set p = SE-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 = S-max L~f and
A5: S-max L~f <> SE-corner L~f;
A6: 1<=i & i<=len f by A1,FINSEQ_3:25;
A7: (mid(f,i,j))/.len mid(f,i,j) = S-max L~f by A1,A2,A4,Th9;
  then
A8: p`2 = ((mid(f,i,j))/.len mid(f,i,j))`2 by PSCOMP_1:53;
A9: 1<=j & j<=len f by A2,FINSEQ_3:25;
  len mid(f,i,j) >= 2 by A3,TOPREAL1:def 8;
  then
  LSeg(SE-corner L~f, S-max L~f)/\L~f = {S-max L~f} & S-max L~f in L~mid(f
  ,i,j ) by A7,JORDAN3:1,PSCOMP_1:59;
  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;
