theorem Th73:
  Obj id C = id the carrier of C
proof
  dom Obj id C = the carrier of C &
for x be object holds x in the carrier of
  C implies (Obj id C).x = x by Th72,FUNCT_2:def 1;
  hence thesis by FUNCT_1:17;
end;
