proposition: Lemma binop_iso_equiv (A B : ob BINOP) : z_iso A B -> binopiso A B.
proof: Proof. intro f. use make_binopiso. set (X := binop_iso_is_equiv A B f). apply (make_weq (pr1 (pr1 f)) X). apply (pr2 (pr1 f)). Defined.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.Foundations.UnivalenceAxiom UniMath.Algebra.BinaryOperations UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors