reserve B,C,D for Category;

theorem
  for c being Object of C holds (Obj id* C).c = c opp
proof
  let c be Object of C;
  thus (Obj id* C).c = ((Obj id C).c) opp by Th40
    .= c opp by CAT_1:77;
end;
