Module

IdealQuotientMayerVietorisDerivedExtMiddle.lean

Nyll.EtaleFundamentalGroups.Purity.IdealQuotientMayerVietorisDerivedExtMiddle
13 declarations indexed from sourceView source ↗

The middle term of the derived Mayer--Vietoris sequence

The middle object in the ideal-quotient Mayer--Vietoris sequence is a Cartesian product of quotient modules. This file identifies its derived-Ext diagram with the pointwise biproduct of the two ideal-power diagrams. Since filtered colimits in abelian groups are additive, the middle colimit is the biproduct of the two derived local-cohomology objects.

Imports4
Imported by2

Declarations

EtaleFundamentalGroups.pointwiseBiprodFunctor

The explicit pointwise binary biproduct of two diagrams.

Source context 4 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
def pointwiseBiprodFunctor
    {C : Type u} [Category.{v} C] [Preadditive C]
    [HasBinaryBiproducts C]
    {D : Type w} [Category D]
    (A B : D ⥤ C) : D ⥤ C where
  obj d := A.obj d ⊞ B.obj d
  map f := biprod.map (A.map f) (B.map f)
  map_id d := by ext <;> simp
  map_comp f g := by ext <;> simp
EtaleFundamentalGroups.diagramOpBiprodIso

Taking opposites carries a pointwise biproduct diagram to the pointwise biproduct of the opposite diagrams.

Source context 4 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
def diagramOpBiprodIso
    {C : Type u} [Category.{v} C] [Preadditive C]
    [HasBinaryBiproducts C]
    {D : Type w} [Category D]
    (A B : D ⥤ C) :
    (pointwiseBiprodFunctor A B).op ≅
      pointwiseBiprodFunctor A.op B.op
EtaleFundamentalGroups.additiveFunctorCompBiprodIso

An additive functor carries an explicit pointwise biproduct diagram to the corresponding pointwise biproduct of the composite diagrams.

Source context 4 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
def additiveFunctorCompBiprodIso
    {C : Type u} [Category.{v} C] [Preadditive C]
    [HasBinaryBiproducts C]
    {E : Type w} [Category E] [Preadditive E]
    [HasBinaryBiproducts E]
    {D : Type*} [Category D]
    (A B : D ⥤ C) (F : C ⥤ E) [F.Additive] :
    pointwiseBiprodFunctor A B ⋙ F ≅
      pointwiseBiprodFunctor (A ⋙ F) (B ⋙ F)
EtaleFundamentalGroups.pointwiseBiprodFunctorIso

The explicit pointwise biproduct diagram is canonically isomorphic to the chosen binary biproduct in the functor category.

Source context 4 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
def pointwiseBiprodFunctorIso
    {C : Type u} [Category.{v} C] [Preadditive C]
    [HasBinaryBiproducts C]
    {D : Type w} [Category D]
    (A B : D ⥤ C) :
    pointwiseBiprodFunctor A B ≅ A ⊞ B
EtaleFundamentalGroups.pointwiseBiprodColimitIso

Colimits carry explicit pointwise binary biproducts to binary biproducts.

Source context 4 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
def pointwiseBiprodColimitIso
    {C : Type u} [Category.{v} C] [Preadditive C]
    [HasBinaryBiproducts C]
    {D : Type w} [Category D] [HasColimitsOfShape D C]
    (A B : D ⥤ C) :
    colimit (pointwiseBiprodFunctor A B) ≅
      colimit A ⊞ colimit B
EtaleFundamentalGroups.derivedExtContravariantFunctor_additive

Derived Ext in its contravariant variable is additive.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
instance derivedExtContravariantFunctor_additive
    (M : ModuleCat.{u} R) (n : ℕ) :
    (derivedExtContravariantFunctor M n).Additive
EtaleFundamentalGroups.idealQuotientMayerVietorisProductPowersDiagram

The middle quotient-product term of the powers Mayer--Vietoris diagram.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
def idealQuotientMayerVietorisProductPowersDiagram (I J : Ideal R) :
    ℕᵒᵖ ⥤ ModuleCat.{u} R
EtaleFundamentalGroups.idealQuotientPowersBiprodDiagram

The pointwise biproduct of the two quotient-module powers diagrams.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
def idealQuotientPowersBiprodDiagram (I J : Ideal R) :
    ℕᵒᵖ ⥤ ModuleCat.{u} R
EtaleFundamentalGroups.idealQuotientMayerVietorisProductPowersIso

The quotient-product diagram is the pointwise biproduct of its two coordinate quotient diagrams.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
def idealQuotientMayerVietorisProductPowersIso (I J : Ideal R) :
    idealQuotientMayerVietorisProductPowersDiagram I J ≅
      idealQuotientPowersBiprodDiagram I J
EtaleFundamentalGroups.idealQuotientMayerVietorisDerivedExtPowersMiddleTermRefl

