let X, Y be non empty compact Subset of (TOP-REAL 2); :: thesis: ( X c= Y & S-min Y in X implies S-min X = S-min Y )
assume that
A1: X c= Y and
A2: S-min Y in X ; :: thesis: S-min X = S-min Y
A3: S-bound X <= (S-min Y) `2 by A2, PSCOMP_1:24;
A4: (S-min X) `2 = S-bound X by EUCLID:52;
A5: (S-min Y) `2 = S-bound Y by EUCLID:52;
A6: S-bound X >= S-bound Y by A1, PSCOMP_1:68;
then A7: S-bound X = S-bound Y by A5, A3, XXREAL_0:1;
S-min Y in S-most X by A2, A6, A5, A3, SPRECT_2:11, XXREAL_0:1;
then A8: (S-min X) `1 <= (S-min Y) `1 by PSCOMP_1:55;
S-min X in X by SPRECT_1:12;
then S-min X in S-most Y by A1, A6, A4, A5, A3, SPRECT_2:11, XXREAL_0:1;
then (S-min X) `1 >= (S-min Y) `1 by PSCOMP_1:55;
then (S-min X) `1 = (S-min Y) `1 by A8, XXREAL_0:1;
hence S-min X = S-min Y by A4, A5, A7, TOPREAL3:6; :: thesis: verum