Definition Binop_disp_cat : disp_cat SET. Proof. use disp_struct. - exact (λ X, binop (pr1 X)). - exact (λ X Y m n f, isbinopfun (X := (X,,m)) (Y := (Y,,n)) f). - intros X Y m n f. apply isapropisbinopfun. - intros X m x1 x2. apply idpath. - intros X Y Z m n o f g pf pg. cbn in *. exact (isbinopfuncomp (make_binopfun (X := (X,,m)) (Y := (Y,,n)) f pf) (make_binopfun (X := (Y,,n)) (Y := (Z,,o)) g pg)). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.Algebra.BinaryOperations. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Functors. Require Import UniMath.CategoryTheory.Monoidal.Displayed.WhiskeredDisplayedBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Displayed.Monoidal. Require Import UniMath.CategoryTheory.Monoidal.Displayed.TotalMonoidal. Require Import UniMath.CategoryTheory.DisplayedCats.Core. Require Import UniMath.CategoryTheory.DisplayedCats.Total. Require Import UniMath.CategoryTheory.DisplayedCats.Constructions. Require Import UniMath.CategoryTheory.DisplayedCats.Binproducts. Require Import UniMath.CategoryTheory.Categories.HSET.All. Require Import UniMath.CategoryTheory.Monoidal.Examples.CartesianMonoidal. Require Import UniMath.CategoryTheory.Monoidal.Examples.DisplayedCartesianMonoidal.