The index-four term of the six-term diagram is derived Ext of the middle quotient-product diagram.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
def idealQuotientMayerVietorisDerivedExtPowersMiddleTermRefl
    (I J : Ideal R) (M : ModuleCat.{u} R)
    (n₀ n₁ : ℕ) (h : 1 + n₀ = n₁) :
    (idealQuotientMayerVietorisDerivedExtPowersDiagram
        I J M n₀ n₁ h ⋙
      (evaluation (Fin 6) AddCommGrpCat.{u}).obj ⟨4, by omega⟩) ≅
      (idealQuotientMayerVietorisProductPowersDiagram I J).op ⋙
        derivedExtContravariantFunctor M n₁ :=
  Iso.refl _
EtaleFundamentalGroups.idealQuotientMayerVietorisDerivedExtPowersMiddleTermIso

The index-four term is naturally the pointwise biproduct of the two derived local-cohomology powers diagrams.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
def idealQuotientMayerVietorisDerivedExtPowersMiddleTermIso
    (I J : Ideal R) (M : ModuleCat.{u} R)
    (n₀ n₁ : ℕ) (h : 1 + n₀ = n₁) :
    (idealQuotientMayerVietorisDerivedExtPowersDiagram
        I J M n₀ n₁ h ⋙
      (evaluation (Fin 6) AddCommGrpCat.{u}).obj ⟨4, by omega⟩) ≅
      pointwiseBiprodFunctor
        (derivedLocalCohomologyPowersDiagram I M n₁)
        (derivedLocalCohomologyPowersDiagram J M n₁) :=
  idealQuotientMayerVietorisDerivedExtPowersMiddleTermRefl
      I J M n₀ n₁ h ≪≫
    Functor.isoWhiskerRight
      (NatIso.op (idealQuotientMayerVietorisProductPowersIso I J).symm)
      (derivedExtContravariantFunctor M n₁) ≪≫
    Functor.isoWhiskerRight
      (diagramOpBiprodIso
        (localCohomology.ringModIdeals
          (localCohomology.idealPowersDiagram I))
        (localCohomology.ringModIdeals
          (localCohomology.idealPowersDiagram J)))
      (derivedExtContravariantFunctor M n₁) ≪≫
    additiveFunctorCompBiprodIso
      (localCohomology.ringModIdeals
        (localCohomology.idealPowersDiagram I)).op
      (localCohomology.ringModIdeals
        (localCohomology.idealPowersDiagram J)).op
      (derivedExtContravariantFunctor M n₁)
EtaleFundamentalGroups.idealQuotientMayerVietorisDerivedExtPowersMiddleColimitIso

The colimit of the index-four term is the biproduct of the two derived local-cohomology objects.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
def idealQuotientMayerVietorisDerivedExtPowersMiddleColimitIso
    (I J : Ideal R) (M : ModuleCat.{u} R)
    (n₀ n₁ : ℕ) (h : 1 + n₀ = n₁) :
    colimit
        (idealQuotientMayerVietorisDerivedExtPowersDiagram
            I J M n₀ n₁ h ⋙
          (evaluation (Fin 6) AddCommGrpCat.{u}).obj ⟨4, by omega⟩) ≅
      derivedLocalCohomology I M n₁ ⊞
        derivedLocalCohomology J M n₁ :=
  HasColimit.isoOfNatIso
      (idealQuotientMayerVietorisDerivedExtPowersMiddleTermIso
        I J M n₀ n₁ h) ≪≫
    pointwiseBiprodColimitIso
      (derivedLocalCohomologyPowersDiagram I M n₁)
      (derivedLocalCohomologyPowersDiagram J M n₁)
EtaleFundamentalGroups.idealQuotientMayerVietorisDerivedExtPowersMiddleColimit_isZero

If both support-local-cohomology objects vanish, then the middle colimit in the Mayer--Vietoris sequence vanishes.

Source context 5 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
open CategoryTheory Limits Opposite
namespace EtaleFundamentalGroups
universe u v w
variable {R : Type u} [CommRing R]
theorem idealQuotientMayerVietorisDerivedExtPowersMiddleColimit_isZero
    (I J : Ideal R) (M : ModuleCat.{u} R)
    (n₀ n₁ : ℕ) (h : 1 + n₀ = n₁)
    (hI : IsZero (derivedLocalCohomology I M n₁))
    (hJ : IsZero (derivedLocalCohomology J M n₁)) :
    IsZero
      (colimit
        (idealQuotientMayerVietorisDerivedExtPowersDiagram
            I J M n₀ n₁ h ⋙
          (evaluation (Fin 6) AddCommGrpCat.{u}).obj ⟨4, by omega⟩)) :=
  (idealQuotientMayerVietorisDerivedExtPowersMiddleColimitIso
      I J M n₀ n₁ h).isZero_iff.mpr
    ((biprod_isZero_iff _ _).mpr ⟨hI, hJ⟩)