reserve a, b, r, s for Real;

theorem Th11:
  lower_bound right_closed_halfline(a) = a
proof
  set X = right_closed_halfline(a);
A1: for s st 0 < s ex r st r in X & r < a+s
  proof
    let s;
    assume 0 < s;
    then
A2: a+0 < a+s by XREAL_1:6;
    take a;
    thus a in X by XXREAL_1:236;
    thus thesis by A2;
  end;
  for r st r in X holds a <= r by XXREAL_1:236;
  hence thesis by A1,SEQ_4:def 2;
end;
