proposition: Lemma coprod_functor_lineator_laxlaws (δ : actegory_coprod_distributor) : lineator_laxlaws _ _ _ _ (coprod_functor_lineator_data δ).
proof: Proof. red; repeat split. - red. intros v cs1 cs2 g. apply (z_iso_inv_to_right _ _ _ _ (_,,coprod_functor_lineator_strongly δ v _)). rewrite assoc'. apply (z_iso_inv_to_left _ _ _ (_,,coprod_functor_lineator_strongly δ v _)). apply actegory_coprod_antidistributor_nat_left. - red. intros v1 v2 cs f. apply (z_iso_inv_to_right _ _ _ _ (_,,coprod_functor_lineator_strongly δ _ _)). rewrite assoc'. apply (z_iso_inv_to_left _ _ _ (_,,coprod_functor_lineator_strongly δ _ _)). apply actegory_coprod_antidistributor_nat_right. - red. intros v w cs. apply pathsinv0, (z_iso_inv_to_right _ _ _ _ (_,,coprod_functor_lineator_strongly δ _ _)). rewrite assoc'. apply (z_iso_inv_to_left _ _ _ (_,,coprod_functor_lineator_strongly δ _ _)). rewrite assoc. apply (z_iso_inv_to_right _ _ _ _ (functor_on_z_iso (leftwhiskering_functor Act v) (_,,coprod_functor_lineator_strongly δ _ _))). apply pathsinv0, coprod_antidistributor_pentagon_identity. - red. intro cs. apply pathsinv0, (z_iso_inv_to_left _ _ _ (_,,coprod_functor_lineator_strongly δ _ _)). apply pathsinv0, coprod_antidistributor_triangle_identity. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Functors UniMath.CategoryTheory.Actegories.Actegories UniMath.CategoryTheory.Actegories.MorphismsOfActegories UniMath.CategoryTheory.Actegories.ProductActegory UniMath.CategoryTheory.Actegories.ConstructionOfActegories UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.ProductCategory UniMath.CategoryTheory.Limits.BinCoproducts UniMath.CategoryTheory.Limits.Coproducts