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