Definition abmonoidfracopint (X : abmonoid) (A : submonoid X) : binop (X × A) := @op (setwithbinopdirprod X A).
Require Import UniMath.MoreFoundations.Sets. Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.Algebra.Monoids2.