fact: Definition free_monoid (X : hSet) : monoid := make_monoid (make_setwithbinop (make_hSet (list X) (isofhlevellist 0 (pr2 X))) _) (ismonoidop_concatenate X).
imports: UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Algebra.IteratedBinaryOperations UniMath.Combinatorics.Lists