Lemma signature_from_ab_strength_law2 : θ_Strength2_int θ_for_signature. Proof. intros X Z Z'. apply nat_trans_eq_alt. intro c. etrans. 2: { apply assoc. } etrans. 2: { apply maponpaths. exact (test' X Z Z' c). } simpl. etrans. 2: { apply pathsinv0. apply id_left. } etrans. 2: { apply cancel_postcomposition. apply pathsinv0. apply remove_id_left. - etrans. { apply id_left. } apply functor_id. - apply idpath. } simpl. apply maponpaths_12. - apply idpath. - apply nat_trans_eq_pointwise. clear c. apply maponpaths. apply nat_trans_eq_alt. intro c. etrans. 2: { apply pathsinv0. apply id_right. } apply pathsinv0. simpl. apply functor_id. Qed.
Require Import UniMath.Foundations.PartD. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.FunctorCategory. Require Import UniMath.CategoryTheory.PointedFunctors. Require Import UniMath.CategoryTheory.HorizontalComposition. Require Import UniMath.CategoryTheory.whiskering. Require Import UniMath.CategoryTheory.PrecategoryBinProduct. Require Import UniMath.CategoryTheory.Monoidal.AlternativeDefinitions.MonoidalCategoriesTensored. Require Import UniMath.CategoryTheory.Monoidal.AlternativeDefinitions.MonoidalFunctorsTensored. Require Import UniMath.CategoryTheory.Adjunctions.Core. Require Import UniMath.CategoryTheory.Equivalences.Core. Require Import UniMath.Bicategories.MonoidalCategories.PointedFunctorsMonoidal. Require Import UniMath.Bicategories.MonoidalCategories.Actions. Require Import UniMath.Bicategories.MonoidalCategories.ConstructionOfActions. Require Import UniMath.Bicategories.MonoidalCategories.ActionOfEndomorphismsInBicat. Require Import UniMath.Bicategories.MonoidalCategories.ActionBasedStrength. Require Import UniMath.Bicategories.MonoidalCategories.MonoidalFromBicategory. Require Import UniMath.Bicategories.MonoidalCategories.ActionBasedStrongFunctorCategory. Require Import UniMath.Bicategories.Core.Bicat. Require Import UniMath.Bicategories.Core.Examples.BicatOfCats. Require Import UniMath.SubstitutionSystems.Signatures. Require Import UniMath.SubstitutionSystems.SignatureCategory. Require Import UniMath.CategoryTheory.Core.Univalence. Import Bicat.Notations. Section Signature_From_ActionBased_Strength. End Signature_From_ActionBased_Strength. Section ActionBased_Strength_From_Signature. End ActionBased_Strength_From_Signature.