Lemma extend_tuple_inl {T : UU} {n : nat} (f : stn n → T) (last : T) (i : stn n) : extend_tuple f last (stnweq (inl i)) = f i. Proof. exact (maponpaths _ (homotinvweqweq _ (inl i))). Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.