Definition const_vec {X : UU} {n : nat} (x : X) : Vector X n := λ _, x.
Require Import UniMath.Combinatorics.Vectors. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.MoreFoundations.Tactics.