theorem
  card if<0(a,k1,I) = card I + 1 by Th1;
