Module: Mathlib.CategoryTheory.Limits.Shapes.Equalizers

Goal state before:
pp: case left.id
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          left ≫ WalkingParallelPairHom.id one ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (left ≫ WalkingParallelPairHom.id one)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (left ≫ WalkingParallelPairHom.id one))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (left ≫ WalkingParallelPairHom.id one))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            left ≫ WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (left ≫ WalkingParallelPairHom.id one))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            left ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        left
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ left)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ left)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              left ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ left)
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        one = a →
          one = a_1 →
            WalkingParallelPairHom.id one ≍ t →
              (op
                  (match one with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id one)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
                (op
                    (match one with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : one ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id one →
                    (op
                        (match one with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match one with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id one))
            h)
        ⋯ ⋯ ⋯

pp: case right.id
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          right ≫ WalkingParallelPairHom.id one ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (right ≫ WalkingParallelPairHom.id one)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (right ≫ WalkingParallelPairHom.id one))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (right ≫ WalkingParallelPairHom.id one))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            right ≫ WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (right ≫ WalkingParallelPairHom.id one))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            right ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        right
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ right)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ right)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              right ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ right)
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        one = a →
          one = a_1 →
            WalkingParallelPairHom.id one ≍ t →
              (op
                  (match one with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id one)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
                (op
                    (match one with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : one ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id one →
                    (op
                        (match one with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match one with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id one))
            h)
        ⋯ ⋯ ⋯

pp: case id.left
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          WalkingParallelPairHom.id zero ≫ left ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (WalkingParallelPairHom.id zero ≫ left)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ left))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ left))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            WalkingParallelPairHom.id zero ≫ left ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (WalkingParallelPairHom.id zero ≫ left))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          zero = a_1 →
            WalkingParallelPairHom.id zero ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match zero with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id zero)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            zero = X →
              WalkingParallelPairHom.id zero ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match zero with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id zero))
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            left ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        left
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ left)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ left)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              left ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ left)
            h)
        ⋯ ⋯ ⋯

pp: case id.right
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          WalkingParallelPairHom.id zero ≫ right ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (WalkingParallelPairHom.id zero ≫ right)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ right))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ right))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            WalkingParallelPairHom.id zero ≫ right ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (WalkingParallelPairHom.id zero ≫ right))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          zero = a_1 →
            WalkingParallelPairHom.id zero ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match zero with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id zero)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            zero = X →
              WalkingParallelPairHom.id zero ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match zero with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id zero))
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            right ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        right
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ right)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ right)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              right ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ right)
            h)
        ⋯ ⋯ ⋯

