let A be non empty closed_interval Subset of REAL; for f, g being Function of REAL,REAL st f is_integrable_on A & f | A is bounded & g is_integrable_on A & g | A is bounded holds
( max (f,g) is_integrable_on A & (max (f,g)) | A is bounded & integral ((max (f,g)),A) = (1 / 2) * (((integral (f,A)) + (integral (g,A))) + (integral ((abs (f - g)),A))) )
let f, g be Function of REAL,REAL; ( f is_integrable_on A & f | A is bounded & g is_integrable_on A & g | A is bounded implies ( max (f,g) is_integrable_on A & (max (f,g)) | A is bounded & integral ((max (f,g)),A) = (1 / 2) * (((integral (f,A)) + (integral (g,A))) + (integral ((abs (f - g)),A))) ) )
assume that
A1A:
( f is_integrable_on A & f | A is bounded )
and
A2A:
( g is_integrable_on A & g | A is bounded )
; ( max (f,g) is_integrable_on A & (max (f,g)) | A is bounded & integral ((max (f,g)),A) = (1 / 2) * (((integral (f,A)) + (integral (g,A))) + (integral ((abs (f - g)),A))) )
reconsider fm = max (f,g) as PartFunc of REAL,REAL ;
reconsider f = f, g = g as PartFunc of REAL,REAL ;
A1:
( f is_integrable_on A & f | A is bounded )
by A1A;
A2:
( g is_integrable_on A & g | A is bounded )
by A2A;
Df:
REAL = dom f
by FUNCT_2:def 1;
Dg:
REAL = dom g
by FUNCT_2:def 1;
Dm:
REAL = dom (f - g)
by FUNCT_2:def 1;
Dp:
REAL = dom (f + g)
by FUNCT_2:def 1;
Da:
REAL = dom (abs (f - g))
by FUNCT_2:def 1;
DD:
REAL = dom ((f + g) + (abs (f - g)))
by FUNCT_2:def 1;
i1:
f + g is_integrable_on A
by A1, A2, INTEGRA6:11, Df, Dg;
B1:
(f + g) | (A /\ A) is bounded
by A1A, A2A, RFUNCT_1:83;
i2:
f - g is_integrable_on A
by A1, A2, INTEGRA6:11, Dg, Df;
B2:
(f - g) | (A /\ A) is bounded
by A1A, A2A, RFUNCT_1:84;
then i3:
abs (f - g) is_integrable_on A
by i2, INTEGRA6:7, Dm;
B3:
(abs (f - g)) | (A /\ A) is bounded
by B2, RFUNCT_1:82;
i4:
(f + g) + (abs (f - g)) is_integrable_on A
by i1, i3, B1, B3, INTEGRA6:11, Dp, Da;
B4:
((f + g) + (abs (f - g))) | (A /\ A) is bounded
by B1, B3, RFUNCT_1:83;
then i5:
(1 / 2) (#) ((f + g) + (abs (f - g))) is_integrable_on A
by i4, INTEGRA6:9, DD;
B5:
((1 / 2) (#) ((f + g) + (abs (f - g)))) | (A /\ A) is bounded
by B4, RFUNCT_1:80;
integral (fm,A) =
integral (((1 / 2) (#) ((f + g) + (abs (f - g)))),A)
by Th15
.=
(1 / 2) * (integral (((f + g) + (abs (f - g))),A))
by INTEGRA6:9, i4, B4, DD
.=
(1 / 2) * ((integral ((f + g),A)) + (integral ((abs (f - g)),A)))
by INTEGRA6:11, i1, B1, i3, B3, Da, Dp
;
hence
( max (f,g) is_integrable_on A & (max (f,g)) | A is bounded & integral ((max (f,g)),A) = (1 / 2) * (((integral (f,A)) + (integral (g,A))) + (integral ((abs (f - g)),A))) )
by Th15, i5, B5, INTEGRA6:11, A1, A2, Df, Dg; verum