theorem
   0 in dom if<0(a,k1,I)
proof
  set ci=card if<0(a,k1,I);
  ci=card I + 1 by Th1;
  hence thesis by AFINSQ_1:66;
end;
