Lemma append_length {X} (x:Sequence X) (y:X) : length (append x y) = S (length x). Proof. intros. reflexivity. Defined.
Require Import UniMath.Combinatorics.Vectors. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.MoreFoundations.Tactics.