proposition: Lemma CohomologyComplexIso_is_iso_i (C : Complex (AbelianToAdditive A)) (i : hz) : is_iso (CohomologyComplexIso_Mor_i C i).
proof: Proof. unfold CohomologyComplexIso_Mor. cbn. unfold CohomologyComplexIso_Mor_i. cbn. unfold postcompose. use is_iso_comp_of_is_isos. - use is_iso_comp_of_is_isos. + use is_iso_comp_of_is_isos. * unfold CohomologyComplexIso_Mor3. apply KernelInPaths_is_iso. * use is_iso_comp_of_is_isos. -- unfold CohomologyComplexIso_Mor4. set (CK1 := Cokernel (transportf (precategory_morphisms (C (i - 1))) (maponpaths C (hzrminusplus i 1)) (Diff C (i - 1)))). set (K1 := Kernel (CokernelOut (to_Zero A) CK1 (CoImage (Diff C i)) (factorization2_epi A (Diff C i)) (CohomologyComplexIso_eq2 C i))). apply (KernelCompMonic1 A (to_Zero A) (CokernelOut (to_Zero A) CK1 (CoImage (Diff C i)) (factorization2_epi A (Diff C i)) (CohomologyComplexIso_eq2 C i)) (factorization2_monic A (Diff C i)) (Kernel _) K1). -- use is_iso_comp_of_is_isos. ++ use is_iso_comp_of_is_isos. ** use is_iso_comp_of_is_isos. --- unfold CohomologyComplexIso_Mor7. apply KernelInPaths_is_iso. --- use is_iso_comp_of_is_isos. +++ unfold CohomologyComplexIso_Mor8. apply pr2. +++ apply is_iso_inv_from_iso. ** unfold CohomologyComplexIso_Mor6. apply pr2. ++ unfold CohomologyComplexIso_Mor5. apply CokernelOutPaths_is_iso. + unfold CohomologyComplexIso_Mor2. set (K1 := KernelIn (to_Zero A) (Kernel (Diff C i)) _ _ (CohomologyComplexIso_eq1 C i)). apply (CokernelEpiComp2 A (to_Zero A) (factorization1_epi A (transportf (precategory_morphisms (C (i - 1))) (maponpaths C (hzrminusplus i 1)) (Diff C (i - 1)))) K1 (Cokernel _) (Cokernel _)). - unfold CohomologyComplexIso_Mor1. apply CokernelOutPaths_is_iso. Qed.
imports: UniMath.Foundations.UnivalenceAxiom UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.Foundations.NaturalNumbers UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.NumberSystems.Integers UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.TransportMorphisms UniMath.CategoryTheory.Limits.Zero UniMath.CategoryTheory.Limits.BinProducts UniMath.CategoryTheory.Limits.BinCoproducts UniMath.CategoryTheory.Limits.Equalizers UniMath.CategoryTheory.Limits.Coequalizers UniMath.CategoryTheory.Limits.Kernels UniMath.CategoryTheory.Limits.Cokernels UniMath.CategoryTheory.Limits.Pushouts UniMath.CategoryTheory.Limits.Pullbacks UniMath.CategoryTheory.Limits.BinDirectSums UniMath.CategoryTheory.Monics UniMath.CategoryTheory.Epis UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.CategoriesWithBinOps UniMath.CategoryTheory.PrecategoriesWithAbgrops UniMath.CategoryTheory.PreAdditive UniMath.CategoryTheory.Additive UniMath.CategoryTheory.Abelian UniMath.CategoryTheory.AbelianToAdditive UniMath.CategoryTheory.AdditiveFunctors UniMath.HomologicalAlgebra.Complexes UniMath.HomologicalAlgebra.KA