let I, J be Subset of REAL; :: thesis: for K being non empty closed_interval Subset of REAL
for x, y being Element of REAL
for f being PartFunc of [:[:RNS_Real,RNS_Real:],RNS_Real:],RNS_Real
for g being PartFunc of [:[:REAL,REAL:],REAL:],REAL
for Pg1 being PartFunc of REAL,REAL st x in I & y in J & dom f = [:[:I,J:],K:] & f is_continuous_on [:[:I,J:],K:] & f = g & Pg1 = ProjPMap1 ((R_EAL g),[x,y]) holds
( Pg1 | K is bounded & Pg1 is_integrable_on K )
let K be non empty closed_interval Subset of REAL; :: thesis: for x, y being Element of REAL
for f being PartFunc of [:[:RNS_Real,RNS_Real:],RNS_Real:],RNS_Real
for g being PartFunc of [:[:REAL,REAL:],REAL:],REAL
for Pg1 being PartFunc of REAL,REAL st x in I & y in J & dom f = [:[:I,J:],K:] & f is_continuous_on [:[:I,J:],K:] & f = g & Pg1 = ProjPMap1 ((R_EAL g),[x,y]) holds
( Pg1 | K is bounded & Pg1 is_integrable_on K )
let x, y be Element of REAL ; :: thesis: for f being PartFunc of [:[:RNS_Real,RNS_Real:],RNS_Real:],RNS_Real
for g being PartFunc of [:[:REAL,REAL:],REAL:],REAL
for Pg1 being PartFunc of REAL,REAL st x in I & y in J & dom f = [:[:I,J:],K:] & f is_continuous_on [:[:I,J:],K:] & f = g & Pg1 = ProjPMap1 ((R_EAL g),[x,y]) holds
( Pg1 | K is bounded & Pg1 is_integrable_on K )
let f be PartFunc of [:[:RNS_Real,RNS_Real:],RNS_Real:],RNS_Real; :: thesis: for g being PartFunc of [:[:REAL,REAL:],REAL:],REAL
for Pg1 being PartFunc of REAL,REAL st x in I & y in J & dom f = [:[:I,J:],K:] & f is_continuous_on [:[:I,J:],K:] & f = g & Pg1 = ProjPMap1 ((R_EAL g),[x,y]) holds
( Pg1 | K is bounded & Pg1 is_integrable_on K )
let g be PartFunc of [:[:REAL,REAL:],REAL:],REAL; :: thesis: for Pg1 being PartFunc of REAL,REAL st x in I & y in J & dom f = [:[:I,J:],K:] & f is_continuous_on [:[:I,J:],K:] & f = g & Pg1 = ProjPMap1 ((R_EAL g),[x,y]) holds
( Pg1 | K is bounded & Pg1 is_integrable_on K )
let Pg1 be PartFunc of REAL,REAL; :: thesis: ( x in I & y in J & dom f = [:[:I,J:],K:] & f is_continuous_on [:[:I,J:],K:] & f = g & Pg1 = ProjPMap1 ((R_EAL g),[x,y]) implies ( Pg1 | K is bounded & Pg1 is_integrable_on K ) )
assume that
A1: ( x in I & y in J ) and
A2: dom f = [:[:I,J:],K:] and
A3: f is_continuous_on [:[:I,J:],K:] and
A4: f = g and
A5: Pg1 = ProjPMap1 ((R_EAL g),[x,y]) ; :: thesis: ( Pg1 | K is bounded & Pg1 is_integrable_on K )
[x,y] in [:I,J:] by A1, ZFMISC_1:87;
then dom Pg1 = K by A2, A4, A5, MESFUN16:27;
hence ( Pg1 | K is bounded & Pg1 is_integrable_on K ) by A2, A3, A4, A5, Th17, INTEGRA5:10, INTEGRA5:11; :: thesis: verum