fact: Definition stnweq {n : nat} : stn n ⨿ unit ≃ stn (1 + n) := weqdnicoprod _ lastelement.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.Vectors