Chain homotopies

We define chain homotopies, and prove that homotopic chain maps induce the same map on homology.

def dNext {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (i : ι) : ((i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) →+ (HomologicalComplex.X C i ⟶ HomologicalComplex.X D i)

The composition of C.d i (c.next i) ≫ f (c.next i) i.

def fromNext {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (i : ι) : ((i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) →+ (HomologicalComplex.xNext C i ⟶ HomologicalComplex.X D i)

f (c.next i) i.

@[simp]

theorem dNext_eq_dFrom_fromNext {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) (i : ι) : ↑(dNext i) f = CategoryTheory.CategoryStruct.comp (HomologicalComplex.dFrom C i) (↑(fromNext i) f)

theorem dNext_eq {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) {i : ι} {i' : ι} (w : ComplexShape.Rel c i i') : ↑(dNext i) f = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d C i i') (f i' i)

@[simp]

theorem dNext_comp_left {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (f : C ⟶ D) (g : (i j : ι) → HomologicalComplex.X D i ⟶ HomologicalComplex.X E j) (i : ι) : (↑(dNext i) fun i j => CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f f i) (g i j)) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f f i) (↑(dNext i) g)

@[simp]

theorem dNext_comp_right {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (f : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) (g : D ⟶ E) (i : ι) : (↑(dNext i) fun i j => CategoryTheory.CategoryStruct.comp (f i j) (HomologicalComplex.Hom.f g j)) = CategoryTheory.CategoryStruct.comp (↑(dNext i) f) (HomologicalComplex.Hom.f g i)

def prevD {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (j : ι) : ((i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) →+ (HomologicalComplex.X C j ⟶ HomologicalComplex.X D j)

The composition f j (c.prev j) ≫ D.d (c.prev j) j.

def toPrev {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (j : ι) : ((i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) →+ (HomologicalComplex.X C j ⟶ HomologicalComplex.xPrev D j)

f j (c.prev j).

@[simp]

theorem prevD_eq_toPrev_dTo {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) (j : ι) : ↑(prevD j) f = CategoryTheory.CategoryStruct.comp (↑(toPrev j) f) (HomologicalComplex.dTo D j)

theorem prevD_eq {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) {j : ι} {j' : ι} (w : ComplexShape.Rel c j' j) : ↑(prevD j) f = CategoryTheory.CategoryStruct.comp (f j j') (HomologicalComplex.d D j' j)

@[simp]

theorem prevD_comp_left {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (f : C ⟶ D) (g : (i j : ι) → HomologicalComplex.X D i ⟶ HomologicalComplex.X E j) (j : ι) : (↑(prevD j) fun i j => CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f f i) (g i j)) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f f j) (↑(prevD j) g)

@[simp]

theorem prevD_comp_right {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (f : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) (g : D ⟶ E) (j : ι) : (↑(prevD j) fun i j => CategoryTheory.CategoryStruct.comp (f i j) (HomologicalComplex.Hom.f g j)) = CategoryTheory.CategoryStruct.comp (↑(prevD j) f) (HomologicalComplex.Hom.f g j)

theorem dNext_nat {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] (C : ChainComplex V ℕ) (D : ChainComplex V ℕ) (i : ℕ) (f : (i j : ℕ) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : ↑(dNext i) f = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d C i (i - 1)) (f (i - 1) i)

theorem prevD_nat {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] (C : CochainComplex V ℕ) (D : CochainComplex V ℕ) (i : ℕ) (f : (i j : ℕ) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : ↑(prevD i) f = CategoryTheory.CategoryStruct.comp (f i (i - 1)) (HomologicalComplex.d D (i - 1) i)

theorem Homotopy.ext_iff {ι : Type u_1} {V : Type u} : ∀ {inst : CategoryTheory.Category.{v, u} V} {inst_1 : CategoryTheory.Preadditive V} {c : ComplexShape ι} {C D : HomologicalComplex V c} {f g : C ⟶ D} (x y : Homotopy f g), x = y ↔ x.hom = y.hom

theorem Homotopy.ext {ι : Type u_1} {V : Type u} : ∀ {inst : CategoryTheory.Category.{v, u} V} {inst_1 : CategoryTheory.Preadditive V} {c : ComplexShape ι} {C D : HomologicalComplex V c} {f g : C ⟶ D} (x y : Homotopy f g), x.hom = y.hom → x = y

structure Homotopy {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : C ⟶ D) (g : C ⟶ D) : Type (max u_1 v)

• hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j
• zero : ∀ (i j : ι), ¬ComplexShape.Rel c j i → Homotopy.hom s i j = 0
• comm : ∀ (i : ι), HomologicalComplex.Hom.f f i = ↑(dNext i) s.hom + ↑(prevD i) s.hom + HomologicalComplex.Hom.f g i

A homotopy h between chain maps f and g consists of components h i j : C.X i ⟶ D.X j which are zero unless c.Rel j i, satisfying the homotopy condition.

def Homotopy.equivSubZero {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ D} {g : C ⟶ D} : Homotopy f g ≃ Homotopy (f - g) 0

f is homotopic to g iff f - g is homotopic to 0.

@[simp]

theorem Homotopy.ofEq_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ D} {g : C ⟶ D} (h : f = g) (i : ι) (j : ι) : Homotopy.hom (Homotopy.ofEq h) i j = OfNat.ofNat ((i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) 0 Zero.toOfNat0 i j

def Homotopy.ofEq {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ D} {g : C ⟶ D} (h : f = g) : Homotopy f g

Equal chain maps are homotopic.

@[simp]

theorem Homotopy.refl_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : C ⟶ D) (i : ι) (j : ι) : Homotopy.hom (Homotopy.refl f) i j = 0

def Homotopy.refl {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : C ⟶ D) : Homotopy f f

Every chain map is homotopic to itself.

@[simp]

theorem Homotopy.symm_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ D} {g : C ⟶ D} (h : Homotopy f g) (i : ι) (j : ι) : Homotopy.hom (Homotopy.symm h) i j = -Homotopy.hom h i j

def Homotopy.symm {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ D} {g : C ⟶ D} (h : Homotopy f g) : Homotopy g f

f is homotopic to g iff g is homotopic to f.

@[simp]

theorem Homotopy.trans_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {e : C ⟶ D} {f : C ⟶ D} {g : C ⟶ D} (h : Homotopy e f) (k : Homotopy f g) (i : ι) (j : ι) : Homotopy.hom (Homotopy.trans h k) i j = Homotopy.hom h i j + Homotopy.hom k i j

def Homotopy.trans {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {e : C ⟶ D} {f : C ⟶ D} {g : C ⟶ D} (h : Homotopy e f) (k : Homotopy f g) : Homotopy e g

homotopy is a transitive relation.

@[simp]

theorem Homotopy.add_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f₁ : C ⟶ D} {g₁ : C ⟶ D} {f₂ : C ⟶ D} {g₂ : C ⟶ D} (h₁ : Homotopy f₁ g₁) (h₂ : Homotopy f₂ g₂) (i : ι) (j : ι) : Homotopy.hom (Homotopy.add h₁ h₂) i j = Homotopy.hom h₁ i j + Homotopy.hom h₂ i j

def Homotopy.add {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f₁ : C ⟶ D} {g₁ : C ⟶ D} {f₂ : C ⟶ D} {g₂ : C ⟶ D} (h₁ : Homotopy f₁ g₁) (h₂ : Homotopy f₂ g₂) : Homotopy (f₁ + f₂) (g₁ + g₂)

the sum of two homotopies is a homotopy between the sum of the respective morphisms.

@[simp]

theorem Homotopy.compRight_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} {e : C ⟶ D} {f : C ⟶ D} (h : Homotopy e f) (g : D ⟶ E) (i : ι) (j : ι) : Homotopy.hom (Homotopy.compRight h g) i j = CategoryTheory.CategoryStruct.comp (Homotopy.hom h i j) (HomologicalComplex.Hom.f g j)

def Homotopy.compRight {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} {e : C ⟶ D} {f : C ⟶ D} (h : Homotopy e f) (g : D ⟶ E) : Homotopy (CategoryTheory.CategoryStruct.comp e g) (CategoryTheory.CategoryStruct.comp f g)

homotopy is closed under composition (on the right)

@[simp]

theorem Homotopy.compLeft_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} {f : D ⟶ E} {g : D ⟶ E} (h : Homotopy f g) (e : C ⟶ D) (i : ι) (j : ι) : Homotopy.hom (Homotopy.compLeft h e) i j = CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f e i) (Homotopy.hom h i j)

def Homotopy.compLeft {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} {f : D ⟶ E} {g : D ⟶ E} (h : Homotopy f g) (e : C ⟶ D) : Homotopy (CategoryTheory.CategoryStruct.comp e f) (CategoryTheory.CategoryStruct.comp e g)

homotopy is closed under composition (on the left)

@[simp]

theorem Homotopy.comp_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C₁ : HomologicalComplex V c} {C₂ : HomologicalComplex V c} {C₃ : HomologicalComplex V c} {f₁ : C₁ ⟶ C₂} {g₁ : C₁ ⟶ C₂} {f₂ : C₂ ⟶ C₃} {g₂ : C₂ ⟶ C₃} (h₁ : Homotopy f₁ g₁) (h₂ : Homotopy f₂ g₂) (i : ι) (j : ι) : Homotopy.hom (Homotopy.comp h₁ h₂) i j = CategoryTheory.CategoryStruct.comp (Homotopy.hom h₁ i j) (HomologicalComplex.Hom.f f₂ j) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f g₁ i) (Homotopy.hom h₂ i j)

def Homotopy.comp {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C₁ : HomologicalComplex V c} {C₂ : HomologicalComplex V c} {C₃ : HomologicalComplex V c} {f₁ : C₁ ⟶ C₂} {g₁ : C₁ ⟶ C₂} {f₂ : C₂ ⟶ C₃} {g₂ : C₂ ⟶ C₃} (h₁ : Homotopy f₁ g₁) (h₂ : Homotopy f₂ g₂) : Homotopy (CategoryTheory.CategoryStruct.comp f₁ f₂) (CategoryTheory.CategoryStruct.comp g₁ g₂)

homotopy is closed under composition

@[simp]

theorem Homotopy.compRightId_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ C} (h : Homotopy f (CategoryTheory.CategoryStruct.id C)) (g : C ⟶ D) (i : ι) (j : ι) : Homotopy.hom (Homotopy.compRightId h g) i j = CategoryTheory.CategoryStruct.comp (Homotopy.hom h i j) (HomologicalComplex.Hom.f g j)

def Homotopy.compRightId {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ C} (h : Homotopy f (CategoryTheory.CategoryStruct.id C)) (g : C ⟶ D) : Homotopy (CategoryTheory.CategoryStruct.comp f g) g

a variant of Homotopy.compRight useful for dealing with homotopy equivalences.

@[simp]

theorem Homotopy.compLeftId_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : D ⟶ D} (h : Homotopy f (CategoryTheory.CategoryStruct.id D)) (g : C ⟶ D) (i : ι) (j : ι) : Homotopy.hom (Homotopy.compLeftId h g) i j = CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f g i) (Homotopy.hom h i j)

def Homotopy.compLeftId {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : D ⟶ D} (h : Homotopy f (CategoryTheory.CategoryStruct.id D)) (g : C ⟶ D) : Homotopy (CategoryTheory.CategoryStruct.comp g f) g

a variant of Homotopy.compLeft useful for dealing with homotopy equivalences.

Null homotopic maps can be constructed using the formula hd+dh. We show that these morphisms are homotopic to 0 and provide some convenient simplification lemmas that give a degreewise description of hd+dh, depending on whether we have two differentials going to and from a certain degree, only one, or none.

def Homotopy.nullHomotopicMap {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : C ⟶ D

The null homotopic map associated to a family hom of morphisms C_i ⟶ D_j. This is the same datum as for the field hom in the structure Homotopy. For this definition, we do not need the field zero of that structure as this definition uses only the maps C_i ⟶ C_j when c.Rel j i.

def Homotopy.nullHomotopicMap' {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (h : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) : C ⟶ D

Variant of nullHomotopicMap where the input consists only of the relevant maps C_i ⟶ D_j such that c.Rel j i.

theorem Homotopy.nullHomotopicMap_comp {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) (g : D ⟶ E) : CategoryTheory.CategoryStruct.comp (Homotopy.nullHomotopicMap hom) g = Homotopy.nullHomotopicMap fun i j => CategoryTheory.CategoryStruct.comp (hom i j) (HomologicalComplex.Hom.f g j)

Compatibility of nullHomotopicMap with the postcomposition by a morphism of complexes.

theorem Homotopy.nullHomotopicMap'_comp {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (hom : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) (g : D ⟶ E) : CategoryTheory.CategoryStruct.comp (Homotopy.nullHomotopicMap' hom) g = Homotopy.nullHomotopicMap' fun i j hij => CategoryTheory.CategoryStruct.comp (hom i j hij) (HomologicalComplex.Hom.f g j)

