theorem
  seq is bounded_above nonnegative implies upper_bound seq >= 0
proof
  assume
A1: seq is bounded_above nonnegative;
  then
A2: seq.0 <= upper_bound seq by Th7;
  0 <= seq.0 by A1;
  hence thesis by A2;
end;
