Adjoints commute with shifts

Given categories C and D that have shifts by an additive group A, functors F : C ⥤ D and G : C ⥤ D, an adjunction F ⊣ G and a CommShift structure on F, this file constructs a CommShift structure on G. As an easy application, if E : C ≌ D is an equivalence and E.functor has a CommShift structure, we get a CommShift structure on E.inverse.

The CommShift structure on G must be compatible with the one on F in the following sense (cf. Adjunction.CommShift): for every a in A, the natural transformation adj.unit : 𝟭 C ⟶ G ⋙ F commutes with the isomorphism shiftFunctor C A ⋙ G ⋙ F ≅ G ⋙ F ⋙ shiftFunctor C A induces by F.commShiftIso a and G.commShiftIso a. We actually require a similar condition for adj.counit, but it follows from the one for adj.unit.

In order to simplify the construction of the CommShift structure on G, we first introduce the compatibility condition on adj.unit for a fixed a in A and for isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a. We then prove that:

• If e₁ and e₂ satusfy this condition, then e₁ uniquely determines e₂ and vice versa.
• If a = 0, the isomorphisms Functor.CommShift.isoZero F and Functor.CommShift.isoZero G satisfy the condition.
• The condition is stable by addition on A, if we use Functor.CommShift.isoAdd to deduce commutation isomorphism for a + b from such isomorphism from a and b.
• Given commutation isomorphisms for F, our candidate commutation isomorphisms for G, constructed in Adjunction.RightAdjointCommShift.iso, satisfy the compatibility condition.

Once we have established all this, the compatibility of the commutation isomorphism for F expressed in CommShift.zero and CommShift.add immediately implies the similar statements for the commutation isomorphisms for G.

TODO: Construct a CommShift structure on F from a CommShift structure on G, using opposite categories.

@[reducible, inline]

