theorem
  if>0(a,k1,I). 0 = (a,k1)<=0_goto (card I + 1) by Th2;
