let X be non empty set ; :: thesis: for f being Function of X,REAL st f is with_max holds
- f is with_min

let f be Function of X,REAL; :: thesis: ( f is with_max implies - f is with_min )
assume that
A1: f .: X is bounded_above and
A2: upper_bound (f .: X) in f .: X ; :: according to MEASURE6:def 8,MEASURE6:def 16 :: thesis: - f is with_min
A3: -- (f .: X) = (- f) .: X by Th40;
hence (- f) .: X is bounded_below by A1, Lm1; :: according to MEASURE6:def 9,MEASURE6:def 17 :: thesis: lower_bound ((- f) .: X) in (- f) .: X
then A4: lower_bound ((- f) .: X) = - (upper_bound (-- (-- (f .: X)))) by A3, Th17
.= - (upper_bound (f .: X)) ;
- (upper_bound (f .: X)) in -- (f .: X) by A2, MEMBER_1:11;
hence lower_bound ((- f) .: X) in (- f) .: X by A4, Th40; :: thesis: verum