let X be non empty set ; :: thesis: for S being SigmaField of X
for M being sigma_Measure of S
for f being PartFunc of X,ExtREAL
for A being Element of S st ex E being Element of S st
( E = dom f & f is_measurable_on E ) & M . A = 0 holds
f | A is_integrable_on M

let S be SigmaField of X; :: thesis: for M being sigma_Measure of S
for f being PartFunc of X,ExtREAL
for A being Element of S st ex E being Element of S st
( E = dom f & f is_measurable_on E ) & M . A = 0 holds
f | A is_integrable_on M

let M be sigma_Measure of S; :: thesis: for f being PartFunc of X,ExtREAL
for A being Element of S st ex E being Element of S st
( E = dom f & f is_measurable_on E ) & M . A = 0 holds
f | A is_integrable_on M

let f be PartFunc of X,ExtREAL ; :: thesis: for A being Element of S st ex E being Element of S st
( E = dom f & f is_measurable_on E ) & M . A = 0 holds
f | A is_integrable_on M

let A be Element of S; :: thesis: ( ex E being Element of S st
( E = dom f & f is_measurable_on E ) & M . A = 0 implies f | A is_integrable_on M )

assume A1: ( ex E being Element of S st
( E = dom f & f is_measurable_on E ) & M . A = 0 ) ; :: thesis: f | A is_integrable_on M
then consider E being Element of S such that
B2: ( E = dom f & f is_measurable_on E ) ;
A2: ( dom f = dom (max+ f) & dom f = dom (max- f) ) by MESFUNC2:def 2, MESFUNC2:def 3;
A3: ( max+ f is nonnegative & max- f is nonnegative ) by Lm1;
then A4: integral+ M,((max+ f) | A) = 0 by A1, A2, MESFUNC2:27, MESFUNC5:88;
A5: integral+ M,((max- f) | A) = 0 by A1, A2, A3, MESFUNC2:28, MESFUNC5:88;
B5: f is_measurable_on A /\ E by B2, MESFUNC1:34, XBOOLE_1:17;
(dom f) /\ (A /\ E) = A /\ E by B2, XBOOLE_1:17, XBOOLE_1:28;
then B7: f | (A /\ E) is_measurable_on A /\ E by B5, MESFUNC5:48;
B9: dom (f | A) = (dom f) /\ A by RELAT_1:90;
C1: f | (A /\ E) = (f | A) /\ (f | E) by RELAT_1:108
.= (f | A) /\ f by B2, RELAT_1:98
.= f | A by RELAT_1:88, XBOOLE_1:28 ;
( integral+ M,(max+ (f | A)) < +infty & integral+ M,(max- (f | A)) < +infty ) by A4, A5, MESFUNC5:34;
hence f | A is_integrable_on M by C1, B7, B2, B9, MESFUNC5:def 17; :: thesis: verum