proposition: Lemma vec_Trie_right {a : Type} {X Y : Shape} (v : Trie a (Plus X Y)) : vec (Trie_right v) = snd (splitat (size X) (vec v)).
proof: Proof. dependent induction v; simpl in *. simpl_eq. now rewrite splitat_append. Qed.
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