reserve A for non empty closed_interval Subset of REAL;

theorem Th19:
for s be Real, f,g being Function of REAL,REAL holds
( f | ].-infty,s.[ ) +* ( g | [.s,+infty.[ )
is Function of REAL,REAL
proof
 let s be Real;
 let f,g being Function of REAL,REAL;
 set F = (f | ].-infty,s.[) +* (g | [.s,+infty.[);
 set g1= f| (].-infty,s.[);
 set g2= g| ([.s,+infty.[);
 D3: -infty < s & s < +infty by XXREAL_0:9,XXREAL_0:12,XREAL_0:def 1;
 Dg: dom F = (dom g1) \/ (dom g2) by FUNCT_4:def 1
 .= (].-infty,s.[) \/ (dom g2) by FUNCT_2:def 1
 .=(].-infty,s.[) \/ ([.s,+infty.[) by FUNCT_2:def 1
 .=REAL by XXREAL_1:224,XXREAL_1:173,D3;
 for x being object st x in REAL holds F . x in REAL
   by XREAL_0:def 1;
 hence thesis by FUNCT_2:3,Dg;
end;
