theorem
  InsCode (AddTo(a,k1,k2)) = 8;
