reserve B,C,D,C9,D9 for Category;
reserve E for Subcategory of C;

theorem
  for c being Object of C, d being Object of D holds (Obj pr2(C,D)).(c,d ) = d
proof
  let c be Object of C, d be Object of D;
  id [c,d] = [id c,id d] & (pr2(C,D)).(id c,id d) = id d by Th25,FUNCT_3:def 5;
  hence thesis by CAT_1:67;
end;
