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 Th58:
  W-bound L~SpStSeq C = W-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: (SE-corner C)`1 = E-bound C by EUCLID:52;
A2: W-bound C <= E-bound C by Th21;
A3: S3 \/ S4 is compact by COMPTS_1:10;
A4: (NE-corner C)`1 = E-bound C by EUCLID:52;
  then
A5: W-bound S2 = E-bound C by A1,Th54;
A6: (SW-corner C)`1 = W-bound C by EUCLID:52;
A7: (NW-corner C)`1 = W-bound C by EUCLID:52;
  then
A8: W-bound S4 = W-bound C by A6,Th54;
A9: W-bound(S3 \/ S4) = min(W-bound S3,W-bound S4) by Th47
    .= min(W-bound C,W-bound C) by A1,A6,A8,Th21,Th54
    .= W-bound C;
A10: L~SpStSeq C = (S1 \/ S2) \/ (S3 \/ S4) by Th41;
A11: S1 \/ S2 is compact by COMPTS_1:10;
  W-bound(S1 \/ S2) = min(W-bound S1,W-bound S2) by Th47
    .= min(E-bound C,W-bound C) by A7,A4,A5,Th21,Th54
    .= W-bound C by A2,XXREAL_0:def 9;
  hence W-bound L~SpStSeq C = min(W-bound C,W-bound C) by A10,A11,A3,A9,Th47
    .= W-bound C;
end;
