:: deftheorem SingleFunc defines singleton ROUGHS_5:def 2 :
for R being non empty set
for b2 being Function of R,(bool R) holds
( b2 = singleton R iff for x being Element of R holds b2 . x = {x} );