Step | Hyp | Ref
| Expression |
1 | | plyssc 25706 |
. . . . . . . 8
β’
(Polyβπ)
β (Polyββ) |
2 | | simpl 484 |
. . . . . . . 8
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΉ β (Polyβπ)) |
3 | 1, 2 | sselid 3980 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΉ β
(Polyββ)) |
4 | | plyrem.1 |
. . . . . . . . . 10
β’ πΊ = (Xp
βf β (β Γ {π΄})) |
5 | 4 | plyremlem 25809 |
. . . . . . . . 9
β’ (π΄ β β β (πΊ β (Polyββ)
β§ (degβπΊ) = 1
β§ (β‘πΊ β {0}) = {π΄})) |
6 | 5 | adantl 483 |
. . . . . . . 8
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΊ β (Polyββ) β§
(degβπΊ) = 1 β§
(β‘πΊ β {0}) = {π΄})) |
7 | 6 | simp1d 1143 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΊ β
(Polyββ)) |
8 | 6 | simp2d 1144 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (degβπΊ) = 1) |
9 | | ax-1ne0 11176 |
. . . . . . . . . 10
β’ 1 β
0 |
10 | 9 | a1i 11 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β 1 β
0) |
11 | 8, 10 | eqnetrd 3009 |
. . . . . . . 8
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (degβπΊ) β 0) |
12 | | fveq2 6889 |
. . . . . . . . . 10
β’ (πΊ = 0π β
(degβπΊ) =
(degβ0π)) |
13 | | dgr0 25768 |
. . . . . . . . . 10
β’
(degβ0π) = 0 |
14 | 12, 13 | eqtrdi 2789 |
. . . . . . . . 9
β’ (πΊ = 0π β
(degβπΊ) =
0) |
15 | 14 | necon3i 2974 |
. . . . . . . 8
β’
((degβπΊ) β
0 β πΊ β
0π) |
16 | 11, 15 | syl 17 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΊ β
0π) |
17 | | plyrem.2 |
. . . . . . . 8
β’ π
= (πΉ βf β (πΊ βf Β·
(πΉ quot πΊ))) |
18 | 17 | quotdgr 25808 |
. . . . . . 7
β’ ((πΉ β (Polyββ)
β§ πΊ β
(Polyββ) β§ πΊ β 0π) β (π
= 0π β¨
(degβπ
) <
(degβπΊ))) |
19 | 3, 7, 16, 18 | syl3anc 1372 |
. . . . . 6
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π
= 0π β¨
(degβπ
) <
(degβπΊ))) |
20 | | 0lt1 11733 |
. . . . . . . 8
β’ 0 <
1 |
21 | 20, 8 | breqtrrid 5186 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β 0 <
(degβπΊ)) |
22 | | fveq2 6889 |
. . . . . . . . 9
β’ (π
= 0π β
(degβπ
) =
(degβ0π)) |
23 | 22, 13 | eqtrdi 2789 |
. . . . . . . 8
β’ (π
= 0π β
(degβπ
) =
0) |
24 | 23 | breq1d 5158 |
. . . . . . 7
β’ (π
= 0π β
((degβπ
) <
(degβπΊ) β 0 <
(degβπΊ))) |
25 | 21, 24 | syl5ibrcom 246 |
. . . . . 6
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π
= 0π β
(degβπ
) <
(degβπΊ))) |
26 | | pm2.62 899 |
. . . . . 6
β’ ((π
= 0π β¨
(degβπ
) <
(degβπΊ)) β
((π
= 0π
β (degβπ
) <
(degβπΊ)) β
(degβπ
) <
(degβπΊ))) |
27 | 19, 25, 26 | sylc 65 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (degβπ
) < (degβπΊ)) |
28 | 27, 8 | breqtrd 5174 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (degβπ
) < 1) |
29 | | quotcl2 25807 |
. . . . . . . . . 10
β’ ((πΉ β (Polyββ)
β§ πΊ β
(Polyββ) β§ πΊ β 0π) β (πΉ quot πΊ) β
(Polyββ)) |
30 | 3, 7, 16, 29 | syl3anc 1372 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΉ quot πΊ) β
(Polyββ)) |
31 | | plymulcl 25727 |
. . . . . . . . 9
β’ ((πΊ β (Polyββ)
β§ (πΉ quot πΊ) β (Polyββ))
β (πΊ
βf Β· (πΉ quot πΊ)) β
(Polyββ)) |
32 | 7, 30, 31 | syl2anc 585 |
. . . . . . . 8
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΊ βf Β· (πΉ quot πΊ)) β
(Polyββ)) |
33 | | plysubcl 25728 |
. . . . . . . 8
β’ ((πΉ β (Polyββ)
β§ (πΊ
βf Β· (πΉ quot πΊ)) β (Polyββ)) β
(πΉ βf
β (πΊ
βf Β· (πΉ quot πΊ))) β
(Polyββ)) |
34 | 3, 32, 33 | syl2anc 585 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΉ βf β (πΊ βf Β·
(πΉ quot πΊ))) β
(Polyββ)) |
35 | 17, 34 | eqeltrid 2838 |
. . . . . 6
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β π
β
(Polyββ)) |
36 | | dgrcl 25739 |
. . . . . 6
β’ (π
β (Polyββ)
β (degβπ
) β
β0) |
37 | 35, 36 | syl 17 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (degβπ
) β
β0) |
38 | | nn0lt10b 12621 |
. . . . 5
β’
((degβπ
)
β β0 β ((degβπ
) < 1 β (degβπ
) = 0)) |
39 | 37, 38 | syl 17 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β ((degβπ
) < 1 β (degβπ
) = 0)) |
40 | 28, 39 | mpbid 231 |
. . 3
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (degβπ
) = 0) |
41 | | 0dgrb 25752 |
. . . 4
β’ (π
β (Polyββ)
β ((degβπ
) = 0
β π
= (β Γ
{(π
β0)}))) |
42 | 35, 41 | syl 17 |
. . 3
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β ((degβπ
) = 0 β π
= (β Γ {(π
β0)}))) |
43 | 40, 42 | mpbid 231 |
. 2
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β π
= (β Γ {(π
β0)})) |
44 | 43 | fveq1d 6891 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π
βπ΄) = ((β Γ {(π
β0)})βπ΄)) |
45 | 17 | fveq1i 6890 |
. . . . . . 7
β’ (π
βπ΄) = ((πΉ βf β (πΊ βf Β·
(πΉ quot πΊ)))βπ΄) |
46 | | plyf 25704 |
. . . . . . . . . . 11
β’ (πΉ β (Polyβπ) β πΉ:ββΆβ) |
47 | 46 | adantr 482 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΉ:ββΆβ) |
48 | 47 | ffnd 6716 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΉ Fn β) |
49 | | plyf 25704 |
. . . . . . . . . . . 12
β’ (πΊ β (Polyββ)
β πΊ:ββΆβ) |
50 | 7, 49 | syl 17 |
. . . . . . . . . . 11
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΊ:ββΆβ) |
51 | 50 | ffnd 6716 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β πΊ Fn β) |
52 | | plyf 25704 |
. . . . . . . . . . . 12
β’ ((πΉ quot πΊ) β (Polyββ) β (πΉ quot πΊ):ββΆβ) |
53 | 30, 52 | syl 17 |
. . . . . . . . . . 11
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΉ quot πΊ):ββΆβ) |
54 | 53 | ffnd 6716 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΉ quot πΊ) Fn β) |
55 | | cnex 11188 |
. . . . . . . . . . 11
β’ β
β V |
56 | 55 | a1i 11 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β β β
V) |
57 | | inidm 4218 |
. . . . . . . . . 10
β’ (β
β© β) = β |
58 | 51, 54, 56, 56, 57 | offn 7680 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΊ βf Β· (πΉ quot πΊ)) Fn β) |
59 | | eqidd 2734 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ π΄ β β) β§ π΄ β β) β (πΉβπ΄) = (πΉβπ΄)) |
60 | 6 | simp3d 1145 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (β‘πΊ β {0}) = {π΄}) |
61 | | ssun1 4172 |
. . . . . . . . . . . . . . 15
β’ (β‘πΊ β {0}) β ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0})) |
62 | 60, 61 | eqsstrrdi 4037 |
. . . . . . . . . . . . . 14
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β {π΄} β ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0}))) |
63 | | snssg 4787 |
. . . . . . . . . . . . . . 15
β’ (π΄ β β β (π΄ β ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0})) β {π΄} β ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0})))) |
64 | 63 | adantl 483 |
. . . . . . . . . . . . . 14
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π΄ β ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0})) β {π΄} β ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0})))) |
65 | 62, 64 | mpbird 257 |
. . . . . . . . . . . . 13
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β π΄ β ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0}))) |
66 | | ofmulrt 25787 |
. . . . . . . . . . . . . 14
β’ ((β
β V β§ πΊ:ββΆβ β§ (πΉ quot πΊ):ββΆβ) β (β‘(πΊ βf Β· (πΉ quot πΊ)) β {0}) = ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0}))) |
67 | 56, 50, 53, 66 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (β‘(πΊ βf Β· (πΉ quot πΊ)) β {0}) = ((β‘πΊ β {0}) βͺ (β‘(πΉ quot πΊ) β {0}))) |
68 | 65, 67 | eleqtrrd 2837 |
. . . . . . . . . . . 12
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β π΄ β (β‘(πΊ βf Β· (πΉ quot πΊ)) β {0})) |
69 | | fniniseg 7059 |
. . . . . . . . . . . . 13
β’ ((πΊ βf Β·
(πΉ quot πΊ)) Fn β β (π΄ β (β‘(πΊ βf Β· (πΉ quot πΊ)) β {0}) β (π΄ β β β§ ((πΊ βf Β· (πΉ quot πΊ))βπ΄) = 0))) |
70 | 58, 69 | syl 17 |
. . . . . . . . . . . 12
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π΄ β (β‘(πΊ βf Β· (πΉ quot πΊ)) β {0}) β (π΄ β β β§ ((πΊ βf Β· (πΉ quot πΊ))βπ΄) = 0))) |
71 | 68, 70 | mpbid 231 |
. . . . . . . . . . 11
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π΄ β β β§ ((πΊ βf Β· (πΉ quot πΊ))βπ΄) = 0)) |
72 | 71 | simprd 497 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β ((πΊ βf Β· (πΉ quot πΊ))βπ΄) = 0) |
73 | 72 | adantr 482 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ π΄ β β) β§ π΄ β β) β ((πΊ βf Β· (πΉ quot πΊ))βπ΄) = 0) |
74 | 48, 58, 56, 56, 57, 59, 73 | ofval 7678 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ π΄ β β) β§ π΄ β β) β ((πΉ βf β (πΊ βf Β·
(πΉ quot πΊ)))βπ΄) = ((πΉβπ΄) β 0)) |
75 | 74 | anabss3 674 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β ((πΉ βf β (πΊ βf Β·
(πΉ quot πΊ)))βπ΄) = ((πΉβπ΄) β 0)) |
76 | 45, 75 | eqtrid 2785 |
. . . . . 6
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π
βπ΄) = ((πΉβπ΄) β 0)) |
77 | 46 | ffvelcdmda 7084 |
. . . . . . 7
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΉβπ΄) β β) |
78 | 77 | subid1d 11557 |
. . . . . 6
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β ((πΉβπ΄) β 0) = (πΉβπ΄)) |
79 | 76, 78 | eqtrd 2773 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (π
βπ΄) = (πΉβπ΄)) |
80 | | fvex 6902 |
. . . . . . 7
β’ (π
β0) β
V |
81 | 80 | fvconst2 7202 |
. . . . . 6
β’ (π΄ β β β ((β
Γ {(π
β0)})βπ΄) = (π
β0)) |
82 | 81 | adantl 483 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β ((β Γ
{(π
β0)})βπ΄) = (π
β0)) |
83 | 44, 79, 82 | 3eqtr3d 2781 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (πΉβπ΄) = (π
β0)) |
84 | 83 | sneqd 4640 |
. . 3
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β {(πΉβπ΄)} = {(π
β0)}) |
85 | 84 | xpeq2d 5706 |
. 2
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β (β Γ
{(πΉβπ΄)}) = (β Γ {(π
β0)})) |
86 | 43, 85 | eqtr4d 2776 |
1
β’ ((πΉ β (Polyβπ) β§ π΄ β β) β π
= (β Γ {(πΉβπ΄)})) |