fact: Definition invmonoidiso {X Y : monoid} (f : monoidiso X Y) : monoidiso Y X := make_monoidiso (invweq (pr1 f)) (ismonoidfuninvmap f).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders