proposition: Lemma isaprop_symmetric_monoidal_comonads_extra_laws {F : C ⟶ C} (Fm : disp_cat_lax_monoidal_functors M M F) (δ : F ⟹ F ∙ F) (ε : F ⟹ functor_identity C) : isaprop (symmetric_monoidal_comonads_extra_laws Fm δ ε).
proof: Proof. apply isapropdirprod; apply isaprop_is_mon_nat_trans. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Functors UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Constructions UniMath.CategoryTheory.DisplayedCats.Total UniMath.CategoryTheory.DisplayedCats.Examples.Sigma UniMath.CategoryTheory.DisplayedCats.SIP UniMath.CategoryTheory.DisplayedCats.Univalence UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Monads.Comonads