fact: Definition sequenceToFunction {X} (x:Sequence X) := pr2 x : stn (length x) -> X.
imports: UniMath.Combinatorics.FiniteSets UniMath.Combinatorics.Lists UniMath.Combinatorics.Vectors UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Tactics