reserve B,C,D for Category;

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