dom (R | X) c= X by RELAT_1:58;
hence for b1 being Relation st b1 = R | X holds
b1 is X -defined by RELAT_1:def 18; :: thesis: verum