reserve V for non empty set,
  A,B,A9,B9 for Element of V;
reserve f,f9 for Element of Funcs(V);
reserve m,m1,m2,m3,m9 for Element of Maps V;

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