theorem Th31:
  (for x,y holds not [x,y] in R) implies R = {};