abbrev CategoryTheory.Adjunction.CommShift.CompatibilityUnit {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a : A} (e₁ : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (e₂ : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) : Prop

Given an adjunction adj : F ⊣ G, a in A and commutation isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a, this expresses the compatibility of e₁ and e₂ with the unit of the adjunction adj.

Equations

• One or more equations did not get rendered due to their size.

@[reducible, inline]

abbrev CategoryTheory.Adjunction.CommShift.CompatibilityCounit {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a : A} (e₁ : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (e₂ : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) : Prop

Given an adjunction adj : F ⊣ G, a in A and commutation isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a, this expresses the compatibility of e₁ and e₂ with the counit of the adjunction adj.

Equations

• One or more equations did not get rendered due to their size.

theorem CategoryTheory.Adjunction.CommShift.compatibilityCounit_of_compatibilityUnit {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a : A} (e₁ : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (e₂ : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) (h : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj e₁ e₂) : CategoryTheory.Adjunction.CommShift.CompatibilityCounit adj e₁ e₂

Given an adjunction adj : F ⊣ G, a in A and commutation isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a, compatibility of e₁ and e₂ with the unit of the adjunction adj implies compatibility with the counit of adj.

theorem CategoryTheory.Adjunction.CommShift.compatibilityUnit_right {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a : A} (e₁ : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (e₂ : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) (h : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj e₁ e₂) (Y : D) : e₂.inv.app Y = CategoryTheory.CategoryStruct.comp (adj.unit.app ((CategoryTheory.shiftFunctor C a).obj (G.obj Y))) (CategoryTheory.CategoryStruct.comp (G.map (e₁.hom.app (G.obj Y))) (G.map ((CategoryTheory.shiftFunctor D a).map (adj.counit.app Y))))

Given an adjunction adj : F ⊣ G, a in A and commutation isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a, if e₁ and e₂ are compatible with the unit of the adjunction adj, then we get a formula for e₂.inv in terms of e₁.

theorem CategoryTheory.Adjunction.CommShift.compatibilityCounit_left {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a : A} (e₁ : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (e₂ : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) (h : CategoryTheory.Adjunction.CommShift.CompatibilityCounit adj e₁ e₂) (X : C) : e₁.hom.app X = CategoryTheory.CategoryStruct.comp (F.map ((CategoryTheory.shiftFunctor C a).map (adj.unit.app X))) (CategoryTheory.CategoryStruct.comp (F.map (e₂.inv.app (F.obj X))) (adj.counit.app ((CategoryTheory.shiftFunctor D a).obj (F.obj X))))

Given an adjunction adj : F ⊣ G, a in A and commutation isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a, if e₁ and e₂ are compatible with the counit of the adjunction adj, then we get a formula for e₁.hom in terms of e₂.

theorem CategoryTheory.Adjunction.CommShift.compatibilityUnit_unique_right {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a : A} (e₁ : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (e₂ e₂' : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) (h : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj e₁ e₂) (h' : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj e₁ e₂') : e₂ = e₂'

Given an adjunction adj : F ⊣ G, a in A and commutation isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a, if e₁ and e₂ are compatible with the unit of the adjunction adj, then e₁ uniquely determines e₂.

theorem CategoryTheory.Adjunction.CommShift.compatibilityCounit_unique_left {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a : A} (e₁ e₁' : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (e₂ : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) (h : CategoryTheory.Adjunction.CommShift.CompatibilityCounit adj e₁ e₂) (h' : CategoryTheory.Adjunction.CommShift.CompatibilityCounit adj e₁' e₂) : e₁ = e₁'

Given an adjunction adj : F ⊣ G, a in A and commutation isomorphisms e₁ : shiftFunctor C a ⋙ F ≅ F ⋙ shiftFunctor D a and e₂ : shiftFunctor D a ⋙ G ≅ G ⋙ shiftFunctor C a, if e₁ and e₂ are compatible with the counit of the adjunction adj, then e₂ uniquely determines e₁.

theorem CategoryTheory.Adjunction.CommShift.compatibilityUnit_isoZero {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj (CategoryTheory.Functor.CommShift.isoZero F A) (CategoryTheory.Functor.CommShift.isoZero G A)

The isomorphisms Functor.CommShift.isoZero F and Functor.CommShift.isoZero G are compatible with the unit of an adjunction F ⊣ G.

theorem CategoryTheory.Adjunction.CommShift.compatibilityUnit_isoAdd {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] {a b : A} (e₁ : (CategoryTheory.shiftFunctor C a).comp F ≅ F.comp (CategoryTheory.shiftFunctor D a)) (f₁ : (CategoryTheory.shiftFunctor C b).comp F ≅ F.comp (CategoryTheory.shiftFunctor D b)) (e₂ : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)) (f₂ : (CategoryTheory.shiftFunctor D b).comp G ≅ G.comp (CategoryTheory.shiftFunctor C b)) (h : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj e₁ e₂) (h' : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj f₁ f₂) : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj (CategoryTheory.Functor.CommShift.isoAdd e₁ f₁) (CategoryTheory.Functor.CommShift.isoAdd e₂ f₂)

Given an adjunction adj : F ⊣ G, a, b in A and commutation isomorphisms between shifts by a (resp. b) and F and G, if these commutation isomorphisms are compatible with the unit of adj, then so are the commutation isomorphisms between shifts by a + b and F and G constructed by Functor.CommShift.isoAdd.

class CategoryTheory.Adjunction.CommShift {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] [G.CommShift A] : Prop

The property for CommShift structures on F and G to be compatible with an adjunction F ⊣ G.

• commShift_unit : CategoryTheory.NatTrans.CommShift adj.unit A
• commShift_counit : CategoryTheory.NatTrans.CommShift adj.counit A

theorem CategoryTheory.Adjunction.CommShift.mk' {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] [G.CommShift A] (h : CategoryTheory.NatTrans.CommShift adj.unit A) : adj.CommShift A

Constructor for Adjunction.CommShift.

theorem CategoryTheory.Adjunction.shift_unit_app {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] [G.CommShift A] [adj.CommShift A] (a : A) (X : C) : (CategoryTheory.shiftFunctor C a).map (adj.unit.app X) = CategoryTheory.CategoryStruct.comp (adj.unit.app ((CategoryTheory.shiftFunctor C a).obj X)) (CategoryTheory.CategoryStruct.comp (G.map ((F.commShiftIso a).hom.app X)) ((G.commShiftIso a).hom.app (F.obj X)))

theorem CategoryTheory.Adjunction.shift_unit_app_assoc {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] [G.CommShift A] [adj.CommShift A] (a : A) (X : C) {Z : C} (h : (CategoryTheory.shiftFunctor C a).obj (G.obj (F.obj X)) ⟶ Z) : CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (adj.unit.app X)) h = CategoryTheory.CategoryStruct.comp (adj.unit.app ((CategoryTheory.shiftFunctor C a).obj X)) (CategoryTheory.CategoryStruct.comp (G.map ((F.commShiftIso a).hom.app X)) (CategoryTheory.CategoryStruct.comp ((G.commShiftIso a).hom.app (F.obj X)) h))

theorem CategoryTheory.Adjunction.shift_counit_app {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] [G.CommShift A] [adj.CommShift A] (a : A) (Y : D) : (CategoryTheory.shiftFunctor D a).map (adj.counit.app Y) = CategoryTheory.CategoryStruct.comp ((F.commShiftIso a).inv.app (G.obj Y)) (CategoryTheory.CategoryStruct.comp (F.map ((G.commShiftIso a).inv.app Y)) (adj.counit.app ((CategoryTheory.shiftFunctor D a).obj Y)))

theorem CategoryTheory.Adjunction.shift_counit_app_assoc {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] [G.CommShift A] [adj.CommShift A] (a : A) (Y : D) {Z : D} (h : (CategoryTheory.shiftFunctor D a).obj Y ⟶ Z) : CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor D a).map (adj.counit.app Y)) h = CategoryTheory.CategoryStruct.comp ((F.commShiftIso a).inv.app (G.obj Y)) (CategoryTheory.CategoryStruct.comp (F.map ((G.commShiftIso a).inv.app Y)) (CategoryTheory.CategoryStruct.comp (adj.counit.app ((CategoryTheory.shiftFunctor D a).obj Y)) h))

noncomputable def CategoryTheory.Adjunction.RightAdjointCommShift.iso' {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] (a b : A) (h : b + a = 0) [F.CommShift A] : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)

Auxiliary definition for iso.

Equations

• One or more equations did not get rendered due to their size.

noncomputable def CategoryTheory.Adjunction.RightAdjointCommShift.iso {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] (a : A) [F.CommShift A] : (CategoryTheory.shiftFunctor D a).comp G ≅ G.comp (CategoryTheory.shiftFunctor C a)

Given an adjunction F ⊣ G and a CommShift structure on F, these are the candidate CommShift.iso a isomorphisms for a compatible CommShift structure on G.

Equations

• CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a = CategoryTheory.Adjunction.RightAdjointCommShift.iso' adj a (-a) ⋯

theorem CategoryTheory.Adjunction.RightAdjointCommShift.iso_hom_app {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] (a b : A) (h : b + a = 0) [F.CommShift A] (X : D) : (CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a).hom.app X = CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctorCompIsoId C b a h).inv.app (G.obj ((CategoryTheory.shiftFunctor D a).obj X))) (CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (adj.unit.app ((CategoryTheory.shiftFunctor C b).obj (G.obj ((CategoryTheory.shiftFunctor D a).obj X))))) (CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (G.map ((F.commShiftIso b).hom.app (G.obj ((CategoryTheory.shiftFunctor D a).obj X))))) (CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (G.map ((CategoryTheory.shiftFunctor D b).map (adj.counit.app ((CategoryTheory.shiftFunctor D a).obj X))))) ((CategoryTheory.shiftFunctor C a).map (G.map ((CategoryTheory.shiftFunctorCompIsoId D a b ⋯).hom.app X))))))

theorem CategoryTheory.Adjunction.RightAdjointCommShift.iso_hom_app_assoc {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] (a b : A) (h : b + a = 0) [F.CommShift A] (X : D) {Z : C} (h✝ : (CategoryTheory.shiftFunctor C a).obj (G.obj X) ⟶ Z) : CategoryTheory.CategoryStruct.comp ((CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a).hom.app X) h✝ = CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctorCompIsoId C b a h).inv.app (G.obj ((CategoryTheory.shiftFunctor D a).obj X))) (CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (adj.unit.app ((CategoryTheory.shiftFunctor C b).obj (G.obj ((CategoryTheory.shiftFunctor D a).obj X))))) (CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (G.map ((F.commShiftIso b).hom.app (G.obj ((CategoryTheory.shiftFunctor D a).obj X))))) (CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (G.map ((CategoryTheory.shiftFunctor D b).map (adj.counit.app ((CategoryTheory.shiftFunctor D a).obj X))))) (CategoryTheory.CategoryStruct.comp ((CategoryTheory.shiftFunctor C a).map (G.map ((CategoryTheory.shiftFunctorCompIsoId D a b ⋯).hom.app X))) h✝))))

