let R be good Ring; :: thesis: for a, b being Data-Location of R
for il being Element of NAT holds NIC (AddTo a,b),il = {(succ il)}
let a, b be Data-Location of R; :: thesis: for il being Element of NAT holds NIC (AddTo a,b),il = {(succ il)}
let il be Element of NAT ; :: thesis: NIC (AddTo a,b),il = {(succ il)}
set i = AddTo a,b;
for s being State of (SCM R) st IC s = il & s . il = AddTo a,b holds
(Exec (AddTo a,b),s) . (IC (SCM R)) = succ (IC s) by SCMRING2:14;
hence NIC (AddTo a,b),il = {(succ il)} by Lm4; :: thesis: verum