set B = {} ;
defpred S₁[ object , object ] means for x, y being set st x in COM (S,M) & x = $1 & y = $2 holds
for B being set st B in S holds
for C being thin of M st x = B \/ C holds
y = M . B;
A1: ex B1 being set st
( B1 in S & {} c= B1 & M . B1 = 0. )

take {} ; :: thesis:
thus ( {} in S & {} c= {} & M . {} = 0. ) by PROB_1:4, VALUED_0:def 19; :: thesis:

end;

{} is Subset of X by XBOOLE_1:2;
then reconsider C = {} as thin of M by A1, Def2;
A2: for x being object st x in COM (S,M) holds
ex y being object st
( y in ExtREAL & S₁[x,y] )

let x be object ; :: thesis:
assume x in COM (S,M) ; :: thesis:
then consider B being set such that
A3: ( B in S & ex C being thin of M st x = B \/ C ) by Def3;
take M . B ; :: thesis:
thus ( M . B in ExtREAL & S₁[x,M . B] ) by A3, Th19; :: thesis:

end;

consider comM being Function of (COM (S,M)),ExtREAL such that
A4: for x being object st x in COM (S,M) holds
S₁[x,comM . x] from FUNCT_2:sch 1(A2);
A5: for B being set st B in S holds
for C being thin of M holds comM . (B \/ C) = M . B

let B be set ; :: thesis:
assume A6: B in S ; :: thesis:
let C be thin of M; :: thesis:
B \/ C in COM (S,M) by A6, Def3;
hence comM . (B \/ C) = M . B by A4, A6; :: thesis:

end;

A7: for F being Sep_Sequence of (COM (S,M)) holds SUM (comM * F) = comM . (union (rng F))

let F be Sep_Sequence of (COM (S,M)); :: thesis:
consider G being sequence of S such that
A8: for n being Element of NAT holds G . n in MeasPart (F . n) by Th15;
consider H being sequence of (bool X) such that
A9: for n being Element of NAT holds H . n = (F . n) \ (G . n) by Th16;
A10: for n being Element of NAT holds
( G . n in S & G . n c= F . n & (F . n) \ (G . n) is thin of M )

let n be Element of NAT ; :: thesis:
G . n in MeasPart (F . n) by A8;
hence ( G . n in S & G . n c= F . n & (F . n) \ (G . n) is thin of M ) by Def4; :: thesis:

end;

for n being Element of NAT holds H . n is thin of M

let n be Element of NAT ; :: thesis:
(F . n) \ (G . n) is thin of M by A10;
hence H . n is thin of M by A9; :: thesis:

end;

then consider L being sequence of S such that
A11: for n being Element of NAT holds
( H . n c= L . n & M . (L . n) = 0. ) by Th17;
A12: for n, m being object st n <> m holds
G . n misses G . m

let n, m be object ; :: thesis:
A13: dom F = NAT by FUNCT_2:def 1
.= dom G by FUNCT_2:def 1 ;
for n being object holds G . n c= F . n

let n be object ; :: thesis:

suppose n in dom F ; :: thesis:

hence G . n c= F . n by A10; :: thesis:

end;

suppose A14: not n in dom F ; :: thesis:

then F . n = {} by FUNCT_1:def 2
.= G . n by A13, A14, FUNCT_1:def 2 ;
hence G . n c= F . n ; :: thesis:

end;

end;

end;

then A15: ( G . n c= F . n & G . m c= F . m ) ;
assume n <> m ; :: thesis:
then F . n misses F . m by PROB_2:def 2;
then (F . n) /\ (F . m) = {} ;
then (G . n) /\ (G . m) = {} by A15, XBOOLE_1:3, XBOOLE_1:27;
hence G . n misses G . m ; :: thesis:

end;

consider B being set such that
A16: B = union (rng G) ;
A17: dom F = NAT by FUNCT_2:def 1;
A18: B c= union (rng F)

let x be object ; :: according to TARSKI:def 3 :: thesis:
assume x in B ; :: thesis:
then consider Z being set such that
A19: x in Z and
A20: Z in rng G by A16, TARSKI:def 4;
dom G = NAT by FUNCT_2:def 1;
then consider n being object such that
A21: n in NAT and
A22: Z = G . n by A20, FUNCT_1:def 3;
reconsider n = n as Element of NAT by A21;
set P = F . n;
A23: G . n c= F . n by A10;
ex P being set st
( P in rng F & x in P )

take F . n ; :: thesis:
thus ( F . n in rng F & x in F . n ) by A17, A19, A22, A23, FUNCT_1:def 3; :: thesis:

end;

hence x in union (rng F) by TARSKI:def 4; :: thesis:

end;

A24: ex C being thin of M st union (rng F) = B \/ C

for A being set st A in rng L holds
A is measure_zero of M

let A be set ; :: thesis:
assume A25: A in rng L ; :: thesis:
dom L = NAT by FUNCT_2:def 1;
then A26: ex n being object st
( n in NAT & A = L . n ) by A25, FUNCT_1:def 3;
rng L c= S by MEASURE2:def 1;
then reconsider A = A as Element of S by A25;
M . A = 0. by A11, A26;
hence A is measure_zero of M by MEASURE1:def 7; :: thesis:

