:: SCMFSA6C semantic presentation
set SA0 = Start-At (insloc 0);
theorem :: SCMFSA6C:1
theorem :: SCMFSA6C:2
:: deftheorem Def1 defines parahalting SCMFSA6C:def 1 :
:: deftheorem Def2 defines keeping_0 SCMFSA6C:def 2 :
Lm1:
Macro (halt SCM+FSA ) is parahalting
Lm2:
( Macro (halt SCM+FSA ) is keeping_0 & Macro (halt SCM+FSA ) is parahalting )
registration
let a,
b be
Int-Location ;
cluster a := b -> parahalting ;
coherence
a := b is parahalting
cluster AddTo a,
b -> parahalting ;
coherence
AddTo a,b is parahalting
cluster SubFrom a,
b -> parahalting ;
coherence
SubFrom a,b is parahalting
cluster MultBy a,
b -> parahalting ;
coherence
MultBy a,b is parahalting
cluster Divide a,
b -> parahalting ;
coherence
Divide a,b is parahalting
let f be
FinSeq-Location ;
cluster b := f,
a -> parahalting ;
coherence
b := f,a is parahalting
cluster f,
a := b -> parahalting keeping_0 ;
coherence
( f,a := b is parahalting & f,a := b is keeping_0 )
end;
:: deftheorem defines Initialize SCMFSA6C:def 3 :
theorem Th3: :: SCMFSA6C:3
theorem Th4: :: SCMFSA6C:4
theorem Th5: :: SCMFSA6C:5
Lm3:
now
let I be
parahalting keeping_0 Macro-Instruction;
let s be
State of
SCM+FSA ;
set IE =
IExec I,
s;
set IF =
Int-Locations \/ FinSeq-Locations ;
now
A1:
(
dom (Initialize (IExec I,s)) = the
carrier of
SCM+FSA &
dom (IExec I,s) = the
carrier of
SCM+FSA )
by AMI_3:36;
hence A2:
dom ((Initialize (IExec I,s)) | (Int-Locations \/ FinSeq-Locations )) = (dom (IExec I,s)) /\ (Int-Locations \/ FinSeq-Locations )
by RELAT_1:90;
let x be
set ;
assume A3:
x in dom ((Initialize (IExec I,s)) | (Int-Locations \/ FinSeq-Locations ))
;
dom (Initialize (IExec I,s)) = (Int-Locations \/ FinSeq-Locations ) \/ ({(IC SCM+FSA )} \/ the Instruction-Locations of SCM+FSA )
by A1, SCMFSA_2:8, XBOOLE_1:4;
then A4:
dom ((Initialize (IExec I,s)) | (Int-Locations \/ FinSeq-Locations )) = Int-Locations \/ FinSeq-Locations
by A1, A2, XBOOLE_1:21;
end;
hence
(Initialize (IExec I,s)) | (Int-Locations \/ FinSeq-Locations ) = (IExec I,s) | (Int-Locations \/ FinSeq-Locations )
by FUNCT_1:68;
end;
theorem Th6: :: SCMFSA6C:6
theorem Th7: :: SCMFSA6C:7
theorem Th8: :: SCMFSA6C:8
theorem Th9: :: SCMFSA6C:9
theorem :: SCMFSA6C:10
:: deftheorem defines swap SCMFSA6C:def 4 :
theorem :: SCMFSA6C:11
theorem :: SCMFSA6C:12