proposition: Lemma isaprop_nattrans_tensor_unit {C D : category} {tuC : tensor_unit C} {tuD : tensor_unit D} {F G : functor C D} (ptuF : functor_tensor_unit tuC tuD F) (ptuG : functor_tensor_unit tuC tuD G) (α : nat_trans F G) : isaprop (nattrans_tensor_unit ptuF ptuG α).
proof: Proof. apply isapropdirprod. - apply isaprop_preservestensor_commutes. - apply isaprop_preservesunit_commutes. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos