theorem Th22:
  UsedILoc p = UsedILoc Shift(p, k)
proof
  dom p c= NAT;
  then rng p = rng Shift(p, k) by VALUED_1:26;
 hence thesis;
end;
