-- Lean 4 proof step from Mathlib.LinearAlgebra.RootSystem.Finite.Nondegenerate (goal)
Goal:
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst : Fintype ι
inst_1 : AddCommGroup M
inst_2 : AddCommGroup N
inst_3 : CommRing R
inst_4 : Module R M
inst_5 : Module R N
P : RootPairing ι R M N
inst_6 : P.IsAnisotropic
inst_7 : IsDomain R
inst_8 : IsTorsionFree R N
i j k : ι
m n : R
hk :
  HSMul.hSMul (β := M) m ((P.root : (a : ι) → M) i : M) + HSMul.hSMul (β := M) n ((P.root : (a : ι) → M) j : M) =
    (P.root : (a : ι) → M) k
B : P.InvariantForm := P.toInvariantForm
lsq : (i : ι) → R :=
  fun (i : ι) ↦
    (((B.form : (a : M) → M →ₗ[R] R) ((P.root : (a : ι) → M) i) : M →ₗ[R] R) : (a : M) → R)
      ((P.root : (a : ι) → M) i : M)
hlsq :
  ∀ (i : ι),
    lsq i =
      (((P.RootForm : (a : M) → M →ₗ[R] R) ((P.root : (a : ι) → M) i) : M →ₗ[R] R) : (a : M) → R)
        ((P.root : (a : ι) → M) i : M)
h₂ :
  lsq k =
    m * m * lsq i +
        m * n *
          HMul.hMul (α := R) (β := R) (2 : R)
            ((((B.form : (a : M) → M →ₗ[R] R) ((P.root : (a : ι) → M) i) : M →ₗ[R] R) : (a : M) → R)
                ((P.root : (a : ι) → M) j : M) :
              R) +
      n * n * lsq j
h₃ :
  HMul.hMul (α := R) (β := R) (2 : R)
      ((((B.form : (a : M) → M →ₗ[R] R) ((P.root : (a : ι) → M) i) : M →ₗ[R] R) : (a : M) → R)
          ((P.root : (a : ι) → M) j : M) :
        R) =
    P.pairing i j * lsq j
h₄ : P.pairing j i * lsq i = P.pairing i j * lsq j
h₁ :
  HSMul.hSMul (β := N) (P.pairing j i * (m * m * lsq i)) ((P.coroot : (a : ι) → N) k : N) +
        HSMul.hSMul (β := N) (P.pairing j i * (m * n * (P.pairing i j * lsq j))) ((P.coroot : (a : ι) → N) k : N) +
      HSMul.hSMul (β := N) (P.pairing j i * (n * n * lsq j)) ((P.coroot : (a : ι) → N) k : N) =
    HSMul.hSMul (β := N) (P.pairing j i * (m * lsq i)) ((P.coroot : (a : ι) → N) i : N) +
      HSMul.hSMul (β := N) (P.pairing j i * (n * lsq j)) ((P.coroot : (a : ι) → N) j : N)
h :
  HSMul.hSMul (β := N) (m * m * (P.pairing j i * lsq i)) ((P.coroot : (a : ι) → N) k : N) +
        HSMul.hSMul (β := N) (m * n * (P.pairing j i * P.pairing i j * lsq j)) ((P.coroot : (a : ι) → N) k : N) +
      HSMul.hSMul (β := N) (n * n * (P.pairing j i * lsq j)) ((P.coroot : (a : ι) → N) k : N) =
    HSMul.hSMul (β := N) (P.pairing j i * (m * m * lsq i)) ((P.coroot : (a : ι) → N) k : N) +
        HSMul.hSMul (β := N) (P.pairing j i * (m * n * (P.pairing i j * lsq j))) ((P.coroot : (a : ι) → N) k : N) +
      HSMul.hSMul (β := N) (P.pairing j i * (n * n * lsq j)) ((P.coroot : (a : ι) → N) k : N)
⊢ HSMul.hSMul (β := N) (m * m * (P.pairing j i * lsq i)) ((P.coroot : (a : ι) → N) k : N) +
        HSMul.hSMul (β := N) (m * n * (P.pairing j i * P.pairing i j * lsq j)) ((P.coroot : (a : ι) → N) k : N) +
      HSMul.hSMul (β := N) (n * n * (P.pairing j i * lsq j)) ((P.coroot : (a : ι) → N) k : N) =
    HSMul.hSMul (β := N) (m * (P.pairing j i * lsq i)) ((P.coroot : (a : ι) → N) i : N) +
      HSMul.hSMul (β := N) (n * (P.pairing j i * lsq j)) ((P.coroot : (a : ι) → N) j : N)
have h₅ : HSMul.hSMul (β := N) (m * (P.pairing j i * lsq i)) ((P.coroot : (a : ι) → N) i : N) +
    HSMul.hSMul (β := N) (n * (P.pairing j i * lsq j)) ((P.coroot : (a : ι) → N) j : N) =
  HSMul.hSMul (β := N) (P.pairing j i * (m * lsq i)) ((P.coroot : (a : ι) → N) i : N) +
    HSMul.hSMul (β := N) (P.pairing j i * (n * lsq j)) ((P.coroot : (a : ι) → N) j : N)
Tactic: convert! h₁ using 1