now

let s be State of (SCM R); :: thesis: for o being Object of (SCM R)
for I being Instruction of (SCM R) st InsCode I = InsCode (halt (SCM R)) & o <> IC (SCM R) holds
(Exec I,s) . o = s . o
let o be Object of (SCM R); :: thesis: for I being Instruction of (SCM R) st InsCode I = InsCode (halt (SCM R)) & o <> IC (SCM R) holds
(Exec I,s) . o = s . o
let I be Instruction of (SCM R); :: thesis: ( InsCode I = InsCode (halt (SCM R)) & o <> IC (SCM R) implies (Exec I,s) . o = s . o )
assume that
A1: InsCode I = InsCode (halt (SCM R)) and
o <> IC (SCM R) ; :: thesis: (Exec I,s) . o = s . o
I = halt (SCM R) by A1, Th8, Th16;
hence (Exec I,s) . o = s . o by AMI_1:def 8; :: thesis: verum

end;

hence InsCode (halt (SCM R)) is jump-only InsType of (SCM R) by AMISTD_1:def 3; :: thesis: verum