Definition submonoid_incl {X : monoid} (A : submonoid X) : monoidfun A X := monoidfunconstr (ismonoidfun_pr1 A).
Require Import UniMath.MoreFoundations.Subtypes. Require Import UniMath.MoreFoundations.Sets.