-- Mathlib.CategoryTheory.Bicategory.Functor.StrictlyUnitary
CategoryTheory.StrictlyUnitaryPseudofunctorCore.mk : {B : Type u₁} →
  [inst : CategoryTheory.Bicategory B] →
    {C : Type u₂} →
      [inst_1 : CategoryTheory.Bicategory C] →
        (obj : B → C) →
          (map : {X Y : B} → (X ⟶ Y) → (obj X ⟶ obj Y)) →
            (map_id :
                autoParam
                  (∀ (X : B), map (CategoryTheory.CategoryStruct.id X) = CategoryTheory.CategoryStruct.id (obj X))
                  CategoryTheory.StrictlyUnitaryPseudofunctorCore.map_id._autoParam) →
              (map₂ : {a b : B} → {f g : a ⟶ b} → (f ⟶ g) → (map f ⟶ map g)) →
                autoParam
                    (∀ {a b : B} (f : a ⟶ b),
                      map₂ (CategoryTheory.CategoryStruct.id f) = CategoryTheory.CategoryStruct.id (map f))
                    CategoryTheory.StrictlyUnitaryPseudofunctorCore.map₂_id._autoParam →
                  autoParam
                      (∀ {a b : B} {f g h : a ⟶ b} (η : f ⟶ g) (θ : g ⟶ h),
                        map₂ (CategoryTheory.CategoryStruct.comp η θ) =
                          CategoryTheory.CategoryStruct.comp (map₂ η) (map₂ θ))
                      CategoryTheory.StrictlyUnitaryPseudofunctorCore.map₂_comp._autoParam →
                    (mapComp :
                        {a b c : B} →
                          (f : a ⟶ b) →
                            (g : b ⟶ c) →
                              map (CategoryTheory.CategoryStruct.comp f g) ≅
                                CategoryTheory.CategoryStruct.comp (map f) (map g)) →
                      autoParam
                          (∀ {a b c : B} (f : a ⟶ b) {g h : b ⟶ c} (η : g ⟶ h),
                            map₂ (CategoryTheory.Bicategory.whiskerLeft f η) =
                              CategoryTheory.CategoryStruct.comp (mapComp f g).hom
                                (CategoryTheory.CategoryStruct.comp
                                  (CategoryTheory.Bicategory.whiskerLeft (map f) (map₂ η)) (mapComp f h).inv))
                          CategoryTheory.StrictlyUnitaryPseudofunctorCore.map₂_whisker_left._autoParam →
                        autoParam
                            (∀ {a b c : B} {f g : a ⟶ b} (η : f ⟶ g) (h : b ⟶ c),
                              map₂ (CategoryTheory.Bicategory.whiskerRight η h) =
                                CategoryTheory.CategoryStruct.comp (mapComp f h).hom
                                  (CategoryTheory.CategoryStruct.comp
                                    (CategoryTheory.Bicategory.whiskerRight (map₂ η) (map h)) (mapComp g h).inv))
                            CategoryTheory.StrictlyUnitaryPseudofunctorCore.map₂_whisker_right._autoParam →
                          autoParam
                              (∀ {a b : B} (f : a ⟶ b),
                                map₂ (CategoryTheory.Bicategory.leftUnitor f).hom =
                                  CategoryTheory.CategoryStruct.comp
                                    (mapComp (CategoryTheory.CategoryStruct.id a) f).hom
                                    (CategoryTheory.CategoryStruct.comp (CategoryTheory.eqToHom ⋯)
                                      (CategoryTheory.Bicategory.leftUnitor (map f)).hom))
                              CategoryTheory.StrictlyUnitaryPseudofunctorCore.map₂_left_unitor._autoParam →
                            autoParam
                                (∀ {a b : B} (f : a ⟶ b),
                                  map₂ (CategoryTheory.Bicategory.rightUnitor f).hom =
                                    CategoryTheory.CategoryStruct.comp
                                      (mapComp f (CategoryTheory.CategoryStruct.id b)).hom
                                      (CategoryTheory.CategoryStruct.comp (CategoryTheory.eqToHom ⋯)
                                        (CategoryTheory.Bicategory.rightUnitor (map f)).hom))
                                CategoryTheory.StrictlyUnitaryPseudofunctorCore.map₂_right_unitor._autoParam →
                              autoParam
                                  (∀ {a b c d : B} (f : a ⟶ b) (g : b ⟶ c) (h : c ⟶ d),
                                    map₂ (CategoryTheory.Bicategory.associator f g h).hom =
                                      CategoryTheory.CategoryStruct.comp
                                        (mapComp (CategoryTheory.CategoryStruct.comp f g) h).hom
                                        (CategoryTheory.CategoryStruct.comp
                                          (CategoryTheory.Bicategory.whiskerRight (mapComp f g).hom (map h))
                                          (CategoryTheory.CategoryStruct.comp
                                            (CategoryTheory.Bicategory.associator (map f) (map g) (map h)).hom
                                            (CategoryTheory.CategoryStruct.comp
                                              (CategoryTheory.Bicategory.whiskerLeft (map f) (mapComp g h).inv)
                                              (mapComp f (CategoryTheory.CategoryStruct.comp g h)).inv))))
                                  CategoryTheory.StrictlyUnitaryPseudofunctorCore.map₂_associator._autoParam →
                                CategoryTheory.StrictlyUnitaryPseudofunctorCore B C