theorem
  card if<>0(a,k1,I) = card I + 2 by Lm8;
