fact: Definition isabsorb_cat {L} (f g : C⟦L ⊗ L,L⟧) : UU := (δ ×× 1) · α · (1 ×× g) · f = π1.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.Algebra.Monoids UniMath.OrderTheory.Lattice.Lattice UniMath.OrderTheory.Lattice.Bounded UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Monics UniMath.CategoryTheory.Limits.BinProducts UniMath.CategoryTheory.Limits.Terminal