Compatibility of nullHomotopicMap' with the postcomposition by a morphism of complexes.

theorem Homotopy.comp_nullHomotopicMap {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (f : C ⟶ D) (hom : (i j : ι) → HomologicalComplex.X D i ⟶ HomologicalComplex.X E j) : CategoryTheory.CategoryStruct.comp f (Homotopy.nullHomotopicMap hom) = Homotopy.nullHomotopicMap fun i j => CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f f i) (hom i j)

Compatibility of nullHomotopicMap with the precomposition by a morphism of complexes.

theorem Homotopy.comp_nullHomotopicMap' {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (f : C ⟶ D) (hom : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X D i ⟶ HomologicalComplex.X E j)) : CategoryTheory.CategoryStruct.comp f (Homotopy.nullHomotopicMap' hom) = Homotopy.nullHomotopicMap' fun i j hij => CategoryTheory.CategoryStruct.comp (HomologicalComplex.Hom.f f i) (hom i j hij)

Compatibility of nullHomotopicMap' with the precomposition by a morphism of complexes.

theorem Homotopy.map_nullHomotopicMap {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (G : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive G] (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : (CategoryTheory.Functor.mapHomologicalComplex G c).map (Homotopy.nullHomotopicMap hom) = Homotopy.nullHomotopicMap fun i j => G.map (hom i j)

Compatibility of nullHomotopicMap with the application of additive functors

theorem Homotopy.map_nullHomotopicMap' {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (G : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive G] (hom : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) : (CategoryTheory.Functor.mapHomologicalComplex G c).map (Homotopy.nullHomotopicMap' hom) = Homotopy.nullHomotopicMap' fun i j hij => G.map (hom i j hij)

Compatibility of nullHomotopicMap' with the application of additive functors

@[simp]

theorem Homotopy.nullHomotopy_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) (zero : ∀ (i j : ι), ¬ComplexShape.Rel c j i → hom i j = 0) (i : ι) (j : ι) : Homotopy.hom (Homotopy.nullHomotopy hom zero) i j = hom i j

def Homotopy.nullHomotopy {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) (zero : ∀ (i j : ι), ¬ComplexShape.Rel c j i → hom i j = 0) : Homotopy (Homotopy.nullHomotopicMap hom) 0

Tautological construction of the Homotopy to zero for maps constructed by nullHomotopicMap, at least when we have the zero condition.

@[simp]

theorem Homotopy.nullHomotopy'_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (h : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) (i : ι) (j : ι) : Homotopy.hom (Homotopy.nullHomotopy' h) i j = dite (ComplexShape.Rel c j i) (h i j) fun x => 0

def Homotopy.nullHomotopy' {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (h : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) : Homotopy (Homotopy.nullHomotopicMap' h) 0

Homotopy to zero for maps constructed with nullHomotopicMap'

