theorem
  (id dom R)*R = R by Th45;
