theorem :: PBOOLE:133

for I being set
for X, Y being ManySortedSet of I st X is V8() & X [= Y holds
Y is V8()