let il be Element of NAT ; :: thesis: for a, b being Int-Location holds NIC (AddTo a,b),il = {(succ il)}
let a, b be Int-Location ; :: thesis: NIC (AddTo a,b),il = {(succ il)}
set i = AddTo a,b;
for s being State of SCM+FSA st IC s = il & s . il = AddTo a,b holds
(Exec (AddTo a,b),s) . (IC SCM+FSA ) = succ (IC s) by SCMFSA_2:90;
hence NIC (AddTo a,b),il = {(succ il)} by Lm5; :: thesis: verum