Step | Hyp | Ref
| Expression |
1 | | rexnal 3101 |
. . . . 5
β’
(βπ₯ β
πΌ Β¬ (πβπ₯) = 0 β Β¬ βπ₯ β πΌ (πβπ₯) = 0) |
2 | | df-ne 2942 |
. . . . . . 7
β’ ((πβπ₯) β 0 β Β¬ (πβπ₯) = 0) |
3 | | oveq2 7414 |
. . . . . . . . . . . 12
β’ (β = π β (βfld
Ξ£g β) = (βfld
Ξ£g π)) |
4 | | tdeglem.h |
. . . . . . . . . . . 12
β’ π» = (β β π΄ β¦ (βfld
Ξ£g β)) |
5 | | ovex 7439 |
. . . . . . . . . . . 12
β’
(βfld Ξ£g π) β V |
6 | 3, 4, 5 | fvmpt 6996 |
. . . . . . . . . . 11
β’ (π β π΄ β (π»βπ) = (βfld
Ξ£g π)) |
7 | 6 | adantr 482 |
. . . . . . . . . 10
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π»βπ) = (βfld
Ξ£g π)) |
8 | | tdeglem.a |
. . . . . . . . . . . . . 14
β’ π΄ = {π β (β0
βm πΌ)
β£ (β‘π β β) β
Fin} |
9 | 8 | psrbagf 21463 |
. . . . . . . . . . . . 13
β’ (π β π΄ β π:πΌβΆβ0) |
10 | 9 | feqmptd 6958 |
. . . . . . . . . . . 12
β’ (π β π΄ β π = (π¦ β πΌ β¦ (πβπ¦))) |
11 | 10 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β π = (π¦ β πΌ β¦ (πβπ¦))) |
12 | 11 | oveq2d 7422 |
. . . . . . . . . 10
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (βfld
Ξ£g π) = (βfld
Ξ£g (π¦ β πΌ β¦ (πβπ¦)))) |
13 | | cnfldbas 20941 |
. . . . . . . . . . 11
β’ β =
(Baseββfld) |
14 | | cnfld0 20962 |
. . . . . . . . . . 11
β’ 0 =
(0gββfld) |
15 | | cnfldadd 20942 |
. . . . . . . . . . 11
β’ + =
(+gββfld) |
16 | | cnring 20960 |
. . . . . . . . . . . 12
β’
βfld β Ring |
17 | | ringcmn 20093 |
. . . . . . . . . . . 12
β’
(βfld β Ring β βfld β
CMnd) |
18 | 16, 17 | mp1i 13 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β βfld
β CMnd) |
19 | | id 22 |
. . . . . . . . . . . . 13
β’ (π β π΄ β π β π΄) |
20 | 9 | ffnd 6716 |
. . . . . . . . . . . . 13
β’ (π β π΄ β π Fn πΌ) |
21 | 19, 20 | fndmexd 7894 |
. . . . . . . . . . . 12
β’ (π β π΄ β πΌ β V) |
22 | 21 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β πΌ β V) |
23 | 9 | ffvelcdmda 7084 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ π¦ β πΌ) β (πβπ¦) β
β0) |
24 | 23 | nn0cnd 12531 |
. . . . . . . . . . . 12
β’ ((π β π΄ β§ π¦ β πΌ) β (πβπ¦) β β) |
25 | 24 | adantlr 714 |
. . . . . . . . . . 11
β’ (((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β§ π¦ β πΌ) β (πβπ¦) β β) |
26 | 8 | psrbagfsupp 21465 |
. . . . . . . . . . . . 13
β’ (π β π΄ β π finSupp 0) |
27 | 10, 26 | eqbrtrrd 5172 |
. . . . . . . . . . . 12
β’ (π β π΄ β (π¦ β πΌ β¦ (πβπ¦)) finSupp 0) |
28 | 27 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π¦ β πΌ β¦ (πβπ¦)) finSupp 0) |
29 | | disjdifr 4472 |
. . . . . . . . . . . 12
β’ ((πΌ β {π₯}) β© {π₯}) = β
|
30 | 29 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β ((πΌ β {π₯}) β© {π₯}) = β
) |
31 | | difsnid 4813 |
. . . . . . . . . . . . 13
β’ (π₯ β πΌ β ((πΌ β {π₯}) βͺ {π₯}) = πΌ) |
32 | 31 | eqcomd 2739 |
. . . . . . . . . . . 12
β’ (π₯ β πΌ β πΌ = ((πΌ β {π₯}) βͺ {π₯})) |
33 | 32 | ad2antrl 727 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β πΌ = ((πΌ β {π₯}) βͺ {π₯})) |
34 | 13, 14, 15, 18, 22, 25, 28, 30, 33 | gsumsplit2 19792 |
. . . . . . . . . 10
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (βfld
Ξ£g (π¦ β πΌ β¦ (πβπ¦))) = ((βfld
Ξ£g (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) + (βfld
Ξ£g (π¦ β {π₯} β¦ (πβπ¦))))) |
35 | 7, 12, 34 | 3eqtrd 2777 |
. . . . . . . . 9
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π»βπ) = ((βfld
Ξ£g (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) + (βfld
Ξ£g (π¦ β {π₯} β¦ (πβπ¦))))) |
36 | 22 | difexd 5329 |
. . . . . . . . . . . 12
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (πΌ β {π₯}) β V) |
37 | | nn0subm 20993 |
. . . . . . . . . . . . 13
β’
β0 β
(SubMndββfld) |
38 | 37 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β β0 β
(SubMndββfld)) |
39 | 9 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β π:πΌβΆβ0) |
40 | | eldifi 4126 |
. . . . . . . . . . . . . 14
β’ (π¦ β (πΌ β {π₯}) β π¦ β πΌ) |
41 | | ffvelcdm 7081 |
. . . . . . . . . . . . . 14
β’ ((π:πΌβΆβ0 β§ π¦ β πΌ) β (πβπ¦) β
β0) |
42 | 39, 40, 41 | syl2an 597 |
. . . . . . . . . . . . 13
β’ (((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β§ π¦ β (πΌ β {π₯})) β (πβπ¦) β
β0) |
43 | 42 | fmpttd 7112 |
. . . . . . . . . . . 12
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π¦ β (πΌ β {π₯}) β¦ (πβπ¦)):(πΌ β {π₯})βΆβ0) |
44 | 36 | mptexd 7223 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) β V) |
45 | | funmpt 6584 |
. . . . . . . . . . . . . 14
β’ Fun
(π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) |
46 | 45 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β Fun (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) |
47 | | funmpt 6584 |
. . . . . . . . . . . . . 14
β’ Fun
(π¦ β πΌ β¦ (πβπ¦)) |
48 | | difss 4131 |
. . . . . . . . . . . . . . 15
β’ (πΌ β {π₯}) β πΌ |
49 | | mptss 6041 |
. . . . . . . . . . . . . . 15
β’ ((πΌ β {π₯}) β πΌ β (π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) β (π¦ β πΌ β¦ (πβπ¦))) |
50 | 48, 49 | ax-mp 5 |
. . . . . . . . . . . . . 14
β’ (π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) β (π¦ β πΌ β¦ (πβπ¦)) |
51 | 22 | mptexd 7223 |
. . . . . . . . . . . . . 14
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π¦ β πΌ β¦ (πβπ¦)) β V) |
52 | | funsssuppss 8172 |
. . . . . . . . . . . . . 14
β’ ((Fun
(π¦ β πΌ β¦ (πβπ¦)) β§ (π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) β (π¦ β πΌ β¦ (πβπ¦)) β§ (π¦ β πΌ β¦ (πβπ¦)) β V) β ((π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) supp 0) β ((π¦ β πΌ β¦ (πβπ¦)) supp 0)) |
53 | 47, 50, 51, 52 | mp3an12i 1466 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β ((π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) supp 0) β ((π¦ β πΌ β¦ (πβπ¦)) supp 0)) |
54 | | fsuppsssupp 9376 |
. . . . . . . . . . . . 13
β’ ((((π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) β V β§ Fun (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) β§ ((π¦ β πΌ β¦ (πβπ¦)) finSupp 0 β§ ((π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) supp 0) β ((π¦ β πΌ β¦ (πβπ¦)) supp 0))) β (π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) finSupp 0) |
55 | 44, 46, 28, 53, 54 | syl22anc 838 |
. . . . . . . . . . . 12
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π¦ β (πΌ β {π₯}) β¦ (πβπ¦)) finSupp 0) |
56 | 14, 18, 36, 38, 43, 55 | gsumsubmcl 19782 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (βfld
Ξ£g (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) β
β0) |
57 | | ringmnd 20060 |
. . . . . . . . . . . . . 14
β’
(βfld β Ring β βfld β
Mnd) |
58 | 16, 57 | ax-mp 5 |
. . . . . . . . . . . . 13
β’
βfld β Mnd |
59 | | simprl 770 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β π₯ β πΌ) |
60 | 39, 59 | ffvelcdmd 7085 |
. . . . . . . . . . . . . 14
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (πβπ₯) β
β0) |
61 | 60 | nn0cnd 12531 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (πβπ₯) β β) |
62 | | fveq2 6889 |
. . . . . . . . . . . . . 14
β’ (π¦ = π₯ β (πβπ¦) = (πβπ₯)) |
63 | 13, 62 | gsumsn 19817 |
. . . . . . . . . . . . 13
β’
((βfld β Mnd β§ π₯ β πΌ β§ (πβπ₯) β β) β
(βfld Ξ£g (π¦ β {π₯} β¦ (πβπ¦))) = (πβπ₯)) |
64 | 58, 59, 61, 63 | mp3an2i 1467 |
. . . . . . . . . . . 12
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (βfld
Ξ£g (π¦ β {π₯} β¦ (πβπ¦))) = (πβπ₯)) |
65 | | elnn0 12471 |
. . . . . . . . . . . . . 14
β’ ((πβπ₯) β β0 β ((πβπ₯) β β β¨ (πβπ₯) = 0)) |
66 | 60, 65 | sylib 217 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β ((πβπ₯) β β β¨ (πβπ₯) = 0)) |
67 | | neneq 2947 |
. . . . . . . . . . . . . 14
β’ ((πβπ₯) β 0 β Β¬ (πβπ₯) = 0) |
68 | 67 | ad2antll 728 |
. . . . . . . . . . . . 13
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β Β¬ (πβπ₯) = 0) |
69 | 66, 68 | olcnd 876 |
. . . . . . . . . . . 12
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (πβπ₯) β β) |
70 | 64, 69 | eqeltrd 2834 |
. . . . . . . . . . 11
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (βfld
Ξ£g (π¦ β {π₯} β¦ (πβπ¦))) β β) |
71 | | nn0nnaddcl 12500 |
. . . . . . . . . . 11
β’
(((βfld Ξ£g (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) β β0 β§
(βfld Ξ£g (π¦ β {π₯} β¦ (πβπ¦))) β β) β
((βfld Ξ£g (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) + (βfld
Ξ£g (π¦ β {π₯} β¦ (πβπ¦)))) β β) |
72 | 56, 70, 71 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β ((βfld
Ξ£g (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) + (βfld
Ξ£g (π¦ β {π₯} β¦ (πβπ¦)))) β β) |
73 | 72 | nnne0d 12259 |
. . . . . . . . 9
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β ((βfld
Ξ£g (π¦ β (πΌ β {π₯}) β¦ (πβπ¦))) + (βfld
Ξ£g (π¦ β {π₯} β¦ (πβπ¦)))) β 0) |
74 | 35, 73 | eqnetrd 3009 |
. . . . . . . 8
β’ ((π β π΄ β§ (π₯ β πΌ β§ (πβπ₯) β 0)) β (π»βπ) β 0) |
75 | 74 | expr 458 |
. . . . . . 7
β’ ((π β π΄ β§ π₯ β πΌ) β ((πβπ₯) β 0 β (π»βπ) β 0)) |
76 | 2, 75 | biimtrrid 242 |
. . . . . 6
β’ ((π β π΄ β§ π₯ β πΌ) β (Β¬ (πβπ₯) = 0 β (π»βπ) β 0)) |
77 | 76 | rexlimdva 3156 |
. . . . 5
β’ (π β π΄ β (βπ₯ β πΌ Β¬ (πβπ₯) = 0 β (π»βπ) β 0)) |
78 | 1, 77 | biimtrrid 242 |
. . . 4
β’ (π β π΄ β (Β¬ βπ₯ β πΌ (πβπ₯) = 0 β (π»βπ) β 0)) |
79 | 78 | necon4bd 2961 |
. . 3
β’ (π β π΄ β ((π»βπ) = 0 β βπ₯ β πΌ (πβπ₯) = 0)) |
80 | | c0ex 11205 |
. . . . . 6
β’ 0 β
V |
81 | | fnconstg 6777 |
. . . . . 6
β’ (0 β
V β (πΌ Γ {0}) Fn
πΌ) |
82 | 80, 81 | mp1i 13 |
. . . . 5
β’ (π β π΄ β (πΌ Γ {0}) Fn πΌ) |
83 | | eqfnfv 7030 |
. . . . 5
β’ ((π Fn πΌ β§ (πΌ Γ {0}) Fn πΌ) β (π = (πΌ Γ {0}) β βπ₯ β πΌ (πβπ₯) = ((πΌ Γ {0})βπ₯))) |
84 | 20, 82, 83 | syl2anc 585 |
. . . 4
β’ (π β π΄ β (π = (πΌ Γ {0}) β βπ₯ β πΌ (πβπ₯) = ((πΌ Γ {0})βπ₯))) |
85 | 80 | fvconst2 7202 |
. . . . . 6
β’ (π₯ β πΌ β ((πΌ Γ {0})βπ₯) = 0) |
86 | 85 | eqeq2d 2744 |
. . . . 5
β’ (π₯ β πΌ β ((πβπ₯) = ((πΌ Γ {0})βπ₯) β (πβπ₯) = 0)) |
87 | 86 | ralbiia 3092 |
. . . 4
β’
(βπ₯ β
πΌ (πβπ₯) = ((πΌ Γ {0})βπ₯) β βπ₯ β πΌ (πβπ₯) = 0) |
88 | 84, 87 | bitrdi 287 |
. . 3
β’ (π β π΄ β (π = (πΌ Γ {0}) β βπ₯ β πΌ (πβπ₯) = 0)) |
89 | 79, 88 | sylibrd 259 |
. 2
β’ (π β π΄ β ((π»βπ) = 0 β π = (πΌ Γ {0}))) |
90 | 8 | psrbag0 21615 |
. . . . 5
β’ (πΌ β V β (πΌ Γ {0}) β π΄) |
91 | | oveq2 7414 |
. . . . . 6
β’ (β = (πΌ Γ {0}) β (βfld
Ξ£g β) = (βfld
Ξ£g (πΌ Γ {0}))) |
92 | | ovex 7439 |
. . . . . 6
β’
(βfld Ξ£g (πΌ Γ {0})) β V |
93 | 91, 4, 92 | fvmpt 6996 |
. . . . 5
β’ ((πΌ Γ {0}) β π΄ β (π»β(πΌ Γ {0})) = (βfld
Ξ£g (πΌ Γ {0}))) |
94 | 21, 90, 93 | 3syl 18 |
. . . 4
β’ (π β π΄ β (π»β(πΌ Γ {0})) = (βfld
Ξ£g (πΌ Γ {0}))) |
95 | | fconstmpt 5737 |
. . . . . 6
β’ (πΌ Γ {0}) = (π₯ β πΌ β¦ 0) |
96 | 95 | oveq2i 7417 |
. . . . 5
β’
(βfld Ξ£g (πΌ Γ {0})) = (βfld
Ξ£g (π₯ β πΌ β¦ 0)) |
97 | 14 | gsumz 18714 |
. . . . . 6
β’
((βfld β Mnd β§ πΌ β V) β (βfld
Ξ£g (π₯ β πΌ β¦ 0)) = 0) |
98 | 58, 21, 97 | sylancr 588 |
. . . . 5
β’ (π β π΄ β (βfld
Ξ£g (π₯ β πΌ β¦ 0)) = 0) |
99 | 96, 98 | eqtrid 2785 |
. . . 4
β’ (π β π΄ β (βfld
Ξ£g (πΌ Γ {0})) = 0) |
100 | 94, 99 | eqtrd 2773 |
. . 3
β’ (π β π΄ β (π»β(πΌ Γ {0})) = 0) |
101 | | fveqeq2 6898 |
. . 3
β’ (π = (πΌ Γ {0}) β ((π»βπ) = 0 β (π»β(πΌ Γ {0})) = 0)) |
102 | 100, 101 | syl5ibrcom 246 |
. 2
β’ (π β π΄ β (π = (πΌ Γ {0}) β (π»βπ) = 0)) |
103 | 89, 102 | impbid 211 |
1
β’ (π β π΄ β ((π»βπ) = 0 β π = (πΌ Γ {0}))) |