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
 I <= J implies
 for X being set st J c= X
 holds I <= X
 proof assume
A1: CutLastLoc I c= J;
  let X be set;
  assume J c= X;
  hence CutLastLoc I c= X by A1;
 end;
