| Step | Hyp | Ref
| Expression |
| 1 | | elrgspn.r |
. . . . 5
⊢ (𝜑 → 𝑅 ∈ Ring) |
| 2 | | elrgspn.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝑅) |
| 3 | 2 | a1i 11 |
. . . . 5
⊢ (𝜑 → 𝐵 = (Base‘𝑅)) |
| 4 | | elrgspn.a |
. . . . 5
⊢ (𝜑 → 𝐴 ⊆ 𝐵) |
| 5 | | elrgspn.n |
. . . . . 6
⊢ 𝑁 = (RingSpan‘𝑅) |
| 6 | 5 | a1i 11 |
. . . . 5
⊢ (𝜑 → 𝑁 = (RingSpan‘𝑅)) |
| 7 | | eqidd 2763 |
. . . . 5
⊢ (𝜑 → (𝑁‘𝐴) = (𝑁‘𝐴)) |
| 8 | 1, 3, 4, 6, 7 | rgspncl 20774 |
. . . 4
⊢ (𝜑 → (𝑁‘𝐴) ∈ (SubRing‘𝑅)) |
| 9 | 2 | subrgss 20733 |
. . . 4
⊢ ((𝑁‘𝐴) ∈ (SubRing‘𝑅) → (𝑁‘𝐴) ⊆ 𝐵) |
| 10 | 8, 9 | syl 18 |
. . 3
⊢ (𝜑 → (𝑁‘𝐴) ⊆ 𝐵) |
| 11 | 10 | sselda 3934 |
. 2
⊢ ((𝜑 ∧ 𝑋 ∈ (𝑁‘𝐴)) → 𝑋 ∈ 𝐵) |
| 12 | | simpr 490 |
. . . 4
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))))) → 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))))) |
| 13 | | eqid 2762 |
. . . . . 6
⊢
(0g‘𝑅) = (0g‘𝑅) |
| 14 | 1 | ringcmnd 20424 |
. . . . . . 7
⊢ (𝜑 → 𝑅 ∈ CMnd) |
| 15 | 14 | adantr 486 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → 𝑅 ∈ CMnd) |
| 16 | 2 | fvexi 6896 |
. . . . . . . . . 10
⊢ 𝐵 ∈ V |
| 17 | 16 | a1i 11 |
. . . . . . . . 9
⊢ (𝜑 → 𝐵 ∈ V) |
| 18 | 17, 4 | ssexd 5293 |
. . . . . . . 8
⊢ (𝜑 → 𝐴 ∈ V) |
| 19 | 18 | adantr 486 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → 𝐴 ∈ V) |
| 20 | | wrdexg 14589 |
. . . . . . 7
⊢ (𝐴 ∈ V → Word 𝐴 ∈ V) |
| 21 | 19, 20 | syl 18 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → Word 𝐴 ∈ V) |
| 22 | | elrgspn.x |
. . . . . . . 8
⊢ · =
(.g‘𝑅) |
| 23 | 1 | ringgrpd 20380 |
. . . . . . . . 9
⊢ (𝜑 → 𝑅 ∈ Grp) |
| 24 | 23 | ad2antrr 739 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑤 ∈ Word 𝐴) → 𝑅 ∈ Grp) |
| 25 | | breq1 5110 |
. . . . . . . . . . . . . 14
⊢ (𝑓 = 𝑔 → (𝑓 finSupp 0 ↔ 𝑔 finSupp 0)) |
| 26 | | elrgspn.f |
. . . . . . . . . . . . . 14
⊢ 𝐹 = {𝑓 ∈ (ℤ ↑m Word
𝐴) ∣ 𝑓 finSupp 0} |
| 27 | 25, 26 | elrab2 3652 |
. . . . . . . . . . . . 13
⊢ (𝑔 ∈ 𝐹 ↔ (𝑔 ∈ (ℤ ↑m Word
𝐴) ∧ 𝑔 finSupp 0)) |
| 28 | 27 | biimpi 219 |
. . . . . . . . . . . 12
⊢ (𝑔 ∈ 𝐹 → (𝑔 ∈ (ℤ ↑m Word
𝐴) ∧ 𝑔 finSupp 0)) |
| 29 | 28 | simpld 500 |
. . . . . . . . . . 11
⊢ (𝑔 ∈ 𝐹 → 𝑔 ∈ (ℤ ↑m Word
𝐴)) |
| 30 | 29 | adantl 487 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → 𝑔 ∈ (ℤ ↑m Word
𝐴)) |
| 31 | 30 | elmaprd 8852 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → 𝑔:Word 𝐴⟶ℤ) |
| 32 | 31 | ffvelcdmda 7080 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑤 ∈ Word 𝐴) → (𝑔‘𝑤) ∈ ℤ) |
| 33 | | elrgspn.m |
. . . . . . . . . . . 12
⊢ 𝑀 = (mulGrp‘𝑅) |
| 34 | 33 | ringmgp 20377 |
. . . . . . . . . . 11
⊢ (𝑅 ∈ Ring → 𝑀 ∈ Mnd) |
| 35 | 1, 34 | syl 18 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑀 ∈ Mnd) |
| 36 | 35 | ad2antrr 739 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑤 ∈ Word 𝐴) → 𝑀 ∈ Mnd) |
| 37 | | sswrd 14587 |
. . . . . . . . . . . 12
⊢ (𝐴 ⊆ 𝐵 → Word 𝐴 ⊆ Word 𝐵) |
| 38 | 4, 37 | syl 18 |
. . . . . . . . . . 11
⊢ (𝜑 → Word 𝐴 ⊆ Word 𝐵) |
| 39 | 38 | adantr 486 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → Word 𝐴 ⊆ Word 𝐵) |
| 40 | 39 | sselda 3934 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑤 ∈ Word 𝐴) → 𝑤 ∈ Word 𝐵) |
| 41 | 33, 2 | mgpbas 20277 |
. . . . . . . . . 10
⊢ 𝐵 = (Base‘𝑀) |
| 42 | 41 | gsumwcl 18947 |
. . . . . . . . 9
⊢ ((𝑀 ∈ Mnd ∧ 𝑤 ∈ Word 𝐵) → (𝑀 Σg 𝑤) ∈ 𝐵) |
| 43 | 36, 40, 42 | syl2anc 596 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑤 ∈ Word 𝐴) → (𝑀 Σg 𝑤) ∈ 𝐵) |
| 44 | 2, 22, 24, 32, 43 | mulgcld 19218 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑤 ∈ Word 𝐴) → ((𝑔‘𝑤) · (𝑀 Σg 𝑤)) ∈ 𝐵) |
| 45 | 44 | fmpttd 7111 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))):Word 𝐴⟶𝐵) |
| 46 | 31 | feqmptd 6950 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → 𝑔 = (𝑤 ∈ Word 𝐴 ↦ (𝑔‘𝑤))) |
| 47 | 28 | simprd 501 |
. . . . . . . . 9
⊢ (𝑔 ∈ 𝐹 → 𝑔 finSupp 0) |
| 48 | 47 | adantl 487 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → 𝑔 finSupp 0) |
| 49 | 46, 48 | eqbrtrrd 5133 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → (𝑤 ∈ Word 𝐴 ↦ (𝑔‘𝑤)) finSupp 0) |
| 50 | 2, 13, 22 | mulg0 19196 |
. . . . . . . 8
⊢ (𝑦 ∈ 𝐵 → (0 · 𝑦) = (0g‘𝑅)) |
| 51 | 50 | adantl 487 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑦 ∈ 𝐵) → (0 · 𝑦) = (0g‘𝑅)) |
| 52 | | fvexd 6897 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → (0g‘𝑅) ∈ V) |
| 53 | 49, 51, 32, 43, 52 | fsuppssov1 9357 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))) finSupp
(0g‘𝑅)) |
| 54 | 2, 13, 15, 21, 45, 53 | gsumcl 20041 |
. . . . 5
⊢ ((𝜑 ∧ 𝑔 ∈ 𝐹) → (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤)))) ∈ 𝐵) |
| 55 | 54 | adantr 486 |
. . . 4
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))))) → (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤)))) ∈ 𝐵) |
| 56 | 12, 55 | eqeltrd 2862 |
. . 3
⊢ (((𝜑 ∧ 𝑔 ∈ 𝐹) ∧ 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))))) → 𝑋 ∈ 𝐵) |
| 57 | 56 | r19.29an 3168 |
. 2
⊢ ((𝜑 ∧ ∃𝑔 ∈ 𝐹 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))))) → 𝑋 ∈ 𝐵) |
| 58 | 1 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝑅 ∈ Ring) |
| 59 | 4 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝐴 ⊆ 𝐵) |
| 60 | | fveq1 6881 |
. . . . . . . . . . 11
⊢ (ℎ = 𝑖 → (ℎ‘𝑤) = (𝑖‘𝑤)) |
| 61 | 60 | oveq1d 7431 |
. . . . . . . . . 10
⊢ (ℎ = 𝑖 → ((ℎ‘𝑤) · (𝑀 Σg 𝑤)) = ((𝑖‘𝑤) · (𝑀 Σg 𝑤))) |
| 62 | 61 | mpteq2dv 5203 |
. . . . . . . . 9
⊢ (ℎ = 𝑖 → (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))) = (𝑤 ∈ Word 𝐴 ↦ ((𝑖‘𝑤) · (𝑀 Σg 𝑤)))) |
| 63 | | fveq2 6882 |
. . . . . . . . . . 11
⊢ (𝑤 = 𝑣 → (𝑖‘𝑤) = (𝑖‘𝑣)) |
| 64 | | oveq2 7424 |
. . . . . . . . . . 11
⊢ (𝑤 = 𝑣 → (𝑀 Σg 𝑤) = (𝑀 Σg 𝑣)) |
| 65 | 63, 64 | oveq12d 7434 |
. . . . . . . . . 10
⊢ (𝑤 = 𝑣 → ((𝑖‘𝑤) · (𝑀 Σg 𝑤)) = ((𝑖‘𝑣) · (𝑀 Σg 𝑣))) |
| 66 | 65 | cbvmptv 5213 |
. . . . . . . . 9
⊢ (𝑤 ∈ Word 𝐴 ↦ ((𝑖‘𝑤) · (𝑀 Σg 𝑤))) = (𝑣 ∈ Word 𝐴 ↦ ((𝑖‘𝑣) · (𝑀 Σg 𝑣))) |
| 67 | 62, 66 | eqtrdi 2813 |
. . . . . . . 8
⊢ (ℎ = 𝑖 → (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))) = (𝑣 ∈ Word 𝐴 ↦ ((𝑖‘𝑣) · (𝑀 Σg 𝑣)))) |
| 68 | 67 | oveq2d 7432 |
. . . . . . 7
⊢ (ℎ = 𝑖 → (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤)))) = (𝑅 Σg (𝑣 ∈ Word 𝐴 ↦ ((𝑖‘𝑣) · (𝑀 Σg 𝑣))))) |
| 69 | 68 | cbvmptv 5213 |
. . . . . 6
⊢ (ℎ ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))))) = (𝑖 ∈ 𝐹 ↦ (𝑅 Σg (𝑣 ∈ Word 𝐴 ↦ ((𝑖‘𝑣) · (𝑀 Σg 𝑣))))) |
| 70 | 69 | rneqi 5925 |
. . . . 5
⊢ ran
(ℎ ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))))) = ran (𝑖 ∈ 𝐹 ↦ (𝑅 Σg (𝑣 ∈ Word 𝐴 ↦ ((𝑖‘𝑣) · (𝑀 Σg 𝑣))))) |
| 71 | 2, 33, 22, 5, 26, 58, 59, 70 | elrgspnlem4 33670 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (𝑁‘𝐴) = ran (ℎ ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤)))))) |
| 72 | 71 | eleq2d 2848 |
. . 3
⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (𝑋 ∈ (𝑁‘𝐴) ↔ 𝑋 ∈ ran (ℎ ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))))))) |
| 73 | | fveq1 6881 |
. . . . . . . . 9
⊢ (ℎ = 𝑔 → (ℎ‘𝑤) = (𝑔‘𝑤)) |
| 74 | 73 | oveq1d 7431 |
. . . . . . . 8
⊢ (ℎ = 𝑔 → ((ℎ‘𝑤) · (𝑀 Σg 𝑤)) = ((𝑔‘𝑤) · (𝑀 Σg 𝑤))) |
| 75 | 74 | mpteq2dv 5203 |
. . . . . . 7
⊢ (ℎ = 𝑔 → (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))) = (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤)))) |
| 76 | 75 | oveq2d 7432 |
. . . . . 6
⊢ (ℎ = 𝑔 → (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤)))) = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))))) |
| 77 | 76 | cbvmptv 5213 |
. . . . 5
⊢ (ℎ ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))))) = (𝑔 ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤))))) |
| 78 | 77 | elrnmpt 5946 |
. . . 4
⊢ (𝑋 ∈ 𝐵 → (𝑋 ∈ ran (ℎ ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))))) ↔ ∃𝑔 ∈ 𝐹 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤)))))) |
| 79 | 78 | adantl 487 |
. . 3
⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (𝑋 ∈ ran (ℎ ∈ 𝐹 ↦ (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((ℎ‘𝑤) · (𝑀 Σg 𝑤))))) ↔ ∃𝑔 ∈ 𝐹 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤)))))) |
| 80 | 72, 79 | bitrd 282 |
. 2
⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (𝑋 ∈ (𝑁‘𝐴) ↔ ∃𝑔 ∈ 𝐹 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤)))))) |
| 81 | 11, 57, 80 | bibiad 853 |
1
⊢ (𝜑 → (𝑋 ∈ (𝑁‘𝐴) ↔ ∃𝑔 ∈ 𝐹 𝑋 = (𝑅 Σg (𝑤 ∈ Word 𝐴 ↦ ((𝑔‘𝑤) · (𝑀 Σg 𝑤)))))) |