theorem CategoryTheory.Adjunction.RightAdjointCommShift.iso_inv_app {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] (a b : A) (h : b + a = 0) [F.CommShift A] (Y : D) : (CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a).inv.app Y = CategoryTheory.CategoryStruct.comp (adj.unit.app ((CategoryTheory.shiftFunctor C a).obj (G.obj Y))) (CategoryTheory.CategoryStruct.comp (G.map ((CategoryTheory.shiftFunctorCompIsoId D b a h).inv.app (F.obj ((CategoryTheory.shiftFunctor C a).obj (G.obj Y))))) (CategoryTheory.CategoryStruct.comp (G.map ((CategoryTheory.shiftFunctor D a).map ((CategoryTheory.shiftFunctor D b).map ((F.commShiftIso a).hom.app (G.obj Y))))) (CategoryTheory.CategoryStruct.comp (G.map ((CategoryTheory.shiftFunctor D a).map ((CategoryTheory.shiftFunctorCompIsoId D a b ⋯).hom.app (F.obj (G.obj Y))))) (G.map ((CategoryTheory.shiftFunctor D a).map (adj.counit.app Y))))))

theorem CategoryTheory.Adjunction.RightAdjointCommShift.iso_inv_app_assoc {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] (a b : A) (h : b + a = 0) [F.CommShift A] (Y : D) {Z : C} (h✝ : G.obj ((CategoryTheory.shiftFunctor D a).obj Y) ⟶ Z) : CategoryTheory.CategoryStruct.comp ((CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a).inv.app Y) h✝ = CategoryTheory.CategoryStruct.comp (adj.unit.app ((CategoryTheory.shiftFunctor C a).obj (G.obj Y))) (CategoryTheory.CategoryStruct.comp (G.map ((CategoryTheory.shiftFunctorCompIsoId D b a h).inv.app (F.obj ((CategoryTheory.shiftFunctor C a).obj (G.obj Y))))) (CategoryTheory.CategoryStruct.comp (G.map ((CategoryTheory.shiftFunctor D a).map ((CategoryTheory.shiftFunctor D b).map ((F.commShiftIso a).hom.app (G.obj Y))))) (CategoryTheory.CategoryStruct.comp (G.map ((CategoryTheory.shiftFunctor D a).map ((CategoryTheory.shiftFunctorCompIsoId D a b ⋯).hom.app (F.obj (G.obj Y))))) (CategoryTheory.CategoryStruct.comp (G.map ((CategoryTheory.shiftFunctor D a).map (adj.counit.app Y))) h✝))))

