A1: (right_open_halfline r) ` = left_closed_halfline r by XXREAL_1:224, XXREAL_1:296;
thus right_open_halfline r is open by A1, RCOMP_1:def 5; :: thesis: verum