Definition strictify_unit_data_help4 (F₁ F₂ : strict_psfunctor B₁ B₂) (α : strict_psfunctor_bicat B₁ B₂ ⟦ F₁ , F₂ ⟧) (X Y : B₁) (f : X --> Y) : (rassociator (id₁ ((pr111 F₁) X)) ((pr111 α) X) (# F₂ f)) • (id₁ ((pr111 F₁) X) ◃ (pr211 α) X Y f) • lassociator (id₁ (F₁ X)) (# F₁ f) ((pr111 α) Y) • ((lunitor (# F₁ f) • rinvunitor (# F₁ f)) ▹ (pr111 α) Y) • rassociator (#F₁ f) (id₁ (F₁ Y)) ((pr111 α) Y) • (# F₁ f ◃ (lunitor ((pr111 α) Y) • rinvunitor ((pr111 α) Y))) = ((lunitor ((pr111 α) X) • rinvunitor ((pr111 α) X)) ▹ # F₂ f) • rassociator ((pr111 α) X) (id₁ (F₂ X)) (# F₂ f) • ((pr111 α) X ◃ (lunitor (# F₂ f) • rinvunitor (# F₂ f))) • lassociator ((pr111 α) X) ((pr211 F₂) X Y f) (id₁ (F₂ Y)) • ((pr211 α) X Y f ▹ id₁ ((pr111 F₂) Y)) • rassociator (#F₁ f) ((pr111 α) Y) (id₁ (F₂ Y)).
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.DisplayedCats.Core. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.Core.BicategoryLaws. Require Import UniMath.Bicategories.Core.Unitors. Require Import UniMath.Bicategories.Core.Univalence. Require Import UniMath.Bicategories.DisplayedBicats.DispBicat. Require Import UniMath.Bicategories.PseudoFunctors.Display.StrictPseudoFunctorBicat. Require Import UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat. Require Import UniMath.Bicategories.PseudoFunctors.Display.Base. Require Import UniMath.Bicategories.PseudoFunctors.Display.Map1Cells. Require Import UniMath.Bicategories.PseudoFunctors.Display.Map2Cells. Require Import UniMath.Bicategories.PseudoFunctors.Display.StrictIdentitor. Require Import UniMath.Bicategories.PseudoFunctors.Display.StrictCompositor. Require Import UniMath.Bicategories.PseudoFunctors.PseudoFunctor. Require Import UniMath.Bicategories.PseudoFunctors.StrictPseudoFunctor. Import PseudoFunctor.Notations. Import StrictPseudoFunctor.Notations. Require Import UniMath.Bicategories.Transformations.PseudoTransformation. Require Import UniMath.Bicategories.Modifications.Modification. Require Import UniMath.Bicategories.PseudoFunctors.Examples.StrictToPseudo. Require Import UniMath.Bicategories.PseudoFunctors.Examples.Identity. Require Import UniMath.Bicategories.PseudoFunctors.Examples.Composition.