let I be Instruction of SCM; :: thesis: ( I = [0,{},{}] implies I is halting )
assume A1: I = [0,{},{}] ; :: thesis: I is halting
then A2: I `3_3 = {} by RECDEF_2:def 3;
then A3: ( ( for mk, ml being Element of SCM-Data-Loc holds not I = [1,{},<*mk,ml*>] ) & ( for mk, ml being Element of SCM-Data-Loc holds not I = [2,{},<*mk,ml*>] ) ) by RECDEF_2:def 3;
A4: ( ( for mk being Element of NAT
for ml being Element of SCM-Data-Loc holds not I = [7,<*mk*>,<*ml*>] ) & ( for mk being Element of NAT
for ml being Element of SCM-Data-Loc holds not I = [8,<*mk*>,<*ml*>] ) ) by A2, RECDEF_2:def 3;
I `2_3 = {} by A1, RECDEF_2:def 2;
then A5: ( ( for mk, ml being Element of SCM-Data-Loc holds not I = [5,{},<*mk,ml*>] ) & ( for mk being Element of NAT holds not I = [6,<*mk*>,{}] ) ) by A2, RECDEF_2:def 2, RECDEF_2:def 3;
reconsider L = I as Element of SCM-Instr ;
let s be State of SCM; :: according to EXTPRO_1:def 3 :: thesis: Exec (I,s) = s
reconsider t = s as SCM-State by CARD_3:107;
A6: ( ( for mk, ml being Element of SCM-Data-Loc holds not I = [3,{},<*mk,ml*>] ) & ( for mk, ml being Element of SCM-Data-Loc holds not I = [4,{},<*mk,ml*>] ) ) by A2, RECDEF_2:def 3;
thus Exec (I,s) = SCM-Exec-Res (L,t) by AMI_2:def 14
.= s by A3, A6, A5, A4, AMI_2:def 13 ; :: thesis: verum