theorem CategoryTheory.Adjunction.RightAdjointCommShift.compatibilityUnit_iso {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) {A : Type u_3} [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] (a : A) : CategoryTheory.Adjunction.CommShift.CompatibilityUnit adj (F.commShiftIso a) (CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a)

The commutation isomorphisms of Adjunction.RightAdjointCommShift.iso are compatible with the unit of the adjunction.

noncomputable def CategoryTheory.Adjunction.rightAdjointCommShift {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) (A : Type u_3) [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] : G.CommShift A

Given an adjunction F ⊣ G and a CommShift structure on F, this constructs the unique compatible CommShift structure on G.

Equations

• adj.rightAdjointCommShift A = { iso := fun (a : A) => CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a, zero := ⋯, add := ⋯ }

@[simp]

theorem CategoryTheory.Adjunction.rightAdjointCommShift_iso {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) (A : Type u_3) [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] (a : A) : CategoryTheory.Functor.CommShift.iso a = CategoryTheory.Adjunction.RightAdjointCommShift.iso adj a

theorem CategoryTheory.Adjunction.commShift_of_leftAdjoint {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] {F : CategoryTheory.Functor C D} {G : CategoryTheory.Functor D C} (adj : F ⊣ G) (A : Type u_3) [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [F.CommShift A] : adj.CommShift A

@[reducible, inline]

abbrev CategoryTheory.Equivalence.CommShift {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] [E.inverse.CommShift A] : Prop

If E : C ≌ D is an equivalence, this expresses the compatibility of CommShift structures on E.functor and E.inverse.

Equations

• E.CommShift A = E.toAdjunction.CommShift A

instance CategoryTheory.Equivalence.CommShift.instCommShiftHomFunctorUnitIso {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] [E.inverse.CommShift A] [E.CommShift A] : CategoryTheory.NatTrans.CommShift E.unitIso.hom A

instance CategoryTheory.Equivalence.CommShift.instCommShiftHomFunctorCounitIso {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] [E.inverse.CommShift A] [E.CommShift A] : CategoryTheory.NatTrans.CommShift E.counitIso.hom A

instance CategoryTheory.Equivalence.CommShift.instCommShiftInverseSymmOfFunctor {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [h : E.functor.CommShift A] : E.symm.inverse.CommShift A

Equations

• CategoryTheory.Equivalence.CommShift.instCommShiftInverseSymmOfFunctor E A = h

instance CategoryTheory.Equivalence.CommShift.instCommShiftFunctorSymmOfInverse {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [h : E.inverse.CommShift A] : E.symm.functor.CommShift A

Equations

• CategoryTheory.Equivalence.CommShift.instCommShiftFunctorSymmOfInverse E A = h

theorem CategoryTheory.Equivalence.CommShift.mk' {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] [E.inverse.CommShift A] (h : CategoryTheory.NatTrans.CommShift E.unitIso.hom A) : E.CommShift A

Constructor for Equivalence.CommShift.

instance CategoryTheory.Equivalence.CommShift.instSymm {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] [E.inverse.CommShift A] [E.CommShift A] : E.symm.CommShift A

If E : C ≌ D is an equivalence and we have compatible CommShift structures on E.functor and E.inverse, then we also have compatible CommShift structures on E.symm.functor and E.symm.inverse.

theorem CategoryTheory.Equivalence.CommShift.mk'' {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_5, u_1} C] [CategoryTheory.Category.{u_4, u_2} D] (E : C ≌ D) (A : Type u_3) [AddMonoid A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] [E.inverse.CommShift A] (h : CategoryTheory.NatTrans.CommShift E.counitIso.hom A) : E.CommShift A

Constructor for Equivalence.CommShift.

noncomputable def CategoryTheory.Equivalence.commShiftInverse {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] : E.inverse.CommShift A

If E : C ≌ D is an equivalence and we have a CommShift structure on E.functor, this constructs the unique compatible CommShift structure on E.inverse.

Equations

• E.commShiftInverse A = E.toAdjunction.rightAdjointCommShift A

theorem CategoryTheory.Equivalence.commShift_of_functor {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.functor.CommShift A] : E.CommShift A

noncomputable def CategoryTheory.Equivalence.commShiftFunctor {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_4, u_1} C] [CategoryTheory.Category.{u_5, u_2} D] (E : C ≌ D) (A : Type u_3) [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.inverse.CommShift A] : E.functor.CommShift A

If E : C ≌ D is an equivalence and we have a CommShift structure on E.inverse, this constructs the unique compatible CommShift structure on E.functor.

Equations

• E.commShiftFunctor A = E.symm.toAdjunction.rightAdjointCommShift A

theorem CategoryTheory.Equivalence.commShift_of_inverse {C : Type u_1} {D : Type u_2} [CategoryTheory.Category.{u_5, u_1} C] [CategoryTheory.Category.{u_4, u_2} D] (E : C ≌ D) (A : Type u_3) [AddGroup A] [CategoryTheory.HasShift C A] [CategoryTheory.HasShift D A] [E.inverse.CommShift A] : E.CommShift A