theorem
  seq is bounded_below iff -seq is bounded_above
proof
  - -seq = seq;
  hence thesis;
end;
