theorem Th38:
  UsedI*Loc p = UsedI*Loc Shift(p, k)
proof
  dom p c= NAT;
  then rng p = rng Shift(p, k) by VALUED_1:26;
 hence thesis;
end;
