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

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