-- Module: Mathlib.CategoryTheory.Limits.Bicones
Goal:
J : Type v₁
inst : SmallCategory J
C : Type u₁
inst_1 : Category.{v₁, u₁} C
F : J ⥤ C
c₁ c₂ : Cone F
Z : Bicone J
g : Bicone.right ⟶ Z
⊢ Eq (α :=
    Quiver.Hom.{v₁, u₁} (V := C)
      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
    (@BiconeHom.casesOn _ _
        (fun (a a_1 : Bicone J) (x : BiconeHom J a a_1) ↦
          (h : Bicone.right = a) →
            (h : Z = a_1) →
              (h : HEq (α := Bicone.right ⟶ Z) (BiconeHom.right_id ≫ g) x) →
                Quiver.Hom.{v₁, u₁} (V := C)
                  (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                  (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
        Bicone.right _ (BiconeHom.right_id ≫ g)
        (fun (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) ↦
          Eq.ndrec (motive := fun {X : Bicone J} ↦
            (f : X ⟶ Z) →
              (h : Z = Bicone.left) →
                (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) →
                  Quiver.Hom.{v₁, u₁} (V := C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
            (fun (f : Bicone.left ⟶ Z) (h : Z = Bicone.left) ↦
              Eq.ndrec (motive := fun {Y : Bicone J} ↦
                (f : Bicone.left ⟶ Y) →
                  (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦ F.obj j :
                        C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                (fun (f : Quiver.Hom (V := Bicone J) Bicone.left Bicone.left)
                    (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) ↦
                  𝟙 (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦ F.obj j))
                ⋯ f)
            ⋯ (BiconeHom.right_id ≫ g))
        (fun (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) ↦
          Eq.ndrec (motive := fun {X : Bicone J} ↦
            (f : X ⟶ Z) →
              (h : Z = Bicone.right) →
                (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) →
                  Quiver.Hom.{v₁, u₁} (V := C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
            (fun (f : Bicone.right ⟶ Z) (h : Z = Bicone.right) ↦
              Eq.ndrec (motive := fun {Y : Bicone J} ↦
                (f : Bicone.right ⟶ Y) →
                  (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                (fun (f : Quiver.Hom (V := Bicone J) Bicone.right Bicone.right)
                    (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) ↦
                  𝟙 (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j))
                ⋯ f)
            ⋯ (BiconeHom.right_id ≫ g))
        (fun (j : J) (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) ↦
          Eq.ndrec (motive := fun {X : Bicone J} ↦
            (f : X ⟶ Z) →
              (h : Z = Bicone.diagram j) →
                (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) →
                  Quiver.Hom.{v₁, u₁} (V := C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
            (fun (f : Bicone.left ⟶ Z) (h : Z = Bicone.diagram j) ↦
              Eq.ndrec (motive := fun {Y : Bicone J} ↦
                (f : Bicone.left ⟶ Y) →
                  (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦ F.obj j :
                        C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                (fun (f : Bicone.left ⟶ Bicone.diagram j)
                    (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) ↦
                  c₁.π.app j)
                ⋯ f)
            ⋯ (BiconeHom.right_id ≫ g))
        (fun (j : J) (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) ↦
          Eq.ndrec (motive := fun {X : Bicone J} ↦
            (f : X ⟶ Z) →
              (h : Z = Bicone.diagram j) →
                (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) →
                  Quiver.Hom.{v₁, u₁} (V := C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
            (fun (f : Bicone.right ⟶ Z) (h : Z = Bicone.diagram j) ↦
              Eq.ndrec (motive := fun {Y : Bicone J} ↦
                (f : Bicone.right ⟶ Y) →
                  (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                (fun (f : Bicone.right ⟶ Bicone.diagram j)
                    (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) ↦
                  c₂.π.app j)
                ⋯ f)
            ⋯ (BiconeHom.right_id ≫ g))
        (fun {j k : J} (f : j ⟶ k) (h : Bicone.right = Bicone.diagram j) ↦
          Eq.ndrec (motive := fun {X : Bicone J} ↦
            (f_1 : X ⟶ Z) →
              (h : Z = Bicone.diagram k) →
                (h : f_1 ≍ BiconeHom.diagram f) →
                  Quiver.Hom.{v₁, u₁} (V := C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                    (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
            (fun (f_1 : Bicone.diagram j ⟶ Z) (h : Z = Bicone.diagram k) ↦
              Eq.ndrec (motive := fun {Y : Bicone J} ↦
                (f_2 : Bicone.diagram j ⟶ Y) →
                  (h : f_2 ≍ BiconeHom.diagram f) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) (Bicone.diagram j) c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                (fun (f_2 : Bicone.diagram j ⟶ Bicone.diagram k) (h : f_2 ≍ BiconeHom.diagram f) ↦ F.map f) ⋯ f_1)
            ⋯ (BiconeHom.right_id ≫ g))
        ⋯ ⋯ ⋯ :
      Quiver.Hom.{v₁, u₁} (V := C)
        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
    (CategoryStruct.comp (Y :=
        Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j)
        (BiconeHom.casesOn (motive := fun (a a_1 : Bicone J) (x : BiconeHom J a a_1) ↦
          (h : Bicone.right = a) →
            (h : Bicone.right = a_1) →
              (h : HEq (α := Quiver.Hom (V := Bicone J) Bicone.right Bicone.right) BiconeHom.right_id x) →
                Quiver.Hom.{v₁, u₁} (V := C)
                  (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                  (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j :
                    C))
          BiconeHom.right_id
          (fun (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Bicone.right) →
                (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) →
                  (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C))
              (fun (f : Quiver.Hom (V := Bicone J) Bicone.left Bicone.right)
                  (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.left ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Quiver.Hom (V := Bicone J) Bicone.left Bicone.left)
                      (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) ↦
                    𝟙 (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦ F.obj j))
                  ⋯ f)
              ⋯ BiconeHom.right_id)
          (fun (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Bicone.right) →
                (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) →
                  (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C))
              (fun (f : Quiver.Hom (V := Bicone J) Bicone.right Bicone.right)
                  (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.right ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Quiver.Hom (V := Bicone J) Bicone.right Bicone.right)
                      (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) ↦
                    𝟙
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                        F.obj j))
                  ⋯ f)
              ⋯ BiconeHom.right_id)
          (fun (j : J) (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Bicone.right) →
                (h : Bicone.right = Bicone.diagram j) →
                  (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C))
              (fun (f : Quiver.Hom (V := Bicone J) Bicone.left Bicone.right) (h : Bicone.right = Bicone.diagram j) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.left ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Bicone.left ⟶ Bicone.diagram j)
                      (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) ↦
                    c₁.π.app j)
                  ⋯ f)
              ⋯ BiconeHom.right_id)
          (fun (j : J) (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Bicone.right) →
                (h : Bicone.right = Bicone.diagram j) →
                  (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C))
              (fun (f : Quiver.Hom (V := Bicone J) Bicone.right Bicone.right) (h : Bicone.right = Bicone.diagram j) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.right ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Bicone.right ⟶ Bicone.diagram j)
                      (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) ↦
                    c₂.π.app j)
                  ⋯ f)
              ⋯ BiconeHom.right_id)
          (fun {j k : J} (f : j ⟶ k) (h : Bicone.right = Bicone.diagram j) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f_1 : X ⟶ Bicone.right) →
                (h : Bicone.right = Bicone.diagram k) →
                  (h : f_1 ≍ BiconeHom.diagram f) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                          F.obj j :
                        C))
              (fun (f_1 : Bicone.diagram j ⟶ Bicone.right) (h : Bicone.right = Bicone.diagram k) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f_2 : Bicone.diagram j ⟶ Y) →
                    (h : f_2 ≍ BiconeHom.diagram f) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) (Bicone.diagram j) c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f_2 : Bicone.diagram j ⟶ Bicone.diagram k) (h : f_2 ≍ BiconeHom.diagram f) ↦ F.map f) ⋯ f_1)
              ⋯ BiconeHom.right_id)
          ⋯ ⋯ ⋯)
        (BiconeHom.casesOn (motive := fun (a a_1 : Bicone J) (x : BiconeHom J a a_1) ↦
          (h : Bicone.right = a) →
            (h : Z = a_1) →
              (h : g ≍ x) →
                Quiver.Hom.{v₁, u₁} (V := C)
                  (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                  (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
          g
          (fun (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Z) →
                (h : Z = Bicone.left) →
                  (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
              (fun (f : Bicone.left ⟶ Z) (h : Z = Bicone.left) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.left ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Quiver.Hom (V := Bicone J) Bicone.left Bicone.left)
                      (h : HEq f (β := BiconeHom J Bicone.left Bicone.left) BiconeHom.left_id) ↦
                    𝟙 (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦ F.obj j))
                  ⋯ f)
              ⋯ g)
          (fun (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Z) →
                (h : Z = Bicone.right) →
                  (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
              (fun (f : Bicone.right ⟶ Z) (h : Z = Bicone.right) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.right ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Quiver.Hom (V := Bicone J) Bicone.right Bicone.right)
                      (h : HEq f (β := BiconeHom J Bicone.right Bicone.right) BiconeHom.right_id) ↦
                    𝟙
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                        F.obj j))
                  ⋯ f)
              ⋯ g)
          (fun (j : J) (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.left) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Z) →
                (h : Z = Bicone.diagram j) →
                  (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
              (fun (f : Bicone.left ⟶ Z) (h : Z = Bicone.diagram j) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.left ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.left c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Bicone.left ⟶ Bicone.diagram j)
                      (h : HEq f (β := BiconeHom J Bicone.left (Bicone.diagram j)) (BiconeHom.left j)) ↦
                    c₁.π.app j)
                  ⋯ f)
              ⋯ g)
          (fun (j : J) (h : Eq.{v₁ + 1} (α := Bicone J) Bicone.right Bicone.right) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f : X ⟶ Z) →
                (h : Z = Bicone.diagram j) →
                  (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
              (fun (f : Bicone.right ⟶ Z) (h : Z = Bicone.diagram j) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f : Bicone.right ⟶ Y) →
                    (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f : Bicone.right ⟶ Bicone.diagram j)
                      (h : HEq f (β := BiconeHom J Bicone.right (Bicone.diagram j)) (BiconeHom.right j)) ↦
                    c₂.π.app j)
                  ⋯ f)
              ⋯ g)
          (fun {j k : J} (f : j ⟶ k) (h : Bicone.right = Bicone.diagram j) ↦
            Eq.ndrec (motive := fun {X : Bicone J} ↦
              (f_1 : X ⟶ Z) →
                (h : Z = Bicone.diagram k) →
                  (h : f_1 ≍ BiconeHom.diagram f) →
                    Quiver.Hom.{v₁, u₁} (V := C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) X c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
                      (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
              (fun (f_1 : Bicone.diagram j ⟶ Z) (h : Z = Bicone.diagram k) ↦
                Eq.ndrec (motive := fun {Y : Bicone J} ↦
                  (f_2 : Bicone.diagram j ⟶ Y) →
                    (h : f_2 ≍ BiconeHom.diagram f) →
                      Quiver.Hom.{v₁, u₁} (V := C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) (Bicone.diagram j) c₁.pt c₂.pt fun (j : J) ↦
                            F.obj j :
                          C)
                        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Y c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))
                  (fun (f_2 : Bicone.diagram j ⟶ Bicone.diagram k) (h : f_2 ≍ BiconeHom.diagram f) ↦ F.map f) ⋯ f_1)
              ⋯ g)
          ⋯ ⋯ ⋯) :
      Quiver.Hom.{v₁, u₁} (V := C)
        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Bicone.right c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C)
        (Bicone.casesOn (motive := fun (x : Bicone J) ↦ C) Z c₁.pt c₂.pt fun (j : J) ↦ F.obj j : C))

Tactic:
exact (Category.id_comp _).symm

Premises used: Eq.symm, CategoryTheory.Category.id_comp