Theorem: CategoryTheory.Functor.isRightKanExtension_iff_precomp
File: Mathlib/CategoryTheory/Functor/KanExtension/Basic.lean

Proof steps:
state_before: C : Type u_1
C' : Type u_2
H : Type u_3
H' : Type u_4
D : Type u_5
D' : Type u_6
inst✝⁶ : Category.{u_8, u_1} C
inst✝⁵ : Category.{u_10, u_2} C'
inst✝⁴ : Category.{u_7, u_3} H
inst✝³ : Category.{?u.151280, u_4} H'
inst✝² : Category.{u_9, u_5} D
inst✝¹ : Category.{?u.151288, u_6} D'
L : C ⥤ D
F : C ⥤ H
F' : D ⥤ H
G : C' ⥤ C
inst✝ : G.IsEquivalence
α : L ⋙ F' ⟶ F
⊢ F'.IsRightKanExtension α ↔ F'.IsRightKanExtension ((G.associator L F').hom ≫ whiskerLeft G α)
state_after: C : Type u_1
C' : Type u_2
H : Type u_3
H' : Type u_4
D : Type u_5
D' : Type u_6
inst✝⁶ : Category.{u_8, u_1} C
inst✝⁵ : Category.{u_10, u_2} C'
inst✝⁴ : Category.{u_7, u_3} H
inst✝³ : Category.{?u.151280, u_4} H'
inst✝² : Category.{u_9, u_5} D
inst✝¹ : Category.{?u.151288, u_6} D'
L : C ⥤ D
F : C ⥤ H
F' : D ⥤ H
G : C' ⥤ C
inst✝ : G.IsEquivalence
α : L ⋙ F' ⟶ F
eq : CostructuredArrow.IsUniversal (RightExtension.mk F' α) ≃
  CostructuredArrow.IsUniversal (RightExtension.mk F' ((G.associator L F').hom ≫ whiskerLeft G α)) :=
  (RightExtension.isUniversalPrecompEquiv L F G (RightExtension.mk F' α)).trans
    (IsTerminal.equivOfIso
      (CostructuredArrow.isoMk (Iso.refl ((RightExtension.precomp L F G).obj (RightExtension.mk F' α)).left) ⋯))
⊢ F'.IsRightKanExtension α ↔ F'.IsRightKanExtension ((G.associator L F').hom ≫ whiskerLeft G α)
tactic: let eq : (RightExtension.mk _ α).IsUniversal ≃ (RightExtension.mk _
      ((Functor.associator _ _ _).hom ≫ whiskerLeft G α)).IsUniversal :=
    (RightExtension.isUniversalPrecompEquiv L F G _).trans
    (IsTerminal.equivOfIso (CostructuredArrow.isoMk (Iso.refl _)))
state_before: C : Type u_1
C' : Type u_2
H : Type u_3
H' : Type u_4
D : Type u_5
D' : Type u_6
inst✝⁶ : Category.{u_8, u_1} C
inst✝⁵ : Category.{u_10, u_2} C'
inst✝⁴ : Category.{u_7, u_3} H
inst✝³ : Category.{?u.151280, u_4} H'
inst✝² : Category.{u_9, u_5} D
inst✝¹ : Category.{?u.151288, u_6} D'
L : C ⥤ D
F : C ⥤ H
F' : D ⥤ H
G : C' ⥤ C
inst✝ : G.IsEquivalence
α : L ⋙ F' ⟶ F
eq : CostructuredArrow.IsUniversal (RightExtension.mk F' α) ≃
  CostructuredArrow.IsUniversal (RightExtension.mk F' ((G.associator L F').hom ≫ whiskerLeft G α)) :=
  (RightExtension.isUniversalPrecompEquiv L F G (RightExtension.mk F' α)).trans
    (IsTerminal.equivOfIso
      (CostructuredArrow.isoMk (Iso.refl ((RightExtension.precomp L F G).obj (RightExtension.mk F' α)).left) ⋯))
⊢ F'.IsRightKanExtension α ↔ F'.IsRightKanExtension ((G.associator L F').hom ≫ whiskerLeft G α)
state_after: case mp
C : Type u_1
C' : Type u_2
H : Type u_3
H' : Type u_4
D : Type u_5
D' : Type u_6
inst✝⁶ : Category.{u_8, u_1} C
inst✝⁵ : Category.{u_10, u_2} C'
inst✝⁴ : Category.{u_7, u_3} H
inst✝³ : Category.{?u.151280, u_4} H'
inst✝² : Category.{u_9, u_5} D
inst✝¹ : Category.{?u.151288, u_6} D'
L : C ⥤ D
F : C ⥤ H
F' : D ⥤ H
G : C' ⥤ C
inst✝ : G.IsEquivalence
α : L ⋙ F' ⟶ F
eq : CostructuredArrow.IsUniversal (RightExtension.mk F' α) ≃
  CostructuredArrow.IsUniversal (RightExtension.mk F' ((G.associator L F').hom ≫ whiskerLeft G α)) :=
  (RightExtension.isUniversalPrecompEquiv L F G (RightExtension.mk F' α)).trans
    (IsTerminal.equivOfIso
      (CostructuredArrow.isoMk (Iso.refl ((RightExtension.precomp L F G).obj (RightExtension.mk F' α)).left) ⋯))
⊢ F'.IsRightKanExtension α → F'.IsRightKanExtension ((G.associator L F').hom ≫ whiskerLeft G α)

case mpr
C : Type u_1
C' : Type u_2
H : Type u_3
H' : Type u_4
D : Type u_5
D' : Type u_6
inst✝⁶ : Category.{u_8, u_1} C
inst✝⁵ : Category.{u_10, u_2} C'
inst✝⁴ : Category.{u_7, u_3} H
inst✝³ : Category.{?u.151280, u_4} H'
inst✝² : Category.{u_9, u_5} D
inst✝¹ : Category.{?u.151288, u_6} D'
L : C ⥤ D
F : C ⥤ H
F' : D ⥤ H
G : C' ⥤ C
inst✝ : G.IsEquivalence
α : L ⋙ F' ⟶ F
eq : CostructuredArrow.IsUniversal (RightExtension.mk F' α) ≃
  CostructuredArrow.IsUniversal (RightExtension.mk F' ((G.associator L F').hom ≫ whiskerLeft G α)) :=
  (RightExtension.isUniversalPrecompEquiv L F G (RightExtension.mk F' α)).trans
    (IsTerminal.equivOfIso
      (CostructuredArrow.isoMk (Iso.refl ((RightExtension.precomp L F G).obj (RightExtension.mk F' α)).left) ⋯))
⊢ F'.IsRightKanExtension ((G.associator L F').hom ≫ whiskerLeft G α) → F'.IsRightKanExtension α
tactic: constructor