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