@@ -226,19 +226,22 @@ noncomputable def toKaroubiNondegComplexIsoN₁ :
226226 simp only [πSummand_comp_cofan_inj_id_comp_PInfty_eq_PInfty, Karoubi.comp_f,
227227 HomologicalComplex.comp_f, N₁_obj_p, Karoubi.id_f]
228228
229+ set_option backward.defeqAttrib.useBackward true in
229230@ [reassoc (attr := simp)]
230231lemma toKaroubiNondegComplexIsoN₁_hom_f_PInfty :
231232 dsimp% s.toKaroubiNondegComplexIsoN₁.hom.f ≫ PInfty =
232233 s.toKaroubiNondegComplexIsoN₁.hom.f := by
233234 simpa using s.toKaroubiNondegComplexIsoN₁.hom.comm
234235
236+ set_option backward.defeqAttrib.useBackward true in
235237@ [reassoc (attr := simp)]
236238lemma toKaroubiNondegComplexIsoN₁_hom_inv_id_f :
237239 dsimp% s.toKaroubiNondegComplexIsoN₁.hom.f ≫ s.toKaroubiNondegComplexIsoN₁.inv.f = 𝟙 _ := by
238240 rw [← dsimp% [-Karoubi.comp_f] Karoubi.comp_f s.toKaroubiNondegComplexIsoN₁.hom
239241 s.toKaroubiNondegComplexIsoN₁.inv, Iso.hom_inv_id]
240242 simp
241243
244+ set_option backward.defeqAttrib.useBackward true in
242245/-- Given a splitting `s` of a simplicial object `X` in a preadditive category,
243246this is the split epimorphism from the alternating face map complex of `X` to the chain
244247complex `s.nondegComplex`. -/
@@ -247,6 +250,7 @@ noncomputable def toNondegComplex : K[X] ⟶ s.nondegComplex :=
247250 (fullyFaithfulToKaroubi _).preimage
248251 ({ f := by exact PInfty } ≫ s.toKaroubiNondegComplexIsoN₁.inv)
249252
253+ set_option backward.defeqAttrib.useBackward true in
250254/-- Given a splitting `s` of a simplicial object `X` in a preadditive category,
251255this is the split monomormphism from the chain complex `s.nondegComplex` to
252256the alternating face map complex fo `X`. -/
@@ -255,20 +259,24 @@ noncomputable def fromNondegComplex : s.nondegComplex ⟶ K[X] :=
255259 (fullyFaithfulToKaroubi _).preimage
256260 (s.toKaroubiNondegComplexIsoN₁.hom ≫ { f := PInfty })
257261
262+ set_option backward.defeqAttrib.useBackward true in
258263@ [reassoc (attr := simp)]
259264lemma PInfty_toNondegComplex : PInfty ≫ s.toNondegComplex = s.toNondegComplex :=
260265 (toKaroubi _).map_injective (by simp [toNondegComplex])
261266
267+ set_option backward.defeqAttrib.useBackward true in
262268@ [reassoc (attr := simp)]
263269lemma fromNondegComplex_toNondegComplex :
264270 s.fromNondegComplex ≫ s.toNondegComplex = 𝟙 _ :=
265271 (toKaroubi _).map_injective (by simp [toNondegComplex, fromNondegComplex])
266272
273+ set_option backward.defeqAttrib.useBackward true in
267274@[reassoc]
268275lemma toNondegComplex_f (n : ℕ) :
269276 s.toNondegComplex.f n = PInfty.f n ≫ s.toKaroubiNondegComplexIsoN₁.inv.f.f n := by
270277 simp [toNondegComplex, fullyFaithfulToKaroubi]
271278
279+ set_option backward.defeqAttrib.useBackward true in
272280@[reassoc]
273281lemma fromNondegComplex_f (n : ℕ) :
274282 s.fromNondegComplex.f n = s.ι n ≫ PInfty.f n := by
@@ -281,6 +289,7 @@ instance isSplitEpi_toNondegComplex : IsSplitEpi s.toNondegComplex where
281289instance isSplitMono_fromNondegComplex : IsSplitMono s.fromNondegComplex where
282290 exists_splitMono := ⟨⟨s.toNondegComplex, by simp⟩⟩
283291
292+ set_option backward.defeqAttrib.useBackward true in
284293@ [reassoc (attr := simp)]
285294lemma toNondegComplex_fromNondegComplex :
286295 s.toNondegComplex ≫ s.fromNondegComplex = PInfty :=
0 commit comments