 reserve A for non empty Subset of REAL;

theorem
  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, f,g be Function of REAL,REAL;
 ( f | ].-infty,s.] ) +* ( g | [.s,+infty.[ )
    = f|].-infty,s.[ +* g|[.s,+infty.[ by FUZZY_6:35;
 hence thesis by FUZZY_6:18;
end;
