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
  UsedILoc Times(b, I) =  {b, intloc 0} \/ UsedILoc I
proof
 thus UsedILoc Times(b, I)
    = {b} \/ UsedILoc(I ";" SubFrom(b, intloc 0)) by Th24
   .= {b} \/ (UsedILoc I \/ UsedIntLoc SubFrom(b, intloc 0)) by SF_MASTR:30
   .= {b} \/ (UsedILoc I \/ {b, intloc 0}) by SF_MASTR:14
   .= {b} \/ {b, intloc 0} \/ UsedILoc I by XBOOLE_1:4
   .= {b, intloc 0} \/ UsedILoc I by ZFMISC_1:9;
end;
