-- Module: Mathlib.RepresentationTheory.Homological.GroupHomology.Functoriality
Goal:
k : Type u
inst : CommRing k
G H K : Type u
inst_1 : Group G
inst_2 : Group H
inst_3 : Group K
A : Rep k G
B : Rep k H
C : Rep k K
f : G →* H
g : H →* K
φ : A ⟶ res f B
ψ : B ⟶ res g C
refine_1 :
  Hom.τ₁
      (mapShortComplexH1 (g.comp f)
        (φ ≫
          ofHom
            {
              toLinearMap :=
                (↑(Hom.hom ψ) :
                  [inst_4 : FunLike (B.ρ.IntertwiningMap (MonoidHom.comp C.ρ g)) (↑B : Type u) (↑C : Type u)] →
                    [SemilinearMapClass (B.ρ.IntertwiningMap (MonoidHom.comp C.ρ g)) (RingHom.id k) (↑B : Type u)
                          (↑C : Type u)] →
                      (↑B : Type u) →ₗ[k] (↑C : Type u)),
              isIntertwining' := ⋯ })) =
    (mapShortComplexH1 f φ ≫ mapShortComplexH1 g ψ).τ₁
refine_1₁ :
  ∀ (a : G × G) (x : (↑A : Type u)) (a_1 : K × K),
    Eq (α := (↑C : Type u))
      ((((ModuleCat.Hom.hom
                      (Hom.τ₁
                        (mapShortComplexH1 (g.comp f)
                          (φ ≫
                            ofHom
                              {
                                toLinearMap :=
                                  (↑(Hom.hom ψ) :
                                    [inst_4 :
                                        FunLike (B.ρ.IntertwiningMap (MonoidHom.comp C.ρ g)) (↑B : Type u)
                                          (↑C : Type u)] →
                                      [SemilinearMapClass (B.ρ.IntertwiningMap (MonoidHom.comp C.ρ g)) (RingHom.id k)
                                            (↑B : Type u) (↑C : Type u)] →
                                        (↑B : Type u) →ₗ[k] (↑C : Type u)),
                                isIntertwining' := ⋯ :
                                IntertwiningMap (MonoidHom.comp B.ρ f) ((MonoidHom.comp C.ρ g).comp f) }))) ∘ₗ
                    lsingle a :
                  (a : (↑A : Type u)) →
                    (↑{ X₁ := ModuleCat.of k (K × K →₀ (↑C : Type u)), X₂ := ModuleCat.of k (K →₀ (↑C : Type u)),
                            X₃ := ModuleCat.of k (↑C : Type u), f := d₂₁ C, g := d₁₀ C, zero := ⋯ }.X₁ :
                      Type u))
                x :
              (↑{ X₁ := ModuleCat.of k (K × K →₀ (↑C : Type u)), X₂ := ModuleCat.of k (K →₀ (↑C : Type u)),
                      X₃ := ModuleCat.of k (↑C : Type u), f := d₂₁ C, g := d₁₀ C, zero := ⋯ :
                      ShortComplex (ModuleCat k) }.X₁ :
                Type u)) :
            (a : K × K) → (↑C : Type u))
          a_1 :
        (↑C : Type u))
      ((((ModuleCat.Hom.hom (mapShortComplexH1 f φ ≫ mapShortComplexH1 g ψ).τ₁ ∘ₗ lsingle a :
                  (a : (↑A : Type u)) →
                    (↑{ X₁ := ModuleCat.of k (K × K →₀ (↑C : Type u)), X₂ := ModuleCat.of k (K →₀ (↑C : Type u)),
                            X₃ := ModuleCat.of k (↑C : Type u), f := d₂₁ C, g := d₁₀ C, zero := ⋯ }.X₁ :
                      Type u))
                x :
              (↑{ X₁ := ModuleCat.of k (K × K →₀ (↑C : Type u)), X₂ := ModuleCat.of k (K →₀ (↑C : Type u)),
                      X₃ := ModuleCat.of k (↑C : Type u), f := d₂₁ C, g := d₁₀ C, zero := ⋯ :
                      ShortComplex (ModuleCat k) }.X₁ :
                Type u)) :
            (a : K × K) → (↑C : Type u))
          a_1 :
        (↑C : Type u))
⊢ (mapShortComplexH1 (g.comp f) (φ ≫ CategoryTheory.Functor.map (resFunctor f) ψ)).τ₁ =
    (mapShortComplexH1 f φ ≫ mapShortComplexH1 g ψ).τ₁

Tactic:
{ simp only [shortComplexH1]
    ext
    simp [Prod.map]}

Premises used: Prod.map, groupHomology.shortComplexH1