:: deftheorem Def2 defines union MBOOLEAN:def 2 :
for I being set
for A, b3 being ManySortedSet of I holds
( b3 = union A iff for i being object st i in I holds
b3 . i = union (A . i) );