∀ {C : Type u_2} [inst : CategoryTheory.Category.{u_1, u_2} C] [inst_1 : CategoryTheory.Preadditive C]
  (K L : CochainComplex C ℤ) (n a n' : ℤ) (hn' : n' + a = n) (γ : CochainComplex.HomComplex.Cochain K L n),
  (fun γ => γ.rightUnshift n hn') ((fun γ => γ.rightShift a n' hn') γ) = γ