reserve p,p1,p2,h for Instruction-Sequence of SCM+FSA;
reserve k, l, n for Nat,
  j for Integer,
  i,i1 for Instruction of SCM+FSA;
reserve s, s1, s2 for State of SCM+FSA,
  a for read-write Int-Location,
  b for Int-Location,
  I, J for MacroInstruction of SCM+FSA,
  Ig for good MacroInstruction of SCM+FSA,
  i, j, k, m, n for Nat;

theorem
  UsedI*Loc Times(b, I) = UsedI*Loc I
proof
 thus UsedI*Loc Times(b, I)
    = UsedI*Loc(I ";" SubFrom(b, intloc 0)) by Th25
   .= UsedI*Loc I \/ UsedInt*Loc SubFrom(b, intloc 0) by SF_MASTR:46
   .= UsedI*Loc I \/ {} by SF_MASTR:32
   .= UsedI*Loc I;
end;
