theorem
  id X c= T
proof
  let x,y be object;
  assume [x,y] in id X;
  then x in X & x = y by RELAT_1:def 10;
  hence thesis by Th7;
end;