end;

then union (rng L) is measure_zero of M by MEASURE2:14;
then A27: M . (union (rng L)) = 0. by MEASURE1:def 7;
set C = (union (rng F)) \ B;
A28: union (rng F) = ((union (rng F)) \ B) \/ ((union (rng F)) /\ B) by XBOOLE_1:51
.= B \/ ((union (rng F)) \ B) by A18, XBOOLE_1:28 ;
reconsider C = (union (rng F)) \ B as Subset of X ;
A29: C c= union (rng H)

let x be object ; :: according to TARSKI:def 3 :: thesis:
assume A30: x in C ; :: thesis:
then x in union (rng F) by XBOOLE_0:def 5;
then consider Z being set such that
A31: x in Z and
A32: Z in rng F by TARSKI:def 4;
consider n being object such that
A33: n in NAT and
A34: Z = F . n by A17, A32, FUNCT_1:def 3;
reconsider n = n as Element of NAT by A33;
A35: not x in union (rng G) by A16, A30, XBOOLE_0:def 5;
not x in G . n

dom G = NAT by FUNCT_2:def 1;
then A36: G . n in rng G by FUNCT_1:def 3;
assume x in G . n ; :: thesis:
hence contradiction by A35, A36, TARSKI:def 4; :: thesis:

end;

then A37: x in (F . n) \ (G . n) by A31, A34, XBOOLE_0:def 5;
ex Z being set st
( x in Z & Z in rng H )

take H . n ; :: thesis:
dom H = NAT by FUNCT_2:def 1;
hence ( x in H . n & H . n in rng H ) by A9, A37, FUNCT_1:def 3; :: thesis:

end;

hence x in union (rng H) by TARSKI:def 4; :: thesis:

end;

union (rng H) c= union (rng L)

let x be object ; :: according to TARSKI:def 3 :: thesis:
assume x in union (rng H) ; :: thesis:
then consider Z being set such that
A38: x in Z and
A39: Z in rng H by TARSKI:def 4;
dom H = NAT by FUNCT_2:def 1;
then consider n being object such that
A40: n in NAT and
A41: Z = H . n by A39, FUNCT_1:def 3;
reconsider n = n as Element of NAT by A40;
n in dom L by A40, FUNCT_2:def 1;
then A42: L . n in rng L by FUNCT_1:def 3;
H . n c= L . n by A11;
hence x in union (rng L) by A38, A41, A42, TARSKI:def 4; :: thesis:

end;

then C c= union (rng L) by A29;
then C is thin of M by A27, Def2;
then consider C being thin of M such that
A43: union (rng F) = B \/ C by A28;
take C ; :: thesis:
thus union (rng F) = B \/ C by A43; :: thesis:

end;

reconsider G = G as Sep_Sequence of S by A12, PROB_2:def 2;
A44: for n being Element of NAT holds comM . (F . n) = M . (G . n)

let n be Element of NAT ; :: thesis:
(F . n) \ (G . n) is thin of M by A10;
then consider C being thin of M such that
A45: C = (F . n) \ (G . n) ;
F . n = ((F . n) /\ (G . n)) \/ ((F . n) \ (G . n)) by XBOOLE_1:51
.= (G . n) \/ C by A10, A45, XBOOLE_1:28 ;
hence comM . (F . n) = M . (G . n) by A5; :: thesis:

end;

A46: for n being Element of NAT holds (comM * F) . n = (M * G) . n

let n be Element of NAT ; :: thesis:
(comM * F) . n = comM . (F . n) by FUNCT_2:15
.= M . (G . n) by A44
.= (M * G) . n by FUNCT_2:15 ;
hence (comM * F) . n = (M * G) . n ; :: thesis:

end;

then for n being Element of NAT holds (M * G) . n <= (comM * F) . n ;
then A47: SUM (M * G) <= SUM (comM * F) by SUPINF_2:43;
for n being Element of NAT holds (comM * F) . n <= (M * G) . n by A46;
then SUM (comM * F) <= SUM (M * G) by SUPINF_2:43;
then ( SUM (M * G) = M . (union (rng G)) & SUM (comM * F) = SUM (M * G) ) by A47, MEASURE1:def 6, XXREAL_0:1;
hence SUM (comM * F) = comM . (union (rng F)) by A5, A16, A24; :: thesis:

end;

A48: for x being Element of COM (S,M) holds 0. <= comM . x

let x be Element of COM (S,M); :: thesis:
consider B being set such that
A49: B in S and
A50: ex C being thin of M st x = B \/ C by Def3;
reconsider B = B as Element of S by A49;
comM . x = M . B by A4, A50;
hence 0. <= comM . x by MEASURE1:def 2; :: thesis:

end;

{} = {} \/ C ;
then comM . {} = M . {} by A5, PROB_1:4
.= 0. by VALUED_0:def 19 ;
then reconsider comM = comM as sigma_Measure of (COM (S,M)) by A48, A7, MEASURE1:def 2, MEASURE1:def 6, VALUED_0:def 19;
take comM ; :: thesis:
thus for B being set st B in S holds
for C being thin of M holds comM . (B \/ C) = M . B by A5; :: thesis: