reserve S for Subset of TOP-REAL 2,
  C,C1,C2 for non empty compact Subset of TOP-REAL 2,
  p,q for Point of TOP-REAL 2;
reserve i,j,k for Nat,
  t,r1,r2,s1,s2 for Real;
reserve D1 for non vertical non empty compact Subset of TOP-REAL 2,
  D2 for non horizontal non empty compact Subset of TOP-REAL 2,
  D for non vertical non horizontal non empty compact Subset of TOP-REAL 2;

theorem Th61:
  E-bound L~SpStSeq C = E-bound C
proof
  set S1 = LSeg(NW-corner C,NE-corner C), S2 = LSeg(NE-corner C,SE-corner C),
  S3 = LSeg(SE-corner C,SW-corner C), S4 = LSeg(SW-corner C,NW-corner C);
A1: (NW-corner C)`1 = W-bound C by EUCLID:52;
A2: W-bound C <= E-bound C by Th21;
A3: S3 \/ S4 is compact by COMPTS_1:10;
A4: (SW-corner C)`1 = W-bound C by EUCLID:52;
  then
A5: E-bound S4 = W-bound C by A1,Th57;
A6: (SE-corner C)`1 = E-bound C by EUCLID:52;
A7: (NE-corner C)`1 = E-bound C by EUCLID:52;
  then
A8: E-bound S2 = E-bound C by A6,Th57;
A9: E-bound(S1 \/ S2) = max(E-bound S1,E-bound S2) by Th50
    .= max(E-bound C,E-bound C) by A1,A7,A8,Th21,Th57
    .= E-bound C;
A10: L~SpStSeq C = (S1 \/ S2) \/ (S3 \/ S4) by Th41;
A11: S1 \/ S2 is compact by COMPTS_1:10;
  E-bound(S3 \/ S4) = max(E-bound S3,E-bound S4) by Th50
    .= max(W-bound C,E-bound C) by A6,A4,A5,Th21,Th57
    .= E-bound C by A2,XXREAL_0:def 10;
  hence E-bound L~SpStSeq C = max(E-bound C,E-bound C) by A10,A11,A9,A3,Th50
    .= E-bound C;
end;
