let S, T be non empty RelStr ; :: thesis: for D being Subset of S
for f being Function of S,T st ( ( ex_sup_of D,S & ex_sup_of f .: D,T ) or ( S is complete & S is antisymmetric & T is complete & T is antisymmetric ) ) & f is monotone holds
sup (f .: D) <= f . (sup D)
let D be Subset of S; :: thesis: for f being Function of S,T st ( ( ex_sup_of D,S & ex_sup_of f .: D,T ) or ( S is complete & S is antisymmetric & T is complete & T is antisymmetric ) ) & f is monotone holds
sup (f .: D) <= f . (sup D)
let f be Function of S,T; :: thesis: ( ( ( ex_sup_of D,S & ex_sup_of f .: D,T ) or ( S is complete & S is antisymmetric & T is complete & T is antisymmetric ) ) & f is monotone implies sup (f .: D) <= f . (sup D) )
assume ( ( ex_sup_of D,S & ex_sup_of f .: D,T ) or ( S is complete & S is antisymmetric & T is complete & T is antisymmetric ) ) ; :: thesis: ( not f is monotone or sup (f .: D) <= f . (sup D) )
then A1: ( ex_sup_of D,S & ex_sup_of f .: D,T ) by YELLOW_0:17;
assume A2: f is monotone ; :: thesis: sup (f .: D) <= f . (sup D)
D is_<=_than sup D by A1, YELLOW_0:def 9;
then f .: D is_<=_than f . (sup D) by A2, YELLOW_2:16;
hence sup (f .: D) <= f . (sup D) by A1, YELLOW_0:def 9; :: thesis: verum