proposition: Lemma isaprop_functor_unitors_associator {C D : category} {tuC : tensor_unit C} {tuD : tensor_unit D} (uaC : unitors_associator tuC) (uaD : unitors_associator tuD) {F : functor C D} (ptuF : functor_tensor_unit tuC tuD F) : isaprop (functor_unitors_associator uaC uaD ptuF).
proof: Proof. repeat (apply isapropdirprod). - apply isaprop_preserves_lunitor. - apply isaprop_preserves_runitor. - apply isaprop_preserves_associator. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos