fact: Definition invrigiso {X Y : rig} (f : rigiso X Y) : rigiso Y X := make_rigiso (invweq f) (isrigfuninvmap f).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids