proposition: Lemma iscotransapSet {X : apSet} : ∏ x y z : X, x # z -> x # y ∨ y # z.
proof: Proof. exact (pr2 (pr2 (pr2 (pr2 X)))). Qed.
imports: UniMath.Algebra.BinaryOperations UniMath.Foundations.Propositions UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.DecidablePropositions