Module

FiberMap.lean

Nyll.EtaleFundamentalGroups.Cohomology.FiberMap
2 declarations indexed from sourceView source ↗

Functoriality of the actual sheaf of lifts

A morphism of extensions which is the identity on kernel and quotient induces a morphism of their lift sheaves. This morphism commutes with every constant coefficient translation, directly from the original additive sheaf morphism.

Declarations

EtaleFundamentalGroups.Cohomology.extensionFiberMap

The actual morphism of lift sheaves induced by a quotient-compatible map.

Source context 5 commands

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

noncomputable section
open AlgebraicGeometry CategoryTheory CategoryTheory.Limits
universe u
namespace EtaleFundamentalGroups.Cohomology
variable {X : Scheme.{u}} {K₁ K₂ E₁ E₂ Q : Sheaf X.smallEtaleTopology AddCommGrpCat.{u}}
  (i₁ : K₁ ⟶ E₁) (p₁ : E₁ ⟶ Q) (z₁ : i₁ ≫ p₁ = 0)
  (i₂ : K₂ ⟶ E₂) (p₂ : E₂ ⟶ Q) (z₂ : i₂ ≫ p₂ = 0)
  (f : E₁ ⟶ E₂) (hp : f ≫ p₂ = p₁)
  (t : (Functor.const X.Etaleᵒᵖ).obj PUnit ⟶ Q.obj ⋙ forget AddCommGrpCat.{u})
def extensionFiberMap :
    extensionFiber (ShortComplex.mk i₁ p₁ z₁) t ⟶
      extensionFiber (ShortComplex.mk i₂ p₂ z₂) t where
  hom :=
    { app := fun U => ↾fun e => ⟨f.hom.app U e.val, by
        have hh := ConcreteCategory.congr_hom
          (congrArg (fun k : E₁ ⟶ Q => k.hom.app U) hp) e.val
        exact hh.trans e.property⟩
      naturality := fun U V g => by
        apply ConcreteCategory.hom_ext
        intro e
        apply Subtype.ext
        exact ConcreteCategory.congr_hom (f.hom.naturality g) e.val }
EtaleFundamentalGroups.Cohomology.extensionFiberMap_translation

A comparison inducing the identity on the coefficient sheaf intertwines the actual constant translations on both lift sheaves.

Source context 5 commands

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

noncomputable section
open AlgebraicGeometry CategoryTheory CategoryTheory.Limits
universe u
namespace EtaleFundamentalGroups.Cohomology
variable {X : Scheme.{u}} {K₁ K₂ E₁ E₂ Q : Sheaf X.smallEtaleTopology AddCommGrpCat.{u}}
  (i₁ : K₁ ⟶ E₁) (p₁ : E₁ ⟶ Q) (z₁ : i₁ ≫ p₁ = 0)
  (i₂ : K₂ ⟶ E₂) (p₂ : E₂ ⟶ Q) (z₂ : i₂ ≫ p₂ = 0)
  (f : E₁ ⟶ E₂) (hp : f ≫ p₂ = p₁)
  (t : (Functor.const X.Etaleᵒᵖ).obj PUnit ⟶ Q.obj ⋙ forget AddCommGrpCat.{u})
theorem extensionFiberMap_translation
    (A : AddCommGrpCat.{u})
    {E₁ E₂ Q : Sheaf X.smallEtaleTopology AddCommGrpCat.{u}}
    (i₁ : (constantSheaf X.smallEtaleTopology AddCommGrpCat.{u}).obj A ⟶ E₁)
    (p₁ : E₁ ⟶ Q) (z₁ : i₁ ≫ p₁ = 0)
    (i₂ : (constantSheaf X.smallEtaleTopology AddCommGrpCat.{u}).obj A ⟶ E₂)
    (p₂ : E₂ ⟶ Q) (z₂ : i₂ ≫ p₂ = 0)
    (f : E₁ ⟶ E₂) (hi : i₁ ≫ f = i₂) (hp : f ≫ p₂ = p₁)
    (t : (Functor.const X.Etaleᵒᵖ).obj PUnit ⟶ Q.obj ⋙ forget AddCommGrpCat.{u})
    (a : A) :
    constantFiberTranslation A i₁ p₁ z₁ t a ≫
        extensionFiberMap i₁ p₁ z₁ i₂ p₂ z₂ f hp t =
      extensionFiberMap i₁ p₁ z₁ i₂ p₂ z₂ f hp t ≫
        constantFiberTranslation A i₂ p₂ z₂ t a