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

theorem Th7:
  NIC((a,k1):=k2, l) = {l+1}
proof
  set i = (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:46;
  hence thesis by Th1;
end;
