reserve r, s, t, g for Real,

          r3, r1, r2, q3, p3 for Real;

theorem Th4:
  for T being non empty TopSpace, f being bounded_above RealMap of
  T for p being Point of T holds f.p <= upper_bound f
proof
  let T be non empty TopSpace, f be bounded_above RealMap of T;
  set fc = (f.:the carrier of T);
  let p be Point of T;
  fc is bounded_above & f.p in fc by FUNCT_2:35,MEASURE6:def 11;
  hence thesis by SEQ_4:def 1;
end;
