
theorem Th14:
  for T being non empty TopSpace holds for f being Function of T,
  R^1 holds for P being Subset of T holds P <> {} & P is compact & f is
continuous implies ex x1 being Point of T st x1 in P & f.x1 = upper_bound(f.:P)
proof
  let T be non empty TopSpace;
  let f be Function of T,R^1;
  let P be Subset of T;
  assume P <> {} & P is compact & f is continuous;
  then consider x1,x2 being Point of T such that
A1: x1 in P and
  x2 in P and
A2: f.x1 = upper_bound [#](f.:P) and
  f.x2 = lower_bound [#](f.:P) by Lm1;
  take x1;
  thus thesis by A1,A2;
end;
