-- Module: Mathlib.LinearAlgebra.Matrix.Adjugate
Goal:
α : Type w
inst : CommRing α
A : Matrix (Fin 3) (Fin 3) α
j : Fin 3
a :
  HPow.hPow (α := α) (-1)
        ((↑((fun (i : Fin 3) ↦ i) (⟨0, ⋯⟩ : Fin 3)) : ℕ) + (↑((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)) : ℕ)) *
      (A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨0, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 0 *
          A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨0, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 1 -
        A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨0, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 1 *
          A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨0, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 0) =
    !![A 1 1 * A 2 2 - A 1 2 * A 2 1, -(A 0 1 * A 2 2) + A 0 2 * A 2 1, A 0 1 * A 1 2 - A 0 2 * A 1 1;
        -(A 1 0 * A 2 2) + A 1 2 * A 2 0, A 0 0 * A 2 2 - A 0 2 * A 2 0, -(A 0 0 * A 1 2) + A 0 2 * A 1 0;
        A 1 0 * A 2 1 - A 1 1 * A 2 0, -(A 0 0 * A 2 1) + A 0 1 * A 2 0, A 0 0 * A 1 1 - A 0 1 * A 1 0]
      ((fun (i : Fin 3) ↦ i) ⟨1, ⋯⟩) ((fun (i : Fin 3) ↦ i) ⟨0, ⋯⟩)
a₁ :
  HPow.hPow (α := α) (-1)
        ((↑((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)) : ℕ) + (↑((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)) : ℕ)) *
      (A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 0 *
          A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 1 -
        A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 1 *
          A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 0) =
    !![A 1 1 * A 2 2 - A 1 2 * A 2 1, -(A 0 1 * A 2 2) + A 0 2 * A 2 1, A 0 1 * A 1 2 - A 0 2 * A 1 1;
        -(A 1 0 * A 2 2) + A 1 2 * A 2 0, A 0 0 * A 2 2 - A 0 2 * A 2 0, -(A 0 0 * A 1 2) + A 0 2 * A 1 0;
        A 1 0 * A 2 1 - A 1 1 * A 2 0, -(A 0 0 * A 2 1) + A 0 1 * A 2 0, A 0 0 * A 1 1 - A 0 1 * A 1 0]
      ((fun (i : Fin 3) ↦ i) ⟨1, ⋯⟩) ((fun (i : Fin 3) ↦ i) ⟨1, ⋯⟩)
a₂ :
  HPow.hPow (α := α) (-1)
        ((↑((fun (i : Fin 3) ↦ i) (⟨2, ⋯⟩ : Fin 3)) : ℕ) + (↑((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)) : ℕ)) *
      (A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨2, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 0 *
          A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨2, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 1 -
        A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨2, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 1 *
          A.submatrix (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨2, ⋯⟩ : Fin 3)))
            (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 0) =
    !![A 1 1 * A 2 2 - A 1 2 * A 2 1, -(A 0 1 * A 2 2) + A 0 2 * A 2 1, A 0 1 * A 1 2 - A 0 2 * A 1 1;
        -(A 1 0 * A 2 2) + A 1 2 * A 2 0, A 0 0 * A 2 2 - A 0 2 * A 2 0, -(A 0 0 * A 1 2) + A 0 2 * A 1 0;
        A 1 0 * A 2 1 - A 1 1 * A 2 0, -(A 0 0 * A 2 1) + A 0 1 * A 2 0, A 0 0 * A 1 1 - A 0 1 * A 1 0]
      ((fun (i : Fin 3) ↦ i) ⟨1, ⋯⟩) ((fun (i : Fin 3) ↦ i) ⟨2, ⋯⟩)
⊢ HPow.hPow (α := α) (-1) ((↑j : ℕ) + (↑((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3)) : ℕ)) *
      (A.submatrix j.succAbove (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 0 *
          A.submatrix j.succAbove (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 1 -
        A.submatrix j.succAbove (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 0 1 *
          A.submatrix j.succAbove (Fin.succAbove ((fun (i : Fin 3) ↦ i) (⟨1, ⋯⟩ : Fin 3))) 1 0) =
    !![A 1 1 * A 2 2 - A 1 2 * A 2 1, -(A 0 1 * A 2 2) + A 0 2 * A 2 1, A 0 1 * A 1 2 - A 0 2 * A 1 1;
        -(A 1 0 * A 2 2) + A 1 2 * A 2 0, A 0 0 * A 2 2 - A 0 2 * A 2 0, -(A 0 0 * A 1 2) + A 0 2 * A 1 0;
        A 1 0 * A 2 1 - A 1 1 * A 2 0, -(A 0 0 * A 2 1) + A 0 1 * A 2 0, A 0 0 * A 1 1 - A 0 1 * A 1 0]
      ((fun (i : Fin 3) ↦ i) ⟨1, ⋯⟩) j

Tactic:
fin_cases j