case intro.intro.intro
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
L L' : List (TransvectionStruct n 𝕜)
D : n → 𝕜
h : List.prod (List.map toMatrix L) ⬝ M ⬝ List.prod (List.map toMatrix L') = diagonal D
⊢ ∃ L L' D, M = List.prod (List.map toMatrix L) ⬝ diagonal D ⬝ List.prod (List.map toMatrix L')
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
⊢ ∃ L L' D, M = List.prod (List.map toMatrix L) ⬝ diagonal D ⬝ List.prod (List.map toMatrix L')
rcases exists_list_transvec_mul_mul_list_transvec_eq_diagonal M with ⟨L, L', D, h⟩
case intro.intro.intro
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
L L' : List (TransvectionStruct n 𝕜)
D : n → 𝕜
h : List.prod (List.map toMatrix L) ⬝ M ⬝ List.prod (List.map toMatrix L') = diagonal D
⊢ M =
    List.prod (List.map toMatrix (List.map TransvectionStruct.inv (List.reverse L))) ⬝ diagonal D ⬝
      List.prod (List.map toMatrix (List.map TransvectionStruct.inv (List.reverse L')))
case intro.intro.intro
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
L L' : List (TransvectionStruct n 𝕜)
D : n → 𝕜
h : List.prod (List.map toMatrix L) ⬝ M ⬝ List.prod (List.map toMatrix L') = diagonal D
⊢ ∃ L L' D, M = List.prod (List.map toMatrix L) ⬝ diagonal D ⬝ List.prod (List.map toMatrix L')
refine' ⟨L.reverse.map TransvectionStruct.inv, L'.reverse.map TransvectionStruct.inv, D, _⟩
case intro.intro.intro
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
L L' : List (TransvectionStruct n 𝕜)
D : n → 𝕜
h : List.prod (List.map toMatrix L) ⬝ M ⬝ List.prod (List.map toMatrix L') = diagonal D
⊢ M =
    List.prod (List.map (toMatrix ∘ TransvectionStruct.inv) (List.reverse L)) ⬝ List.prod (List.map toMatrix L) ⬝ M ⬝
      (List.prod (List.map toMatrix L') ⬝ List.prod (List.map (toMatrix ∘ TransvectionStruct.inv) (List.reverse L')))
case intro.intro.intro
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
L L' : List (TransvectionStruct n 𝕜)
D : n → 𝕜
h : List.prod (List.map toMatrix L) ⬝ M ⬝ List.prod (List.map toMatrix L') = diagonal D
⊢ M =
    List.prod (List.map toMatrix (List.map TransvectionStruct.inv (List.reverse L))) ⬝ diagonal D ⬝
      List.prod (List.map toMatrix (List.map TransvectionStruct.inv (List.reverse L')))
suffices
  M =
    (L.reverse.map (toMatrix ∘ TransvectionStruct.inv)).prod ⬝ (L.map toMatrix).prod ⬝ M ⬝
      ((L'.map toMatrix).prod ⬝ (L'.reverse.map (toMatrix ∘ TransvectionStruct.inv)).prod)
  by simpa [← h, Matrix.mul_assoc]
no goals
case intro.intro.intro
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
L L' : List (TransvectionStruct n 𝕜)
D : n → 𝕜
h : List.prod (List.map toMatrix L) ⬝ M ⬝ List.prod (List.map toMatrix L') = diagonal D
⊢ M =
    List.prod (List.map (toMatrix ∘ TransvectionStruct.inv) (List.reverse L)) ⬝ List.prod (List.map toMatrix L) ⬝ M ⬝
      (List.prod (List.map toMatrix L') ⬝ List.prod (List.map (toMatrix ∘ TransvectionStruct.inv) (List.reverse L')))
rw [reverse_inv_prod_mul_prod, prod_mul_reverse_inv_prod, Matrix.one_mul, Matrix.mul_one]
no goals
n : Type u_1
p : Type ?u.321806
R : Type u₂
𝕜 : Type u_2
inst✝⁵ : Field 𝕜
inst✝⁴ : DecidableEq n
inst✝³ : DecidableEq p
inst✝² : CommRing R
r : ℕ
M✝ : Matrix (Fin r ⊕ Unit) (Fin r ⊕ Unit) 𝕜
inst✝¹ : Fintype n
inst✝ : Fintype p
M : Matrix n n 𝕜
L L' : List (TransvectionStruct n 𝕜)
D : n → 𝕜
h : List.prod (List.map toMatrix L) ⬝ M ⬝ List.prod (List.map toMatrix L') = diagonal D
this :
  M =
    List.prod (List.map (toMatrix ∘ TransvectionStruct.inv) (List.reverse L)) ⬝ List.prod (List.map toMatrix L) ⬝ M ⬝
      (List.prod (List.map toMatrix L') ⬝ List.prod (List.map (toMatrix ∘ TransvectionStruct.inv) (List.reverse L')))
⊢ M =
    List.prod (List.map toMatrix (List.map TransvectionStruct.inv (List.reverse L))) ⬝ diagonal D ⬝
      List.prod (List.map toMatrix (List.map TransvectionStruct.inv (List.reverse L')))
simpa [← h, Matrix.mul_assoc]