let C be compact Subset of (TOP-REAL 2); :: thesis: ( BDD C <> {} implies E-bound C >= E-bound (BDD C) )
set WC = E-bound (BDD C);
set WB = E-bound C;
set hal = ((E-bound C) + (E-bound (BDD C))) / 2;
assume that
A1: BDD C <> {} and
A2: E-bound (BDD C) > E-bound C ; :: thesis: contradiction
A3: ( ((E-bound C) + (E-bound (BDD C))) / 2 > E-bound C & ((E-bound C) + (E-bound (BDD C))) / 2 < E-bound (BDD C) ) by A2, XREAL_1:228;

now

per cases ( for q1 being Point of (TOP-REAL 2) st q1 in BDD C holds
q1 `1 <= ((E-bound C) + (E-bound (BDD C))) / 2 or ex q1 being Point of (TOP-REAL 2) st
( q1 in BDD C & q1 `1 > ((E-bound C) + (E-bound (BDD C))) / 2 ) ) ;

suppose for q1 being Point of (TOP-REAL 2) st q1 in BDD C holds
q1 `1 <= ((E-bound C) + (E-bound (BDD C))) / 2 ; :: thesis: contradiction

hence contradiction by A1, A2, Lm10, XREAL_1:228; :: thesis: verum

end;

suppose ex q1 being Point of (TOP-REAL 2) st
( q1 in BDD C & q1 `1 > ((E-bound C) + (E-bound (BDD C))) / 2 ) ; :: thesis: contradiction

then consider q1 being Point of (TOP-REAL 2) such that
A4: ( q1 in BDD C & q1 `1 > ((E-bound C) + (E-bound (BDD C))) / 2 ) ;
A5: q1 `1 > E-bound C by A3, A4, XXREAL_0:2;
set Q = |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]|;
set WH = east_halfline |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]|;
A6: |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| `1 = ((E-bound C) + (q1 `1 )) / 2 by EUCLID:56;
then ( q1 `2 = |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| `2 & q1 `1 > |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| `1 ) by A5, EUCLID:56, XREAL_1:228;
then A7: q1 in east_halfline |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| by TOPREAL1:def 13;
east_halfline |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| misses C

proof

assume (east_halfline |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]|) /\ C <> {} ; :: according to XBOOLE_0:def 7 :: thesis: contradiction
then consider y being set such that
A8: y in (east_halfline |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]|) /\ C by XBOOLE_0:def 1;
A9: ( y in east_halfline |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| & y in C ) by A8, XBOOLE_0:def 4;
reconsider y = y as Point of (TOP-REAL 2) by A8;
A10: ( y `1 >= |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| `1 & y `2 = |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| `2 ) by A9, TOPREAL1:def 13;
|[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| `1 > E-bound C by A5, A6, XREAL_1:228;
then y `1 > E-bound C by A10, XXREAL_0:2;
hence contradiction by A9, PSCOMP_1:71; :: thesis: verum

end;

then east_halfline |[(((E-bound C) + (q1 `1 )) / 2),(q1 `2 )]| c= UBD C by JORDAN2C:135;
then q1 in (BDD C) /\ (UBD C) by A4, A7, XBOOLE_0:def 4;
then BDD C meets UBD C by XBOOLE_0:4;
hence contradiction by JORDAN2C:28; :: thesis: verum

end;

end;

end;

hence contradiction ; :: thesis: verum