let a be Int_position ; :: thesis: for s being State of SCMPDS
for I being No-StopCode Program of SCMPDS
for j being shiftable parahalting Instruction of SCMPDS st I is_closed_on s & I is_halting_on s holds
(IExec (I ';' j),s) . a = (Exec j,(IExec I,s)) . a
let s be State of SCMPDS ; :: thesis: for I being No-StopCode Program of SCMPDS
for j being shiftable parahalting Instruction of SCMPDS st I is_closed_on s & I is_halting_on s holds
(IExec (I ';' j),s) . a = (Exec j,(IExec I,s)) . a
let I be No-StopCode Program of SCMPDS ; :: thesis: for j being shiftable parahalting Instruction of SCMPDS st I is_closed_on s & I is_halting_on s holds
(IExec (I ';' j),s) . a = (Exec j,(IExec I,s)) . a
let j be shiftable parahalting Instruction of SCMPDS ; :: thesis: ( I is_closed_on s & I is_halting_on s implies (IExec (I ';' j),s) . a = (Exec j,(IExec I,s)) . a )
assume A1: ( I is_closed_on s & I is_halting_on s ) ; :: thesis: (IExec (I ';' j),s) . a = (Exec j,(IExec I,s)) . a
set Mj = Load j;
for a being Int_position holds (Initialized (IExec I,s)) . a = (IExec I,s) . a by SCMPDS_5:40;
then A2: DataPart (Initialized (IExec I,s)) = DataPart (IExec I,s) by SCMPDS_4:23;
A3: a in SCM-Data-Loc by SCMPDS_2:def 2;
A4: Load j is_closed_on IExec I,s by SCMPDS_6:34;
Load j is_halting_on IExec I,s by SCMPDS_6:35;
hence (IExec (I ';' j),s) . a = (IExec (Load j),(IExec I,s)) . a by A1, A4, Th49
.= (Exec j,(Initialized (IExec I,s))) . a by SCMPDS_5:45
.= (DataPart (Exec j,(Initialized (IExec I,s)))) . a by A3, FUNCT_1:72, SCMPDS_2:100
.= (DataPart (Exec j,(IExec I,s))) . a by A2, SCMPDS_5:44
.= (Exec j,(IExec I,s)) . a by A3, FUNCT_1:72, SCMPDS_2:100 ;
:: thesis: verum