Step | Hyp | Ref
| Expression |
1 | | mamucl.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝑅) |
2 | | mamucl.r |
. . . . . . . 8
⊢ (𝜑 → 𝑅 ∈ Ring) |
3 | | ringcmn 18404 |
. . . . . . . 8
⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd) |
4 | 2, 3 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝑅 ∈ CMnd) |
5 | 4 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑅 ∈ CMnd) |
6 | | mamuass.o |
. . . . . . 7
⊢ (𝜑 → 𝑂 ∈ Fin) |
7 | 6 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑂 ∈ Fin) |
8 | | mamuass.n |
. . . . . . 7
⊢ (𝜑 → 𝑁 ∈ Fin) |
9 | 8 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑁 ∈ Fin) |
10 | 2 | ad2antrr 758 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → 𝑅 ∈ Ring) |
11 | | mamuass.x |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑋 ∈ (𝐵 ↑𝑚 (𝑀 × 𝑁))) |
12 | | elmapi 7765 |
. . . . . . . . . . 11
⊢ (𝑋 ∈ (𝐵 ↑𝑚 (𝑀 × 𝑁)) → 𝑋:(𝑀 × 𝑁)⟶𝐵) |
13 | 11, 12 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑋:(𝑀 × 𝑁)⟶𝐵) |
14 | 13 | ad2antrr 758 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑋:(𝑀 × 𝑁)⟶𝐵) |
15 | | simplrl 796 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑖 ∈ 𝑀) |
16 | | simpr 476 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑙 ∈ 𝑁) |
17 | 14, 15, 16 | fovrnd 6704 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → (𝑖𝑋𝑙) ∈ 𝐵) |
18 | 17 | adantrl 748 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → (𝑖𝑋𝑙) ∈ 𝐵) |
19 | | mamuass.y |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑌 ∈ (𝐵 ↑𝑚 (𝑁 × 𝑂))) |
20 | | elmapi 7765 |
. . . . . . . . . . 11
⊢ (𝑌 ∈ (𝐵 ↑𝑚 (𝑁 × 𝑂)) → 𝑌:(𝑁 × 𝑂)⟶𝐵) |
21 | 19, 20 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑌:(𝑁 × 𝑂)⟶𝐵) |
22 | 21 | ad2antrr 758 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → 𝑌:(𝑁 × 𝑂)⟶𝐵) |
23 | | simprr 792 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → 𝑙 ∈ 𝑁) |
24 | | simprl 790 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → 𝑗 ∈ 𝑂) |
25 | 22, 23, 24 | fovrnd 6704 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → (𝑙𝑌𝑗) ∈ 𝐵) |
26 | | mamuass.z |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑍 ∈ (𝐵 ↑𝑚 (𝑂 × 𝑃))) |
27 | | elmapi 7765 |
. . . . . . . . . . . 12
⊢ (𝑍 ∈ (𝐵 ↑𝑚 (𝑂 × 𝑃)) → 𝑍:(𝑂 × 𝑃)⟶𝐵) |
28 | 26, 27 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑍:(𝑂 × 𝑃)⟶𝐵) |
29 | 28 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑍:(𝑂 × 𝑃)⟶𝐵) |
30 | | simpr 476 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑗 ∈ 𝑂) |
31 | | simplrr 797 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑘 ∈ 𝑃) |
32 | 29, 30, 31 | fovrnd 6704 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → (𝑗𝑍𝑘) ∈ 𝐵) |
33 | 32 | adantrr 749 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → (𝑗𝑍𝑘) ∈ 𝐵) |
34 | | eqid 2610 |
. . . . . . . . 9
⊢
(.r‘𝑅) = (.r‘𝑅) |
35 | 1, 34 | ringcl 18384 |
. . . . . . . 8
⊢ ((𝑅 ∈ Ring ∧ (𝑙𝑌𝑗) ∈ 𝐵 ∧ (𝑗𝑍𝑘) ∈ 𝐵) → ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) ∈ 𝐵) |
36 | 10, 25, 33, 35 | syl3anc 1318 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) ∈ 𝐵) |
37 | 1, 34 | ringcl 18384 |
. . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝑖𝑋𝑙) ∈ 𝐵 ∧ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) ∈ 𝐵) → ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))) ∈ 𝐵) |
38 | 10, 18, 36, 37 | syl3anc 1318 |
. . . . . 6
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))) ∈ 𝐵) |
39 | 1, 5, 7, 9, 38 | gsumcom3fi 20025 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑅 Σg (𝑗 ∈ 𝑂 ↦ (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))))))) = (𝑅 Σg (𝑙 ∈ 𝑁 ↦ (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))))) |
40 | | mamuass.f |
. . . . . . . . . 10
⊢ 𝐹 = (𝑅 maMul 〈𝑀, 𝑁, 𝑂〉) |
41 | 2 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑅 ∈ Ring) |
42 | | mamuass.m |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑀 ∈ Fin) |
43 | 42 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑀 ∈ Fin) |
44 | 8 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑁 ∈ Fin) |
45 | 6 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑂 ∈ Fin) |
46 | 11 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑋 ∈ (𝐵 ↑𝑚 (𝑀 × 𝑁))) |
47 | 19 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑌 ∈ (𝐵 ↑𝑚 (𝑁 × 𝑂))) |
48 | | simplrl 796 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → 𝑖 ∈ 𝑀) |
49 | 40, 1, 34, 41, 43, 44, 45, 46, 47, 48, 30 | mamufv 20012 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → (𝑖(𝑋𝐹𝑌)𝑗) = (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))))) |
50 | 49 | oveq1d 6564 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → ((𝑖(𝑋𝐹𝑌)𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) = ((𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))))(.r‘𝑅)(𝑗𝑍𝑘))) |
51 | | eqid 2610 |
. . . . . . . . 9
⊢
(0g‘𝑅) = (0g‘𝑅) |
52 | | eqid 2610 |
. . . . . . . . 9
⊢
(+g‘𝑅) = (+g‘𝑅) |
53 | 1, 34 | ringcl 18384 |
. . . . . . . . . . 11
⊢ ((𝑅 ∈ Ring ∧ (𝑖𝑋𝑙) ∈ 𝐵 ∧ (𝑙𝑌𝑗) ∈ 𝐵) → ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗)) ∈ 𝐵) |
54 | 10, 18, 25, 53 | syl3anc 1318 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗)) ∈ 𝐵) |
55 | 54 | anassrs 678 |
. . . . . . . . 9
⊢ ((((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) ∧ 𝑙 ∈ 𝑁) → ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗)) ∈ 𝐵) |
56 | | eqid 2610 |
. . . . . . . . . 10
⊢ (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))) = (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))) |
57 | | ovex 6577 |
. . . . . . . . . . 11
⊢ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗)) ∈ V |
58 | 57 | a1i 11 |
. . . . . . . . . 10
⊢ ((((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) ∧ 𝑙 ∈ 𝑁) → ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗)) ∈ V) |
59 | | fvex 6113 |
. . . . . . . . . . 11
⊢
(0g‘𝑅) ∈ V |
60 | 59 | a1i 11 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → (0g‘𝑅) ∈ V) |
61 | 56, 44, 58, 60 | fsuppmptdm 8169 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))) finSupp (0g‘𝑅)) |
62 | 1, 51, 52, 34, 41, 44, 32, 55, 61 | gsummulc1 18429 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → (𝑅 Σg (𝑙 ∈ 𝑁 ↦ (((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))(.r‘𝑅)(𝑗𝑍𝑘)))) = ((𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))))(.r‘𝑅)(𝑗𝑍𝑘))) |
63 | 1, 34 | ringass 18387 |
. . . . . . . . . . . 12
⊢ ((𝑅 ∈ Ring ∧ ((𝑖𝑋𝑙) ∈ 𝐵 ∧ (𝑙𝑌𝑗) ∈ 𝐵 ∧ (𝑗𝑍𝑘) ∈ 𝐵)) → (((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))(.r‘𝑅)(𝑗𝑍𝑘)) = ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))) |
64 | 10, 18, 25, 33, 63 | syl13anc 1320 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ (𝑗 ∈ 𝑂 ∧ 𝑙 ∈ 𝑁)) → (((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))(.r‘𝑅)(𝑗𝑍𝑘)) = ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))) |
65 | 64 | anassrs 678 |
. . . . . . . . . 10
⊢ ((((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) ∧ 𝑙 ∈ 𝑁) → (((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))(.r‘𝑅)(𝑗𝑍𝑘)) = ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))) |
66 | 65 | mpteq2dva 4672 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → (𝑙 ∈ 𝑁 ↦ (((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))(.r‘𝑅)(𝑗𝑍𝑘))) = (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))))) |
67 | 66 | oveq2d 6565 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → (𝑅 Σg (𝑙 ∈ 𝑁 ↦ (((𝑖𝑋𝑙)(.r‘𝑅)(𝑙𝑌𝑗))(.r‘𝑅)(𝑗𝑍𝑘)))) = (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))) |
68 | 50, 62, 67 | 3eqtr2d 2650 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑗 ∈ 𝑂) → ((𝑖(𝑋𝐹𝑌)𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) = (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))) |
69 | 68 | mpteq2dva 4672 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑗 ∈ 𝑂 ↦ ((𝑖(𝑋𝐹𝑌)𝑗)(.r‘𝑅)(𝑗𝑍𝑘))) = (𝑗 ∈ 𝑂 ↦ (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))))))) |
70 | 69 | oveq2d 6565 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖(𝑋𝐹𝑌)𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))) = (𝑅 Σg (𝑗 ∈ 𝑂 ↦ (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))))) |
71 | | mamuass.i |
. . . . . . . . . 10
⊢ 𝐼 = (𝑅 maMul 〈𝑁, 𝑂, 𝑃〉) |
72 | 2 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑅 ∈ Ring) |
73 | 8 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑁 ∈ Fin) |
74 | 6 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑂 ∈ Fin) |
75 | | mamuass.p |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑃 ∈ Fin) |
76 | 75 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑃 ∈ Fin) |
77 | 19 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑌 ∈ (𝐵 ↑𝑚 (𝑁 × 𝑂))) |
78 | 26 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑍 ∈ (𝐵 ↑𝑚 (𝑂 × 𝑃))) |
79 | | simplrr 797 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → 𝑘 ∈ 𝑃) |
80 | 71, 1, 34, 72, 73, 74, 76, 77, 78, 16, 79 | mamufv 20012 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → (𝑙(𝑌𝐼𝑍)𝑘) = (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))))) |
81 | 80 | oveq2d 6565 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙(𝑌𝐼𝑍)𝑘)) = ((𝑖𝑋𝑙)(.r‘𝑅)(𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))) |
82 | 36 | anass1rs 845 |
. . . . . . . . 9
⊢ ((((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) ∧ 𝑗 ∈ 𝑂) → ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) ∈ 𝐵) |
83 | | eqid 2610 |
. . . . . . . . . 10
⊢ (𝑗 ∈ 𝑂 ↦ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))) = (𝑗 ∈ 𝑂 ↦ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))) |
84 | | ovex 6577 |
. . . . . . . . . . 11
⊢ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) ∈ V |
85 | 84 | a1i 11 |
. . . . . . . . . 10
⊢ ((((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) ∧ 𝑗 ∈ 𝑂) → ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)) ∈ V) |
86 | 59 | a1i 11 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → (0g‘𝑅) ∈ V) |
87 | 83, 74, 85, 86 | fsuppmptdm 8169 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → (𝑗 ∈ 𝑂 ↦ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))) finSupp (0g‘𝑅)) |
88 | 1, 51, 52, 34, 72, 74, 17, 82, 87 | gsummulc2 18430 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))))) = ((𝑖𝑋𝑙)(.r‘𝑅)(𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))) |
89 | 81, 88 | eqtr4d 2647 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) ∧ 𝑙 ∈ 𝑁) → ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙(𝑌𝐼𝑍)𝑘)) = (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))) |
90 | 89 | mpteq2dva 4672 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙(𝑌𝐼𝑍)𝑘))) = (𝑙 ∈ 𝑁 ↦ (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘))))))) |
91 | 90 | oveq2d 6565 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙(𝑌𝐼𝑍)𝑘)))) = (𝑅 Σg (𝑙 ∈ 𝑁 ↦ (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)((𝑙𝑌𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))))))) |
92 | 39, 70, 91 | 3eqtr4d 2654 |
. . . 4
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖(𝑋𝐹𝑌)𝑗)(.r‘𝑅)(𝑗𝑍𝑘)))) = (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙(𝑌𝐼𝑍)𝑘))))) |
93 | | mamuass.g |
. . . . 5
⊢ 𝐺 = (𝑅 maMul 〈𝑀, 𝑂, 𝑃〉) |
94 | 2 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑅 ∈ Ring) |
95 | 42 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑀 ∈ Fin) |
96 | 75 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑃 ∈ Fin) |
97 | 1, 2, 40, 42, 8, 6, 11, 19 | mamucl 20026 |
. . . . . 6
⊢ (𝜑 → (𝑋𝐹𝑌) ∈ (𝐵 ↑𝑚 (𝑀 × 𝑂))) |
98 | 97 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑋𝐹𝑌) ∈ (𝐵 ↑𝑚 (𝑀 × 𝑂))) |
99 | 26 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑍 ∈ (𝐵 ↑𝑚 (𝑂 × 𝑃))) |
100 | | simprl 790 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑖 ∈ 𝑀) |
101 | | simprr 792 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑘 ∈ 𝑃) |
102 | 93, 1, 34, 94, 95, 7, 96, 98, 99, 100, 101 | mamufv 20012 |
. . . 4
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑖((𝑋𝐹𝑌)𝐺𝑍)𝑘) = (𝑅 Σg (𝑗 ∈ 𝑂 ↦ ((𝑖(𝑋𝐹𝑌)𝑗)(.r‘𝑅)(𝑗𝑍𝑘))))) |
103 | | mamuass.h |
. . . . 5
⊢ 𝐻 = (𝑅 maMul 〈𝑀, 𝑁, 𝑃〉) |
104 | 11 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → 𝑋 ∈ (𝐵 ↑𝑚 (𝑀 × 𝑁))) |
105 | 1, 2, 71, 8, 6, 75, 19, 26 | mamucl 20026 |
. . . . . 6
⊢ (𝜑 → (𝑌𝐼𝑍) ∈ (𝐵 ↑𝑚 (𝑁 × 𝑃))) |
106 | 105 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑌𝐼𝑍) ∈ (𝐵 ↑𝑚 (𝑁 × 𝑃))) |
107 | 103, 1, 34, 94, 95, 9, 96, 104, 106, 100, 101 | mamufv 20012 |
. . . 4
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑖(𝑋𝐻(𝑌𝐼𝑍))𝑘) = (𝑅 Σg (𝑙 ∈ 𝑁 ↦ ((𝑖𝑋𝑙)(.r‘𝑅)(𝑙(𝑌𝐼𝑍)𝑘))))) |
108 | 92, 102, 107 | 3eqtr4d 2654 |
. . 3
⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑃)) → (𝑖((𝑋𝐹𝑌)𝐺𝑍)𝑘) = (𝑖(𝑋𝐻(𝑌𝐼𝑍))𝑘)) |
109 | 108 | ralrimivva 2954 |
. 2
⊢ (𝜑 → ∀𝑖 ∈ 𝑀 ∀𝑘 ∈ 𝑃 (𝑖((𝑋𝐹𝑌)𝐺𝑍)𝑘) = (𝑖(𝑋𝐻(𝑌𝐼𝑍))𝑘)) |
110 | 1, 2, 93, 42, 6, 75, 97, 26 | mamucl 20026 |
. . . 4
⊢ (𝜑 → ((𝑋𝐹𝑌)𝐺𝑍) ∈ (𝐵 ↑𝑚 (𝑀 × 𝑃))) |
111 | | elmapi 7765 |
. . . 4
⊢ (((𝑋𝐹𝑌)𝐺𝑍) ∈ (𝐵 ↑𝑚 (𝑀 × 𝑃)) → ((𝑋𝐹𝑌)𝐺𝑍):(𝑀 × 𝑃)⟶𝐵) |
112 | | ffn 5958 |
. . . 4
⊢ (((𝑋𝐹𝑌)𝐺𝑍):(𝑀 × 𝑃)⟶𝐵 → ((𝑋𝐹𝑌)𝐺𝑍) Fn (𝑀 × 𝑃)) |
113 | 110, 111,
112 | 3syl 18 |
. . 3
⊢ (𝜑 → ((𝑋𝐹𝑌)𝐺𝑍) Fn (𝑀 × 𝑃)) |
114 | 1, 2, 103, 42, 8, 75, 11, 105 | mamucl 20026 |
. . . 4
⊢ (𝜑 → (𝑋𝐻(𝑌𝐼𝑍)) ∈ (𝐵 ↑𝑚 (𝑀 × 𝑃))) |
115 | | elmapi 7765 |
. . . 4
⊢ ((𝑋𝐻(𝑌𝐼𝑍)) ∈ (𝐵 ↑𝑚 (𝑀 × 𝑃)) → (𝑋𝐻(𝑌𝐼𝑍)):(𝑀 × 𝑃)⟶𝐵) |
116 | | ffn 5958 |
. . . 4
⊢ ((𝑋𝐻(𝑌𝐼𝑍)):(𝑀 × 𝑃)⟶𝐵 → (𝑋𝐻(𝑌𝐼𝑍)) Fn (𝑀 × 𝑃)) |
117 | 114, 115,
116 | 3syl 18 |
. . 3
⊢ (𝜑 → (𝑋𝐻(𝑌𝐼𝑍)) Fn (𝑀 × 𝑃)) |
118 | | eqfnov2 6665 |
. . 3
⊢ ((((𝑋𝐹𝑌)𝐺𝑍) Fn (𝑀 × 𝑃) ∧ (𝑋𝐻(𝑌𝐼𝑍)) Fn (𝑀 × 𝑃)) → (((𝑋𝐹𝑌)𝐺𝑍) = (𝑋𝐻(𝑌𝐼𝑍)) ↔ ∀𝑖 ∈ 𝑀 ∀𝑘 ∈ 𝑃 (𝑖((𝑋𝐹𝑌)𝐺𝑍)𝑘) = (𝑖(𝑋𝐻(𝑌𝐼𝑍))𝑘))) |
119 | 113, 117,
118 | syl2anc 691 |
. 2
⊢ (𝜑 → (((𝑋𝐹𝑌)𝐺𝑍) = (𝑋𝐻(𝑌𝐼𝑍)) ↔ ∀𝑖 ∈ 𝑀 ∀𝑘 ∈ 𝑃 (𝑖((𝑋𝐹𝑌)𝐺𝑍)𝑘) = (𝑖(𝑋𝐻(𝑌𝐼𝑍))𝑘))) |
120 | 109, 119 | mpbird 246 |
1
⊢ (𝜑 → ((𝑋𝐹𝑌)𝐺𝑍) = (𝑋𝐻(𝑌𝐼𝑍))) |