Lemma extend_tuple_inr {T : UU} {n : nat} (f : stn n → T) (last : T) (t : unit) : extend_tuple f last (stnweq (inr t)) = last. Proof. rewrite (pr2 iscontrunit t). exact (maponpaths _ (homotinvweqweq _ _)). Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.