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 Th44:
  UsedI*Loc Macro i = UsedInt*Loc i
proof
  rng Macro i = {i, halt SCM+FSA} by COMPOS_1:67;
 hence UsedI*Loc Macro i
   = union { UsedInt*Loc j : j in {i, halt SCM+FSA}}
  .= UsedInt*Loc i \/ UsedInt*Loc halt SCM+FSA from SUBSET_1:sch 6
  .= UsedInt*Loc i \/ {} by Th32
  .= UsedInt*Loc i;
end;