pp: case id.id
X✝ : WalkingParallelPair
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      X✝ = a →
        X✝ = a_1 →
          WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝ ≍ t →
            (op
                (match X✝ with
                | zero => one
                | one => zero) ⟶
              op
                (match X✝ with
                | zero => one
                | one => zero)))
      (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ X✝) →
            X✝ = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ X✝) →
            X✝ = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          X✝ = X →
            WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝ ≍ WalkingParallelPairHom.id X →
              (op
                  (match X✝ with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match X✝ with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : X✝ ⟶ Y) →
                f ≍ WalkingParallelPairHom.id X✝ →
                  (op
                      (match X✝ with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match X✝ with
                    | zero => one
                    | one => zero)))
              ⋯ (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        X✝ = a →
          X✝ = a_1 →
            WalkingParallelPairHom.id X✝ ≍ t →
              (op
                  (match X✝ with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match X✝ with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id X✝)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            X✝ = X →
              WalkingParallelPairHom.id X✝ ≍ WalkingParallelPairHom.id X →
                (op
                    (match X✝ with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : X✝ ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id X✝ →
                    (op
                        (match X✝ with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match X✝ with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id X✝))
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        X✝ = a →
          X✝ = a_1 →
            WalkingParallelPairHom.id X✝ ≍ t →
              (op
                  (match X✝ with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match X✝ with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id X✝)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            X✝ = X →
              WalkingParallelPairHom.id X✝ ≍ WalkingParallelPairHom.id X →
                (op
                    (match X✝ with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : X✝ ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id X✝ →
                    (op
                        (match X✝ with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match X✝ with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id X✝))
            h)
        ⋯ ⋯ ⋯

Tactic:
<;>

Goal state after:
case left.id
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          left ≫ WalkingParallelPairHom.id one ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (left ≫ WalkingParallelPairHom.id one)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (left ≫ WalkingParallelPairHom.id one))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (left ≫ WalkingParallelPairHom.id one))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            left ≫ WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (left ≫ WalkingParallelPairHom.id one))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            left ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        left
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ left)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ left)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              left ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ left)
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        one = a →
          one = a_1 →
            WalkingParallelPairHom.id one ≍ t →
              (op
                  (match one with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id one)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
                (op
                    (match one with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : one ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id one →
                    (op
                        (match one with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match one with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id one))
            h)
        ⋯ ⋯ ⋯

case right.id
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          right ≫ WalkingParallelPairHom.id one ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (right ≫ WalkingParallelPairHom.id one)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (right ≫ WalkingParallelPairHom.id one))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (right ≫ WalkingParallelPairHom.id one))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            right ≫ WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (right ≫ WalkingParallelPairHom.id one))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            right ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        right
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ right)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ right)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              right ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ right)
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        one = a →
          one = a_1 →
            WalkingParallelPairHom.id one ≍ t →
              (op
                  (match one with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id one)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id one))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              WalkingParallelPairHom.id one ≍ WalkingParallelPairHom.id X →
                (op
                    (match one with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : one ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id one →
                    (op
                        (match one with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match one with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id one))
            h)
        ⋯ ⋯ ⋯

case id.left
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          WalkingParallelPairHom.id zero ≫ left ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (WalkingParallelPairHom.id zero ≫ left)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ left))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ left))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            WalkingParallelPairHom.id zero ≫ left ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (WalkingParallelPairHom.id zero ≫ left))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          zero = a_1 →
            WalkingParallelPairHom.id zero ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match zero with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id zero)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            zero = X →
              WalkingParallelPairHom.id zero ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match zero with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id zero))
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            left ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        left
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ left)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ left)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              left ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ left)
            h)
        ⋯ ⋯ ⋯

case id.right
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      zero = a →
        one = a_1 →
          WalkingParallelPairHom.id zero ≫ right ≍ t →
            (op
                (match zero with
                | zero => one
                | one => zero) ⟶
              op
                (match one with
                | zero => one
                | one => zero)))
      (WalkingParallelPairHom.id zero ≫ right)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ right))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ one) →
            one = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (WalkingParallelPairHom.id zero ≫ right))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          one = X →
            WalkingParallelPairHom.id zero ≫ right ≍ WalkingParallelPairHom.id X →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ WalkingParallelPairHom.id zero →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match zero with
                    | zero => one
                    | one => zero)))
              ⋯ (WalkingParallelPairHom.id zero ≫ right))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          zero = a_1 →
            WalkingParallelPairHom.id zero ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match zero with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id zero)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ zero) →
              zero = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match zero with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id zero))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            zero = X →
              WalkingParallelPairHom.id zero ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match zero with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id zero))
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        zero = a →
          one = a_1 →
            right ≍ t →
              (op
                  (match zero with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match one with
                  | zero => one
                  | one => zero)))
        right
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ right)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ one) →
              one = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match one with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ right)
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            one = X →
              right ≍ WalkingParallelPairHom.id X →
                (op
                    (match zero with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match one with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id zero →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match zero with
                      | zero => one
                      | one => zero)))
                ⋯ right)
            h)
        ⋯ ⋯ ⋯

