proposition: Lemma isaprop_braiding_laws {C : category} {M : monoidal C} (B Binv : braiding_data M) : isaprop (braiding_laws B Binv).
proof: Proof. repeat (apply isapropdirprod) ; repeat (apply impred_isaprop ; intro) ; try (apply homset_property). apply isapropdirprod ; apply homset_property. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories