Step | Hyp | Ref
| Expression |
1 | | df-dioph 41480 |
. . . 4
β’ Dioph =
(π β
β0 β¦ ran (π β (β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)})) |
2 | 1 | dmmptss 6238 |
. . 3
β’ dom Dioph
β β0 |
3 | | elfvdm 6926 |
. . 3
β’ (π· β (Diophβπ) β π β dom Dioph) |
4 | 2, 3 | sselid 3980 |
. 2
β’ (π· β (Diophβπ) β π β
β0) |
5 | | fveq2 6889 |
. . . . . . 7
β’ (π = π β (β€β₯βπ) =
(β€β₯βπ)) |
6 | | eqidd 2734 |
. . . . . . 7
β’ (π = π β (mzPolyβ(1...π)) = (mzPolyβ(1...π))) |
7 | | oveq2 7414 |
. . . . . . . . . . . 12
β’ (π = π β (1...π) = (1...π)) |
8 | 7 | reseq2d 5980 |
. . . . . . . . . . 11
β’ (π = π β (π’ βΎ (1...π)) = (π’ βΎ (1...π))) |
9 | 8 | eqeq2d 2744 |
. . . . . . . . . 10
β’ (π = π β (π‘ = (π’ βΎ (1...π)) β π‘ = (π’ βΎ (1...π)))) |
10 | 9 | anbi1d 631 |
. . . . . . . . 9
β’ (π = π β ((π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0) β (π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0))) |
11 | 10 | rexbidv 3179 |
. . . . . . . 8
β’ (π = π β (βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0) β βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0))) |
12 | 11 | abbidv 2802 |
. . . . . . 7
β’ (π = π β {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) |
13 | 5, 6, 12 | mpoeq123dv 7481 |
. . . . . 6
β’ (π = π β (π β (β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) = (π β (β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)})) |
14 | 13 | rneqd 5936 |
. . . . 5
β’ (π = π β ran (π β (β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) = ran (π β (β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)})) |
15 | | ovex 7439 |
. . . . . . 7
β’
(β0 βm (1...π)) β V |
16 | 15 | pwex 5378 |
. . . . . 6
β’ π«
(β0 βm (1...π)) β V |
17 | | eqid 2733 |
. . . . . . . 8
β’ (π β
(β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) = (π β (β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) |
18 | 17 | rnmpo 7539 |
. . . . . . 7
β’ ran
(π β
(β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) = {π β£ βπ β (β€β₯βπ)βπ β (mzPolyβ(1...π))π = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}} |
19 | | elmapi 8840 |
. . . . . . . . . . . . . . . . 17
β’ (π’ β (β0
βm (1...π))
β π’:(1...π)βΆβ0) |
20 | | fzss2 13538 |
. . . . . . . . . . . . . . . . 17
β’ (π β
(β€β₯βπ) β (1...π) β (1...π)) |
21 | | fssres 6755 |
. . . . . . . . . . . . . . . . 17
β’ ((π’:(1...π)βΆβ0 β§ (1...π) β (1...π)) β (π’ βΎ (1...π)):(1...π)βΆβ0) |
22 | 19, 20, 21 | syl2anr 598 |
. . . . . . . . . . . . . . . 16
β’ ((π β
(β€β₯βπ) β§ π’ β (β0
βm (1...π))) β (π’ βΎ (1...π)):(1...π)βΆβ0) |
23 | | nn0ex 12475 |
. . . . . . . . . . . . . . . . 17
β’
β0 β V |
24 | | ovex 7439 |
. . . . . . . . . . . . . . . . 17
β’
(1...π) β
V |
25 | 23, 24 | elmap 8862 |
. . . . . . . . . . . . . . . 16
β’ ((π’ βΎ (1...π)) β (β0
βm (1...π))
β (π’ βΎ
(1...π)):(1...π)βΆβ0) |
26 | 22, 25 | sylibr 233 |
. . . . . . . . . . . . . . 15
β’ ((π β
(β€β₯βπ) β§ π’ β (β0
βm (1...π))) β (π’ βΎ (1...π)) β (β0
βm (1...π))) |
27 | | eleq1 2822 |
. . . . . . . . . . . . . . . 16
β’ (π‘ = (π’ βΎ (1...π)) β (π‘ β (β0
βm (1...π))
β (π’ βΎ
(1...π)) β
(β0 βm (1...π)))) |
28 | 27 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0) β (π‘ β (β0
βm (1...π))
β (π’ βΎ
(1...π)) β
(β0 βm (1...π)))) |
29 | 26, 28 | syl5ibrcom 246 |
. . . . . . . . . . . . . 14
β’ ((π β
(β€β₯βπ) β§ π’ β (β0
βm (1...π))) β ((π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0) β π‘ β (β0
βm (1...π)))) |
30 | 29 | rexlimdva 3156 |
. . . . . . . . . . . . 13
β’ (π β
(β€β₯βπ) β (βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0) β π‘ β (β0
βm (1...π)))) |
31 | 30 | abssdv 4065 |
. . . . . . . . . . . 12
β’ (π β
(β€β₯βπ) β {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β (β0
βm (1...π))) |
32 | 15 | elpw2 5345 |
. . . . . . . . . . . 12
β’ ({π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β π« (β0
βm (1...π))
β {π‘ β£
βπ’ β
(β0 βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β (β0
βm (1...π))) |
33 | 31, 32 | sylibr 233 |
. . . . . . . . . . 11
β’ (π β
(β€β₯βπ) β {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β π« (β0
βm (1...π))) |
34 | | eleq1 2822 |
. . . . . . . . . . 11
β’ (π = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β (π β π« (β0
βm (1...π))
β {π‘ β£
βπ’ β
(β0 βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β π« (β0
βm (1...π)))) |
35 | 33, 34 | syl5ibrcom 246 |
. . . . . . . . . 10
β’ (π β
(β€β₯βπ) β (π = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β π β π« (β0
βm (1...π)))) |
36 | 35 | rexlimdvw 3161 |
. . . . . . . . 9
β’ (π β
(β€β₯βπ) β (βπ β (mzPolyβ(1...π))π = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β π β π« (β0
βm (1...π)))) |
37 | 36 | rexlimiv 3149 |
. . . . . . . 8
β’
(βπ β
(β€β₯βπ)βπ β (mzPolyβ(1...π))π = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β π β π« (β0
βm (1...π))) |
38 | 37 | abssi 4067 |
. . . . . . 7
β’ {π β£ βπ β
(β€β₯βπ)βπ β (mzPolyβ(1...π))π = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}} β π«
(β0 βm (1...π)) |
39 | 18, 38 | eqsstri 4016 |
. . . . . 6
β’ ran
(π β
(β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) β π«
(β0 βm (1...π)) |
40 | 16, 39 | ssexi 5322 |
. . . . 5
β’ ran
(π β
(β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) β V |
41 | 14, 1, 40 | fvmpt 6996 |
. . . 4
β’ (π β β0
β (Diophβπ) =
ran (π β
(β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)})) |
42 | 41 | eleq2d 2820 |
. . 3
β’ (π β β0
β (π· β
(Diophβπ) β
π· β ran (π β
(β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}))) |
43 | | ovex 7439 |
. . . . . 6
β’
(β0 βm (1...π)) β V |
44 | 43 | abrexex 7946 |
. . . . 5
β’ {π‘ β£ βπ’ β (β0
βm (1...π))π‘ = (π’ βΎ (1...π))} β V |
45 | | simpl 484 |
. . . . . . 7
β’ ((π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0) β π‘ = (π’ βΎ (1...π))) |
46 | 45 | reximi 3085 |
. . . . . 6
β’
(βπ’ β
(β0 βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0) β βπ’ β (β0
βm (1...π))π‘ = (π’ βΎ (1...π))) |
47 | 46 | ss2abi 4063 |
. . . . 5
β’ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β {π‘ β£ βπ’ β (β0
βm (1...π))π‘ = (π’ βΎ (1...π))} |
48 | 44, 47 | ssexi 5322 |
. . . 4
β’ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)} β V |
49 | 17, 48 | elrnmpo 7542 |
. . 3
β’ (π· β ran (π β (β€β₯βπ), π β (mzPolyβ(1...π)) β¦ {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) β βπ β (β€β₯βπ)βπ β (mzPolyβ(1...π))π· = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)}) |
50 | 42, 49 | bitrdi 287 |
. 2
β’ (π β β0
β (π· β
(Diophβπ) β
βπ β
(β€β₯βπ)βπ β (mzPolyβ(1...π))π· = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)})) |
51 | 4, 50 | biadanii 821 |
1
β’ (π· β (Diophβπ) β (π β β0 β§
βπ β
(β€β₯βπ)βπ β (mzPolyβ(1...π))π· = {π‘ β£ βπ’ β (β0
βm (1...π))(π‘ = (π’ βΎ (1...π)) β§ (πβπ’) = 0)})) |