case h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X : J
⊢ autoParam
    (∀ (X Y : J ⥤ C) (f : X ⟶ Y),
      (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).map f =
        eqToHom (_ : ?F.obj X = ?G.obj X) ≫
          ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).map f ≫
            eqToHom
              (_ :
                ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj Y =
                  (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj Y))
    _auto✝

case h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X : J
⊢ ∀ (X : J ⥤ C),
    (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X =
      ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X : J
⊢ toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C = (whiskeringRight J C (Karoubi C)).obj (toKaroubi C)
apply Functor.ext
case h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
⊢ (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).map f =
    eqToHom (_ : ?F.obj X = ?G.obj X) ≫
      ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).map f ≫
        eqToHom
          (_ :
            ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj Y =
              (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj Y)
case h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X : J
⊢ autoParam
    (∀ (X Y : J ⥤ C) (f : X ⟶ Y),
      (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).map f =
        eqToHom (_ : ?F.obj X = ?G.obj X) ≫
          ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).map f ≫
            eqToHom
              (_ :
                ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj Y =
                  (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj Y))
    _auto✝
intro X Y f
case h_map.w.h.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
j : J
⊢ (((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).map f).app j).f =
    ((eqToHom (_ : ?F.obj X = ?G.obj X) ≫
            ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).map f ≫
              eqToHom
                (_ :
                  ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj Y =
                    (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj Y)).app
        j).f
case h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
⊢ (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).map f =
    eqToHom (_ : ?F.obj X = ?G.obj X) ≫
      ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).map f ≫
        eqToHom
          (_ :
            ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj Y =
              (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj Y)
ext j
case h_map.w.h.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
j : J
⊢ f.app j =
    ((eqToHom (_ : ?F.obj X = ?G.obj X)).app j).f ≫
      f.app j ≫
        ((eqToHom
                (_ :
                  Y ⋙ Functor.mk { obj := fun X => Karoubi.mk X (𝟙 X), map := fun {X Y} f => Hom.mk f } =
                    KaroubiFunctorCategoryEmbedding.obj (Karoubi.mk Y (𝟙 Y)))).app
            j).f
case h_map.w.h.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
j : J
⊢ (((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).map f).app j).f =
    ((eqToHom (_ : ?F.obj X = ?G.obj X) ≫
            ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).map f ≫
              eqToHom
                (_ :
                  ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj Y =
                    (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj Y)).app
        j).f
dsimp [toKaroubi]
case h_map.w.h.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
j : J
⊢ f.app j =
    (𝟙 ((KaroubiFunctorCategoryEmbedding.obj (Karoubi.mk X (𝟙 X))).obj j)).f ≫
      f.app j ≫ (𝟙 ((Y ⋙ Functor.mk { obj := fun X => Karoubi.mk X (𝟙 X), map := fun {X Y} f => Hom.mk f }).obj j)).f
case h_map.w.h.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
j : J
⊢ f.app j =
    ((eqToHom (_ : ?F.obj X = ?G.obj X)).app j).f ≫
      f.app j ≫
        ((eqToHom
                (_ :
                  Y ⋙ Functor.mk { obj := fun X => Karoubi.mk X (𝟙 X), map := fun {X Y} f => Hom.mk f } =
                    KaroubiFunctorCategoryEmbedding.obj (Karoubi.mk Y (𝟙 Y)))).app
            j).f
simp only [eqToHom_app, eqToHom_refl]
no goals
case h_map.w.h.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f✝ : P ⟶ Q
X✝ : J
X Y : J ⥤ C
f : X ⟶ Y
j : J
⊢ f.app j =
    (𝟙 ((KaroubiFunctorCategoryEmbedding.obj (Karoubi.mk X (𝟙 X))).obj j)).f ≫
      f.app j ≫ (𝟙 ((Y ⋙ Functor.mk { obj := fun X => Karoubi.mk X (𝟙 X), map := fun {X Y} f => Hom.mk f }).obj j)).f
erw [comp_id, id_comp]
case h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
⊢ (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X =
    ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X
case h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X : J
⊢ ∀ (X : J ⥤ C),
    (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X =
      ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X
intro X
case h_obj.h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
⊢ autoParam
    (∀ (X_1 Y : J) (f : X_1 ⟶ Y),
      ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).map f =
        eqToHom (_ : ?F.obj X_1 = ?G.obj X_1) ≫
          (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).map f ≫
            eqToHom
              (_ :
                (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj Y =
                  ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj Y))
    _auto✝

case h_obj.h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
⊢ ∀ (X_1 : J),
    ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj X_1 =
      (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj X_1
case h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
⊢ (toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X =
    ((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X
apply Functor.ext
case h_obj.h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j j' : J
φ : j ⟶ j'
⊢ ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).map φ =
    eqToHom (_ : ?F.obj j = ?G.obj j) ≫
      (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).map φ ≫
        eqToHom
          (_ :
            (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj j' =
              ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj j')
case h_obj.h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
⊢ autoParam
    (∀ (X_1 Y : J) (f : X_1 ⟶ Y),
      ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).map f =
        eqToHom (_ : ?F.obj X_1 = ?G.obj X_1) ≫
          (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).map f ≫
            eqToHom
              (_ :
                (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj Y =
                  ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj Y))
    _auto✝
intro j j' φ
case h_obj.h_map.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j j' : J
φ : j ⟶ j'
⊢ (((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).map φ).f =
    (eqToHom (_ : ?F.obj j = ?G.obj j) ≫
        (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).map φ ≫
          eqToHom
            (_ :
              (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj j' =
                ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj j')).f
case h_obj.h_map
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j j' : J
φ : j ⟶ j'
⊢ ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).map φ =
    eqToHom (_ : ?F.obj j = ?G.obj j) ≫
      (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).map φ ≫
        eqToHom
          (_ :
            (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj j' =
              ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj j')
ext
case h_obj.h_map.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j j' : J
φ : j ⟶ j'
⊢ 𝟙 (X.obj j) ≫ X.map φ = 𝟙 (X.obj j) ≫ X.map φ ≫ 𝟙 (X.obj j')
case h_obj.h_map.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j j' : J
φ : j ⟶ j'
⊢ (((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).map φ).f =
    (eqToHom (_ : ?F.obj j = ?G.obj j) ≫
        (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).map φ ≫
          eqToHom
            (_ :
              (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj j' =
                ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj j')).f
dsimp
no goals
case h_obj.h_map.h
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j j' : J
φ : j ⟶ j'
⊢ 𝟙 (X.obj j) ≫ X.map φ = 𝟙 (X.obj j) ≫ X.map φ ≫ 𝟙 (X.obj j')
simp
case h_obj.h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j : J
⊢ ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj j =
    (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj j
case h_obj.h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
⊢ ∀ (X_1 : J),
    ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj X_1 =
      (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj X_1
intro j
no goals
case h_obj.h_obj
J : Type u_1
C : Type u_2
inst✝¹ : Category J
inst✝ : Category C
P Q : Karoubi (J ⥤ C)
f : P ⟶ Q
X✝ : J
X : J ⥤ C
j : J
⊢ ((toKaroubi (J ⥤ C) ⋙ karoubiFunctorCategoryEmbedding J C).obj X).obj j =
    (((whiskeringRight J C (Karoubi C)).obj (toKaroubi C)).obj X).obj j
rfl