(left_open_halfline r) ` = right_closed_halfline r by XXREAL_1:224, XXREAL_1:290;
hence halfline r is open by RCOMP_1:def 5; :: thesis: verum