fact: Fixpoint unsize (n : nat) : Shape := match n with | O => Bottom | S n => Plus Top (unsize n) 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