let p be Instruction-Sequence of SCM+FSA; :: thesis: for s being State of SCM+FSA
for I being InitHalting Program of SCM+FSA
for a being Int-Location
for k being Element of NAT st not I destroys a holds
(IExec (I,p,s)) . a = (Comput ((p +* I),(Initialize (Initialized s)),k)) . a
let s be State of SCM+FSA; :: thesis: for I being InitHalting Program of SCM+FSA
for a being Int-Location
for k being Element of NAT st not I destroys a holds
(IExec (I,p,s)) . a = (Comput ((p +* I),(Initialize (Initialized s)),k)) . a
let I be InitHalting Program of SCM+FSA; :: thesis: for a being Int-Location
for k being Element of NAT st not I destroys a holds
(IExec (I,p,s)) . a = (Comput ((p +* I),(Initialize (Initialized s)),k)) . a
let a be Int-Location ; :: thesis: for k being Element of NAT st not I destroys a holds
(IExec (I,p,s)) . a = (Comput ((p +* I),(Initialize (Initialized s)),k)) . a
let k be Element of NAT ; :: thesis: ( not I destroys a implies (IExec (I,p,s)) . a = (Comput ((p +* I),(Initialize (Initialized s)),k)) . a )
assume A1: not I destroys a ; :: thesis: (IExec (I,p,s)) . a = (Comput ((p +* I),(Initialize (Initialized s)),k)) . a
( I is_halting_on Initialized s,p & I is_closed_on Initialized s,p ) by Th59, Th60;
hence (IExec (I,p,s)) . a = (Comput ((p +* I),(Initialize (Initialized s)),k)) . a by A1, SCMFSA8C:60; :: thesis: verum