let p be preProgram of SCM+FSA; for k being Element of NAT holds UsedIntLoc p = UsedIntLoc (Shift (p,k))
let k be Element of NAT ; UsedIntLoc p = UsedIntLoc (Shift (p,k))
set Sp = Shift (p,k);
consider UIL being Function of the Instructions of SCM+FSA,(Fin Int-Locations) such that
A1:
for i being Instruction of SCM+FSA holds UIL . i = UsedIntLoc i
and
A2:
UsedIntLoc p = Union (UIL * p)
by Def2;
consider UIL2 being Function of the Instructions of SCM+FSA,(Fin Int-Locations) such that
A3:
for i being Instruction of SCM+FSA holds UIL2 . i = UsedIntLoc i
and
A4:
UsedIntLoc (Shift (p,k)) = Union (UIL2 * (Shift (p,k)))
by Def2;
for c being Element of the Instructions of SCM+FSA holds UIL . c = UIL2 . c
then A5:
UIL = UIL2
by FUNCT_2:113;
A6:
dom (Shift (p,k)) = { (m + k) where m is Element of NAT : m in dom p }
by VALUED_1:def 12;
then A13:
rng (Shift (p,k)) = rng p
by TARSKI:2;
A14:
Union (UIL * (Shift (p,k))) = union (rng (UIL * (Shift (p,k))))
by CARD_3:def 4;
rng (UIL * (Shift (p,k))) =
UIL .: (rng (Shift (p,k)))
by RELAT_1:160
.=
rng (UIL * p)
by A13, RELAT_1:160
;
hence
UsedIntLoc p = UsedIntLoc (Shift (p,k))
by A2, A4, A5, A14, CARD_3:def 4; verum