Definition cut (u : Word) :=
  let (a, s) := cut_spec u in (a, let (b, s2) := s in b).Definition cut1 (u : Word) := fst (cut u).Definition cut2 (u : Word) := snd (cut u).

Lemma cut_Append : forall w : Word, w = Append (cut1 w) (cut2 w).