fact: Definition kernel_submonoid {A B : monoid} (f : monoidfun A B) : @submonoid A := make_submonoid _ (kernel_issubmonoid f).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders