reserve x,y,z,r,s for ExtReal;
reserve A,B for ext-real-membered set;

theorem
  {-infty} is bounded_above
proof
  take 0;
  let x;
  assume x in {-infty};
  hence thesis by TARSKI:def 1;
end;
