Theorem: CategoryTheory.GrothendieckTopology.diagramNatTrans_comp
File: Mathlib/CategoryTheory/Sites/Plus.lean

tactic: ext : 2
state_before: C : Type u
inst✝² : Category.{v, u} C
J : GrothendieckTopology C
D : Type w
inst✝¹ : Category.{max v u, w} D
inst✝ : ∀ (P : Cᵒᵖ ⥤ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
P✝ P Q R : Cᵒᵖ ⥤ D
η : P ⟶ Q
γ : Q ⟶ R
X : C
⊢ J.diagramNatTrans (η ≫ γ) X = J.diagramNatTrans η X ≫ J.diagramNatTrans γ X
state_after: case w.h
C : Type u
inst✝² : Category.{v, u} C
J : GrothendieckTopology C
D : Type w
inst✝¹ : Category.{max v u, w} D
inst✝ : ∀ (P : Cᵒᵖ ⥤ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
P✝ P Q R : Cᵒᵖ ⥤ D
η : P ⟶ Q
γ : Q ⟶ R
X : C
x✝ : (J.Cover X)ᵒᵖ
⊢ (J.diagramNatTrans (η ≫ γ) X).app x✝ = (J.diagramNatTrans η X ≫ J.diagramNatTrans γ X).app x✝

tactic: refine Multiequalizer.hom_ext _ _ _ (fun i => ?_)
state_before: case w.h
C : Type u
inst✝² : Category.{v, u} C
J : GrothendieckTopology C
D : Type w
inst✝¹ : Category.{max v u, w} D
inst✝ : ∀ (P : Cᵒᵖ ⥤ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
P✝ P Q R : Cᵒᵖ ⥤ D
η : P ⟶ Q
γ : Q ⟶ R
X : C
x✝ : (J.Cover X)ᵒᵖ
⊢ (J.diagramNatTrans (η ≫ γ) X).app x✝ = (J.diagramNatTrans η X ≫ J.diagramNatTrans γ X).app x✝
state_after: case w.h
C : Type u
inst✝² : Category.{v, u} C
J : GrothendieckTopology C
D : Type w
inst✝¹ : Category.{max v u, w} D
inst✝ : ∀ (P : Cᵒᵖ ⥤ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
P✝ P Q R : Cᵒᵖ ⥤ D
η : P ⟶ Q
γ : Q ⟶ R
X : C
x✝ : (J.Cover X)ᵒᵖ
i : (x✝.unop.index R).L
⊢ (J.diagramNatTrans (η ≫ γ) X).app x✝ ≫ Multiequalizer.ι (x✝.unop.index R) i =
    (J.diagramNatTrans η X ≫ J.diagramNatTrans γ X).app x✝ ≫ Multiequalizer.ι (x✝.unop.index R) i

tactic: dsimp
state_before: case w.h
C : Type u
inst✝² : Category.{v, u} C
J : GrothendieckTopology C
D : Type w
inst✝¹ : Category.{max v u, w} D
inst✝ : ∀ (P : Cᵒᵖ ⥤ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
P✝ P Q R : Cᵒᵖ ⥤ D
η : P ⟶ Q
γ : Q ⟶ R
X : C
x✝ : (J.Cover X)ᵒᵖ
i : (x✝.unop.index R).L
⊢ (J.diagramNatTrans (η ≫ γ) X).app x✝ ≫ Multiequalizer.ι (x✝.unop.index R) i =
    (J.diagramNatTrans η X ≫ J.diagramNatTrans γ X).app x✝ ≫ Multiequalizer.ι (x✝.unop.index R) i
state_after: case w.h
C : Type u
inst✝² : Category.{v, u} C
J : GrothendieckTopology C
D : Type w
inst✝¹ : Category.{max v u, w} D
inst✝ : ∀ (P : Cᵒᵖ ⥤ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
P✝ P Q R : Cᵒᵖ ⥤ D
η : P ⟶ Q
γ : Q ⟶ R
X : C
x✝ : (J.Cover X)ᵒᵖ
i : (x✝.unop.index R).L
⊢ Multiequalizer.lift (x✝.unop.index R) (multiequalizer (x✝.unop.index P))
        (fun i => Multiequalizer.ι (x✝.unop.index P) i ≫ η.app { unop := i.Y } ≫ γ.app { unop := i.Y }) ⋯ ≫
      Multiequalizer.ι (x✝.unop.index R) i =
    (Multiequalizer.lift (x✝.unop.index Q) (multiequalizer (x✝.unop.index P))
          (fun i => Multiequalizer.ι (x✝.unop.index P) i ≫ η.app { unop := i.Y }) ⋯ ≫
        Multiequalizer.lift (x✝.unop.index R) (multiequalizer (x✝.unop.index Q))
          (fun i => Multiequalizer.ι (x✝.unop.index Q) i ≫ γ.app { unop := i.Y }) ⋯) ≫
      Multiequalizer.ι (x✝.unop.index R) i

tactic: simp
state_before: case w.h
C : Type u
inst✝² : Category.{v, u} C
J : GrothendieckTopology C
D : Type w
inst✝¹ : Category.{max v u, w} D
inst✝ : ∀ (P : Cᵒᵖ ⥤ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
P✝ P Q R : Cᵒᵖ ⥤ D
η : P ⟶ Q
γ : Q ⟶ R
X : C
x✝ : (J.Cover X)ᵒᵖ
i : (x✝.unop.index R).L
⊢ Multiequalizer.lift (x✝.unop.index R) (multiequalizer (x✝.unop.index P))
        (fun i => Multiequalizer.ι (x✝.unop.index P) i ≫ η.app { unop := i.Y } ≫ γ.app { unop := i.Y }) ⋯ ≫
      Multiequalizer.ι (x✝.unop.index R) i =
    (Multiequalizer.lift (x✝.unop.index Q) (multiequalizer (x✝.unop.index P))
          (fun i => Multiequalizer.ι (x✝.unop.index P) i ≫ η.app { unop := i.Y }) ⋯ ≫
        Multiequalizer.lift (x✝.unop.index R) (multiequalizer (x✝.unop.index Q))
          (fun i => Multiequalizer.ι (x✝.unop.index Q) i ≫ γ.app { unop := i.Y }) ⋯) ≫
      Multiequalizer.ι (x✝.unop.index R) i
state_after: no goals