theorem Th3:
  0 < r implies lim InvShift(r) = 0
proof
  set seq = InvShift(r);
  assume
A1: 0 < r;
  now
    let p;
    assume
A2: 0 < p;
    consider k1 such that
A3: p" < k1 by SEQ_4:3;
    take n = k1;
    let m;
    assume n <= m;
    then n+r <= m+r by XREAL_1:6;
    then
A4: 1/(m+r) <= 1/(n+r) by A1,XREAL_1:118;
A5: seq.m = 1/(m+r) by Def2;
    p"+ 0 < k1 + r by A1,A3,XREAL_1:8;
    then 1/(k1+r) < 1/p" by A2,XREAL_1:76;
    then 1/(m+r) < p by A4,XXREAL_0:2;
    hence |.seq.m-0c.| < p by A1,A5,ABSVALUE:def 1;
  end;
  hence thesis by A1,COMSEQ_2:def 6;
end;
