Definition make_disp_mnd {m : mnd B} (Hob : D (ob_of_mnd m)) (Hendo : Hob -->[ endo_of_mnd m ] Hob) (Hunit : id_disp Hob ==>[ unit_of_mnd m ] Hendo) (Hmult : Hendo ;; Hendo ==>[ mult_of_mnd m ] Hendo) : disp_mnd m := Hob ,, Hendo ,, Hunit ,, Hmult.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.DisplayedCats.Core. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.Core.BicategoryLaws. Require Import UniMath.Bicategories.Core.Unitors. Require Import UniMath.Bicategories.DisplayedBicats.DispBicat. Import DispBicat.Notations. Require Import UniMath.Bicategories.DisplayedBicats.Examples.EndoMap. Require Import UniMath.Bicategories.DisplayedBicats.Examples.MonadsLax.