theorem
 I ';' J = (CutLastLoc I) ^ IncAddr(J,card I -' 1)
proof
  card CutLastLoc I =  card I -' 1 by VALUED_1:65;
 hence I ';' J = (CutLastLoc I) ^ (IncAddr(J,card I -' 1)) by AFINSQ_1:77;
end;
