reserve T for non empty RelStr,
  a for Element of T;
reserve a for set;
reserve P for non empty POSet_set,
  A,B for Element of P;

theorem Th11:
  for A,B be RelStr holds MonFuncs (A,B) c= Funcs (the carrier of
  A,the carrier of B)
proof
  let A,B be RelStr;
  let a be object;
  assume a in MonFuncs (A,B);
  then ex f be Function of A, B st a = f & f in Funcs (the carrier of A, the
  carrier of B) & f is monotone by Def6;
  hence thesis;
end;
