-- Module: Mathlib.CategoryTheory.WithTerminal.Basic
Goal:
C : Type u
inst : Category.{v, u} C
x_1 : (WithInitial C)ᵒᵖ
x_2 : WithInitial C
x : C
simp :
  Eq.{v + 1} (α := WithTerminal.of (op x) ⟶ WithTerminal.of (op x))
    (Quiver.Hom.op (WithTerminal.down (unop (𝟙 (op (of x)))))) (𝟙 (WithTerminal.of (op x)))
⊢ Eq.{v + 1} (α :=
    Quiver.Hom (V := WithTerminal Cᵒᵖ)
      (Functor.obj.{v, v, u, u}
        {
          obj := fun (x : (WithInitial C)ᵒᵖ) ↦
            match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
            | op x =>
              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
              | of x => WithTerminal.of (op x)
              | star => WithTerminal.star,
          map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
            match (motive :=
              (x ⟶ y) →
                Quiver.Hom (V := WithTerminal Cᵒᵖ)
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star :
                    WithTerminal Cᵒᵖ)
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star :
                    WithTerminal Cᵒᵖ))
              x_3 with
            | op f =>
              match (motive :=
                (x y : (WithInitial C)ᵒᵖ) →
                  (unop y ⟶ unop x) →
                    (x ⟶ y) →
                      Quiver.Hom (V := WithTerminal Cᵒᵖ)
                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                          | op x =>
                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                            | of x => WithTerminal.of (op x)
                            | star => WithTerminal.star :
                          WithTerminal Cᵒᵖ)
                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                          | op x =>
                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                            | of x => WithTerminal.of (op x)
                            | star => WithTerminal.star :
                          WithTerminal Cᵒᵖ))
                x, y, f, x_3 with
              | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
              | op (of a), op star, x, x_4 =>
                Limits.IsTerminal.from WithTerminal.starTerminal
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                  | op x =>
                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                    | of x => WithTerminal.of (op x)
                    | star => WithTerminal.star)
              | op star, op star, x, x_4 =>
                𝟙
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                  | op x =>
                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                    | of x => WithTerminal.of (op x)
                    | star => WithTerminal.star),
          map_id := ⋯, map_comp := ⋯ }
        (op (of x)))
      (Functor.obj.{v, v, u, u}
        {
          obj := fun (x : (WithInitial C)ᵒᵖ) ↦
            match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
            | op x =>
              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
              | of x => WithTerminal.of (op x)
              | star => WithTerminal.star,
          map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
            match (motive :=
              (x ⟶ y) →
                Quiver.Hom (V := WithTerminal Cᵒᵖ)
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star :
                    WithTerminal Cᵒᵖ)
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star :
                    WithTerminal Cᵒᵖ))
              x_3 with
            | op f =>
              match (motive :=
                (x y : (WithInitial C)ᵒᵖ) →
                  (unop y ⟶ unop x) →
                    (x ⟶ y) →
                      Quiver.Hom (V := WithTerminal Cᵒᵖ)
                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                          | op x =>
                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                            | of x => WithTerminal.of (op x)
                            | star => WithTerminal.star :
                          WithTerminal Cᵒᵖ)
                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                          | op x =>
                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                            | of x => WithTerminal.of (op x)
                            | star => WithTerminal.star :
                          WithTerminal Cᵒᵖ))
                x, y, f, x_3 with
              | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
              | op (of a), op star, x, x_4 =>
                Limits.IsTerminal.from WithTerminal.starTerminal
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                  | op x =>
                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                    | of x => WithTerminal.of (op x)
                    | star => WithTerminal.star)
              | op star, op star, x, x_4 =>
                𝟙
                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                  | op x =>
                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                    | of x => WithTerminal.of (op x)
                    | star => WithTerminal.star),
          map_id := ⋯, map_comp := ⋯ }
        (op (of x))))
    (Functor.map
          {
            obj := fun (x : (WithInitial C)ᵒᵖ) ↦
              match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
              | op x =>
                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                | of x => WithTerminal.of (op x)
                | star => WithTerminal.star,
            map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
              match (motive :=
                (x ⟶ y) →
                  Quiver.Hom (V := WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ))
                x_3 with
              | op f =>
                match (motive :=
                  (x y : (WithInitial C)ᵒᵖ) →
                    (unop y ⟶ unop x) →
                      (x ⟶ y) →
                        Quiver.Hom (V := WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ))
                  x, y, f, x_3 with
                | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                | op (of a), op star, x, x_4 =>
                  Limits.IsTerminal.from WithTerminal.starTerminal
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star)
                | op star, op star, x, x_4 =>
                  𝟙
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star),
            map_id := ⋯, map_comp := ⋯ }
          (NatTrans.app
            (Iso.hom
              (NatIso.ofComponents
                (fun (x : (WithInitial C)ᵒᵖ) ↦
                  match (motive :=
                    (x : (WithInitial C)ᵒᵖ) →
                      Functor.obj.{v, v, u, u} (𝟭 (WithInitial C)ᵒᵖ) x ≅
                        Functor.obj.{v, v, u, u}
                          (Functor.comp (D := WithTerminal Cᵒᵖ)
                            {
                              obj := fun (x : (WithInitial C)ᵒᵖ) ↦
                                match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                | op x =>
                                  match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                  | of x => WithTerminal.of (op x)
                                  | star => WithTerminal.star,
                              map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
                                match (motive :=
                                  (x ⟶ y) →
                                    Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                        | op x =>
                                          match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                          | of x => WithTerminal.of (op x)
                                          | star => WithTerminal.star :
                                        WithTerminal Cᵒᵖ)
                                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                        | op x =>
                                          match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                          | of x => WithTerminal.of (op x)
                                          | star => WithTerminal.star :
                                        WithTerminal Cᵒᵖ))
                                  x_3 with
                                | op f =>
                                  match (motive :=
                                    (x y : (WithInitial C)ᵒᵖ) →
                                      (unop y ⟶ unop x) →
                                        (x ⟶ y) →
                                          Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                            (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                              | op x =>
                                                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                                | of x => WithTerminal.of (op x)
                                                | star => WithTerminal.star :
                                              WithTerminal Cᵒᵖ)
                                            (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                              | op x =>
                                                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                                | of x => WithTerminal.of (op x)
                                                | star => WithTerminal.star :
                                              WithTerminal Cᵒᵖ))
                                    x, y, f, x_3 with
                                  | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                                  | op (of a), op star, x, x_4 =>
                                    Limits.IsTerminal.from WithTerminal.starTerminal
                                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                                      | op x =>
                                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                        | of x => WithTerminal.of (op x)
                                        | star => WithTerminal.star)
                                  | op star, op star, x, x_4 =>
                                    𝟙
                                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                                      | op x =>
                                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                        | of x => WithTerminal.of (op x)
                                        | star => WithTerminal.star),
                              map_id := ⋯, map_comp := ⋯ }
                            {
                              obj := fun (x : WithTerminal Cᵒᵖ) ↦
                                match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                                | WithTerminal.of x => op (of (unop x))
                                | WithTerminal.star => op star,
                              map := fun {x y : WithTerminal Cᵒᵖ} (f : x ⟶ y) ↦
                                match (motive :=
                                  (x y : WithTerminal Cᵒᵖ) →
                                    (x ⟶ y) →
                                      Quiver.Hom (V := (WithInitial C)ᵒᵖ)
                                        (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                                          | WithTerminal.of x => op (of (unop x))
                                          | WithTerminal.star => op star :
                                          (WithInitial C)ᵒᵖ)
                                        (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) y with
                                          | WithTerminal.of x => op (of (unop x))
                                          | WithTerminal.star => op star :
                                          (WithInitial C)ᵒᵖ))
                                  x, y, f with
                                | WithTerminal.of (op x), WithTerminal.of (op y), f => down f
                                | WithTerminal.of (op unop), WithTerminal.star, x =>
                                  op
                                    (Limits.IsInitial.to starInitial
                                      (Opposite.unop
                                        (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ)
                                          WithTerminal.of (op unop) with
                                        | WithTerminal.of x => op (of (Opposite.unop x))
                                        | WithTerminal.star => op star)))
                                | WithTerminal.star, WithTerminal.star, x =>
                                  𝟙
                                    (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) WithTerminal.star with
                                    | WithTerminal.of x => op (of (unop x))
                                    | WithTerminal.star => op star),
                              map_id := ⋯, map_comp := ⋯ })
                          x)
                    x with
                  | op x =>
                    match (motive :=
                      (x : WithInitial C) →
                        Functor.obj.{v, v, u, u} (𝟭 (WithInitial C)ᵒᵖ) (op x) ≅
                          Functor.obj.{v, v, u, u}
                            (Functor.comp (D := WithTerminal Cᵒᵖ)
                              {
                                obj := fun (x : (WithInitial C)ᵒᵖ) ↦
                                  match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                  | op x =>
                                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                    | of x => WithTerminal.of (op x)
                                    | star => WithTerminal.star,
                                map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
                                  match (motive :=
                                    (x ⟶ y) →
                                      Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                          | op x =>
                                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                            | of x => WithTerminal.of (op x)
                                            | star => WithTerminal.star :
                                          WithTerminal Cᵒᵖ)
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                          | op x =>
                                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                            | of x => WithTerminal.of (op x)
                                            | star => WithTerminal.star :
                                          WithTerminal Cᵒᵖ))
                                    x_3 with
                                  | op f =>
                                    match (motive :=
                                      (x y : (WithInitial C)ᵒᵖ) →
                                        (unop y ⟶ unop x) →
                                          (x ⟶ y) →
                                            Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                              (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                                | op x =>
                                                  match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                                  | of x => WithTerminal.of (op x)
                                                  | star => WithTerminal.star :
                                                WithTerminal Cᵒᵖ)
                                              (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                                | op x =>
                                                  match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                                  | of x => WithTerminal.of (op x)
                                                  | star => WithTerminal.star :
                                                WithTerminal Cᵒᵖ))
                                      x, y, f, x_3 with
                                    | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                                    | op (of a), op star, x, x_4 =>
                                      Limits.IsTerminal.from WithTerminal.starTerminal
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                                        | op x =>
                                          match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                          | of x => WithTerminal.of (op x)
                                          | star => WithTerminal.star)
                                    | op star, op star, x, x_4 =>
                                      𝟙
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                                        | op x =>
                                          match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                          | of x => WithTerminal.of (op x)
                                          | star => WithTerminal.star),
                                map_id := ⋯, map_comp := ⋯ }
                              {
                                obj := fun (x : WithTerminal Cᵒᵖ) ↦
                                  match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                                  | WithTerminal.of x => op (of (unop x))
                                  | WithTerminal.star => op star,
                                map := fun {x y : WithTerminal Cᵒᵖ} (f : x ⟶ y) ↦
                                  match (motive :=
                                    (x y : WithTerminal Cᵒᵖ) →
                                      (x ⟶ y) →
                                        Quiver.Hom (V := (WithInitial C)ᵒᵖ)
                                          (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                                            | WithTerminal.of x => op (of (unop x))
                                            | WithTerminal.star => op star :
                                            (WithInitial C)ᵒᵖ)
                                          (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) y with
                                            | WithTerminal.of x => op (of (unop x))
                                            | WithTerminal.star => op star :
                                            (WithInitial C)ᵒᵖ))
                                    x, y, f with
                                  | WithTerminal.of (op x), WithTerminal.of (op y), f => down f
                                  | WithTerminal.of (op unop), WithTerminal.star, x =>
                                    op
                                      (Limits.IsInitial.to starInitial
                                        (Opposite.unop
                                          (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ)
                                            WithTerminal.of (op unop) with
                                          | WithTerminal.of x => op (of (Opposite.unop x))
                                          | WithTerminal.star => op star)))
                                  | WithTerminal.star, WithTerminal.star, x =>
                                    𝟙
                                      (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) WithTerminal.star with
                                      | WithTerminal.of x => op (of (unop x))
                                      | WithTerminal.star => op star),
                                map_id := ⋯, map_comp := ⋯ })
                            (op x))
                      x with
                    | of x => Iso.refl (Functor.obj.{v, v, u, u} (𝟭 (WithInitial C)ᵒᵖ) (op (of x)))
                    | star => Iso.refl (Functor.obj.{v, v, u, u} (𝟭 (WithInitial C)ᵒᵖ) (op star)))
                ⋯))
            (op (of x))) ≫
        NatTrans.app
          (Iso.hom
            (NatIso.ofComponents
              (fun (x : WithTerminal Cᵒᵖ) ↦
                match (motive :=
                  (x : WithTerminal Cᵒᵖ) →
                    Functor.obj.{v, v, u, u}
                        (Functor.comp (D := (WithInitial C)ᵒᵖ)
                          {
                            obj := fun (x : WithTerminal Cᵒᵖ) ↦
                              match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                              | WithTerminal.of x => op (of (unop x))
                              | WithTerminal.star => op star,
                            map := fun {x y : WithTerminal Cᵒᵖ} (f : x ⟶ y) ↦
                              match (motive :=
                                (x y : WithTerminal Cᵒᵖ) →
                                  (x ⟶ y) →
                                    Quiver.Hom (V := (WithInitial C)ᵒᵖ)
                                      (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                                        | WithTerminal.of x => op (of (unop x))
                                        | WithTerminal.star => op star :
                                        (WithInitial C)ᵒᵖ)
                                      (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) y with
                                        | WithTerminal.of x => op (of (unop x))
                                        | WithTerminal.star => op star :
                                        (WithInitial C)ᵒᵖ))
                                x, y, f with
                              | WithTerminal.of (op x), WithTerminal.of (op y), f => down f
                              | WithTerminal.of (op unop), WithTerminal.star, x =>
                                op
                                  (Limits.IsInitial.to starInitial
                                    (Opposite.unop
                                      (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ)
                                        WithTerminal.of (op unop) with
                                      | WithTerminal.of x => op (of (Opposite.unop x))
                                      | WithTerminal.star => op star)))
                              | WithTerminal.star, WithTerminal.star, x =>
                                𝟙
                                  (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) WithTerminal.star with
                                  | WithTerminal.of x => op (of (unop x))
                                  | WithTerminal.star => op star),
                            map_id := ⋯, map_comp := ⋯ : Functor.{v, v, u, u} (WithTerminal Cᵒᵖ) (WithInitial C)ᵒᵖ }
                          {
                            obj := fun (x : (WithInitial C)ᵒᵖ) ↦
                              match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                              | op x =>
                                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                | of x => WithTerminal.of (op x)
                                | star => WithTerminal.star,
                            map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
                              match (motive :=
                                (x ⟶ y) →
                                  Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                      | op x =>
                                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                        | of x => WithTerminal.of (op x)
                                        | star => WithTerminal.star :
                                      WithTerminal Cᵒᵖ)
                                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                      | op x =>
                                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                        | of x => WithTerminal.of (op x)
                                        | star => WithTerminal.star :
                                      WithTerminal Cᵒᵖ))
                                x_3 with
                              | op f =>
                                match (motive :=
                                  (x y : (WithInitial C)ᵒᵖ) →
                                    (unop y ⟶ unop x) →
                                      (x ⟶ y) →
                                        Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                            | op x =>
                                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                              | of x => WithTerminal.of (op x)
                                              | star => WithTerminal.star :
                                            WithTerminal Cᵒᵖ)
                                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                            | op x =>
                                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                              | of x => WithTerminal.of (op x)
                                              | star => WithTerminal.star :
                                            WithTerminal Cᵒᵖ))
                                  x, y, f, x_3 with
                                | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                                | op (of a), op star, x, x_4 =>
                                  Limits.IsTerminal.from WithTerminal.starTerminal
                                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                                    | op x =>
                                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                      | of x => WithTerminal.of (op x)
                                      | star => WithTerminal.star)
                                | op star, op star, x, x_4 =>
                                  𝟙
                                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                                    | op x =>
                                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                      | of x => WithTerminal.of (op x)
                                      | star => WithTerminal.star),
                            map_id := ⋯, map_comp := ⋯ : Functor.{v, v, u, u} (WithInitial C)ᵒᵖ (WithTerminal Cᵒᵖ) })
                        x ≅
                      Functor.obj.{v, v, u, u} (𝟭 (WithTerminal Cᵒᵖ)) x)
                  x with
                | WithTerminal.of x =>
                  Iso.refl
                    (Functor.obj.{v, v, u, u}
                      (Functor.comp (D := (WithInitial C)ᵒᵖ)
                        {
                          obj := fun (x : WithTerminal Cᵒᵖ) ↦
                            match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                            | WithTerminal.of x => op (of (unop x))
                            | WithTerminal.star => op star,
                          map := fun {x y : WithTerminal Cᵒᵖ} (f : x ⟶ y) ↦
                            match (motive :=
                              (x y : WithTerminal Cᵒᵖ) →
                                (x ⟶ y) →
                                  Quiver.Hom (V := (WithInitial C)ᵒᵖ)
                                    (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                                      | WithTerminal.of x => op (of (unop x))
                                      | WithTerminal.star => op star :
                                      (WithInitial C)ᵒᵖ)
                                    (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) y with
                                      | WithTerminal.of x => op (of (unop x))
                                      | WithTerminal.star => op star :
                                      (WithInitial C)ᵒᵖ))
                              x, y, f with
                            | WithTerminal.of (op x), WithTerminal.of (op y), f => down f
                            | WithTerminal.of (op unop), WithTerminal.star, x =>
                              op
                                (Limits.IsInitial.to starInitial
                                  (Opposite.unop
                                    (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ)
                                      WithTerminal.of (op unop) with
                                    | WithTerminal.of x => op (of (Opposite.unop x))
                                    | WithTerminal.star => op star)))
                            | WithTerminal.star, WithTerminal.star, x =>
                              𝟙
                                (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) WithTerminal.star with
                                | WithTerminal.of x => op (of (unop x))
                                | WithTerminal.star => op star),
                          map_id := ⋯, map_comp := ⋯ : Functor.{v, v, u, u} (WithTerminal Cᵒᵖ) (WithInitial C)ᵒᵖ }
                        {
                          obj := fun (x : (WithInitial C)ᵒᵖ) ↦
                            match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star,
                          map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
                            match (motive :=
                              (x ⟶ y) →
                                Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                    | op x =>
                                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                      | of x => WithTerminal.of (op x)
                                      | star => WithTerminal.star :
                                    WithTerminal Cᵒᵖ)
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                    | op x =>
                                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                      | of x => WithTerminal.of (op x)
                                      | star => WithTerminal.star :
                                    WithTerminal Cᵒᵖ))
                              x_3 with
                            | op f =>
                              match (motive :=
                                (x y : (WithInitial C)ᵒᵖ) →
                                  (unop y ⟶ unop x) →
                                    (x ⟶ y) →
                                      Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                          | op x =>
                                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                            | of x => WithTerminal.of (op x)
                                            | star => WithTerminal.star :
                                          WithTerminal Cᵒᵖ)
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                          | op x =>
                                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                            | of x => WithTerminal.of (op x)
                                            | star => WithTerminal.star :
                                          WithTerminal Cᵒᵖ))
                                x, y, f, x_3 with
                              | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                              | op (of a), op star, x, x_4 =>
                                Limits.IsTerminal.from WithTerminal.starTerminal
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                                  | op x =>
                                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                    | of x => WithTerminal.of (op x)
                                    | star => WithTerminal.star)
                              | op star, op star, x, x_4 =>
                                𝟙
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                                  | op x =>
                                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                    | of x => WithTerminal.of (op x)
                                    | star => WithTerminal.star),
                          map_id := ⋯, map_comp := ⋯ : Functor.{v, v, u, u} (WithInitial C)ᵒᵖ (WithTerminal Cᵒᵖ) })
                      (WithTerminal.of x))
                | WithTerminal.star =>
                  Iso.refl
                    (Functor.obj.{v, v, u, u} (C := WithTerminal Cᵒᵖ)
                      (Functor.comp (D := (WithInitial C)ᵒᵖ)
                        {
                          obj := fun (x : WithTerminal Cᵒᵖ) ↦
                            match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                            | WithTerminal.of x => op (of (unop x))
                            | WithTerminal.star => op star,
                          map := fun {x y : WithTerminal Cᵒᵖ} (f : x ⟶ y) ↦
                            match (motive :=
                              (x y : WithTerminal Cᵒᵖ) →
                                (x ⟶ y) →
                                  Quiver.Hom (V := (WithInitial C)ᵒᵖ)
                                    (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) x with
                                      | WithTerminal.of x => op (of (unop x))
                                      | WithTerminal.star => op star :
                                      (WithInitial C)ᵒᵖ)
                                    (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) y with
                                      | WithTerminal.of x => op (of (unop x))
                                      | WithTerminal.star => op star :
                                      (WithInitial C)ᵒᵖ))
                              x, y, f with
                            | WithTerminal.of (op x), WithTerminal.of (op y), f => down f
                            | WithTerminal.of (op unop), WithTerminal.star, x =>
                              op
                                (Limits.IsInitial.to starInitial
                                  (Opposite.unop
                                    (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ)
                                      WithTerminal.of (op unop) with
                                    | WithTerminal.of x => op (of (Opposite.unop x))
                                    | WithTerminal.star => op star)))
                            | WithTerminal.star, WithTerminal.star, x =>
                              𝟙
                                (match (motive := WithTerminal Cᵒᵖ → (WithInitial C)ᵒᵖ) WithTerminal.star with
                                | WithTerminal.of x => op (of (unop x))
                                | WithTerminal.star => op star),
                          map_id := ⋯, map_comp := ⋯ : Functor.{v, v, u, u} (WithTerminal Cᵒᵖ) (WithInitial C)ᵒᵖ }
                        {
                          obj := fun (x : (WithInitial C)ᵒᵖ) ↦
                            match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star,
                          map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
                            match (motive :=
                              (x ⟶ y) →
                                Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                    | op x =>
                                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                      | of x => WithTerminal.of (op x)
                                      | star => WithTerminal.star :
                                    WithTerminal Cᵒᵖ)
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                    | op x =>
                                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                      | of x => WithTerminal.of (op x)
                                      | star => WithTerminal.star :
                                    WithTerminal Cᵒᵖ))
                              x_3 with
                            | op f =>
                              match (motive :=
                                (x y : (WithInitial C)ᵒᵖ) →
                                  (unop y ⟶ unop x) →
                                    (x ⟶ y) →
                                      Quiver.Hom (V := WithTerminal Cᵒᵖ)
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                                          | op x =>
                                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                            | of x => WithTerminal.of (op x)
                                            | star => WithTerminal.star :
                                          WithTerminal Cᵒᵖ)
                                        (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                                          | op x =>
                                            match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                            | of x => WithTerminal.of (op x)
                                            | star => WithTerminal.star :
                                          WithTerminal Cᵒᵖ))
                                x, y, f, x_3 with
                              | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                              | op (of a), op star, x, x_4 =>
                                Limits.IsTerminal.from WithTerminal.starTerminal
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                                  | op x =>
                                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                    | of x => WithTerminal.of (op x)
                                    | star => WithTerminal.star)
                              | op star, op star, x, x_4 =>
                                𝟙
                                  (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                                  | op x =>
                                    match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                    | of x => WithTerminal.of (op x)
                                    | star => WithTerminal.star),
                          map_id := ⋯, map_comp := ⋯ : Functor.{v, v, u, u} (WithInitial C)ᵒᵖ (WithTerminal Cᵒᵖ) })
                      WithTerminal.star))
              ⋯))
          (Functor.obj.{v, v, u, u}
            {
              obj := fun (x : (WithInitial C)ᵒᵖ) ↦
                match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                | op x =>
                  match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                  | of x => WithTerminal.of (op x)
                  | star => WithTerminal.star,
              map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
                match (motive :=
                  (x ⟶ y) →
                    Quiver.Hom (V := WithTerminal Cᵒᵖ)
                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                        | op x =>
                          match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                          | of x => WithTerminal.of (op x)
                          | star => WithTerminal.star :
                        WithTerminal Cᵒᵖ)
                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                        | op x =>
                          match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                          | of x => WithTerminal.of (op x)
                          | star => WithTerminal.star :
                        WithTerminal Cᵒᵖ))
                  x_3 with
                | op f =>
                  match (motive :=
                    (x y : (WithInitial C)ᵒᵖ) →
                      (unop y ⟶ unop x) →
                        (x ⟶ y) →
                          Quiver.Hom (V := WithTerminal Cᵒᵖ)
                            (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                              | op x =>
                                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                | of x => WithTerminal.of (op x)
                                | star => WithTerminal.star :
                              WithTerminal Cᵒᵖ)
                            (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                              | op x =>
                                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                                | of x => WithTerminal.of (op x)
                                | star => WithTerminal.star :
                              WithTerminal Cᵒᵖ))
                    x, y, f, x_3 with
                  | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                  | op (of a), op star, x, x_4 =>
                    Limits.IsTerminal.from WithTerminal.starTerminal
                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star)
                  | op star, op star, x, x_4 =>
                    𝟙
                      (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star),
              map_id := ⋯, map_comp := ⋯ : Functor.{v, v, u, u} (WithInitial C)ᵒᵖ (WithTerminal Cᵒᵖ) }
            (op (of x))) :
      Quiver.Hom (V := WithTerminal Cᵒᵖ)
        (Functor.obj.{v, v, u, u}
          {
            obj := fun (x : (WithInitial C)ᵒᵖ) ↦
              match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
              | op x =>
                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                | of x => WithTerminal.of (op x)
                | star => WithTerminal.star,
            map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
              match (motive :=
                (x ⟶ y) →
                  Quiver.Hom (V := WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ))
                x_3 with
              | op f =>
                match (motive :=
                  (x y : (WithInitial C)ᵒᵖ) →
                    (unop y ⟶ unop x) →
                      (x ⟶ y) →
                        Quiver.Hom (V := WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ))
                  x, y, f, x_3 with
                | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                | op (of a), op star, x, x_4 =>
                  Limits.IsTerminal.from WithTerminal.starTerminal
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star)
                | op star, op star, x, x_4 =>
                  𝟙
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star),
            map_id := ⋯, map_comp := ⋯ }
          (op (of x)))
        (Functor.obj.{v, v, u, u}
          {
            obj := fun (x : (WithInitial C)ᵒᵖ) ↦
              match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
              | op x =>
                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                | of x => WithTerminal.of (op x)
                | star => WithTerminal.star,
            map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
              match (motive :=
                (x ⟶ y) →
                  Quiver.Hom (V := WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ))
                x_3 with
              | op f =>
                match (motive :=
                  (x y : (WithInitial C)ᵒᵖ) →
                    (unop y ⟶ unop x) →
                      (x ⟶ y) →
                        Quiver.Hom (V := WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ))
                  x, y, f, x_3 with
                | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                | op (of a), op star, x, x_4 =>
                  Limits.IsTerminal.from WithTerminal.starTerminal
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star)
                | op star, op star, x, x_4 =>
                  𝟙
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star),
            map_id := ⋯, map_comp := ⋯ }
          (op (of x))))
    (𝟙
        (Functor.obj.{v, v, u, u}
          {
            obj := fun (x : (WithInitial C)ᵒᵖ) ↦
              match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
              | op x =>
                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                | of x => WithTerminal.of (op x)
                | star => WithTerminal.star,
            map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
              match (motive :=
                (x ⟶ y) →
                  Quiver.Hom (V := WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ))
                x_3 with
              | op f =>
                match (motive :=
                  (x y : (WithInitial C)ᵒᵖ) →
                    (unop y ⟶ unop x) →
                      (x ⟶ y) →
                        Quiver.Hom (V := WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ))
                  x, y, f, x_3 with
                | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                | op (of a), op star, x, x_4 =>
                  Limits.IsTerminal.from WithTerminal.starTerminal
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star)
                | op star, op star, x, x_4 =>
                  𝟙
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star),
            map_id := ⋯, map_comp := ⋯ }
          (op (of x))) :
      Quiver.Hom (V := WithTerminal Cᵒᵖ)
        (Functor.obj.{v, v, u, u}
          {
            obj := fun (x : (WithInitial C)ᵒᵖ) ↦
              match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
              | op x =>
                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                | of x => WithTerminal.of (op x)
                | star => WithTerminal.star,
            map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
              match (motive :=
                (x ⟶ y) →
                  Quiver.Hom (V := WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ))
                x_3 with
              | op f =>
                match (motive :=
                  (x y : (WithInitial C)ᵒᵖ) →
                    (unop y ⟶ unop x) →
                      (x ⟶ y) →
                        Quiver.Hom (V := WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ))
                  x, y, f, x_3 with
                | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                | op (of a), op star, x, x_4 =>
                  Limits.IsTerminal.from WithTerminal.starTerminal
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star)
                | op star, op star, x, x_4 =>
                  𝟙
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star),
            map_id := ⋯, map_comp := ⋯ }
          (op (of x)))
        (Functor.obj.{v, v, u, u}
          {
            obj := fun (x : (WithInitial C)ᵒᵖ) ↦
              match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
              | op x =>
                match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                | of x => WithTerminal.of (op x)
                | star => WithTerminal.star,
            map := fun {x y : (WithInitial C)ᵒᵖ} (x_3 : x ⟶ y) ↦
              match (motive :=
                (x ⟶ y) →
                  Quiver.Hom (V := WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ)
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                      | op x =>
                        match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                        | of x => WithTerminal.of (op x)
                        | star => WithTerminal.star :
                      WithTerminal Cᵒᵖ))
                x_3 with
              | op f =>
                match (motive :=
                  (x y : (WithInitial C)ᵒᵖ) →
                    (unop y ⟶ unop x) →
                      (x ⟶ y) →
                        Quiver.Hom (V := WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) x with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ)
                          (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) y with
                            | op x =>
                              match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                              | of x => WithTerminal.of (op x)
                              | star => WithTerminal.star :
                            WithTerminal Cᵒᵖ))
                  x, y, f, x_3 with
                | op (of x), op (of y), f, x_4 => (WithTerminal.down f).op
                | op (of a), op star, x, x_4 =>
                  Limits.IsTerminal.from WithTerminal.starTerminal
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op (of a) with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star)
                | op star, op star, x, x_4 =>
                  𝟙
                    (match (motive := (WithInitial C)ᵒᵖ → WithTerminal Cᵒᵖ) op star with
                    | op x =>
                      match (motive := WithInitial C → WithTerminal Cᵒᵖ) x with
                      | of x => WithTerminal.of (op x)
                      | star => WithTerminal.star),
            map_id := ⋯, map_comp := ⋯ }
          (op (of x))))

Tactic:
simp only [op_unop, Functor.id_obj, Functor.comp_obj, NatIso.ofComponents_hom_app,
          Iso.refl_hom, Category.comp_id]

Premises used: CategoryTheory.Functor.comp_obj, Opposite.op_unop, CategoryTheory.Category.comp_id, CategoryTheory.Functor.id_obj, CategoryTheory.Iso.refl_hom, CategoryTheory.NatIso.ofComponents_hom_app