 reserve A for non empty Subset of REAL;

theorem Th27:
  for r be Real, f be Function of REAL,REAL holds
    (r (#) f) | A = r (#) (f | A)
proof
 let r be Real, f be Function of REAL,REAL;
 set F = (r (#) f) | A;
 set g = r (#) (f | A);
 A1: dom ((r (#) f) | A) = A by FUNCT_2:def 1;
 A2: dom (r (#) (f | A)) = A by FUNCT_2:def 1;
 for x being object st x in dom F holds F . x = g . x
 proof
  let x be object;
  assume D1: x in dom F; then
  reconsider x as Real;
  F . x = (r (#) f).x by FUNCT_1:49,D1
  .= r * (f).x by VALUED_1:6
  .= r * (f | A).x by FUNCT_1:49,D1
  .= g . x by VALUED_1:6;
  hence thesis;
 end;
 hence thesis by FUNCT_1:2,A1,A2;
end;
