reserve a, b, c, a1, a2, b1, b2 for Int-Location,
  l, l1, l2 for Nat,
  f, g, f1, f2 for FinSeq-Location,
  i, j for Instruction of SCM+FSA,
  X, Y for set;
reserve p, r for preProgram of SCM+FSA,
  I, J for Program of SCM+FSA,
  k, m, n for Nat;

theorem Th41:
  UsedI*Loc I = UsedI*Loc Reloc(I, k)
proof
A1:  Reloc(I,k) = IncAddr(Shift(I,k),k) by COMPOS_1:34;
  UsedI*Loc Reloc(I, k) = UsedI*Loc Reloc(I,k)
    .= UsedI*Loc Shift (I, k) by Th40,A1
    .= UsedI*Loc I by Th38;
  hence thesis;
end;
