proposition: Lemma pbm_id_law : ∏ c : B, (lm_mult _ T) c = (pb_LModule_σ (identity M') T) c.
proof: Proof. intro c. cbn. apply pathsinv0. etrans;[|apply id_left]. apply cancel_postcomposition. apply functor_id. Qed.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.whiskering UniMath.CategoryTheory.Limits.Terminal UniMath.CategoryTheory.Limits.BinCoproducts UniMath.CategoryTheory.Monads.Monads