theorem
  w^<*n*> in succ w iff w^<*n*> in W;
