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 & J <= I implies I = J
 proof assume CutLastLoc I c= J;
  then
A1: CutLastLoc I c= CutLastLoc J by Th18;
  assume CutLastLoc J c= I;
   then CutLastLoc J c= CutLastLoc I by Th18;
   then  CutLastLoc I = CutLastLoc J by A1,XBOOLE_0:def 10;
  hence I = J by Th21;
 end;
