fact: Fixpoint vec `(x : Trie a s) : Vector.t a (size s) := match x with | Unit => nil a | Id x => cons a x 0 (nil a) | Join xs ys => vec xs ++ vec ys | Joins _ k xs => concat (map (vec ∘ k) (vec xs)) end.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Theory.Adjunction Category.Structure.Terminal Category.Structure.Cartesian Category.Structure.BiCCC Category.Instance.Fun Category.Instance.Coq Category.Instance.Sets Coq.Vectors.Vector