theorem Th55:
  sproduct f c= PFuncs(dom f,union rng f)
proof
  let x be object;
  assume x in sproduct f;
  then x is PartFunc of dom f, union rng f by Th52;
  hence thesis by PARTFUN1:45;
end;
