proposition: Proposition linear_category_comult_nat {x y : 𝕃} (f : x --> y) : #(linear_category_bang 𝕃) f · linear_category_comult 𝕃 y = linear_category_comult 𝕃 x · (#(linear_category_bang 𝕃) f #⊗ #(linear_category_bang 𝕃) f).
proof: Proof. exact (pr12 𝕃 x y f). Qed.
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Monads.Comonads UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Functors UniMath.CategoryTheory.Monoidal.FunctorCategories UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.Monoidal.Structure.SymmetricDiagonal UniMath.CategoryTheory.Monoidal.Structure.Closed UniMath.CategoryTheory.Monoidal.Comonoids.Category UniMath.CategoryTheory.Monoidal.Examples.ConstantFunctor UniMath.CategoryTheory.Monoidal.CategoriesOfMonoids UniMath.CategoryTheory.Categories.Dialgebras UniMath.CategoryTheory.Monoidal.Examples.DiagonalFunctor