theorem Th19:
  dom Per(f,P) = dom f
proof
  rng P = dom f by FUNCT_2:def 3;
  then dom (P*f) = dom P by RELAT_1:27;
  hence thesis by FUNCT_2:52;
end;
