Step | Hyp | Ref
| Expression |
1 | | mdegval.d |
. . . . 5
β’ π· = (πΌ mDeg π
) |
2 | | mdegval.p |
. . . . 5
β’ π = (πΌ mPoly π
) |
3 | | mdegval.b |
. . . . 5
β’ π΅ = (Baseβπ) |
4 | | mdegval.z |
. . . . 5
β’ 0 =
(0gβπ
) |
5 | | mdegval.a |
. . . . 5
β’ π΄ = {π β (β0
βm πΌ)
β£ (β‘π β β) β
Fin} |
6 | | mdegval.h |
. . . . 5
β’ π» = (β β π΄ β¦ (βfld
Ξ£g β)) |
7 | 1, 2, 3, 4, 5, 6 | mdegval 25573 |
. . . 4
β’ (πΉ β π΅ β (π·βπΉ) = sup((π» β (πΉ supp 0 )), β*,
< )) |
8 | 7 | adantr 482 |
. . 3
β’ ((πΉ β π΅ β§ πΊ β β*) β (π·βπΉ) = sup((π» β (πΉ supp 0 )), β*,
< )) |
9 | 8 | breq1d 5158 |
. 2
β’ ((πΉ β π΅ β§ πΊ β β*) β ((π·βπΉ) β€ πΊ β sup((π» β (πΉ supp 0 )), β*,
< ) β€ πΊ)) |
10 | | imassrn 6069 |
. . . 4
β’ (π» β (πΉ supp 0 )) β ran π» |
11 | 5, 6 | tdeglem1 25565 |
. . . . . . 7
β’ π»:π΄βΆβ0 |
12 | 11 | a1i 11 |
. . . . . 6
β’ ((πΉ β π΅ β§ πΊ β β*) β π»:π΄βΆβ0) |
13 | 12 | frnd 6723 |
. . . . 5
β’ ((πΉ β π΅ β§ πΊ β β*) β ran
π» β
β0) |
14 | | nn0ssre 12473 |
. . . . . 6
β’
β0 β β |
15 | | ressxr 11255 |
. . . . . 6
β’ β
β β* |
16 | 14, 15 | sstri 3991 |
. . . . 5
β’
β0 β β* |
17 | 13, 16 | sstrdi 3994 |
. . . 4
β’ ((πΉ β π΅ β§ πΊ β β*) β ran
π» β
β*) |
18 | 10, 17 | sstrid 3993 |
. . 3
β’ ((πΉ β π΅ β§ πΊ β β*) β (π» β (πΉ supp 0 )) β
β*) |
19 | | supxrleub 13302 |
. . 3
β’ (((π» β (πΉ supp 0 )) β
β* β§ πΊ
β β*) β (sup((π» β (πΉ supp 0 )), β*,
< ) β€ πΊ β
βπ¦ β (π» β (πΉ supp 0 ))π¦ β€ πΊ)) |
20 | 18, 19 | sylancom 589 |
. 2
β’ ((πΉ β π΅ β§ πΊ β β*) β
(sup((π» β (πΉ supp 0 )), β*,
< ) β€ πΊ β
βπ¦ β (π» β (πΉ supp 0 ))π¦ β€ πΊ)) |
21 | 12 | ffnd 6716 |
. . . 4
β’ ((πΉ β π΅ β§ πΊ β β*) β π» Fn π΄) |
22 | | suppssdm 8159 |
. . . . 5
β’ (πΉ supp 0 ) β dom πΉ |
23 | | eqid 2733 |
. . . . . 6
β’
(Baseβπ
) =
(Baseβπ
) |
24 | | simpl 484 |
. . . . . 6
β’ ((πΉ β π΅ β§ πΊ β β*) β πΉ β π΅) |
25 | 2, 23, 3, 5, 24 | mplelf 21549 |
. . . . 5
β’ ((πΉ β π΅ β§ πΊ β β*) β πΉ:π΄βΆ(Baseβπ
)) |
26 | 22, 25 | fssdm 6735 |
. . . 4
β’ ((πΉ β π΅ β§ πΊ β β*) β (πΉ supp 0 ) β π΄) |
27 | | breq1 5151 |
. . . . 5
β’ (π¦ = (π»βπ₯) β (π¦ β€ πΊ β (π»βπ₯) β€ πΊ)) |
28 | 27 | ralima 7237 |
. . . 4
β’ ((π» Fn π΄ β§ (πΉ supp 0 ) β π΄) β (βπ¦ β (π» β (πΉ supp 0 ))π¦ β€ πΊ β βπ₯ β (πΉ supp 0 )(π»βπ₯) β€ πΊ)) |
29 | 21, 26, 28 | syl2anc 585 |
. . 3
β’ ((πΉ β π΅ β§ πΊ β β*) β
(βπ¦ β (π» β (πΉ supp 0 ))π¦ β€ πΊ β βπ₯ β (πΉ supp 0 )(π»βπ₯) β€ πΊ)) |
30 | 25 | ffnd 6716 |
. . . . . . . 8
β’ ((πΉ β π΅ β§ πΊ β β*) β πΉ Fn π΄) |
31 | 4 | fvexi 6903 |
. . . . . . . . 9
β’ 0 β
V |
32 | 31 | a1i 11 |
. . . . . . . 8
β’ ((πΉ β π΅ β§ πΊ β β*) β 0 β
V) |
33 | | elsuppfng 8152 |
. . . . . . . 8
β’ ((πΉ Fn π΄ β§ πΉ β π΅ β§ 0 β V) β (π₯ β (πΉ supp 0 ) β (π₯ β π΄ β§ (πΉβπ₯) β 0 ))) |
34 | 30, 24, 32, 33 | syl3anc 1372 |
. . . . . . 7
β’ ((πΉ β π΅ β§ πΊ β β*) β (π₯ β (πΉ supp 0 ) β (π₯ β π΄ β§ (πΉβπ₯) β 0 ))) |
35 | | fvex 6902 |
. . . . . . . . . 10
β’ (πΉβπ₯) β V |
36 | 35 | biantrur 532 |
. . . . . . . . 9
β’ ((πΉβπ₯) β 0 β ((πΉβπ₯) β V β§ (πΉβπ₯) β 0 )) |
37 | | eldifsn 4790 |
. . . . . . . . 9
β’ ((πΉβπ₯) β (V β { 0 }) β ((πΉβπ₯) β V β§ (πΉβπ₯) β 0 )) |
38 | 36, 37 | bitr4i 278 |
. . . . . . . 8
β’ ((πΉβπ₯) β 0 β (πΉβπ₯) β (V β { 0 })) |
39 | 38 | anbi2i 624 |
. . . . . . 7
β’ ((π₯ β π΄ β§ (πΉβπ₯) β 0 ) β (π₯ β π΄ β§ (πΉβπ₯) β (V β { 0 }))) |
40 | 34, 39 | bitrdi 287 |
. . . . . 6
β’ ((πΉ β π΅ β§ πΊ β β*) β (π₯ β (πΉ supp 0 ) β (π₯ β π΄ β§ (πΉβπ₯) β (V β { 0 })))) |
41 | 40 | imbi1d 342 |
. . . . 5
β’ ((πΉ β π΅ β§ πΊ β β*) β ((π₯ β (πΉ supp 0 ) β (π»βπ₯) β€ πΊ) β ((π₯ β π΄ β§ (πΉβπ₯) β (V β { 0 })) β (π»βπ₯) β€ πΊ))) |
42 | | impexp 452 |
. . . . . 6
β’ (((π₯ β π΄ β§ (πΉβπ₯) β (V β { 0 })) β (π»βπ₯) β€ πΊ) β (π₯ β π΄ β ((πΉβπ₯) β (V β { 0 }) β (π»βπ₯) β€ πΊ))) |
43 | | con34b 316 |
. . . . . . . 8
β’ (((πΉβπ₯) β (V β { 0 }) β (π»βπ₯) β€ πΊ) β (Β¬ (π»βπ₯) β€ πΊ β Β¬ (πΉβπ₯) β (V β { 0 }))) |
44 | | simplr 768 |
. . . . . . . . . . 11
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β πΊ β
β*) |
45 | 12 | ffvelcdmda 7084 |
. . . . . . . . . . . 12
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β (π»βπ₯) β
β0) |
46 | 16, 45 | sselid 3980 |
. . . . . . . . . . 11
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β (π»βπ₯) β
β*) |
47 | | xrltnle 11278 |
. . . . . . . . . . 11
β’ ((πΊ β β*
β§ (π»βπ₯) β β*)
β (πΊ < (π»βπ₯) β Β¬ (π»βπ₯) β€ πΊ)) |
48 | 44, 46, 47 | syl2anc 585 |
. . . . . . . . . 10
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β (πΊ < (π»βπ₯) β Β¬ (π»βπ₯) β€ πΊ)) |
49 | 48 | bicomd 222 |
. . . . . . . . 9
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β (Β¬ (π»βπ₯) β€ πΊ β πΊ < (π»βπ₯))) |
50 | | ianor 981 |
. . . . . . . . . . 11
β’ (Β¬
((πΉβπ₯) β V β§ (πΉβπ₯) β 0 ) β (Β¬ (πΉβπ₯) β V β¨ Β¬ (πΉβπ₯) β 0 )) |
51 | 50, 37 | xchnxbir 333 |
. . . . . . . . . 10
β’ (Β¬
(πΉβπ₯) β (V β { 0 }) β (Β¬ (πΉβπ₯) β V β¨ Β¬ (πΉβπ₯) β 0 )) |
52 | | orcom 869 |
. . . . . . . . . . . 12
β’ ((Β¬
(πΉβπ₯) β V β¨ Β¬ (πΉβπ₯) β 0 ) β (Β¬ (πΉβπ₯) β 0 β¨ Β¬ (πΉβπ₯) β V)) |
53 | 35 | notnoti 143 |
. . . . . . . . . . . . 13
β’ Β¬
Β¬ (πΉβπ₯) β V |
54 | 53 | biorfi 938 |
. . . . . . . . . . . 12
β’ (Β¬
(πΉβπ₯) β 0 β (Β¬ (πΉβπ₯) β 0 β¨ Β¬ (πΉβπ₯) β V)) |
55 | | nne 2945 |
. . . . . . . . . . . 12
β’ (Β¬
(πΉβπ₯) β 0 β (πΉβπ₯) = 0 ) |
56 | 52, 54, 55 | 3bitr2i 299 |
. . . . . . . . . . 11
β’ ((Β¬
(πΉβπ₯) β V β¨ Β¬ (πΉβπ₯) β 0 ) β (πΉβπ₯) = 0 ) |
57 | 56 | a1i 11 |
. . . . . . . . . 10
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β ((Β¬ (πΉβπ₯) β V β¨ Β¬ (πΉβπ₯) β 0 ) β (πΉβπ₯) = 0 )) |
58 | 51, 57 | bitrid 283 |
. . . . . . . . 9
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β (Β¬ (πΉβπ₯) β (V β { 0 }) β (πΉβπ₯) = 0 )) |
59 | 49, 58 | imbi12d 345 |
. . . . . . . 8
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β ((Β¬ (π»βπ₯) β€ πΊ β Β¬ (πΉβπ₯) β (V β { 0 })) β (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 ))) |
60 | 43, 59 | bitrid 283 |
. . . . . . 7
β’ (((πΉ β π΅ β§ πΊ β β*) β§ π₯ β π΄) β (((πΉβπ₯) β (V β { 0 }) β (π»βπ₯) β€ πΊ) β (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 ))) |
61 | 60 | pm5.74da 803 |
. . . . . 6
β’ ((πΉ β π΅ β§ πΊ β β*) β ((π₯ β π΄ β ((πΉβπ₯) β (V β { 0 }) β (π»βπ₯) β€ πΊ)) β (π₯ β π΄ β (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 )))) |
62 | 42, 61 | bitrid 283 |
. . . . 5
β’ ((πΉ β π΅ β§ πΊ β β*) β (((π₯ β π΄ β§ (πΉβπ₯) β (V β { 0 })) β (π»βπ₯) β€ πΊ) β (π₯ β π΄ β (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 )))) |
63 | 41, 62 | bitrd 279 |
. . . 4
β’ ((πΉ β π΅ β§ πΊ β β*) β ((π₯ β (πΉ supp 0 ) β (π»βπ₯) β€ πΊ) β (π₯ β π΄ β (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 )))) |
64 | 63 | ralbidv2 3174 |
. . 3
β’ ((πΉ β π΅ β§ πΊ β β*) β
(βπ₯ β (πΉ supp 0 )(π»βπ₯) β€ πΊ β βπ₯ β π΄ (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 ))) |
65 | 29, 64 | bitrd 279 |
. 2
β’ ((πΉ β π΅ β§ πΊ β β*) β
(βπ¦ β (π» β (πΉ supp 0 ))π¦ β€ πΊ β βπ₯ β π΄ (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 ))) |
66 | 9, 20, 65 | 3bitrd 305 |
1
β’ ((πΉ β π΅ β§ πΊ β β*) β ((π·βπΉ) β€ πΊ β βπ₯ β π΄ (πΊ < (π»βπ₯) β (πΉβπ₯) = 0 ))) |