fact: Definition seq_key_eq_lemma' {X :UU} (g g' : Sequence X) : length g = length g' -> (∏ i, ∑ ltg : i < length g, ∑ ltg' : i < length g', g (i ,, ltg) = g' (i ,, ltg')) -> g=g'.
imports: UniMath.Combinatorics.FiniteSets UniMath.Combinatorics.Lists UniMath.Combinatorics.Vectors UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Tactics