proposition: Lemma isaprop_isapbinop {X : tightapSet} (op :binop X) : isaprop (isapbinop op).
proof: Proof. intros ap. apply isapropdirprod. now apply isaprop_islapbinop. now apply isaprop_israpbinop. Qed.
imports: UniMath.Algebra.BinaryOperations UniMath.Foundations.Propositions UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.DecidablePropositions