@@ -354,8 +354,8 @@ def map₂CompMap₂Iso {C' : Type u₆} [Category.{v₆} C'] {D' : Type u₅} [
354354 (β' : R'' ⋙ G' ⟶ F' ⋙ R) :
355355 map₂ α' β' ⋙ map₂ α β ≅
356356 map₂ (α ≫ G.map α')
357- ((Functor.associator _ _ _ ).inv ≫ Functor.whiskerRight β' _ ≫ (Functor.associator _ _ _ ).hom ≫
358- Functor.whiskerLeft _ β ≫ (Functor.associator _ _ _ ).inv) :=
357+ ((Functor.associator .. ).inv ≫ Functor.whiskerRight β' _ ≫ (Functor.associator .. ).hom ≫
358+ Functor.whiskerLeft _ β ≫ (Functor.associator .. ).inv) :=
359359 NatIso.ofComponents (fun X => isoMk (Iso.refl _))
360360
361361/-- `map₂` is invariant under isomorphisms. -/
@@ -388,22 +388,22 @@ def map₂Iso {F : C ≌ A} {G : D ≌ B}
388388 (hα'α : α' ≫ G.inverse.map α = G.unitIso.hom.app _)
389389 (hββ' :
390390 (Functor.rightUnitor _).hom ≫ (Functor.leftUnitor _).inv ≫
391- Functor.whiskerRight F.unitIso.hom _ ≫ (Functor.associator _ _ _ ).hom =
392- Functor.whiskerLeft R G.unitIso.hom ≫ (Functor.associator _ _ _ ).inv ≫
391+ Functor.whiskerRight F.unitIso.hom _ ≫ (Functor.associator .. ).hom =
392+ Functor.whiskerLeft R G.unitIso.hom ≫ (Functor.associator .. ).inv ≫
393393 Functor.whiskerRight β _ ≫
394- (Functor.associator _ _ _ ).hom ≫ Functor.whiskerLeft _ β')
394+ (Functor.associator .. ).hom ≫ Functor.whiskerLeft _ β')
395395 (hβ'β :
396- Functor.whiskerRight β' G.functor ≫ (Functor.associator _ _ _ ).hom ≫
397- Functor.whiskerLeft _ β ≫ (Functor.associator _ _ _ ).inv ≫
396+ Functor.whiskerRight β' G.functor ≫ (Functor.associator .. ).hom ≫
397+ Functor.whiskerLeft _ β ≫ (Functor.associator .. ).inv ≫
398398 Functor.whiskerRight F.counitIso.hom _ =
399- (Functor.associator _ _ _ ).hom ≫ Functor.whiskerLeft _ G.counitIso.hom ≫
399+ (Functor.associator .. ).hom ≫ Functor.whiskerLeft _ G.counitIso.hom ≫
400400 (Functor.rightUnitor _).hom ≫ (Functor.leftUnitor _).inv) :
401401 StructuredArrow L R ≌ StructuredArrow L' R' where
402402 functor := map₂ α β
403403 inverse := map₂ α' β'
404404 unitIso := (map₂IdIso _ _ _ rfl rfl).symm ≪≫ map₂Congr _ _ F.unitIso G.unitIso _ _ ?_ ?_ ≪≫
405- (map₂CompMap₂Iso _ _ _ _ ).symm
406- counitIso := map₂CompMap₂Iso _ _ _ _ ≪≫
405+ (map₂CompMap₂Iso .. ).symm
406+ counitIso := map₂CompMap₂Iso .. ≪≫
407407 map₂Congr _ _ F.counitIso G.counitIso _ _ ?_ ?_ ≪≫ map₂IdIso _ _ _ rfl rfl
408408 functor_unitIso_comp := ?_
409409where finally
@@ -794,8 +794,8 @@ def map₂CompMap₂Iso {C' : Type u₆} [Category.{v₆} C'] {D' : Type u₅} [
794794 {R : C' ⥤ D'} {F' : C' ⥤ C} {G' : D' ⥤ D} {X : D'} (α' : F' ⋙ S ⟶ R ⋙ G') (β' : G'.obj X ⟶ T) :
795795 map₂ α' β' ⋙ map₂ α β ≅
796796 map₂ (F := F' ⋙ F) (G := G' ⋙ G)
797- ((Functor.associator _ _ _ ).hom ≫ Functor.whiskerLeft _ α ≫
798- (Functor.associator _ _ _ ).inv ≫ Functor.whiskerRight α' _ ≫ (Functor.associator _ _ _ ).hom)
797+ ((Functor.associator .. ).hom ≫ Functor.whiskerLeft _ α ≫
798+ (Functor.associator .. ).inv ≫ Functor.whiskerRight α' _ ≫ (Functor.associator .. ).hom)
799799 (G.map β' ≫ β) :=
800800 NatIso.ofComponents fun X ↦ isoMk (.refl _)
801801
@@ -825,14 +825,14 @@ def map₂IdIso (α : 𝟭 _ ⋙ S ⟶ S ⋙ 𝟭 _) (T : D) (β : (𝟭 _).obj
825825def map₂Iso {F : C ≌ A} {G : D ≌ B} (α : F.functor ⋙ U ⟶ S ⋙ G.functor)
826826 (α' : F.inverse ⋙ S ⟶ U ⋙ G.inverse)
827827 (hα'α : (Functor.leftUnitor _).hom ≫ (Functor.rightUnitor _).inv ≫
828- Functor.whiskerLeft _ G.unitIso.hom ≫ (Functor.associator _ _ _ ).inv =
829- Functor.whiskerRight F.unitIso.hom _ ≫ (Functor.associator _ _ _ ).hom ≫
828+ Functor.whiskerLeft _ G.unitIso.hom ≫ (Functor.associator .. ).inv =
829+ Functor.whiskerRight F.unitIso.hom _ ≫ (Functor.associator .. ).hom ≫
830830 Functor.whiskerLeft F.functor α' ≫
831- (Functor.associator _ _ _ ).inv ≫ Functor.whiskerRight α _)
832- (hαα' : Functor.whiskerLeft F.inverse α ≫ (Functor.associator _ _ _ ).inv ≫
831+ (Functor.associator .. ).inv ≫ Functor.whiskerRight α _)
832+ (hαα' : Functor.whiskerLeft F.inverse α ≫ (Functor.associator .. ).inv ≫
833833 Functor.whiskerRight α' _ ≫
834- (Functor.associator _ _ _ ).hom ≫ Functor.whiskerLeft _ G.counitIso.hom =
835- (Functor.associator _ _ _ ).inv ≫ Functor.whiskerRight F.counitIso.hom _ ≫
834+ (Functor.associator .. ).hom ≫ Functor.whiskerLeft _ G.counitIso.hom =
835+ (Functor.associator .. ).inv ≫ Functor.whiskerRight F.counitIso.hom _ ≫
836836 (Functor.leftUnitor _).hom ≫ (Functor.rightUnitor _).inv)
837837 (β : G.functor.obj T ⟶ V) (β' : G.inverse.obj V ⟶ T)
838838 (hββ' : G.inverse.map β ≫ β' = G.unitIso.inv.app _)
@@ -841,8 +841,8 @@ def map₂Iso {F : C ≌ A} {G : D ≌ B} (α : F.functor ⋙ U ⟶ S ⋙ G.func
841841 functor := CostructuredArrow.map₂ α β
842842 inverse := CostructuredArrow.map₂ α' β'
843843 unitIso := (map₂IdIso _ _ _ rfl rfl).symm ≪≫ map₂Congr _ _ F.unitIso G.unitIso _ _ ?_ ?_ ≪≫
844- (map₂CompMap₂Iso _ _ _ _ ).symm
845- counitIso := map₂CompMap₂Iso _ _ _ _ ≪≫
844+ (map₂CompMap₂Iso .. ).symm
845+ counitIso := map₂CompMap₂Iso .. ≪≫
846846 map₂Congr _ _ F.counitIso G.counitIso _ _ ?_ ?_ ≪≫ map₂IdIso _ _ _ rfl rfl
847847 functor_unitIso_comp := ?_
848848where finally
0 commit comments