fact: Definition presented_monoid_pr {X : hSet} (R : hrel (free_monoid X)) : monoidfun (free_monoid X) (presented_monoid X R) := monoidquotpr _.
imports: UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Algebra.IteratedBinaryOperations UniMath.Combinatorics.Lists