reserve
  I for set,
  E for non empty set;
reserve A for ObjectsFamily of I,EnsCat E;

theorem
  product A in E implies EnsCatProductObj A is A-CatProduct-like
  proof
    assume
A1: product A in E;
    take EnsCatProduct A;
    thus thesis by A1,Th8;
end;
