reserve S for with_non_trivial_Instructions COM-Struct;
reserve i,j,k for No-StopCode Instruction of S,
        I,J,K for MacroInstruction of S;
reserve i1,i2,i3,i4,i5,i6 for No-StopCode Instruction of S;
reserve I,J for non empty NAT-defined finite Function;
reserve I,J for MacroInstruction of S;

theorem
 for i being No-StopCode Instruction of S st i is ins-loc-free
  holds Macro i is closed
proof let i be No-StopCode Instruction of S such that
A1: i is ins-loc-free;
 let i1 be Instruction of S;
 assume i1 in rng Macro i;
  then i1 in {i,halt S} by COMPOS_1:67;
  then i1 = i or i1 = halt S by TARSKI:def 2;
  then rng JumpPart i1 = {} by A1;
 hence rng JumpPart i1 c= dom Macro i;
end;
