let s be State of (SCM R); :: according to AMISTD_1:def 16 :: thesis: (Exec (AddTo a,b),s) . (IC (SCM R)) = NextLoc (IC s)
Next (IC s) = NextLoc (IC s) by Th68;
hence (Exec (AddTo a,b),s) . (IC (SCM R)) = NextLoc (IC s) by SCMRING2:14; :: thesis: verum