This lemma and the following ones can be used in order to compute the degreewise morphisms induced by the null homotopic maps constructed with nullHomotopicMap or nullHomotopicMap'

@[simp]

theorem Homotopy.nullHomotopicMap_f {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₂ : ι} {k₁ : ι} {k₀ : ι} (r₂₁ : ComplexShape.Rel c k₂ k₁) (r₁₀ : ComplexShape.Rel c k₁ k₀) (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap hom) k₁ = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d C k₁ k₀) (hom k₀ k₁) + CategoryTheory.CategoryStruct.comp (hom k₁ k₂) (HomologicalComplex.d D k₂ k₁)

@[simp]

theorem Homotopy.nullHomotopicMap'_f {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₂ : ι} {k₁ : ι} {k₀ : ι} (r₂₁ : ComplexShape.Rel c k₂ k₁) (r₁₀ : ComplexShape.Rel c k₁ k₀) (h : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap' h) k₁ = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d C k₁ k₀) (h k₀ k₁ r₁₀) + CategoryTheory.CategoryStruct.comp (h k₁ k₂ r₂₁) (HomologicalComplex.d D k₂ k₁)

@[simp]

theorem Homotopy.nullHomotopicMap_f_of_not_rel_left {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₁ : ι} {k₀ : ι} (r₁₀ : ComplexShape.Rel c k₁ k₀) (hk₀ : ∀ (l : ι), ¬ComplexShape.Rel c k₀ l) (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap hom) k₀ = CategoryTheory.CategoryStruct.comp (hom k₀ k₁) (HomologicalComplex.d D k₁ k₀)

@[simp]

theorem Homotopy.nullHomotopicMap'_f_of_not_rel_left {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₁ : ι} {k₀ : ι} (r₁₀ : ComplexShape.Rel c k₁ k₀) (hk₀ : ∀ (l : ι), ¬ComplexShape.Rel c k₀ l) (h : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap' h) k₀ = CategoryTheory.CategoryStruct.comp (h k₀ k₁ r₁₀) (HomologicalComplex.d D k₁ k₀)

@[simp]

theorem Homotopy.nullHomotopicMap_f_of_not_rel_right {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₁ : ι} {k₀ : ι} (r₁₀ : ComplexShape.Rel c k₁ k₀) (hk₁ : ∀ (l : ι), ¬ComplexShape.Rel c l k₁) (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap hom) k₁ = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d C k₁ k₀) (hom k₀ k₁)

@[simp]

theorem Homotopy.nullHomotopicMap'_f_of_not_rel_right {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₁ : ι} {k₀ : ι} (r₁₀ : ComplexShape.Rel c k₁ k₀) (hk₁ : ∀ (l : ι), ¬ComplexShape.Rel c l k₁) (h : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap' h) k₁ = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d C k₁ k₀) (h k₀ k₁ r₁₀)

@[simp]

theorem Homotopy.nullHomotopicMap_f_eq_zero {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₀ : ι} (hk₀ : ∀ (l : ι), ¬ComplexShape.Rel c k₀ l) (hk₀' : ∀ (l : ι), ¬ComplexShape.Rel c l k₀) (hom : (i j : ι) → HomologicalComplex.X C i ⟶ HomologicalComplex.X D j) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap hom) k₀ = 0

@[simp]

theorem Homotopy.nullHomotopicMap'_f_eq_zero {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {k₀ : ι} (hk₀ : ∀ (l : ι), ¬ComplexShape.Rel c k₀ l) (hk₀' : ∀ (l : ι), ¬ComplexShape.Rel c l k₀) (h : (i j : ι) → ComplexShape.Rel c j i → (HomologicalComplex.X C i ⟶ HomologicalComplex.X D j)) : HomologicalComplex.Hom.f (Homotopy.nullHomotopicMap' h) k₀ = 0

Homotopy.mkInductive allows us to build a homotopy of chain complexes inductively, so that as we construct each component, we have available the previous two components, and the fact that they satisfy the homotopy condition.

To simplify the situation, we only construct homotopies of the form Homotopy e 0. Homotopy.equivSubZero can provide the general case.

Notice however, that this construction does not have particularly good definitional properties: we have to insert eqToHom in several places. Hopefully this is okay in most applications, where we only need to have the existence of some homotopy.

@[simp]

theorem Homotopy.prevD_chainComplex {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (f : (i j : ℕ) → HomologicalComplex.X P i ⟶ HomologicalComplex.X Q j) (j : ℕ) : ↑(prevD j) f = CategoryTheory.CategoryStruct.comp (f j (j + 1)) (HomologicalComplex.d Q (j + 1) j)

@[simp]

theorem Homotopy.dNext_succ_chainComplex {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (f : (i j : ℕ) → HomologicalComplex.X P i ⟶ HomologicalComplex.X Q j) (i : ℕ) : ↑(dNext (i + 1)) f = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (i + 1) i) (f i (i + 1))

@[simp]

theorem Homotopy.dNext_zero_chainComplex {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (f : (i j : ℕ) → HomologicalComplex.X P i ⟶ HomologicalComplex.X Q j) : ↑(dNext 0) f = 0

def Homotopy.mkInductiveAux₁ {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 0 ⟶ HomologicalComplex.X Q 1) (one : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 2) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 0) zero + CategoryTheory.CategoryStruct.comp one (HomologicalComplex.d Q 2 1)) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.X Q (n + 1)) ×' (f' : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.d Q (n + 2) (n + 1))) → (f'' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 3)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 1)) p.snd.fst + CategoryTheory.CategoryStruct.comp f'' (HomologicalComplex.d Q (n + 3) (n + 2))) (n : ℕ) : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.X Q (n + 1)) ×' (f' : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.d Q (n + 2) (n + 1))

