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. repeat (apply isapropdirprod). - apply isaprop_preserves_lunitor. - apply isaprop_preserves_runitor. - apply isaprop_preserves_associator. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Core.Isos. Import TensorNotation. Import TensorUnitNotation. Import TensorNotation. Import TensorUnitNotation. Import TensorNotation. Import TensorUnitNotation. Import TensorNotation. Import TensorUnitNotation. Import UnitorsAssociatorNotation. Import TensorNotation. Import TensorUnitNotation. Import UnitorsAssociatorNotation.