fact: Definition kernel_issubmonoid {A B : monoid} (f : monoidfun A B) : issubmonoid (monoid_kernel_hsubtype f).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders