reserve P,Q,X,Y,Z for set, p,x,x9,x1,x2,y,z for object;
reserve D for non empty set;
reserve A,B for non empty set;
reserve Y for non empty set,
  f for Function of X,Y,
  p for PartFunc of Y,Z,
  x for Element of X;
reserve g for Function of X,X;
reserve X,Y for non empty set,
  Z,S,T for set,
  f for Function of X,Y,
  g for PartFunc of Y,Z,
  x for Element of X;

theorem Th116:
  rng f c= dom (g|S) implies (g|S)/*f = g/*f
proof
  assume
A1: rng f c= dom (g|S);
  let x be Element of X;
A2: dom (g|S) c= dom g by RELAT_1:60;
A3: f.x in rng f by Th4;
  thus ((g|S)/*f).x = (g|S).(f.x) by A1,Th107
    .= g.(f.x) by A1,A3,FUNCT_1:47
    .= (g/*f).x by A1,A2,Th107,XBOOLE_1:1;
end;
