Step | Hyp | Ref
| Expression |
1 | | oveq2 6557 |
. . . . . . 7
⊢ ((𝐴‘𝑤) = (0g‘𝑀) → (𝐶(.r‘𝑀)(𝐴‘𝑤)) = (𝐶(.r‘𝑀)(0g‘𝑀))) |
2 | | simpll1 1093 |
. . . . . . . 8
⊢ ((((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) ∧ 𝑤 ∈ 𝑉) → 𝑀 ∈ Ring) |
3 | | simpll3 1095 |
. . . . . . . 8
⊢ ((((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) ∧ 𝑤 ∈ 𝑉) → 𝐶 ∈ 𝑅) |
4 | | rmsuppss.r |
. . . . . . . . 9
⊢ 𝑅 = (Base‘𝑀) |
5 | | eqid 2610 |
. . . . . . . . 9
⊢
(.r‘𝑀) = (.r‘𝑀) |
6 | | eqid 2610 |
. . . . . . . . 9
⊢
(0g‘𝑀) = (0g‘𝑀) |
7 | 4, 5, 6 | ringrz 18411 |
. . . . . . . 8
⊢ ((𝑀 ∈ Ring ∧ 𝐶 ∈ 𝑅) → (𝐶(.r‘𝑀)(0g‘𝑀)) = (0g‘𝑀)) |
8 | 2, 3, 7 | syl2anc 691 |
. . . . . . 7
⊢ ((((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) ∧ 𝑤 ∈ 𝑉) → (𝐶(.r‘𝑀)(0g‘𝑀)) = (0g‘𝑀)) |
9 | 1, 8 | sylan9eqr 2666 |
. . . . . 6
⊢
(((((𝑀 ∈ Ring
∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) ∧ 𝑤 ∈ 𝑉) ∧ (𝐴‘𝑤) = (0g‘𝑀)) → (𝐶(.r‘𝑀)(𝐴‘𝑤)) = (0g‘𝑀)) |
10 | 9 | ex 449 |
. . . . 5
⊢ ((((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) ∧ 𝑤 ∈ 𝑉) → ((𝐴‘𝑤) = (0g‘𝑀) → (𝐶(.r‘𝑀)(𝐴‘𝑤)) = (0g‘𝑀))) |
11 | 10 | necon3d 2803 |
. . . 4
⊢ ((((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) ∧ 𝑤 ∈ 𝑉) → ((𝐶(.r‘𝑀)(𝐴‘𝑤)) ≠ (0g‘𝑀) → (𝐴‘𝑤) ≠ (0g‘𝑀))) |
12 | 11 | ss2rabdv 3646 |
. . 3
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → {𝑤 ∈ 𝑉 ∣ (𝐶(.r‘𝑀)(𝐴‘𝑤)) ≠ (0g‘𝑀)} ⊆ {𝑤 ∈ 𝑉 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)}) |
13 | | elmapi 7765 |
. . . . . 6
⊢ (𝐴 ∈ (𝑅 ↑𝑚 𝑉) → 𝐴:𝑉⟶𝑅) |
14 | | fdm 5964 |
. . . . . 6
⊢ (𝐴:𝑉⟶𝑅 → dom 𝐴 = 𝑉) |
15 | 13, 14 | syl 17 |
. . . . 5
⊢ (𝐴 ∈ (𝑅 ↑𝑚 𝑉) → dom 𝐴 = 𝑉) |
16 | 15 | adantl 481 |
. . . 4
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → dom 𝐴 = 𝑉) |
17 | | rabeq 3166 |
. . . 4
⊢ (dom
𝐴 = 𝑉 → {𝑤 ∈ dom 𝐴 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)} = {𝑤 ∈ 𝑉 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)}) |
18 | 16, 17 | syl 17 |
. . 3
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → {𝑤 ∈ dom 𝐴 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)} = {𝑤 ∈ 𝑉 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)}) |
19 | 12, 18 | sseqtr4d 3605 |
. 2
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → {𝑤 ∈ 𝑉 ∣ (𝐶(.r‘𝑀)(𝐴‘𝑤)) ≠ (0g‘𝑀)} ⊆ {𝑤 ∈ dom 𝐴 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)}) |
20 | | fveq2 6103 |
. . . . 5
⊢ (𝑣 = 𝑤 → (𝐴‘𝑣) = (𝐴‘𝑤)) |
21 | 20 | oveq2d 6565 |
. . . 4
⊢ (𝑣 = 𝑤 → (𝐶(.r‘𝑀)(𝐴‘𝑣)) = (𝐶(.r‘𝑀)(𝐴‘𝑤))) |
22 | 21 | cbvmptv 4678 |
. . 3
⊢ (𝑣 ∈ 𝑉 ↦ (𝐶(.r‘𝑀)(𝐴‘𝑣))) = (𝑤 ∈ 𝑉 ↦ (𝐶(.r‘𝑀)(𝐴‘𝑤))) |
23 | | simpl2 1058 |
. . 3
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → 𝑉 ∈ 𝑋) |
24 | | fvex 6113 |
. . . 4
⊢
(0g‘𝑀) ∈ V |
25 | 24 | a1i 11 |
. . 3
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) →
(0g‘𝑀)
∈ V) |
26 | | ovex 6577 |
. . . 4
⊢ (𝐶(.r‘𝑀)(𝐴‘𝑤)) ∈ V |
27 | 26 | a1i 11 |
. . 3
⊢ ((((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) ∧ 𝑤 ∈ 𝑉) → (𝐶(.r‘𝑀)(𝐴‘𝑤)) ∈ V) |
28 | 22, 23, 25, 27 | mptsuppd 7205 |
. 2
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → ((𝑣 ∈ 𝑉 ↦ (𝐶(.r‘𝑀)(𝐴‘𝑣))) supp (0g‘𝑀)) = {𝑤 ∈ 𝑉 ∣ (𝐶(.r‘𝑀)(𝐴‘𝑤)) ≠ (0g‘𝑀)}) |
29 | | elmapfun 7767 |
. . . 4
⊢ (𝐴 ∈ (𝑅 ↑𝑚 𝑉) → Fun 𝐴) |
30 | 29 | adantl 481 |
. . 3
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → Fun 𝐴) |
31 | | simpr 476 |
. . 3
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) |
32 | | suppval1 7188 |
. . 3
⊢ ((Fun
𝐴 ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉) ∧
(0g‘𝑀)
∈ V) → (𝐴 supp
(0g‘𝑀)) =
{𝑤 ∈ dom 𝐴 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)}) |
33 | 30, 31, 25, 32 | syl3anc 1318 |
. 2
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → (𝐴 supp (0g‘𝑀)) = {𝑤 ∈ dom 𝐴 ∣ (𝐴‘𝑤) ≠ (0g‘𝑀)}) |
34 | 19, 28, 33 | 3sstr4d 3611 |
1
⊢ (((𝑀 ∈ Ring ∧ 𝑉 ∈ 𝑋 ∧ 𝐶 ∈ 𝑅) ∧ 𝐴 ∈ (𝑅 ↑𝑚 𝑉)) → ((𝑣 ∈ 𝑉 ↦ (𝐶(.r‘𝑀)(𝐴‘𝑣))) supp (0g‘𝑀)) ⊆ (𝐴 supp (0g‘𝑀))) |