theorem Th60:
for
a,
b being
Int-Location for
s being
State of
SCM+FSA holds
(
(Exec ((Divide (a,b)),s)) . (IC ) = (IC s) + 1 & (
a <> b implies
(Exec ((Divide (a,b)),s)) . a = (s . a) div (s . b) ) &
(Exec ((Divide (a,b)),s)) . b = (s . a) mod (s . b) & ( for
c being
Int-Location st
c <> a &
c <> b holds
(Exec ((Divide (a,b)),s)) . c = s . c ) & ( for
f being
FinSeq-Location holds
(Exec ((Divide (a,b)),s)) . f = s . f ) )