proposition: Proposition linear_category_comult_comonoid_mor_struct (𝕃 : linear_category) (x : 𝕃) : comonoid_mor_struct 𝕃 (linear_category_cocommutative_comonoid 𝕃 x) (linear_category_cocommutative_comonoid 𝕃 (linear_category_cocommutative_comonoid 𝕃 x)) (δ (linear_category_bang 𝕃) x).
proof: Proof. use make_is_comonoid_mor ; cbn. - exact (!(linear_category_comult_comonoid_mor_comult x)). - rewrite id_right. exact (!(linear_category_comult_comonoid_mor_counit x)). 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