proposition: Proposition free_abmonoid_mor_eq {X : hSet} {Y : abmonoid} {f g : monoidfun (free_abmonoid X) Y} (p : ∏ (x : X), f (free_abmonoid_unit x) = g (free_abmonoid_unit x)) : f = g.
proof: Proof. use (invmaponpathsweq (invweq (free_abmonoid_universal_property X Y)) f g). use funextsec. exact p. Qed.
imports: UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Algebra.IteratedBinaryOperations UniMath.Combinatorics.Lists