fact: Definition concatenate {X : UU} : binop (Sequence X) := λ x y, functionToSequence (concatenate' x y).
imports: UniMath.Combinatorics.FiniteSets UniMath.Combinatorics.Lists UniMath.Combinatorics.Vectors UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Tactics