fact: Fixpoint Trie_map {s : Shape} `(f : a → b) (x : Trie a s) : Trie b s := match x with | Unit => Unit | Id x => Id (f x) | Join xs ys => Join (Trie_map f xs) (Trie_map f ys) | Joins z k xs => Joins z (Trie_map f ∘ k) 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