no goals
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
⊢ det (↑(↑(kroneckerMapBilinear f) A) B) = det (↑(↑(kroneckerMapBilinear f) A) 1 ⬝ ↑(↑(kroneckerMapBilinear f) 1) B)
rw [← kroneckerMapBilinear_mul_mul f h_comm, Matrix.mul_one, Matrix.one_mul]
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
⊢ ∀ (x : β), ↑(↑f 0) x = 0

R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
⊢ ∀ (x : α), ↑(↑f x) 0 = 0
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
⊢ det (↑(↑(kroneckerMapBilinear f) A) 1 ⬝ ↑(↑(kroneckerMapBilinear f) 1) B) =
    det (blockDiagonal fun x => map A fun a => ↑(↑f a) 1) * det (blockDiagonal fun x => map B fun b => ↑(↑f 1) b)
rw [det_mul, ← diagonal_one, ← diagonal_one, kroneckerMapBilinear_apply_apply,
  kroneckerMap_diagonal_right _ fun _ => _, kroneckerMapBilinear_apply_apply,
  kroneckerMap_diagonal_left _ fun _ => _, det_reindex_self]
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
x✝ : β
⊢ ↑(↑f 0) x✝ = 0
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
⊢ ∀ (x : β), ↑(↑f 0) x = 0
intro
no goals
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
x✝ : β
⊢ ↑(↑f 0) x✝ = 0
exact LinearMap.map_zero₂ _ _
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
x✝ : α
⊢ ↑(↑f x✝) 0 = 0
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
⊢ ∀ (x : α), ↑(↑f x) 0 = 0
intro
no goals
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
x✝ : α
⊢ ↑(↑f x✝) 0 = 0
exact map_zero _
no goals
R : Type u_1
α : Type u_4
α' : Type ?u.61413
β : Type u_5
β' : Type ?u.61419
γ : Type u_6
γ' : Type ?u.61425
l : Type ?u.61428
m : Type u_2
n : Type u_3
p : Type ?u.61437
q : Type ?u.61440
r : Type ?u.61443
l' : Type ?u.61446
m' : Type ?u.61449
n' : Type ?u.61452
p' : Type ?u.61455
inst✝¹⁰ : CommSemiring R
inst✝⁹ : Fintype m
inst✝⁸ : Fintype n
inst✝⁷ : DecidableEq m
inst✝⁶ : DecidableEq n
inst✝⁵ : CommRing α
inst✝⁴ : CommRing β
inst✝³ : CommRing γ
inst✝² : Module R α
inst✝¹ : Module R β
inst✝ : Module R γ
f : α →ₗ[R] β →ₗ[R] γ
h_comm : ∀ (a b : α) (a' b' : β), ↑(↑f (a * b)) (a' * b') = ↑(↑f a) a' * ↑(↑f b) b'
A : Matrix m m α
B : Matrix n n β
⊢ det (blockDiagonal fun x => map A fun a => ↑(↑f a) 1) * det (blockDiagonal fun x => map B fun b => ↑(↑f 1) b) =
    det (map A fun a => ↑(↑f a) 1) ^ Fintype.card n * det (map B fun b => ↑(↑f 1) b) ^ Fintype.card m
simp_rw [det_blockDiagonal, Finset.prod_const, Finset.card_univ]