proposition: Lemma isldistr_setofendabgr_op {G : abgr} : isldistr (@ringofendabgr_op1 G) (@ringofendabgr_op2 G).
proof: Proof. intros f g h. use total2_paths_f. - apply funextfun. intro x. apply (setofendabgr_to_isbinopfun h). - apply isapropismonoidfun. Defined.
imports: UniMath.MoreFoundations.Tactics UniMath.Algebra.RigsAndRings UniMath.Algebra.Groups UniMath.Algebra.Monoids