let n be Element of NAT ; :: thesis:
let C be compact non horizontal non vertical Subset of (TOP-REAL 2); :: thesis:
set x = S-max (L~ (Cage C,n));
set p = E-max (L~ (Cage C,n));
set f = Rotate (Cage C,n),(W-min (L~ (Cage C,n)));
A1: rng (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) = rng (Cage C,n) by FINSEQ_6:96, SPRECT_2:47;
A2: S-max (L~ (Cage C,n)) in rng (Cage C,n) by SPRECT_2:46;
A3: L~ (Cage C,n) = L~ (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) by REVROT_1:33;
E-max (L~ (Cage C,n)) in rng (Cage C,n) by SPRECT_2:50;
then A4: E-max (L~ (Cage C,n)) in rng (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) by FINSEQ_6:96, SPRECT_2:47;
A5: E-max (L~ (Cage C,n)) in rng (Cage C,n) by SPRECT_2:50;
Upper_Seq C,n = (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) -: (E-max (L~ (Cage C,n))) by JORDAN1E:def 1;
then A6: (Upper_Seq C,n) /. 1 = (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) /. 1 by A4, FINSEQ_5:47;
then A7: (E-min (L~ (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))))) .. (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) <= (S-max (L~ (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))))) .. (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) by A3, JORDAN1F:5, SPRECT_5:28;
(E-max (L~ (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))))) .. (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) < (E-min (L~ (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))))) .. (Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) by A6, A3, JORDAN1F:5, SPRECT_5:27;
then S-max (L~ (Cage C,n)) in rng ((Rotate (Cage C,n),(W-min (L~ (Cage C,n)))) :- (E-max (L~ (Cage C,n)))) by A1, A2, A5, A3, A7, FINSEQ_6:67, XXREAL_0:2;
hence A8: S-max (L~ (Cage C,n)) in rng (Lower_Seq C,n) by JORDAN1E:def 2; :: thesis:
len (Lower_Seq C,n) >= 2 by TOPREAL1:def 10;
then rng (Lower_Seq C,n) c= L~ (Lower_Seq C,n) by SPPOL_2:18;
hence S-max (L~ (Cage C,n)) in L~ (Lower_Seq C,n) by A8; :: thesis: