for L being antisymmetric RelStr
for a being Element of L
for X being set holds
( a = "\/" (X,L) & ex_sup_of X,L iff ( a is_>=_than X & ( for b being Element of L st b is_>=_than X holds
a <= b ) ) )