Definition monoidisotobinopiso (X Y : monoid) : monoidiso X Y → binopiso X Y := λ f, make_binopiso (pr1 f) (pr1 (pr2 f)).
Require Import UniMath.MoreFoundations.Subtypes. Require Import UniMath.MoreFoundations.Sets.