theorem
  for m being Element of NAT st W.first() = W.m holds W.remove(1,m) = W
  .cut(m, len W) by Lm32;