case id.id
X✝ : WalkingParallelPair
⊢ WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
      X✝ = a →
        X✝ = a_1 →
          WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝ ≍ t →
            (op
                (match X✝ with
                | zero => one
                | one => zero) ⟶
              op
                (match X✝ with
                | zero => one
                | one => zero)))
      (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝)
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ X✝) →
            X✝ = one →
              f ≍ left →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ left →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op left) ⋯ f)
          ⋯ (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝))
      (fun h ↦
        Eq.ndrec (motive := fun {X} ↦
          (f : X ⟶ X✝) →
            X✝ = one →
              f ≍ right →
                (op
                    (match X with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
          (fun f h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : zero ⟶ Y) →
                f ≍ right →
                  (op
                      (match zero with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦ Quiver.Hom.op right) ⋯ f)
          ⋯ (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝))
      (fun X h ↦
        Eq.ndrec (motive := fun X ↦
          X✝ = X →
            WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝ ≍ WalkingParallelPairHom.id X →
              (op
                  (match X✝ with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match X✝ with
                  | zero => one
                  | one => zero)))
          (fun h ↦
            Eq.ndrec (motive := fun {Y} ↦
              (f : X✝ ⟶ Y) →
                f ≍ WalkingParallelPairHom.id X✝ →
                  (op
                      (match X✝ with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match Y with
                      | zero => one
                      | one => zero)))
              (fun f h ↦
                Quiver.Hom.op
                  (WalkingParallelPairHom.id
                    (match X✝ with
                    | zero => one
                    | one => zero)))
              ⋯ (WalkingParallelPairHom.id X✝ ≫ WalkingParallelPairHom.id X✝))
          h)
      ⋯ ⋯ ⋯ =
    WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        X✝ = a →
          X✝ = a_1 →
            WalkingParallelPairHom.id X✝ ≍ t →
              (op
                  (match X✝ with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match X✝ with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id X✝)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            X✝ = X →
              WalkingParallelPairHom.id X✝ ≍ WalkingParallelPairHom.id X →
                (op
                    (match X✝ with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : X✝ ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id X✝ →
                    (op
                        (match X✝ with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match X✝ with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id X✝))
            h)
        ⋯ ⋯ ⋯ ≫
      WalkingParallelPairHom.casesOn (motive := fun a a_1 t ↦
        X✝ = a →
          X✝ = a_1 →
            WalkingParallelPairHom.id X✝ ≍ t →
              (op
                  (match X✝ with
                  | zero => one
                  | one => zero) ⟶
                op
                  (match X✝ with
                  | zero => one
                  | one => zero)))
        (WalkingParallelPairHom.id X✝)
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ left →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ left →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op left) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun h ↦
          Eq.ndrec (motive := fun {X} ↦
            (f : X ⟶ X✝) →
              X✝ = one →
                f ≍ right →
                  (op
                      (match X with
                      | zero => one
                      | one => zero) ⟶
                    op
                      (match X✝ with
                      | zero => one
                      | one => zero)))
            (fun f h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : zero ⟶ Y) →
                  f ≍ right →
                    (op
                        (match zero with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦ Quiver.Hom.op right) ⋯ f)
            ⋯ (WalkingParallelPairHom.id X✝))
        (fun X h ↦
          Eq.ndrec (motive := fun X ↦
            X✝ = X →
              WalkingParallelPairHom.id X✝ ≍ WalkingParallelPairHom.id X →
                (op
                    (match X✝ with
                    | zero => one
                    | one => zero) ⟶
                  op
                    (match X✝ with
                    | zero => one
                    | one => zero)))
            (fun h ↦
              Eq.ndrec (motive := fun {Y} ↦
                (f : X✝ ⟶ Y) →
                  f ≍ WalkingParallelPairHom.id X✝ →
                    (op
                        (match X✝ with
                        | zero => one
                        | one => zero) ⟶
                      op
                        (match Y with
                        | zero => one
                        | one => zero)))
                (fun f h ↦
                  Quiver.Hom.op
                    (WalkingParallelPairHom.id
                      (match X✝ with
                      | zero => one
                      | one => zero)))
                ⋯ (WalkingParallelPairHom.id X✝))
            h)
        ⋯ ⋯ ⋯