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