:: deftheorem Def8 defines Top ROBBINS1:def 8 :
for L being non empty join-commutative join-associative Huntington join-idempotent ComplLLattStr
for b2 being M3( the carrier of b1) holds
( b2 = Top L iff ex a being Element of L st b2 = a + (a `) );