An auxiliary construction for mkInductive.

Here we build by induction a family of diagrams, but don't require at the type level that these successive diagrams actually agree. They do in fact agree, and we then capture that at the type level (i.e. by constructing a homotopy) in mkInductive.

At this stage, we don't check the homotopy condition in degree 0, because it "falls off the end", and is easier to treat using xNext and xPrev, which we do in mkInductiveAux₂.

Equations

• One or more equations did not get rendered due to their size.
• Homotopy.mkInductiveAux₁ e zero one comm_one succ 0 = { fst := zero, snd := { fst := one, snd := comm_one } }

def Homotopy.mkInductiveAux₂ {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 0 ⟶ HomologicalComplex.X Q 1) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 1 0)) (one : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 2) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 0) zero + CategoryTheory.CategoryStruct.comp one (HomologicalComplex.d Q 2 1)) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.X Q (n + 1)) ×' (f' : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.d Q (n + 2) (n + 1))) → (f'' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 3)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 1)) p.snd.fst + CategoryTheory.CategoryStruct.comp f'' (HomologicalComplex.d Q (n + 3) (n + 2))) (n : ℕ) : (f : HomologicalComplex.xNext P n ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P n ⟶ HomologicalComplex.xPrev Q n) ×' HomologicalComplex.Hom.f e n = CategoryTheory.CategoryStruct.comp (HomologicalComplex.dFrom P n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.dTo Q n)

An auxiliary construction for mkInductive.

@[simp]

theorem Homotopy.mkInductiveAux₂_zero {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 0 ⟶ HomologicalComplex.X Q 1) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 1 0)) (one : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 2) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 0) zero + CategoryTheory.CategoryStruct.comp one (HomologicalComplex.d Q 2 1)) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.X Q (n + 1)) ×' (f' : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.d Q (n + 2) (n + 1))) → (f'' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 3)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 1)) p.snd.fst + CategoryTheory.CategoryStruct.comp f'' (HomologicalComplex.d Q (n + 3) (n + 2))) : Homotopy.mkInductiveAux₂ e zero comm_zero one comm_one succ 0 = { fst := 0, snd := { fst := CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.xPrevIso Q (_ : 0 + 1 = 0 + 1)).inv, snd := (_ : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.dFrom P 0) 0 + CategoryTheory.CategoryStruct.comp (CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.xPrevIso Q (_ : 0 + 1 = 0 + 1)).inv) (HomologicalComplex.dTo Q 0)) } }

@[simp]

theorem Homotopy.mkInductiveAux₂_add_one {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 0 ⟶ HomologicalComplex.X Q 1) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 1 0)) (one : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 2) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 0) zero + CategoryTheory.CategoryStruct.comp one (HomologicalComplex.d Q 2 1)) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.X Q (n + 1)) ×' (f' : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.d Q (n + 2) (n + 1))) → (f'' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 3)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 1)) p.snd.fst + CategoryTheory.CategoryStruct.comp f'' (HomologicalComplex.d Q (n + 3) (n + 2))) (n : ℕ) : Homotopy.mkInductiveAux₂ e zero comm_zero one comm_one succ (n + 1) = let I := Homotopy.mkInductiveAux₁ e zero one comm_one succ n; { fst := CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P (_ : n + 1 = n + 1)).hom I.fst, snd := { fst := CategoryTheory.CategoryStruct.comp I.snd.fst (HomologicalComplex.xPrevIso Q (_ : n + 1 + 1 = n + 1 + 1)).inv, snd := (_ : HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.dFrom P (n + 1)) (CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P (_ : n + 1 = n + 1)).hom (Homotopy.mkInductiveAux₁ e zero one comm_one succ n).fst) + CategoryTheory.CategoryStruct.comp (CategoryTheory.CategoryStruct.comp (Homotopy.mkInductiveAux₁ e zero one comm_one succ n).snd.fst (HomologicalComplex.xPrevIso Q (_ : n + 1 + 1 = n + 1 + 1)).inv) (HomologicalComplex.dTo Q (n + 1))) } }

theorem Homotopy.mkInductiveAux₃ {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 0 ⟶ HomologicalComplex.X Q 1) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 1 0)) (one : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 2) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 0) zero + CategoryTheory.CategoryStruct.comp one (HomologicalComplex.d Q 2 1)) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.X Q (n + 1)) ×' (f' : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.d Q (n + 2) (n + 1))) → (f'' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 3)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 1)) p.snd.fst + CategoryTheory.CategoryStruct.comp f'' (HomologicalComplex.d Q (n + 3) (n + 2))) (i : ℕ) (j : ℕ) (h : i + 1 = j) : CategoryTheory.CategoryStruct.comp (Homotopy.mkInductiveAux₂ e zero comm_zero one comm_one succ i).snd.fst (HomologicalComplex.xPrevIso Q h).hom = CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P h).inv (Homotopy.mkInductiveAux₂ e zero comm_zero one comm_one succ j).fst

