fact: Definition gr_univalence_weq1 : gr ≃ gr' := weqtotal2asstol (λ Z : setwithbinop, ismonoidop (@op Z)) (fun y : (∑ (x : setwithbinop), ismonoidop (@op x)) => invstruct (@op (pr1 y)) (pr2 y)).
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids