reserve x,y for Real,
  u,v,w for set,
  r for positive Real;

theorem Th56:
  for x being Real holds right_closed_halfline x is closed
  Subset of Sorgenfrey-line
proof
  let x be Real;
  set T = Sorgenfrey-line;
  reconsider A = left_open_halfline x as open Subset of T by TOPGEN_3:13;
  the carrier of T = REAL by TOPGEN_3:def 2;
  then (right_closed_halfline x)`` = A` by XXREAL_1:224,294;
  hence thesis;
end;
