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