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