Definition length'{X} : NonemptySequence X -> nat := λ x, S(pr1 x).
Require Import UniMath.Combinatorics.Vectors. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.MoreFoundations.Tactics.