let X, Y be non empty compact Subset of (TOP-REAL 2); :: thesis: ( X c= Y & S-max Y in X implies S-max X = S-max Y )
assume that
A1: X c= Y and
A2: S-max Y in X ; :: thesis: S-max X = S-max Y
A3: S-bound X >= S-bound Y by A1, PSCOMP_1:131;
A4: ( (S-max X) `2 = S-bound X & (S-max Y) `2 = S-bound Y ) by EUCLID:56;
A5: S-bound X <= (S-max Y) `2 by A2, PSCOMP_1:71;
then A6: S-bound X = S-bound Y by A3, A4, XXREAL_0:1;
S-max Y in S-most X by A2, A3, A4, A5, SPRECT_2:15, XXREAL_0:1;
then A7: (S-max X) `1 >= (S-max Y) `1 by PSCOMP_1:118;
S-max X in X by SPRECT_1:14;
then S-max X in S-most Y by A1, A3, A4, A5, SPRECT_2:15, XXREAL_0:1;
then (S-max X) `1 <= (S-max Y) `1 by PSCOMP_1:118;
then (S-max X) `1 = (S-max Y) `1 by A7, XXREAL_0:1;
hence S-max X = S-max Y by A4, A6, TOPREAL3:11; :: thesis: verum