theorem
  for A being non empty Subset of ExtREAL st
   for r being Element of ExtREAL st r in A
  holds +infty <= r holds A = {+infty}
proof
  let A be non empty Subset of ExtREAL such that
A1: for r being Element of ExtREAL st r in A holds +infty <= r;
  assume A <> {+infty};
  then ex a being Element of A st a <> +infty by SETFAM_1:49;
  hence contradiction by A1,XXREAL_0:4;
end;
