theorem
  for f being PartFunc of REAL,REAL st f|A is bounded_above holds f
  ||A|A is bounded_above;
