let f be PartFunc of REAL,REAL; :: thesis: ( dom f <> {} & dom f is compact & f | (dom f) is continuous implies ex x1, x2 being Real st
( x1 in dom f & x2 in dom f & f . x1 = upper_bound (rng f) & f . x2 = lower_bound (rng f) ) )

assume ( dom f <> {} & dom f is compact & f | (dom f) is continuous ) ; :: thesis: ex x1, x2 being Real st
( x1 in dom f & x2 in dom f & f . x1 = upper_bound (rng f) & f . x2 = lower_bound (rng f) )

then A1: ( rng f <> {} & rng f is compact ) by ;
then consider x being Element of REAL such that
A2: ( x in dom f & upper_bound (rng f) = f . x ) by ;
take x ; :: thesis: ex x2 being Real st
( x in dom f & x2 in dom f & f . x = upper_bound (rng f) & f . x2 = lower_bound (rng f) )

consider y being Element of REAL such that
A3: ( y in dom f & lower_bound (rng f) = f . y ) by ;
take y ; :: thesis: ( x in dom f & y in dom f & f . x = upper_bound (rng f) & f . y = lower_bound (rng f) )
thus ( x in dom f & y in dom f & f . x = upper_bound (rng f) & f . y = lower_bound (rng f) ) by A2, A3; :: thesis: verum