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