fact: Definition islunit_meet_mor_top_mor : islunit_cat (meet_mor l) (top_mor l) := pr2 (pr2 (pr2 (pr2 l))).
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