Theorem: CompHaus.final' (CompHaus/ExplicitSheaves.lean)

State before:
A : Type (u + 2)
inst✝³ : Category A
G : A ⥤ Type (u + 1)
inst✝² : HasLimits A
inst✝¹ : PreservesLimits G
inst✝ : ReflectsIsomorphisms G
F : CompHausᵒᵖ ⥤ A
hF : PreservesFiniteProducts (F ⋙ G)
hF' : EqualizerCondition (F ⋙ G)
⊢ Presheaf.IsSheaf (coherentTopology CompHaus) F
Tactic:
rw [Presheaf.isSheaf_iff_isSheaf_forget (coherentTopology CompHaus) F G,
  isSheaf_iff_isSheaf_of_type, ← extensiveRegular_generates_coherent, Presieve.isSheaf_coverage]
State after:
A : Type (u + 2)
inst✝³ : Category A
G : A ⥤ Type (u + 1)
inst✝² : HasLimits A
inst✝¹ : PreservesLimits G
inst✝ : ReflectsIsomorphisms G
F : CompHausᵒᵖ ⥤ A
hF : PreservesFiniteProducts (F ⋙ G)
hF' : EqualizerCondition (F ⋙ G)
⊢ ∀ {X : CompHaus} (R : Presieve X),
    R ∈
        Coverage.covering
          (ExtensiveRegularCoverage' CompHaus
            (_ : ∀ {X Y Z : CompHaus} (f : Y ⟶ X) (π : Z ⟶ X) [inst : Epi π], Epi Limits.pullback.fst)
            (_ :
              ∀ {α : Type} [inst : Fintype α] {X : CompHaus} {Z : α → CompHaus} (π : (a : α) → Z a ⟶ X) {Y : CompHaus}
                (f : Y ⟶ X) (x : IsIso (Sigma.desc π)), IsIso (Sigma.desc fun x_1 => Limits.pullback.fst)))
          X →
      IsSheafFor (F ⋙ G) R

State before:
A : Type (u + 2)
inst✝³ : Category A
G : A ⥤ Type (u + 1)
inst✝² : HasLimits A
inst✝¹ : PreservesLimits G
inst✝ : ReflectsIsomorphisms G
F : CompHausᵒᵖ ⥤ A
hF : PreservesFiniteProducts (F ⋙ G)
hF' : EqualizerCondition (F ⋙ G)
⊢ ∀ {X : CompHaus} (R : Presieve X),
    R ∈
        Coverage.covering
          (ExtensiveRegularCoverage' CompHaus
            (_ : ∀ {X Y Z : CompHaus} (f : Y ⟶ X) (π : Z ⟶ X) [inst : Epi π], Epi Limits.pullback.fst)
            (_ :
              ∀ {α : Type} [inst : Fintype α] {X : CompHaus} {Z : α → CompHaus} (π : (a : α) → Z a ⟶ X) {Y : CompHaus}
                (f : Y ⟶ X) (x : IsIso (Sigma.desc π)), IsIso (Sigma.desc fun x_1 => Limits.pullback.fst)))
          X →
      IsSheafFor (F ⋙ G) R
Tactic:
intro B S' hS
State after:
A : Type (u + 2)
inst✝³ : Category A
G : A ⥤ Type (u + 1)
inst✝² : HasLimits A
inst✝¹ : PreservesLimits G
inst✝ : ReflectsIsomorphisms G
F : CompHausᵒᵖ ⥤ A
hF : PreservesFiniteProducts (F ⋙ G)
hF' : EqualizerCondition (F ⋙ G)
B : CompHaus
S' : Presieve B
hS :
  S' ∈
    Coverage.covering
      (ExtensiveRegularCoverage' CompHaus
        (_ : ∀ {X Y Z : CompHaus} (f : Y ⟶ X) (π : Z ⟶ X) [inst : Epi π], Epi Limits.pullback.fst)
        (_ :
          ∀ {α : Type} [inst : Fintype α] {X : CompHaus} {Z : α → CompHaus} (π : (a : α) → Z a ⟶ X) {Y : CompHaus}
            (f : Y ⟶ X) (x : IsIso (Sigma.desc π)), IsIso (Sigma.desc fun x_1 => Limits.pullback.fst)))
      B
⊢ IsSheafFor (F ⋙ G) S'

State before:
A : Type (u + 2)
inst✝³ : Category A
G : A ⥤ Type (u + 1)
inst✝² : HasLimits A
inst✝¹ : PreservesLimits G
inst✝ : ReflectsIsomorphisms G
F : CompHausᵒᵖ ⥤ A
hF : PreservesFiniteProducts (F ⋙ G)
hF' : EqualizerCondition (F ⋙ G)
B : CompHaus
S' : Presieve B
hS :
  S' ∈
    Coverage.covering
      (ExtensiveRegularCoverage' CompHaus
        (_ : ∀ {X Y Z : CompHaus} (f : Y ⟶ X) (π : Z ⟶ X) [inst : Epi π], Epi Limits.pullback.fst)
        (_ :
          ∀ {α : Type} [inst : Fintype α] {X : CompHaus} {Z : α → CompHaus} (π : (a : α) → Z a ⟶ X) {Y : CompHaus}
            (f : Y ⟶ X) (x : IsIso (Sigma.desc π)), IsIso (Sigma.desc fun x_1 => Limits.pullback.fst)))
      B
⊢ IsSheafFor (F ⋙ G) S'
Tactic:
exact isSheafFor_of_Dagur hS hF hF'
State after:
no goals