theorem
  0 < k implies (Shift seq).k=seq.(k -' 1) by LOPBAN_4:15;
