
theorem
for x be Element of REAL, I,J,K be non empty closed_interval Subset of REAL,
  f be PartFunc of [:[:RNS_Real,RNS_Real:],RNS_Real:],RNS_Real,
  g be PartFunc of [:[:REAL,REAL:],REAL:],REAL,
  P1Gz be PartFunc of REAL,REAL st
  x in I & [:[:I,J:],K:] = dom f & f is_continuous_on [:[:I,J:],K:] & f = g
& P1Gz = ProjPMap1(Integral2(L-Meas,R_EAL g),x)|J holds P1Gz is continuous
proof
    let x be Element of REAL;
    let I,J,K be non empty closed_interval Subset of REAL,
    f be PartFunc of [:[:RNS_Real,RNS_Real:],RNS_Real:],RNS_Real,
    g be PartFunc of [:[:REAL,REAL:],REAL:],REAL,
    P1Gz be PartFunc of REAL,REAL;
    assume that
A1: x in I and
A2: [:[:I,J:],K:] = dom f and
A3: f is_continuous_on [:[:I,J:],K:] and
A4: f = g and
A5: P1Gz = ProjPMap1(Integral2(L-Meas,R_EAL g),x)|J;

    reconsider F2 = Integral2(L-Meas,R_EAL g)| [:I,J:]
      as PartFunc of [:RNS_Real,RNS_Real:],RNS_Real by A2,A3,A4,Th32;
    reconsider G2 = F2 as PartFunc of [:REAL,REAL:],REAL;

A6: dom(Integral2(L-Meas,R_EAL g)) = [:REAL,REAL:] by FUNCT_2:def 1;

    X-section([:I,J:],x) = J by A1,MEASUR11:22; then
A7: ProjPMap1(Integral2(L-Meas,R_EAL g)| [:I,J:],x)
     = ProjPMap1(Integral2(L-Meas,R_EAL g),x)|J by MESFUN12:34;

A8: Integral2(L-Meas,R_EAL g)| [:I,J:] = R_EAL (G2| [:I,J:])
      by MESFUNC5:def 7;

    F2 is_uniformly_continuous_on [:I,J:] by A2,A3,A4,Th34;
    hence P1Gz is continuous by A5,A7,A8,A6,MESFUN16:36,NFCONT_2:7;
end;
