theorem Th5: :: TAXONOM1:5

for X being set
for R being Relation of X st R is_reflexive_in X holds
R [*] is_reflexive_in X