theorem Th18:
  x in X implies (id X).x = x by Th17;
