let X, Y, Z be non empty TopSpace; :: thesis: for f being continuous Function of Y,Z holds oContMaps (X,f) is monotone
let f be continuous Function of Y,Z; :: thesis: oContMaps (X,f) is monotone
let a, b be Element of (oContMaps (X,Y)); :: according to WAYBEL_1:def 2 :: thesis: ( not a <= b or (oContMaps (X,f)) . a <= (oContMaps (X,f)) . b )
( TopStruct(# the carrier of Y, the topology of Y #) = TopStruct(# the carrier of (), the topology of () #) & TopStruct(# the carrier of Z, the topology of Z #) = TopStruct(# the carrier of (), the topology of () #) ) by WAYBEL25:def 2;
then reconsider f9 = f as continuous Function of (),() by YELLOW12:36;
reconsider g1 = a, g2 = b as continuous Function of X,() by Th1;
set Xf = oContMaps (X,f);
reconsider fg1 = f9 * g1, fg2 = f9 * g2 as Function of X,() ;
g2 is continuous Function of X,Y by Th2;
then A1: (oContMaps (X,f)) . b = f9 * g2 by Def2;
assume a <= b ; :: thesis: (oContMaps (X,f)) . a <= (oContMaps (X,f)) . b
then A2: g1 <= g2 by Th3;
now :: thesis: for x being set st x in the carrier of X holds
ex a, b being Element of () st
( a = (f9 * g1) . x & b = (f9 * g2) . x & a <= b )
let x be set ; :: thesis: ( x in the carrier of X implies ex a, b being Element of () st
( a = (f9 * g1) . x & b = (f9 * g2) . x & a <= b ) )

assume x in the carrier of X ; :: thesis: ex a, b being Element of () st
( a = (f9 * g1) . x & b = (f9 * g2) . x & a <= b )

then reconsider x9 = x as Element of X ;
A3: (f9 * g2) . x9 = f9 . (g2 . x9) by FUNCT_2:15;
( ex a, b being Element of () st
( a = g1 . x9 & b = g2 . x9 & a <= b ) & (f9 * g1) . x9 = f9 . (g1 . x9) ) by ;
then (f9 * g1) . x9 <= (f9 * g2) . x9 by ;
hence ex a, b being Element of () st
( a = (f9 * g1) . x & b = (f9 * g2) . x & a <= b ) ; :: thesis: verum
end;
then A4: fg1 <= fg2 ;
g1 is continuous Function of X,Y by Th2;
then (oContMaps (X,f)) . a = f9 * g1 by Def2;
hence (oContMaps (X,f)) . a <= (oContMaps (X,f)) . b by A1, A4, Th3; :: thesis: verum