fact: Definition reverse {X : UU} (x : Sequence X) : Sequence X := functionToSequence (fun i : (stn (length x)) => x (dualelement i)).
imports: UniMath.Combinatorics.FiniteSets UniMath.Combinatorics.Lists UniMath.Combinatorics.Vectors UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Tactics