MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  m1detdiag Structured version   Visualization version   GIF version

Theorem m1detdiag 20913
Description: The determinant of a 1-dimensional matrix equals its (single) entry. (Contributed by AV, 6-Aug-2019.)
Hypotheses
Ref Expression
mdetdiag.d 𝐷 = (𝑁 maDet 𝑅)
mdetdiag.a 𝐴 = (𝑁 Mat 𝑅)
mdetdiag.b 𝐵 = (Base‘𝐴)
Assertion
Ref Expression
m1detdiag ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐷𝑀) = (𝐼𝑀𝐼))

Proof of Theorem m1detdiag
Dummy variables 𝑏 𝑝 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mdetdiag.d . . . 4 𝐷 = (𝑁 maDet 𝑅)
2 mdetdiag.a . . . 4 𝐴 = (𝑁 Mat 𝑅)
3 mdetdiag.b . . . 4 𝐵 = (Base‘𝐴)
4 eqid 2778 . . . 4 (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
5 eqid 2778 . . . 4 (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
6 eqid 2778 . . . 4 (pmSgn‘𝑁) = (pmSgn‘𝑁)
7 eqid 2778 . . . 4 (.r𝑅) = (.r𝑅)
8 eqid 2778 . . . 4 (mulGrp‘𝑅) = (mulGrp‘𝑅)
91, 2, 3, 4, 5, 6, 7, 8mdetleib 20903 . . 3 (𝑀𝐵 → (𝐷𝑀) = (𝑅 Σg (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥)))))))
1093ad2ant3 1115 . 2 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐷𝑀) = (𝑅 Σg (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥)))))))
11 2fveq3 6506 . . . . . . . 8 (𝑁 = {𝐼} → (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘{𝐼})))
1211adantr 473 . . . . . . 7 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘{𝐼})))
13123ad2ant2 1114 . . . . . 6 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘{𝐼})))
14 simp2r 1180 . . . . . . 7 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → 𝐼𝑉)
15 eqid 2778 . . . . . . . 8 (SymGrp‘{𝐼}) = (SymGrp‘{𝐼})
16 eqid 2778 . . . . . . . 8 (Base‘(SymGrp‘{𝐼})) = (Base‘(SymGrp‘{𝐼}))
17 eqid 2778 . . . . . . . 8 {𝐼} = {𝐼}
1815, 16, 17symg1bas 18288 . . . . . . 7 (𝐼𝑉 → (Base‘(SymGrp‘{𝐼})) = {{⟨𝐼, 𝐼⟩}})
1914, 18syl 17 . . . . . 6 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (Base‘(SymGrp‘{𝐼})) = {{⟨𝐼, 𝐼⟩}})
2013, 19eqtrd 2814 . . . . 5 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (Base‘(SymGrp‘𝑁)) = {{⟨𝐼, 𝐼⟩}})
2120mpteq1d 5017 . . . 4 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥))))) = (𝑝 ∈ {{⟨𝐼, 𝐼⟩}} ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥))))))
22 snex 5189 . . . . . 6 {⟨𝐼, 𝐼⟩} ∈ V
2322a1i 11 . . . . 5 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → {⟨𝐼, 𝐼⟩} ∈ V)
24 ovex 7010 . . . . 5 ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))) ∈ V
25 fveq2 6501 . . . . . . . 8 (𝑝 = {⟨𝐼, 𝐼⟩} → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) = (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩}))
26 fveq1 6500 . . . . . . . . . . 11 (𝑝 = {⟨𝐼, 𝐼⟩} → (𝑝𝑥) = ({⟨𝐼, 𝐼⟩}‘𝑥))
2726oveq1d 6993 . . . . . . . . . 10 (𝑝 = {⟨𝐼, 𝐼⟩} → ((𝑝𝑥)𝑀𝑥) = (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))
2827mpteq2dv 5024 . . . . . . . . 9 (𝑝 = {⟨𝐼, 𝐼⟩} → (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥)) = (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))
2928oveq2d 6994 . . . . . . . 8 (𝑝 = {⟨𝐼, 𝐼⟩} → ((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥))) = ((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))
3025, 29oveq12d 6996 . . . . . . 7 (𝑝 = {⟨𝐼, 𝐼⟩} → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥)))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))))
3130fmptsng 6755 . . . . . 6 (({⟨𝐼, 𝐼⟩} ∈ V ∧ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))) ∈ V) → {⟨{⟨𝐼, 𝐼⟩}, ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))⟩} = (𝑝 ∈ {{⟨𝐼, 𝐼⟩}} ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥))))))
3231eqcomd 2784 . . . . 5 (({⟨𝐼, 𝐼⟩} ∈ V ∧ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))) ∈ V) → (𝑝 ∈ {{⟨𝐼, 𝐼⟩}} ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥))))) = {⟨{⟨𝐼, 𝐼⟩}, ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))⟩})
3323, 24, 32sylancl 577 . . . 4 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝑝 ∈ {{⟨𝐼, 𝐼⟩}} ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥))))) = {⟨{⟨𝐼, 𝐼⟩}, ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))⟩})
34 eqid 2778 . . . . . . . . . . . . 13 (SymGrp‘𝑁) = (SymGrp‘𝑁)
35 eqid 2778 . . . . . . . . . . . . 13 {𝑏 ∈ (Base‘(SymGrp‘𝑁)) ∣ dom (𝑏 ∖ I ) ∈ Fin} = {𝑏 ∈ (Base‘(SymGrp‘𝑁)) ∣ dom (𝑏 ∖ I ) ∈ Fin}
3634, 4, 35, 6psgnfn 18394 . . . . . . . . . . . 12 (pmSgn‘𝑁) Fn {𝑏 ∈ (Base‘(SymGrp‘𝑁)) ∣ dom (𝑏 ∖ I ) ∈ Fin}
3718adantl 474 . . . . . . . . . . . . . . . . 17 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → (Base‘(SymGrp‘{𝐼})) = {{⟨𝐼, 𝐼⟩}})
3812, 37eqtrd 2814 . . . . . . . . . . . . . . . 16 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → (Base‘(SymGrp‘𝑁)) = {{⟨𝐼, 𝐼⟩}})
39383ad2ant2 1114 . . . . . . . . . . . . . . 15 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (Base‘(SymGrp‘𝑁)) = {{⟨𝐼, 𝐼⟩}})
40 rabeq 3406 . . . . . . . . . . . . . . 15 ((Base‘(SymGrp‘𝑁)) = {{⟨𝐼, 𝐼⟩}} → {𝑏 ∈ (Base‘(SymGrp‘𝑁)) ∣ dom (𝑏 ∖ I ) ∈ Fin} = {𝑏 ∈ {{⟨𝐼, 𝐼⟩}} ∣ dom (𝑏 ∖ I ) ∈ Fin})
4139, 40syl 17 . . . . . . . . . . . . . 14 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → {𝑏 ∈ (Base‘(SymGrp‘𝑁)) ∣ dom (𝑏 ∖ I ) ∈ Fin} = {𝑏 ∈ {{⟨𝐼, 𝐼⟩}} ∣ dom (𝑏 ∖ I ) ∈ Fin})
42 difeq1 3984 . . . . . . . . . . . . . . . . . 18 (𝑏 = {⟨𝐼, 𝐼⟩} → (𝑏 ∖ I ) = ({⟨𝐼, 𝐼⟩} ∖ I ))
4342dmeqd 5625 . . . . . . . . . . . . . . . . 17 (𝑏 = {⟨𝐼, 𝐼⟩} → dom (𝑏 ∖ I ) = dom ({⟨𝐼, 𝐼⟩} ∖ I ))
4443eleq1d 2850 . . . . . . . . . . . . . . . 16 (𝑏 = {⟨𝐼, 𝐼⟩} → (dom (𝑏 ∖ I ) ∈ Fin ↔ dom ({⟨𝐼, 𝐼⟩} ∖ I ) ∈ Fin))
4544rabsnif 4534 . . . . . . . . . . . . . . 15 {𝑏 ∈ {{⟨𝐼, 𝐼⟩}} ∣ dom (𝑏 ∖ I ) ∈ Fin} = if(dom ({⟨𝐼, 𝐼⟩} ∖ I ) ∈ Fin, {{⟨𝐼, 𝐼⟩}}, ∅)
4645a1i 11 . . . . . . . . . . . . . 14 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → {𝑏 ∈ {{⟨𝐼, 𝐼⟩}} ∣ dom (𝑏 ∖ I ) ∈ Fin} = if(dom ({⟨𝐼, 𝐼⟩} ∖ I ) ∈ Fin, {{⟨𝐼, 𝐼⟩}}, ∅))
47 restidsing 5766 . . . . . . . . . . . . . . . . . . . 20 ( I ↾ {𝐼}) = ({𝐼} × {𝐼})
48 xpsng 6726 . . . . . . . . . . . . . . . . . . . . 21 ((𝐼𝑉𝐼𝑉) → ({𝐼} × {𝐼}) = {⟨𝐼, 𝐼⟩})
4948anidms 559 . . . . . . . . . . . . . . . . . . . 20 (𝐼𝑉 → ({𝐼} × {𝐼}) = {⟨𝐼, 𝐼⟩})
5047, 49syl5req 2827 . . . . . . . . . . . . . . . . . . 19 (𝐼𝑉 → {⟨𝐼, 𝐼⟩} = ( I ↾ {𝐼}))
51 fnsng 6241 . . . . . . . . . . . . . . . . . . . . 21 ((𝐼𝑉𝐼𝑉) → {⟨𝐼, 𝐼⟩} Fn {𝐼})
5251anidms 559 . . . . . . . . . . . . . . . . . . . 20 (𝐼𝑉 → {⟨𝐼, 𝐼⟩} Fn {𝐼})
53 fnnfpeq0 6765 . . . . . . . . . . . . . . . . . . . 20 ({⟨𝐼, 𝐼⟩} Fn {𝐼} → (dom ({⟨𝐼, 𝐼⟩} ∖ I ) = ∅ ↔ {⟨𝐼, 𝐼⟩} = ( I ↾ {𝐼})))
5452, 53syl 17 . . . . . . . . . . . . . . . . . . 19 (𝐼𝑉 → (dom ({⟨𝐼, 𝐼⟩} ∖ I ) = ∅ ↔ {⟨𝐼, 𝐼⟩} = ( I ↾ {𝐼})))
5550, 54mpbird 249 . . . . . . . . . . . . . . . . . 18 (𝐼𝑉 → dom ({⟨𝐼, 𝐼⟩} ∖ I ) = ∅)
56 0fin 8543 . . . . . . . . . . . . . . . . . 18 ∅ ∈ Fin
5755, 56syl6eqel 2874 . . . . . . . . . . . . . . . . 17 (𝐼𝑉 → dom ({⟨𝐼, 𝐼⟩} ∖ I ) ∈ Fin)
5857adantl 474 . . . . . . . . . . . . . . . 16 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → dom ({⟨𝐼, 𝐼⟩} ∖ I ) ∈ Fin)
59583ad2ant2 1114 . . . . . . . . . . . . . . 15 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → dom ({⟨𝐼, 𝐼⟩} ∖ I ) ∈ Fin)
6059iftrued 4359 . . . . . . . . . . . . . 14 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → if(dom ({⟨𝐼, 𝐼⟩} ∖ I ) ∈ Fin, {{⟨𝐼, 𝐼⟩}}, ∅) = {{⟨𝐼, 𝐼⟩}})
6141, 46, 603eqtrrd 2819 . . . . . . . . . . . . 13 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → {{⟨𝐼, 𝐼⟩}} = {𝑏 ∈ (Base‘(SymGrp‘𝑁)) ∣ dom (𝑏 ∖ I ) ∈ Fin})
6261fneq2d 6282 . . . . . . . . . . . 12 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((pmSgn‘𝑁) Fn {{⟨𝐼, 𝐼⟩}} ↔ (pmSgn‘𝑁) Fn {𝑏 ∈ (Base‘(SymGrp‘𝑁)) ∣ dom (𝑏 ∖ I ) ∈ Fin}))
6336, 62mpbiri 250 . . . . . . . . . . 11 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (pmSgn‘𝑁) Fn {{⟨𝐼, 𝐼⟩}})
6422snid 4474 . . . . . . . . . . 11 {⟨𝐼, 𝐼⟩} ∈ {{⟨𝐼, 𝐼⟩}}
65 fvco2 6588 . . . . . . . . . . 11 (((pmSgn‘𝑁) Fn {{⟨𝐼, 𝐼⟩}} ∧ {⟨𝐼, 𝐼⟩} ∈ {{⟨𝐼, 𝐼⟩}}) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩}) = ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨𝐼, 𝐼⟩})))
6663, 64, 65sylancl 577 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩}) = ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨𝐼, 𝐼⟩})))
67 fveq2 6501 . . . . . . . . . . . . . . 15 (𝑁 = {𝐼} → (pmSgn‘𝑁) = (pmSgn‘{𝐼}))
6867adantr 473 . . . . . . . . . . . . . 14 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → (pmSgn‘𝑁) = (pmSgn‘{𝐼}))
69683ad2ant2 1114 . . . . . . . . . . . . 13 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (pmSgn‘𝑁) = (pmSgn‘{𝐼}))
7069fveq1d 6503 . . . . . . . . . . . 12 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((pmSgn‘𝑁)‘{⟨𝐼, 𝐼⟩}) = ((pmSgn‘{𝐼})‘{⟨𝐼, 𝐼⟩}))
71 snidg 4472 . . . . . . . . . . . . . . . . . 18 ({⟨𝐼, 𝐼⟩} ∈ V → {⟨𝐼, 𝐼⟩} ∈ {{⟨𝐼, 𝐼⟩}})
7222, 71mp1i 13 . . . . . . . . . . . . . . . . 17 (𝐼𝑉 → {⟨𝐼, 𝐼⟩} ∈ {{⟨𝐼, 𝐼⟩}})
7372, 18eleqtrrd 2869 . . . . . . . . . . . . . . . 16 (𝐼𝑉 → {⟨𝐼, 𝐼⟩} ∈ (Base‘(SymGrp‘{𝐼})))
7473ancli 541 . . . . . . . . . . . . . . 15 (𝐼𝑉 → (𝐼𝑉 ∧ {⟨𝐼, 𝐼⟩} ∈ (Base‘(SymGrp‘{𝐼}))))
7574adantl 474 . . . . . . . . . . . . . 14 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → (𝐼𝑉 ∧ {⟨𝐼, 𝐼⟩} ∈ (Base‘(SymGrp‘{𝐼}))))
76753ad2ant2 1114 . . . . . . . . . . . . 13 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐼𝑉 ∧ {⟨𝐼, 𝐼⟩} ∈ (Base‘(SymGrp‘{𝐼}))))
77 eqid 2778 . . . . . . . . . . . . . 14 (pmSgn‘{𝐼}) = (pmSgn‘{𝐼})
7817, 15, 16, 77psgnsn 18413 . . . . . . . . . . . . 13 ((𝐼𝑉 ∧ {⟨𝐼, 𝐼⟩} ∈ (Base‘(SymGrp‘{𝐼}))) → ((pmSgn‘{𝐼})‘{⟨𝐼, 𝐼⟩}) = 1)
7976, 78syl 17 . . . . . . . . . . . 12 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((pmSgn‘{𝐼})‘{⟨𝐼, 𝐼⟩}) = 1)
8070, 79eqtrd 2814 . . . . . . . . . . 11 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((pmSgn‘𝑁)‘{⟨𝐼, 𝐼⟩}) = 1)
8180fveq2d 6505 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨𝐼, 𝐼⟩})) = ((ℤRHom‘𝑅)‘1))
82 crngring 19034 . . . . . . . . . . . 12 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
83823ad2ant1 1113 . . . . . . . . . . 11 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → 𝑅 ∈ Ring)
84 eqid 2778 . . . . . . . . . . . 12 (1r𝑅) = (1r𝑅)
855, 84zrh1 20365 . . . . . . . . . . 11 (𝑅 ∈ Ring → ((ℤRHom‘𝑅)‘1) = (1r𝑅))
8683, 85syl 17 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((ℤRHom‘𝑅)‘1) = (1r𝑅))
8766, 81, 863eqtrd 2818 . . . . . . . . 9 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩}) = (1r𝑅))
88 simp2l 1179 . . . . . . . . . . . 12 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → 𝑁 = {𝐼})
8988mpteq1d 5017 . . . . . . . . . . 11 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)) = (𝑥 ∈ {𝐼} ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))
9089oveq2d 6994 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))) = ((mulGrp‘𝑅) Σg (𝑥 ∈ {𝐼} ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))
918ringmgp 19029 . . . . . . . . . . . . 13 (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
9282, 91syl 17 . . . . . . . . . . . 12 (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ Mnd)
93923ad2ant1 1113 . . . . . . . . . . 11 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (mulGrp‘𝑅) ∈ Mnd)
94 snidg 4472 . . . . . . . . . . . . . . . . 17 (𝐼𝑉𝐼 ∈ {𝐼})
9594adantl 474 . . . . . . . . . . . . . . . 16 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → 𝐼 ∈ {𝐼})
96 eleq2 2854 . . . . . . . . . . . . . . . . 17 (𝑁 = {𝐼} → (𝐼𝑁𝐼 ∈ {𝐼}))
9796adantr 473 . . . . . . . . . . . . . . . 16 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → (𝐼𝑁𝐼 ∈ {𝐼}))
9895, 97mpbird 249 . . . . . . . . . . . . . . 15 ((𝑁 = {𝐼} ∧ 𝐼𝑉) → 𝐼𝑁)
993eleq2i 2857 . . . . . . . . . . . . . . . 16 (𝑀𝐵𝑀 ∈ (Base‘𝐴))
10099biimpi 208 . . . . . . . . . . . . . . 15 (𝑀𝐵𝑀 ∈ (Base‘𝐴))
101 simpl 475 . . . . . . . . . . . . . . . 16 ((𝐼𝑁𝑀 ∈ (Base‘𝐴)) → 𝐼𝑁)
102 simpr 477 . . . . . . . . . . . . . . . 16 ((𝐼𝑁𝑀 ∈ (Base‘𝐴)) → 𝑀 ∈ (Base‘𝐴))
103101, 101, 1023jca 1108 . . . . . . . . . . . . . . 15 ((𝐼𝑁𝑀 ∈ (Base‘𝐴)) → (𝐼𝑁𝐼𝑁𝑀 ∈ (Base‘𝐴)))
10498, 100, 103syl2an 586 . . . . . . . . . . . . . 14 (((𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐼𝑁𝐼𝑁𝑀 ∈ (Base‘𝐴)))
1051043adant1 1110 . . . . . . . . . . . . 13 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐼𝑁𝐼𝑁𝑀 ∈ (Base‘𝐴)))
106 eqid 2778 . . . . . . . . . . . . . 14 (Base‘𝑅) = (Base‘𝑅)
1072, 106matecl 20741 . . . . . . . . . . . . 13 ((𝐼𝑁𝐼𝑁𝑀 ∈ (Base‘𝐴)) → (𝐼𝑀𝐼) ∈ (Base‘𝑅))
108105, 107syl 17 . . . . . . . . . . . 12 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐼𝑀𝐼) ∈ (Base‘𝑅))
1098, 106mgpbas 18971 . . . . . . . . . . . 12 (Base‘𝑅) = (Base‘(mulGrp‘𝑅))
110108, 109syl6eleq 2876 . . . . . . . . . . 11 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐼𝑀𝐼) ∈ (Base‘(mulGrp‘𝑅)))
111 eqid 2778 . . . . . . . . . . . 12 (Base‘(mulGrp‘𝑅)) = (Base‘(mulGrp‘𝑅))
112 fveq2 6501 . . . . . . . . . . . . . 14 (𝑥 = 𝐼 → ({⟨𝐼, 𝐼⟩}‘𝑥) = ({⟨𝐼, 𝐼⟩}‘𝐼))
113 eqvisset 3432 . . . . . . . . . . . . . . 15 (𝑥 = 𝐼𝐼 ∈ V)
114 fvsng 6767 . . . . . . . . . . . . . . 15 ((𝐼 ∈ V ∧ 𝐼 ∈ V) → ({⟨𝐼, 𝐼⟩}‘𝐼) = 𝐼)
115113, 113, 114syl2anc 576 . . . . . . . . . . . . . 14 (𝑥 = 𝐼 → ({⟨𝐼, 𝐼⟩}‘𝐼) = 𝐼)
116112, 115eqtrd 2814 . . . . . . . . . . . . 13 (𝑥 = 𝐼 → ({⟨𝐼, 𝐼⟩}‘𝑥) = 𝐼)
117 id 22 . . . . . . . . . . . . 13 (𝑥 = 𝐼𝑥 = 𝐼)
118116, 117oveq12d 6996 . . . . . . . . . . . 12 (𝑥 = 𝐼 → (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥) = (𝐼𝑀𝐼))
119111, 118gsumsn 18830 . . . . . . . . . . 11 (((mulGrp‘𝑅) ∈ Mnd ∧ 𝐼𝑉 ∧ (𝐼𝑀𝐼) ∈ (Base‘(mulGrp‘𝑅))) → ((mulGrp‘𝑅) Σg (𝑥 ∈ {𝐼} ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))) = (𝐼𝑀𝐼))
12093, 14, 110, 119syl3anc 1351 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((mulGrp‘𝑅) Σg (𝑥 ∈ {𝐼} ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))) = (𝐼𝑀𝐼))
12190, 120eqtrd 2814 . . . . . . . . 9 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))) = (𝐼𝑀𝐼))
12287, 121oveq12d 6996 . . . . . . . 8 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))) = ((1r𝑅)(.r𝑅)(𝐼𝑀𝐼)))
123983ad2ant2 1114 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → 𝐼𝑁)
1241003ad2ant3 1115 . . . . . . . . . 10 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → 𝑀 ∈ (Base‘𝐴))
125123, 123, 124, 107syl3anc 1351 . . . . . . . . 9 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐼𝑀𝐼) ∈ (Base‘𝑅))
126106, 7, 84ringlidm 19047 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐼𝑀𝐼) ∈ (Base‘𝑅)) → ((1r𝑅)(.r𝑅)(𝐼𝑀𝐼)) = (𝐼𝑀𝐼))
12783, 125, 126syl2anc 576 . . . . . . . 8 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((1r𝑅)(.r𝑅)(𝐼𝑀𝐼)) = (𝐼𝑀𝐼))
128122, 127eqtrd 2814 . . . . . . 7 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥)))) = (𝐼𝑀𝐼))
129128opeq2d 4685 . . . . . 6 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → ⟨{⟨𝐼, 𝐼⟩}, ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))⟩ = ⟨{⟨𝐼, 𝐼⟩}, (𝐼𝑀𝐼)⟩)
130129sneqd 4454 . . . . 5 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → {⟨{⟨𝐼, 𝐼⟩}, ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))⟩} = {⟨{⟨𝐼, 𝐼⟩}, (𝐼𝑀𝐼)⟩})
131 ovex 7010 . . . . . 6 (𝐼𝑀𝐼) ∈ V
132 eqidd 2779 . . . . . . 7 (𝑦 = {⟨𝐼, 𝐼⟩} → (𝐼𝑀𝐼) = (𝐼𝑀𝐼))
133132fmptsng 6755 . . . . . 6 (({⟨𝐼, 𝐼⟩} ∈ V ∧ (𝐼𝑀𝐼) ∈ V) → {⟨{⟨𝐼, 𝐼⟩}, (𝐼𝑀𝐼)⟩} = (𝑦 ∈ {{⟨𝐼, 𝐼⟩}} ↦ (𝐼𝑀𝐼)))
13423, 131, 133sylancl 577 . . . . 5 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → {⟨{⟨𝐼, 𝐼⟩}, (𝐼𝑀𝐼)⟩} = (𝑦 ∈ {{⟨𝐼, 𝐼⟩}} ↦ (𝐼𝑀𝐼)))
135130, 134eqtrd 2814 . . . 4 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → {⟨{⟨𝐼, 𝐼⟩}, ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘{⟨𝐼, 𝐼⟩})(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ (({⟨𝐼, 𝐼⟩}‘𝑥)𝑀𝑥))))⟩} = (𝑦 ∈ {{⟨𝐼, 𝐼⟩}} ↦ (𝐼𝑀𝐼)))
13621, 33, 1353eqtrd 2818 . . 3 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥))))) = (𝑦 ∈ {{⟨𝐼, 𝐼⟩}} ↦ (𝐼𝑀𝐼)))
137136oveq2d 6994 . 2 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝑅 Σg (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)(.r𝑅)((mulGrp‘𝑅) Σg (𝑥𝑁 ↦ ((𝑝𝑥)𝑀𝑥)))))) = (𝑅 Σg (𝑦 ∈ {{⟨𝐼, 𝐼⟩}} ↦ (𝐼𝑀𝐼))))
138 ringmnd 19032 . . . . 5 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
13982, 138syl 17 . . . 4 (𝑅 ∈ CRing → 𝑅 ∈ Mnd)
1401393ad2ant1 1113 . . 3 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → 𝑅 ∈ Mnd)
141106, 132gsumsn 18830 . . 3 ((𝑅 ∈ Mnd ∧ {⟨𝐼, 𝐼⟩} ∈ V ∧ (𝐼𝑀𝐼) ∈ (Base‘𝑅)) → (𝑅 Σg (𝑦 ∈ {{⟨𝐼, 𝐼⟩}} ↦ (𝐼𝑀𝐼))) = (𝐼𝑀𝐼))
142140, 23, 125, 141syl3anc 1351 . 2 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝑅 Σg (𝑦 ∈ {{⟨𝐼, 𝐼⟩}} ↦ (𝐼𝑀𝐼))) = (𝐼𝑀𝐼))
14310, 137, 1423eqtrd 2818 1 ((𝑅 ∈ CRing ∧ (𝑁 = {𝐼} ∧ 𝐼𝑉) ∧ 𝑀𝐵) → (𝐷𝑀) = (𝐼𝑀𝐼))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 198  wa 387  w3a 1068   = wceq 1507  wcel 2050  {crab 3092  Vcvv 3415  cdif 3828  c0 4180  ifcif 4351  {csn 4442  cop 4448  cmpt 5009   I cid 5312   × cxp 5406  dom cdm 5408  cres 5410  ccom 5412   Fn wfn 6185  cfv 6190  (class class class)co 6978  Fincfn 8308  1c1 10338  Basecbs 16342  .rcmulr 16425   Σg cgsu 16573  Mndcmnd 17765  SymGrpcsymg 18269  pmSgncpsgn 18381  mulGrpcmgp 18965  1rcur 18977  Ringcrg 19023  CRingccrg 19024  ℤRHomczrh 20352   Mat cmat 20723   maDet cmdat 20900
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5050  ax-sep 5061  ax-nul 5068  ax-pow 5120  ax-pr 5187  ax-un 7281  ax-cnex 10393  ax-resscn 10394  ax-1cn 10395  ax-icn 10396  ax-addcl 10397  ax-addrcl 10398  ax-mulcl 10399  ax-mulrcl 10400  ax-mulcom 10401  ax-addass 10402  ax-mulass 10403  ax-distr 10404  ax-i2m1 10405  ax-1ne0 10406  ax-1rid 10407  ax-rnegex 10408  ax-rrecex 10409  ax-cnre 10410  ax-pre-lttri 10411  ax-pre-lttrn 10412  ax-pre-ltadd 10413  ax-pre-mulgt0 10414  ax-addf 10416  ax-mulf 10417
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-xor 1489  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2583  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-nel 3074  df-ral 3093  df-rex 3094  df-reu 3095  df-rmo 3096  df-rab 3097  df-v 3417  df-sbc 3684  df-csb 3789  df-dif 3834  df-un 3836  df-in 3838  df-ss 3845  df-pss 3847  df-nul 4181  df-if 4352  df-pw 4425  df-sn 4443  df-pr 4445  df-tp 4447  df-op 4449  df-ot 4451  df-uni 4714  df-int 4751  df-iun 4795  df-iin 4796  df-br 4931  df-opab 4993  df-mpt 5010  df-tr 5032  df-id 5313  df-eprel 5318  df-po 5327  df-so 5328  df-fr 5367  df-se 5368  df-we 5369  df-xp 5414  df-rel 5415  df-cnv 5416  df-co 5417  df-dm 5418  df-rn 5419  df-res 5420  df-ima 5421  df-pred 5988  df-ord 6034  df-on 6035  df-lim 6036  df-suc 6037  df-iota 6154  df-fun 6192  df-fn 6193  df-f 6194  df-f1 6195  df-fo 6196  df-f1o 6197  df-fv 6198  df-isom 6199  df-riota 6939  df-ov 6981  df-oprab 6982  df-mpo 6983  df-om 7399  df-1st 7503  df-2nd 7504  df-supp 7636  df-tpos 7697  df-wrecs 7752  df-recs 7814  df-rdg 7852  df-1o 7907  df-2o 7908  df-oadd 7911  df-er 8091  df-map 8210  df-ixp 8262  df-en 8309  df-dom 8310  df-sdom 8311  df-fin 8312  df-fsupp 8631  df-sup 8703  df-oi 8771  df-card 9164  df-pnf 10478  df-mnf 10479  df-xr 10480  df-ltxr 10481  df-le 10482  df-sub 10674  df-neg 10675  df-div 11101  df-nn 11442  df-2 11506  df-3 11507  df-4 11508  df-5 11509  df-6 11510  df-7 11511  df-8 11512  df-9 11513  df-n0 11711  df-xnn0 11783  df-z 11797  df-dec 11915  df-uz 12062  df-rp 12208  df-fz 12712  df-fzo 12853  df-seq 13188  df-exp 13248  df-hash 13509  df-word 13676  df-lsw 13729  df-concat 13737  df-s1 13762  df-substr 13807  df-pfx 13856  df-splice 13963  df-reverse 13981  df-s2 14075  df-struct 16344  df-ndx 16345  df-slot 16346  df-base 16348  df-sets 16349  df-ress 16350  df-plusg 16437  df-mulr 16438  df-starv 16439  df-sca 16440  df-vsca 16441  df-ip 16442  df-tset 16443  df-ple 16444  df-ds 16446  df-unif 16447  df-hom 16448  df-cco 16449  df-0g 16574  df-gsum 16575  df-prds 16580  df-pws 16582  df-mre 16718  df-mrc 16719  df-acs 16721  df-mgm 17713  df-sgrp 17755  df-mnd 17766  df-mhm 17806  df-submnd 17807  df-grp 17897  df-minusg 17898  df-mulg 18015  df-subg 18063  df-ghm 18130  df-gim 18173  df-cntz 18221  df-oppg 18248  df-symg 18270  df-pmtr 18334  df-psgn 18383  df-cmn 18671  df-mgp 18966  df-ur 18978  df-ring 19025  df-cring 19026  df-rnghom 19193  df-subrg 19259  df-sra 19669  df-rgmod 19670  df-cnfld 20251  df-zring 20323  df-zrh 20356  df-dsmm 20581  df-frlm 20596  df-mat 20724  df-mdet 20901
This theorem is referenced by:  chpmat1d  21151
  Copyright terms: Public domain W3C validator