fact: Definition weqrmultingr (X : gr) (x0 : X) : pr1 X ≃ pr1 X := make_weq _ (isweqrmultingr_is (pr2 X) x0).
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids