reserve a, b for Int_position,
  i for Instruction of SCMPDS,
  l for Element of NAT,
  k, k1, k2 for Integer;

theorem Th8:
  NIC((a,k1):=(b,k2), l) = {l+1}
proof
  set i = (a,k1):=(b,k2);
  for s being State of SCMPDS st IC s = l holds Exec(i,s).IC
  SCMPDS = IC s + 1 by SCMPDS_2:47;
  hence thesis by Th1;
end;
