theorem Th23:
  I <= I ';' J
 proof
   dom CutLastLoc I misses dom Reloc(J,card I -' 1) by COMPOS_1:18;
  hence CutLastLoc I c= I ';' J by FUNCT_4:32;
 end;
