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 & s . il = a := r 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