reserve r, s, t, g for Real,

          r3, r1, r2, q3, p3 for Real;
reserve T for TopStruct,
  f for RealMap of T;
reserve p for Point of TOP-REAL 2,
  P for Subset of TOP-REAL 2,
  Z for non empty Subset of TOP-REAL 2,
  X for non empty compact Subset of TOP-REAL 2;

theorem Th34:
  W-min X in W-most X & W-max X in W-most X
proof
  set p2W = (proj2|W-most X), c = the carrier of (TOP-REAL 2)|W-most X;
A1: (SW-corner X)`1 = W-bound X & (NW-corner X)`1 = W-bound X by EUCLID:52;
  p2W.:c is with_min by MEASURE6:def 13;
  then lower_bound (p2W.:c) in p2W.:c;
  then consider p being object such that
A2: p in c and
  p in c and
A3: lower_bound (p2W.:c) = p2W.p by FUNCT_2:64;
A4: c = W-most X by PRE_TOPC:8;
  then reconsider p as Point of TOP-REAL 2 by A2;
  p in LSeg(SW-corner X, NW-corner X) by A4,A2,XBOOLE_0:def 4;
  then
A5: p`1 = W-bound X by A1,GOBOARD7:5;
A6: (SW-corner X)`1 = W-bound X & (NW-corner X)`1 = W-bound X by EUCLID:52;
  p2W.p = p`2 by A4,A2,Th23;
  hence W-min X in W-most X by A4,A2,A3,A5,EUCLID:53;
  p2W.:c is with_max by MEASURE6:def 12;
  then upper_bound (p2W.:c) in p2W.:c;
  then consider p being object such that
A7: p in c and
  p in c and
A8: upper_bound (p2W.:c) = p2W.p by FUNCT_2:64;
  reconsider p as Point of TOP-REAL 2 by A4,A7;
  p in LSeg(SW-corner X, NW-corner X) by A4,A7,XBOOLE_0:def 4;
  then
A9: p`1 = W-bound X by A6,GOBOARD7:5;
  p2W.p = p`2 by A4,A7,Th23;
  hence thesis by A4,A7,A8,A9,EUCLID:53;
end;
