theorem Th49:
  g in sproduct f implies dom g c= dom f &
  for x st x in dom g holds g.x in f.x
proof
  assume g in sproduct f;
  then ex h st g = h & dom h c= dom f &
  for x being object st x in dom h holds h.x in f.x by Def9;
  hence thesis;
end;
