theorem Th50:
  {} in sproduct f
proof
A1: dom {} c= dom f;
  for x being object st x in dom {} holds {} .x in f.x;
  hence thesis by A1,Def9;
end;