def Homotopy.mkInductive {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : ChainComplex V ℕ} {Q : ChainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 0 ⟶ HomologicalComplex.X Q 1) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 1 0)) (one : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 2) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 0) zero + CategoryTheory.CategoryStruct.comp one (HomologicalComplex.d Q 2 1)) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.X Q (n + 1)) ×' (f' : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) n) f + CategoryTheory.CategoryStruct.comp f' (HomologicalComplex.d Q (n + 2) (n + 1))) → (f'' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 3)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 1)) p.snd.fst + CategoryTheory.CategoryStruct.comp f'' (HomologicalComplex.d Q (n + 3) (n + 2))) : Homotopy e 0

A constructor for a Homotopy e 0, for e a chain map between ℕ-indexed chain complexes, working by induction.

You need to provide the components of the homotopy in degrees 0 and 1, show that these satisfy the homotopy condition, and then give a construction of each component, and the fact that it satisfies the homotopy condition, using as an inductive hypothesis the data and homotopy condition for the previous two components.

Homotopy.mkCoinductive allows us to build a homotopy of cochain complexes inductively, so that as we construct each component, we have available the previous two components, and the fact that they satisfy the homotopy condition.

@[simp]

theorem Homotopy.dNext_cochainComplex {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (f : (i j : ℕ) → HomologicalComplex.X P i ⟶ HomologicalComplex.X Q j) (j : ℕ) : ↑(dNext j) f = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P j (j + 1)) (f (j + 1) j)

@[simp]

theorem Homotopy.prevD_succ_cochainComplex {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (f : (i j : ℕ) → HomologicalComplex.X P i ⟶ HomologicalComplex.X Q j) (i : ℕ) : ↑(prevD (i + 1)) f = CategoryTheory.CategoryStruct.comp (f (i + 1) i) (HomologicalComplex.d Q i (i + 1))

@[simp]

theorem Homotopy.prevD_zero_cochainComplex {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (f : (i j : ℕ) → HomologicalComplex.X P i ⟶ HomologicalComplex.X Q j) : ↑(prevD 0) f = 0

def Homotopy.mkCoinductiveAux₁ {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 0) (one : HomologicalComplex.X P 2 ⟶ HomologicalComplex.X Q 1) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 0 1) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 2) one) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 1)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.d Q n (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) (n + 2)) f') → (f'' : HomologicalComplex.X P (n + 3) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp p.snd.fst (HomologicalComplex.d Q (n + 1) (n + 2)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 3)) f'') (n : ℕ) : (f : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 1)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.d Q n (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) (n + 2)) f'

An auxiliary construction for mkCoinductive.

Here we build by induction a family of diagrams, but don't require at the type level that these successive diagrams actually agree. They do in fact agree, and we then capture that at the type level (i.e. by constructing a homotopy) in mkCoinductive.

At this stage, we don't check the homotopy condition in degree 0, because it "falls off the end", and is easier to treat using xNext and xPrev, which we do in mkInductiveAux₂.

Equations

• One or more equations did not get rendered due to their size.
• Homotopy.mkCoinductiveAux₁ e zero one comm_one succ 0 = { fst := zero, snd := { fst := one, snd := comm_one } }

def Homotopy.mkCoinductiveAux₂ {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 0) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 0 1) zero) (one : HomologicalComplex.X P 2 ⟶ HomologicalComplex.X Q 1) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 0 1) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 2) one) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 1)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.d Q n (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) (n + 2)) f') → (f'' : HomologicalComplex.X P (n + 3) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp p.snd.fst (HomologicalComplex.d Q (n + 1) (n + 2)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 3)) f'') (n : ℕ) : (f : HomologicalComplex.X P n ⟶ HomologicalComplex.xPrev Q n) ×' (f' : HomologicalComplex.xNext P n ⟶ HomologicalComplex.X Q n) ×' HomologicalComplex.Hom.f e n = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.dTo Q n) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.dFrom P n) f'

An auxiliary construction for mkInductive.

@[simp]

theorem Homotopy.mkCoinductiveAux₂_zero {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 0) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 0 1) zero) (one : HomologicalComplex.X P 2 ⟶ HomologicalComplex.X Q 1) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 0 1) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 2) one) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 1)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.d Q n (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) (n + 2)) f') → (f'' : HomologicalComplex.X P (n + 3) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp p.snd.fst (HomologicalComplex.d Q (n + 1) (n + 2)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 3)) f'') : Homotopy.mkCoinductiveAux₂ e zero comm_zero one comm_one succ 0 = { fst := 0, snd := { fst := CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P (_ : 0 + 1 = 0 + 1)).hom zero, snd := (_ : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp 0 (HomologicalComplex.dTo Q 0) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.dFrom P 0) (CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P (_ : 0 + 1 = 0 + 1)).hom zero)) } }

@[simp]

