∀ {C : Type u_1} {D : Type u_2} [inst : CategoryTheory.Category.{v_1, u_1} C]
  [inst_1 : CategoryTheory.Category.{v_2, u_2} D] [inst_2 : CategoryTheory.HasShift C ℤ]
  [inst_3 : CategoryTheory.HasShift D ℤ] (F : CategoryTheory.Functor C D) [inst_4 : F.CommShift ℤ] (X : Cᵒᵖ) (n m : ℤ)
  (h : n + m = 0),
  (CategoryTheory.Functor.commShiftIso F.op n).hom.app X =
    CategoryTheory.CategoryStruct.comp
      (F.map ((CategoryTheory.Pretriangulated.shiftFunctorOpIso C n m h).hom.app X).unop).op
      (CategoryTheory.CategoryStruct.comp ((CategoryTheory.Functor.commShiftIso F m).inv.app (Opposite.unop X)).op
        ((CategoryTheory.Pretriangulated.shiftFunctorOpIso D n m h).inv.app (Opposite.op (F.obj (Opposite.unop X)))))