Definition kernel_submonoid {A B : monoid} (f : monoidfun A B) : @submonoid A := make_submonoid _ (kernel_issubmonoid f).
Require Import UniMath.MoreFoundations.Subtypes. Require Import UniMath.MoreFoundations.Sets.