theorem Homotopy.mkCoinductiveAux₂_add_one {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 0) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 0 1) zero) (one : HomologicalComplex.X P 2 ⟶ HomologicalComplex.X Q 1) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 0 1) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 2) one) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 1)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.d Q n (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) (n + 2)) f') → (f'' : HomologicalComplex.X P (n + 3) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp p.snd.fst (HomologicalComplex.d Q (n + 1) (n + 2)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 3)) f'') (n : ℕ) : Homotopy.mkCoinductiveAux₂ e zero comm_zero one comm_one succ (n + 1) = let I := Homotopy.mkCoinductiveAux₁ e zero one comm_one succ n; { fst := CategoryTheory.CategoryStruct.comp I.fst (HomologicalComplex.xPrevIso Q (_ : n + 1 = n + 1)).inv, snd := { fst := CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P (_ : n + 1 + 1 = n + 1 + 1)).hom I.snd.fst, snd := (_ : HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp (CategoryTheory.CategoryStruct.comp (Homotopy.mkCoinductiveAux₁ e zero one comm_one succ n).fst (HomologicalComplex.xPrevIso Q (_ : n + 1 = n + 1)).inv) (HomologicalComplex.dTo Q (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.dFrom P (n + 1)) (CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P (_ : n + 1 + 1 = n + 1 + 1)).hom (Homotopy.mkCoinductiveAux₁ e zero one comm_one succ n).snd.fst)) } }

theorem Homotopy.mkCoinductiveAux₃ {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 0) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 0 1) zero) (one : HomologicalComplex.X P 2 ⟶ HomologicalComplex.X Q 1) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 0 1) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 2) one) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 1)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.d Q n (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) (n + 2)) f') → (f'' : HomologicalComplex.X P (n + 3) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp p.snd.fst (HomologicalComplex.d Q (n + 1) (n + 2)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 3)) f'') (i : ℕ) (j : ℕ) (h : i + 1 = j) : CategoryTheory.CategoryStruct.comp (HomologicalComplex.xNextIso P h).inv (Homotopy.mkCoinductiveAux₂ e zero comm_zero one comm_one succ i).snd.fst = CategoryTheory.CategoryStruct.comp (Homotopy.mkCoinductiveAux₂ e zero comm_zero one comm_one succ j).fst (HomologicalComplex.xPrevIso Q h).hom

def Homotopy.mkCoinductive {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {P : CochainComplex V ℕ} {Q : CochainComplex V ℕ} (e : P ⟶ Q) (zero : HomologicalComplex.X P 1 ⟶ HomologicalComplex.X Q 0) (comm_zero : HomologicalComplex.Hom.f e 0 = CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 0 1) zero) (one : HomologicalComplex.X P 2 ⟶ HomologicalComplex.X Q 1) (comm_one : HomologicalComplex.Hom.f e 1 = CategoryTheory.CategoryStruct.comp zero (HomologicalComplex.d Q 0 1) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P 1 2) one) (succ : (n : ℕ) → (p : (f : HomologicalComplex.X P (n + 1) ⟶ HomologicalComplex.X Q n) ×' (f' : HomologicalComplex.X P (n + 2) ⟶ HomologicalComplex.X Q (n + 1)) ×' HomologicalComplex.Hom.f e (n + 1) = CategoryTheory.CategoryStruct.comp f (HomologicalComplex.d Q n (n + 1)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 1) (n + 2)) f') → (f'' : HomologicalComplex.X P (n + 3) ⟶ HomologicalComplex.X Q (n + 2)) ×' HomologicalComplex.Hom.f e (n + 2) = CategoryTheory.CategoryStruct.comp p.snd.fst (HomologicalComplex.d Q (n + 1) (n + 2)) + CategoryTheory.CategoryStruct.comp (HomologicalComplex.d P (n + 2) (n + 3)) f'') : Homotopy e 0

A constructor for a Homotopy e 0, for e a chain map between ℕ-indexed cochain complexes, working by induction.

You need to provide the components of the homotopy in degrees 0 and 1, show that these satisfy the homotopy condition, and then give a construction of each component, and the fact that it satisfies the homotopy condition, using as an inductive hypothesis the data and homotopy condition for the previous two components.

structure HomotopyEquiv {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} (C : HomologicalComplex V c) (D : HomologicalComplex V c) : Type (max u_1 v)

• hom : C ⟶ D
• inv : D ⟶ C
• homotopyHomInvId : Homotopy (CategoryTheory.CategoryStruct.comp s.hom s.inv) (CategoryTheory.CategoryStruct.id C)
• homotopyInvHomId : Homotopy (CategoryTheory.CategoryStruct.comp s.inv s.hom) (CategoryTheory.CategoryStruct.id D)

A homotopy equivalence between two chain complexes consists of a chain map each way, and homotopies from the compositions to the identity chain maps.

Note that this contains data; arguably it might be more useful for many applications if we truncated it to a Prop.

def HomotopyEquiv.refl {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} (C : HomologicalComplex V c) : HomotopyEquiv C C

Any complex is homotopy equivalent to itself.

instance HomotopyEquiv.instInhabitedHomotopyEquiv {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} : Inhabited (HomotopyEquiv C C)

def HomotopyEquiv.symm {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : HomotopyEquiv C D) : HomotopyEquiv D C

Being homotopy equivalent is a symmetric relation.

def HomotopyEquiv.trans {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {E : HomologicalComplex V c} (f : HomotopyEquiv C D) (g : HomotopyEquiv D E) : HomotopyEquiv C E

Homotopy equivalence is a transitive relation.

def HomotopyEquiv.ofIso {ι : Type u_2} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} (f : C ≅ D) : HomotopyEquiv C D

An isomorphism of complexes induces a homotopy equivalence.

