let a, b be Int-Location ; :: thesis: for l being Instruction-Location of SCM+FSA
for i being Instruction of SCM+FSA st ( i = halt SCM+FSA or i = a := b or i = AddTo a,b or i = SubFrom a,b or i = MultBy a,b or i = Divide a,b or i = goto l or i = a =0_goto l or i = a >0_goto l ) holds
UsedInt*Loc i = {}
let l be Instruction-Location of SCM+FSA ; :: thesis: for i being Instruction of SCM+FSA st ( i = halt SCM+FSA or i = a := b or i = AddTo a,b or i = SubFrom a,b or i = MultBy a,b or i = Divide a,b or i = goto l or i = a =0_goto l or i = a >0_goto l ) holds
UsedInt*Loc i = {}
let i be Instruction of SCM+FSA ; :: thesis: ( ( i = halt SCM+FSA or i = a := b or i = AddTo a,b or i = SubFrom a,b or i = MultBy a,b or i = Divide a,b or i = goto l or i = a =0_goto l or i = a >0_goto l ) implies UsedInt*Loc i = {} )
assume
( i = halt SCM+FSA or i = a := b or i = AddTo a,b or i = SubFrom a,b or i = MultBy a,b or i = Divide a,b or i = goto l or i = a =0_goto l or i = a >0_goto l )
; :: thesis: UsedInt*Loc i = {}
then
( InsCode i = 0 or InsCode i = 1 or InsCode i = 2 or InsCode i = 3 or InsCode i = 4 or InsCode i = 5 or InsCode i = 6 or InsCode i = 7 or InsCode i = 8 )
by SCMFSA_2:42, SCMFSA_2:43, SCMFSA_2:44, SCMFSA_2:45, SCMFSA_2:46, SCMFSA_2:47, SCMFSA_2:48, SCMFSA_2:49, SCMFSA_2:124;
hence
UsedInt*Loc i = {}
by Def3; :: thesis: verum