Proof of Theorem smadiadetlem4
| Step | Hyp | Ref
| Expression |
| 1 | | marep01ma.r |
. . . . . . . . 9
⊢ 𝑅 ∈ CRing |
| 2 | | smadiadetlem.g |
. . . . . . . . . 10
⊢ 𝐺 = (mulGrp‘𝑅) |
| 3 | 2 | crngmgp 20220 |
. . . . . . . . 9
⊢ (𝑅 ∈ CRing → 𝐺 ∈ CMnd) |
| 4 | 1, 3 | mp1i 13 |
. . . . . . . 8
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → 𝐺 ∈ CMnd) |
| 5 | | marep01ma.a |
. . . . . . . . . . 11
⊢ 𝐴 = (𝑁 Mat 𝑅) |
| 6 | | marep01ma.b |
. . . . . . . . . . 11
⊢ 𝐵 = (Base‘𝐴) |
| 7 | 5, 6 | matrcl 22402 |
. . . . . . . . . 10
⊢ (𝑀 ∈ 𝐵 → (𝑁 ∈ Fin ∧ 𝑅 ∈ V)) |
| 8 | 7 | simpld 495 |
. . . . . . . . 9
⊢ (𝑀 ∈ 𝐵 → 𝑁 ∈ Fin) |
| 9 | 8 | adantr 481 |
. . . . . . . 8
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → 𝑁 ∈ Fin) |
| 10 | 4, 9 | jca 516 |
. . . . . . 7
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → (𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin)) |
| 11 | 10 | adantr 481 |
. . . . . 6
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → (𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin)) |
| 12 | | simprl 776 |
. . . . . . . . . . 11
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ (𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁)) → 𝑖 ∈ 𝑁) |
| 13 | | simprr 778 |
. . . . . . . . . . 11
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ (𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁)) → 𝑗 ∈ 𝑁) |
| 14 | 6 | eleq2i 2832 |
. . . . . . . . . . . . 13
⊢ (𝑀 ∈ 𝐵 ↔ 𝑀 ∈ (Base‘𝐴)) |
| 15 | 14 | birani 504 |
. . . . . . . . . . . 12
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → 𝑀 ∈ (Base‘𝐴)) |
| 16 | 15 | adantr 481 |
. . . . . . . . . . 11
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ (𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁)) → 𝑀 ∈ (Base‘𝐴)) |
| 17 | | eqid 2740 |
. . . . . . . . . . . 12
⊢
(Base‘𝑅) =
(Base‘𝑅) |
| 18 | 5, 17 | matecl 22415 |
. . . . . . . . . . 11
⊢ ((𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (𝑖𝑀𝑗) ∈ (Base‘𝑅)) |
| 19 | 12, 13, 16, 18 | syl3anc 1379 |
. . . . . . . . . 10
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ (𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁)) → (𝑖𝑀𝑗) ∈ (Base‘𝑅)) |
| 20 | 2, 17 | mgpbas 20124 |
. . . . . . . . . 10
⊢
(Base‘𝑅) =
(Base‘𝐺) |
| 21 | 19, 20 | eleqtrdi 2850 |
. . . . . . . . 9
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ (𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁)) → (𝑖𝑀𝑗) ∈ (Base‘𝐺)) |
| 22 | 21 | ralrimivva 3183 |
. . . . . . . 8
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → ∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝑀𝑗) ∈ (Base‘𝐺)) |
| 23 | 22 | adantr 481 |
. . . . . . 7
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → ∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝑀𝑗) ∈ (Base‘𝐺)) |
| 24 | | crngring 20224 |
. . . . . . . . 9
⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring) |
| 25 | | marep01ma.0 |
. . . . . . . . . 10
⊢ 0 =
(0g‘𝑅) |
| 26 | 17, 25 | ring0cl 20246 |
. . . . . . . . 9
⊢ (𝑅 ∈ Ring → 0 ∈
(Base‘𝑅)) |
| 27 | 1, 24, 26 | mp2b 10 |
. . . . . . . 8
⊢ 0 ∈
(Base‘𝑅) |
| 28 | 27, 20 | eleqtri 2838 |
. . . . . . 7
⊢ 0 ∈
(Base‘𝐺) |
| 29 | 23, 28 | jctir 525 |
. . . . . 6
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝑀𝑗) ∈ (Base‘𝐺) ∧ 0 ∈ (Base‘𝐺))) |
| 30 | | simpr 485 |
. . . . . . 7
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → 𝐾 ∈ 𝑁) |
| 31 | 30 | adantr 481 |
. . . . . 6
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → 𝐾 ∈ 𝑁) |
| 32 | | simpr 485 |
. . . . . 6
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) |
| 33 | | smadiadetlem.p |
. . . . . . 7
⊢ 𝑃 =
(Base‘(SymGrp‘𝑁)) |
| 34 | | eqid 2740 |
. . . . . . 7
⊢ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} = {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} |
| 35 | | marep01ma.1 |
. . . . . . . 8
⊢ 1 =
(1r‘𝑅) |
| 36 | 2, 35 | ringidval 20162 |
. . . . . . 7
⊢ 1 =
(0g‘𝐺) |
| 37 | | eqid 2740 |
. . . . . . 7
⊢
(Base‘𝐺) =
(Base‘𝐺) |
| 38 | 33, 34, 36, 37 | gsummatr01 22649 |
. . . . . 6
⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧
(∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝑀𝑗) ∈ (Base‘𝐺) ∧ 0 ∈ (Base‘𝐺)) ∧ (𝐾 ∈ 𝑁 ∧ 𝐾 ∈ 𝑁 ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾})) → (𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐾, 1 , 0 ), (𝑖𝑀𝑗)))(𝑝‘𝑛)))) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛))))) |
| 39 | 11, 29, 31, 31, 32, 38 | syl113anc 1390 |
. . . . 5
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → (𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐾, 1 , 0 ), (𝑖𝑀𝑗)))(𝑝‘𝑛)))) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛))))) |
| 40 | 39 | oveq2d 7379 |
. . . 4
⊢ (((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) ∧ 𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐾, 1 , 0 ), (𝑖𝑀𝑗)))(𝑝‘𝑛))))) = (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛)))))) |
| 41 | 40 | mpteq2dva 5172 |
. . 3
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → (𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} ↦ (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐾, 1 , 0 ), (𝑖𝑀𝑗)))(𝑝‘𝑛)))))) = (𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} ↦ (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛))))))) |
| 42 | 41 | oveq2d 7379 |
. 2
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → (𝑅 Σg (𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} ↦ (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐾, 1 , 0 ), (𝑖𝑀𝑗)))(𝑝‘𝑛))))))) = (𝑅 Σg (𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} ↦ (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛)))))))) |
| 43 | | madetminlem.y |
. . 3
⊢ 𝑌 = (ℤRHom‘𝑅) |
| 44 | | madetminlem.s |
. . 3
⊢ 𝑆 = (pmSgn‘𝑁) |
| 45 | | madetminlem.t |
. . 3
⊢ · =
(.r‘𝑅) |
| 46 | | smadiadetlem.w |
. . 3
⊢ 𝑊 =
(Base‘(SymGrp‘(𝑁 ∖ {𝐾}))) |
| 47 | | smadiadetlem.z |
. . 3
⊢ 𝑍 = (pmSgn‘(𝑁 ∖ {𝐾})) |
| 48 | 5, 6, 1, 25, 35, 33, 2, 43, 44, 45, 46, 47 | smadiadetlem3 22658 |
. 2
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → (𝑅 Σg (𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} ↦ (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛))))))) = (𝑅 Σg (𝑝 ∈ 𝑊 ↦ (((𝑌 ∘ 𝑍)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛)))))))) |
| 49 | 42, 48 | eqtrd 2775 |
1
⊢ ((𝑀 ∈ 𝐵 ∧ 𝐾 ∈ 𝑁) → (𝑅 Σg (𝑝 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾} ↦ (((𝑌 ∘ 𝑆)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐾, 1 , 0 ), (𝑖𝑀𝑗)))(𝑝‘𝑛))))))) = (𝑅 Σg (𝑝 ∈ 𝑊 ↦ (((𝑌 ∘ 𝑍)‘𝑝)(.r‘𝑅)(𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑖𝑀𝑗))(𝑝‘𝑛)))))))) |