theorem Th15: :: MEASURE1:15

for X being set
for A being Subset of X ex F being sequence of (bool X) st rng F = {A}