theorem
  (id$ A)`2 = id A & dom id$ A = A & cod id$ A = A;
