fact: Fixpoint size (s : Shape) : nat := match s with | Bottom => 0 | Top => 1 | Plus x y => size x + size y | Times x y => size x * size y 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