theorem homology_map_eq_of_homotopy {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {f : C ⟶ D} {g : C ⟶ D} [CategoryTheory.Limits.HasEqualizers V] [CategoryTheory.Limits.HasCokernels V] [CategoryTheory.Limits.HasImages V] [CategoryTheory.Limits.HasImageMaps V] (h : Homotopy f g) (i : ι) : (homologyFunctor V c i).map f = (homologyFunctor V c i).map g

Homotopic maps induce the same map on homology.

def homologyObjIsoOfHomotopyEquiv {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} [CategoryTheory.Limits.HasEqualizers V] [CategoryTheory.Limits.HasCokernels V] [CategoryTheory.Limits.HasImages V] [CategoryTheory.Limits.HasImageMaps V] (f : HomotopyEquiv C D) (i : ι) : (homologyFunctor V c i).obj C ≅ (homologyFunctor V c i).obj D

Homotopy equivalent complexes have isomorphic homologies.

@[simp]

theorem CategoryTheory.Functor.mapHomotopy_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (F : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive F] {f : C ⟶ D} {g : C ⟶ D} (h : Homotopy f g) (i : ι) (j : ι) : Homotopy.hom (CategoryTheory.Functor.mapHomotopy F h) i j = F.map (Homotopy.hom h i j)

def CategoryTheory.Functor.mapHomotopy {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (F : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive F] {f : C ⟶ D} {g : C ⟶ D} (h : Homotopy f g) : Homotopy ((CategoryTheory.Functor.mapHomologicalComplex F c).map f) ((CategoryTheory.Functor.mapHomologicalComplex F c).map g)

An additive functor takes homotopies to homotopies.

@[simp]

theorem CategoryTheory.Functor.mapHomotopyEquiv_inv {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (F : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive F] (h : HomotopyEquiv C D) : (CategoryTheory.Functor.mapHomotopyEquiv F h).inv = (CategoryTheory.Functor.mapHomologicalComplex F c).map h.inv

@[simp]

theorem CategoryTheory.Functor.mapHomotopyEquiv_homotopyHomInvId {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (F : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive F] (h : HomotopyEquiv C D) : (CategoryTheory.Functor.mapHomotopyEquiv F h).homotopyHomInvId = Eq.mpr (_ : Homotopy (CategoryTheory.CategoryStruct.comp ((CategoryTheory.Functor.mapHomologicalComplex F c).map h.hom) ((CategoryTheory.Functor.mapHomologicalComplex F c).map h.inv)) (CategoryTheory.CategoryStruct.id ((CategoryTheory.Functor.mapHomologicalComplex F c).obj C)) = Homotopy ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.comp h.hom h.inv)) (CategoryTheory.CategoryStruct.id ((CategoryTheory.Functor.mapHomologicalComplex F c).obj C))) (Eq.mpr (_ : Homotopy ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.comp h.hom h.inv)) (CategoryTheory.CategoryStruct.id ((CategoryTheory.Functor.mapHomologicalComplex F c).obj C)) = Homotopy ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.comp h.hom h.inv)) ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.id C))) (CategoryTheory.Functor.mapHomotopy F h.homotopyHomInvId))

@[simp]

theorem CategoryTheory.Functor.mapHomotopyEquiv_homotopyInvHomId {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (F : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive F] (h : HomotopyEquiv C D) : (CategoryTheory.Functor.mapHomotopyEquiv F h).homotopyInvHomId = Eq.mpr (_ : Homotopy (CategoryTheory.CategoryStruct.comp ((CategoryTheory.Functor.mapHomologicalComplex F c).map h.inv) ((CategoryTheory.Functor.mapHomologicalComplex F c).map h.hom)) (CategoryTheory.CategoryStruct.id ((CategoryTheory.Functor.mapHomologicalComplex F c).obj D)) = Homotopy ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.comp h.inv h.hom)) (CategoryTheory.CategoryStruct.id ((CategoryTheory.Functor.mapHomologicalComplex F c).obj D))) (Eq.mpr (_ : Homotopy ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.comp h.inv h.hom)) (CategoryTheory.CategoryStruct.id ((CategoryTheory.Functor.mapHomologicalComplex F c).obj D)) = Homotopy ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.comp h.inv h.hom)) ((CategoryTheory.Functor.mapHomologicalComplex F c).map (CategoryTheory.CategoryStruct.id D))) (CategoryTheory.Functor.mapHomotopy F h.homotopyInvHomId))

@[simp]

theorem CategoryTheory.Functor.mapHomotopyEquiv_hom {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (F : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive F] (h : HomotopyEquiv C D) : (CategoryTheory.Functor.mapHomotopyEquiv F h).hom = (CategoryTheory.Functor.mapHomologicalComplex F c).map h.hom

def CategoryTheory.Functor.mapHomotopyEquiv {ι : Type u_1} {V : Type u} [CategoryTheory.Category.{v, u} V] [CategoryTheory.Preadditive V] {c : ComplexShape ι} {C : HomologicalComplex V c} {D : HomologicalComplex V c} {W : Type u_2} [CategoryTheory.Category.{u_3, u_2} W] [CategoryTheory.Preadditive W] (F : CategoryTheory.Functor V W) [CategoryTheory.Functor.Additive F] (h : HomotopyEquiv C D) : HomotopyEquiv ((CategoryTheory.Functor.mapHomologicalComplex F c).obj C) ((CategoryTheory.Functor.mapHomologicalComplex F c).obj D)

An additive functor preserves homotopy equivalences.