theorem Th8: :: ORDERS_2:8

for A being non empty reflexive RelStr
for a being Element of A holds {a} is Chain of A