theorem Th107:
  X <> {} & rng f c= dom p implies (p/*f).x = p.(f.x)
proof
  assume that
A1: X <> {} and
A2: rng f c= dom p;
  p/*f = p*f by A2,Def11;
  hence thesis by A1,Th15;
end;
