let C be non empty compact Subset of (TOP-REAL 2); :: thesis: S-max (L~ (SpStSeq C)) = SE-corner C
set X = L~ (SpStSeq C);
set S = S-most (L~ (SpStSeq C));
A1: S-most (L~ (SpStSeq C)) = LSeg ((SW-corner C),(SE-corner C)) by Th68;
A2: W-bound C <= E-bound C by Th21;
upper_bound (proj1 | (S-most (L~ (SpStSeq C)))) = upper_bound (rng (proj1 | (S-most (L~ (SpStSeq C))))) by RELSET_1:22
.= upper_bound (proj1 .: (S-most (L~ (SpStSeq C)))) by RELAT_1:115
.= upper_bound [.(W-bound C),(E-bound C).] by A1, Th73
.= E-bound C by A2, JORDAN5A:19 ;
hence S-max (L~ (SpStSeq C)) = SE-corner C by Th59; :: thesis: verum