fact: Definition rigquot {X : rig} (R : @rigeqrel X) : rig := @make_rig (setwith2binopquot R) (isrigquot R).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids