Step | Hyp | Ref
| Expression |
1 | | eulerpart.j |
. . . . 5
β’ π½ = {π§ β β β£ Β¬ 2 β₯ π§} |
2 | | eulerpart.f |
. . . . 5
β’ πΉ = (π₯ β π½, π¦ β β0 β¦
((2βπ¦) Β· π₯)) |
3 | 1, 2 | oddpwdc 33342 |
. . . 4
β’ πΉ:(π½ Γ β0)β1-1-ontoββ |
4 | | f1of1 6830 |
. . . 4
β’ (πΉ:(π½ Γ β0)β1-1-ontoββ β πΉ:(π½ Γ β0)β1-1ββ) |
5 | 3, 4 | ax-mp 5 |
. . 3
β’ πΉ:(π½ Γ β0)β1-1ββ |
6 | | eulerpartlemgh.1 |
. . . 4
β’ π = βͺ π‘ β ((β‘π΄ β β) β© π½)({π‘} Γ (bitsβ(π΄βπ‘))) |
7 | | iunss 5048 |
. . . . 5
β’ (βͺ π‘ β ((β‘π΄ β β) β© π½)({π‘} Γ (bitsβ(π΄βπ‘))) β (π½ Γ β0) β
βπ‘ β ((β‘π΄ β β) β© π½)({π‘} Γ (bitsβ(π΄βπ‘))) β (π½ Γ
β0)) |
8 | | inss2 4229 |
. . . . . . . 8
β’ ((β‘π΄ β β) β© π½) β π½ |
9 | 8 | sseli 3978 |
. . . . . . 7
β’ (π‘ β ((β‘π΄ β β) β© π½) β π‘ β π½) |
10 | 9 | snssd 4812 |
. . . . . 6
β’ (π‘ β ((β‘π΄ β β) β© π½) β {π‘} β π½) |
11 | | bitsss 16364 |
. . . . . 6
β’
(bitsβ(π΄βπ‘)) β
β0 |
12 | | xpss12 5691 |
. . . . . 6
β’ (({π‘} β π½ β§ (bitsβ(π΄βπ‘)) β β0) β
({π‘} Γ
(bitsβ(π΄βπ‘))) β (π½ Γ
β0)) |
13 | 10, 11, 12 | sylancl 587 |
. . . . 5
β’ (π‘ β ((β‘π΄ β β) β© π½) β ({π‘} Γ (bitsβ(π΄βπ‘))) β (π½ Γ
β0)) |
14 | 7, 13 | mprgbir 3069 |
. . . 4
β’ βͺ π‘ β ((β‘π΄ β β) β© π½)({π‘} Γ (bitsβ(π΄βπ‘))) β (π½ Γ
β0) |
15 | 6, 14 | eqsstri 4016 |
. . 3
β’ π β (π½ Γ
β0) |
16 | | f1ores 6845 |
. . 3
β’ ((πΉ:(π½ Γ β0)β1-1ββ β§ π β (π½ Γ β0)) β (πΉ βΎ π):πβ1-1-ontoβ(πΉ β π)) |
17 | 5, 15, 16 | mp2an 691 |
. 2
β’ (πΉ βΎ π):πβ1-1-ontoβ(πΉ β π) |
18 | | simpr 486 |
. . . . . . . . . 10
β’ ((((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β§ ((2βπ) Β· π‘) = π) β ((2βπ) Β· π‘) = π) |
19 | | 2nn 12282 |
. . . . . . . . . . . . . 14
β’ 2 β
β |
20 | 19 | a1i 11 |
. . . . . . . . . . . . 13
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β 2 β β) |
21 | 11 | sseli 3978 |
. . . . . . . . . . . . . 14
β’ (π β (bitsβ(π΄βπ‘)) β π β β0) |
22 | 21 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β π β β0) |
23 | 20, 22 | nnexpcld 14205 |
. . . . . . . . . . . 12
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β (2βπ) β β) |
24 | | simplr 768 |
. . . . . . . . . . . 12
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β π‘ β β) |
25 | 23, 24 | nnmulcld 12262 |
. . . . . . . . . . 11
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β ((2βπ) Β· π‘) β β) |
26 | 25 | adantr 482 |
. . . . . . . . . 10
β’ ((((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β§ ((2βπ) Β· π‘) = π) β ((2βπ) Β· π‘) β β) |
27 | 18, 26 | eqeltrrd 2835 |
. . . . . . . . 9
β’ ((((π΄ β (π β© π
) β§ π‘ β β) β§ π β (bitsβ(π΄βπ‘))) β§ ((2βπ) Β· π‘) = π) β π β β) |
28 | 27 | rexlimdva2 3158 |
. . . . . . . 8
β’ ((π΄ β (π β© π
) β§ π‘ β β) β (βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β π β β)) |
29 | 28 | rexlimdva 3156 |
. . . . . . 7
β’ (π΄ β (π β© π
) β (βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β π β β)) |
30 | 29 | pm4.71rd 564 |
. . . . . 6
β’ (π΄ β (π β© π
) β (βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β (π β β β§ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π))) |
31 | | rex0 4357 |
. . . . . . . . . . . . . . 15
β’ Β¬
βπ β β
((2βπ) Β· π‘) = π |
32 | | simplr 768 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β π‘ β β) |
33 | | simpr 486 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β Β¬ π‘ β (β‘π΄ β β)) |
34 | | eulerpart.p |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π = {π β (β0
βm β) β£ ((β‘π β β) β Fin β§
Ξ£π β β
((πβπ) Β· π) = π)} |
35 | | eulerpart.o |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π = {π β π β£ βπ β (β‘π β β) Β¬ 2 β₯ π} |
36 | | eulerpart.d |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π· = {π β π β£ βπ β β (πβπ) β€ 1} |
37 | | eulerpart.h |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π» = {π β ((π« β0 β©
Fin) βm π½)
β£ (π supp β
)
β Fin} |
38 | | eulerpart.m |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π = (π β π» β¦ {β¨π₯, π¦β© β£ (π₯ β π½ β§ π¦ β (πβπ₯))}) |
39 | | eulerpart.r |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π
= {π β£ (β‘π β β) β
Fin} |
40 | | eulerpart.t |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π = {π β (β0
βm β) β£ (β‘π β β) β π½} |
41 | 34, 35, 36, 1, 2, 37, 38, 39, 40 | eulerpartlemt0 33357 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π΄ β (π β© π
) β (π΄ β (β0
βm β) β§ (β‘π΄ β β) β Fin β§ (β‘π΄ β β) β π½)) |
42 | 41 | simp1bi 1146 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π΄ β (π β© π
) β π΄ β (β0
βm β)) |
43 | | elmapi 8840 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π΄ β (β0
βm β) β π΄:ββΆβ0) |
44 | 42, 43 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π΄ β (π β© π
) β π΄:ββΆβ0) |
45 | 44 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β π΄:ββΆβ0) |
46 | | ffn 6715 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π΄:ββΆβ0 β
π΄ Fn
β) |
47 | | elpreima 7057 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π΄ Fn β β (π‘ β (β‘π΄ β β) β (π‘ β β β§ (π΄βπ‘) β β))) |
48 | 45, 46, 47 | 3syl 18 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β (π‘ β (β‘π΄ β β) β (π‘ β β β§ (π΄βπ‘) β β))) |
49 | 33, 48 | mtbid 324 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β Β¬ (π‘ β β β§ (π΄βπ‘) β β)) |
50 | | imnan 401 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π‘ β β β Β¬
(π΄βπ‘) β β) β Β¬ (π‘ β β β§ (π΄βπ‘) β β)) |
51 | 49, 50 | sylibr 233 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β (π‘ β β β Β¬
(π΄βπ‘) β β)) |
52 | 32, 51 | mpd 15 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β Β¬ (π΄βπ‘) β β) |
53 | 45, 32 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β (π΄βπ‘) β
β0) |
54 | | elnn0 12471 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π΄βπ‘) β β0 β ((π΄βπ‘) β β β¨ (π΄βπ‘) = 0)) |
55 | 53, 54 | sylib 217 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β ((π΄βπ‘) β β β¨ (π΄βπ‘) = 0)) |
56 | | orel1 888 |
. . . . . . . . . . . . . . . . . . 19
β’ (Β¬
(π΄βπ‘) β β β (((π΄βπ‘) β β β¨ (π΄βπ‘) = 0) β (π΄βπ‘) = 0)) |
57 | 52, 55, 56 | sylc 65 |
. . . . . . . . . . . . . . . . . 18
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β (π΄βπ‘) = 0) |
58 | 57 | fveq2d 6893 |
. . . . . . . . . . . . . . . . 17
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β (bitsβ(π΄βπ‘)) = (bitsβ0)) |
59 | | 0bits 16377 |
. . . . . . . . . . . . . . . . 17
β’
(bitsβ0) = β
|
60 | 58, 59 | eqtrdi 2789 |
. . . . . . . . . . . . . . . 16
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β (bitsβ(π΄βπ‘)) = β
) |
61 | 60 | rexeqdv 3327 |
. . . . . . . . . . . . . . 15
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β (βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β βπ β β
((2βπ) Β· π‘) = π)) |
62 | 31, 61 | mtbiri 327 |
. . . . . . . . . . . . . 14
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β (β‘π΄ β β)) β Β¬ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π) |
63 | 62 | ex 414 |
. . . . . . . . . . . . 13
β’ ((π΄ β (π β© π
) β§ π‘ β β) β (Β¬ π‘ β (β‘π΄ β β) β Β¬ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
64 | 63 | con4d 115 |
. . . . . . . . . . . 12
β’ ((π΄ β (π β© π
) β§ π‘ β β) β (βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β π‘ β (β‘π΄ β β))) |
65 | 64 | impr 456 |
. . . . . . . . . . 11
β’ ((π΄ β (π β© π
) β§ (π‘ β β β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) β π‘ β (β‘π΄ β β)) |
66 | | eldif 3958 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π‘ β (β β π½) β (π‘ β β β§ Β¬ π‘ β π½)) |
67 | 34, 35, 36, 1, 2, 37, 38, 39, 40 | eulerpartlemf 33358 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π΄ β (π β© π
) β§ π‘ β (β β π½)) β (π΄βπ‘) = 0) |
68 | 66, 67 | sylan2br 596 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π΄ β (π β© π
) β§ (π‘ β β β§ Β¬ π‘ β π½)) β (π΄βπ‘) = 0) |
69 | 68 | anassrs 469 |
. . . . . . . . . . . . . . . . . 18
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β π½) β (π΄βπ‘) = 0) |
70 | 69 | fveq2d 6893 |
. . . . . . . . . . . . . . . . 17
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β π½) β (bitsβ(π΄βπ‘)) = (bitsβ0)) |
71 | 70, 59 | eqtrdi 2789 |
. . . . . . . . . . . . . . . 16
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β π½) β (bitsβ(π΄βπ‘)) = β
) |
72 | 71 | rexeqdv 3327 |
. . . . . . . . . . . . . . 15
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β π½) β (βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β βπ β β
((2βπ) Β· π‘) = π)) |
73 | 31, 72 | mtbiri 327 |
. . . . . . . . . . . . . 14
β’ (((π΄ β (π β© π
) β§ π‘ β β) β§ Β¬ π‘ β π½) β Β¬ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π) |
74 | 73 | ex 414 |
. . . . . . . . . . . . 13
β’ ((π΄ β (π β© π
) β§ π‘ β β) β (Β¬ π‘ β π½ β Β¬ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
75 | 74 | con4d 115 |
. . . . . . . . . . . 12
β’ ((π΄ β (π β© π
) β§ π‘ β β) β (βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β π‘ β π½)) |
76 | 75 | impr 456 |
. . . . . . . . . . 11
β’ ((π΄ β (π β© π
) β§ (π‘ β β β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) β π‘ β π½) |
77 | 65, 76 | elind 4194 |
. . . . . . . . . 10
β’ ((π΄ β (π β© π
) β§ (π‘ β β β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) β π‘ β ((β‘π΄ β β) β© π½)) |
78 | | simprr 772 |
. . . . . . . . . 10
β’ ((π΄ β (π β© π
) β§ (π‘ β β β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π) |
79 | 77, 78 | jca 513 |
. . . . . . . . 9
β’ ((π΄ β (π β© π
) β§ (π‘ β β β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) β (π‘ β ((β‘π΄ β β) β© π½) β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
80 | 79 | ex 414 |
. . . . . . . 8
β’ (π΄ β (π β© π
) β ((π‘ β β β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π) β (π‘ β ((β‘π΄ β β) β© π½) β§ βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π))) |
81 | 80 | reximdv2 3165 |
. . . . . . 7
β’ (π΄ β (π β© π
) β (βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
82 | | ssrab2 4077 |
. . . . . . . . . 10
β’ {π§ β β β£ Β¬ 2
β₯ π§} β
β |
83 | 1, 82 | eqsstri 4016 |
. . . . . . . . 9
β’ π½ β
β |
84 | 8, 83 | sstri 3991 |
. . . . . . . 8
β’ ((β‘π΄ β β) β© π½) β β |
85 | | ssrexv 4051 |
. . . . . . . 8
β’ (((β‘π΄ β β) β© π½) β β β (βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
86 | 84, 85 | mp1i 13 |
. . . . . . 7
β’ (π΄ β (π β© π
) β (βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
87 | 81, 86 | impbid 211 |
. . . . . 6
β’ (π΄ β (π β© π
) β (βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
88 | 30, 87 | bitr3d 281 |
. . . . 5
β’ (π΄ β (π β© π
) β ((π β β β§ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π) β βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
89 | | eqeq2 2745 |
. . . . . . . 8
β’ (π = π β (((2βπ) Β· π‘) = π β ((2βπ) Β· π‘) = π)) |
90 | 89 | 2rexbidv 3220 |
. . . . . . 7
β’ (π = π β (βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π β βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
91 | 90 | elrab 3683 |
. . . . . 6
β’ (π β {π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π} β (π β β β§ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
92 | 91 | a1i 11 |
. . . . 5
β’ (π΄ β (π β© π
) β (π β {π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π} β (π β β β§ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π))) |
93 | 6 | imaeq2i 6056 |
. . . . . . . . 9
β’ (πΉ β π) = (πΉ β βͺ
π‘ β ((β‘π΄ β β) β© π½)({π‘} Γ (bitsβ(π΄βπ‘)))) |
94 | | imaiun 7241 |
. . . . . . . . 9
β’ (πΉ β βͺ π‘ β ((β‘π΄ β β) β© π½)({π‘} Γ (bitsβ(π΄βπ‘)))) = βͺ
π‘ β ((β‘π΄ β β) β© π½)(πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) |
95 | 93, 94 | eqtri 2761 |
. . . . . . . 8
β’ (πΉ β π) = βͺ
π‘ β ((β‘π΄ β β) β© π½)(πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) |
96 | 95 | eleq2i 2826 |
. . . . . . 7
β’ (π β (πΉ β π) β π β βͺ
π‘ β ((β‘π΄ β β) β© π½)(πΉ β ({π‘} Γ (bitsβ(π΄βπ‘))))) |
97 | | eliun 5001 |
. . . . . . 7
β’ (π β βͺ π‘ β ((β‘π΄ β β) β© π½)(πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) β βπ‘ β ((β‘π΄ β β) β© π½)π β (πΉ β ({π‘} Γ (bitsβ(π΄βπ‘))))) |
98 | | f1ofn 6832 |
. . . . . . . . . . . . 13
β’ (πΉ:(π½ Γ β0)β1-1-ontoββ β πΉ Fn (π½ Γ
β0)) |
99 | 3, 98 | ax-mp 5 |
. . . . . . . . . . . 12
β’ πΉ Fn (π½ Γ
β0) |
100 | | snssi 4811 |
. . . . . . . . . . . . 13
β’ (π‘ β π½ β {π‘} β π½) |
101 | 100, 11, 12 | sylancl 587 |
. . . . . . . . . . . 12
β’ (π‘ β π½ β ({π‘} Γ (bitsβ(π΄βπ‘))) β (π½ Γ
β0)) |
102 | | ovelimab 7582 |
. . . . . . . . . . . 12
β’ ((πΉ Fn (π½ Γ β0) β§ ({π‘} Γ (bitsβ(π΄βπ‘))) β (π½ Γ β0)) β (π β (πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) β βπ₯ β {π‘}βπ β (bitsβ(π΄βπ‘))π = (π₯πΉπ))) |
103 | 99, 101, 102 | sylancr 588 |
. . . . . . . . . . 11
β’ (π‘ β π½ β (π β (πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) β βπ₯ β {π‘}βπ β (bitsβ(π΄βπ‘))π = (π₯πΉπ))) |
104 | | vex 3479 |
. . . . . . . . . . . 12
β’ π‘ β V |
105 | | oveq1 7413 |
. . . . . . . . . . . . . 14
β’ (π₯ = π‘ β (π₯πΉπ) = (π‘πΉπ)) |
106 | 105 | eqeq2d 2744 |
. . . . . . . . . . . . 13
β’ (π₯ = π‘ β (π = (π₯πΉπ) β π = (π‘πΉπ))) |
107 | 106 | rexbidv 3179 |
. . . . . . . . . . . 12
β’ (π₯ = π‘ β (βπ β (bitsβ(π΄βπ‘))π = (π₯πΉπ) β βπ β (bitsβ(π΄βπ‘))π = (π‘πΉπ))) |
108 | 104, 107 | rexsn 4686 |
. . . . . . . . . . 11
β’
(βπ₯ β
{π‘}βπ β (bitsβ(π΄βπ‘))π = (π₯πΉπ) β βπ β (bitsβ(π΄βπ‘))π = (π‘πΉπ)) |
109 | 103, 108 | bitrdi 287 |
. . . . . . . . . 10
β’ (π‘ β π½ β (π β (πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) β βπ β (bitsβ(π΄βπ‘))π = (π‘πΉπ))) |
110 | | df-ov 7409 |
. . . . . . . . . . . . . . 15
β’ (π‘πΉπ) = (πΉββ¨π‘, πβ©) |
111 | 110 | eqeq1i 2738 |
. . . . . . . . . . . . . 14
β’ ((π‘πΉπ) = π β (πΉββ¨π‘, πβ©) = π) |
112 | | eqcom 2740 |
. . . . . . . . . . . . . 14
β’ ((π‘πΉπ) = π β π = (π‘πΉπ)) |
113 | 111, 112 | bitr3i 277 |
. . . . . . . . . . . . 13
β’ ((πΉββ¨π‘, πβ©) = π β π = (π‘πΉπ)) |
114 | | opelxpi 5713 |
. . . . . . . . . . . . . . 15
β’ ((π‘ β π½ β§ π β β0) β
β¨π‘, πβ© β (π½ Γ
β0)) |
115 | 1, 2 | oddpwdcv 33343 |
. . . . . . . . . . . . . . . 16
β’
(β¨π‘, πβ© β (π½ Γ β0) β (πΉββ¨π‘, πβ©) = ((2β(2nd
ββ¨π‘, πβ©)) Β·
(1st ββ¨π‘, πβ©))) |
116 | | vex 3479 |
. . . . . . . . . . . . . . . . . . 19
β’ π β V |
117 | 104, 116 | op2nd 7981 |
. . . . . . . . . . . . . . . . . 18
β’
(2nd ββ¨π‘, πβ©) = π |
118 | 117 | oveq2i 7417 |
. . . . . . . . . . . . . . . . 17
β’
(2β(2nd ββ¨π‘, πβ©)) = (2βπ) |
119 | 104, 116 | op1st 7980 |
. . . . . . . . . . . . . . . . 17
β’
(1st ββ¨π‘, πβ©) = π‘ |
120 | 118, 119 | oveq12i 7418 |
. . . . . . . . . . . . . . . 16
β’
((2β(2nd ββ¨π‘, πβ©)) Β· (1st
ββ¨π‘, πβ©)) = ((2βπ) Β· π‘) |
121 | 115, 120 | eqtrdi 2789 |
. . . . . . . . . . . . . . 15
β’
(β¨π‘, πβ© β (π½ Γ β0) β (πΉββ¨π‘, πβ©) = ((2βπ) Β· π‘)) |
122 | 114, 121 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π‘ β π½ β§ π β β0) β (πΉββ¨π‘, πβ©) = ((2βπ) Β· π‘)) |
123 | 122 | eqeq1d 2735 |
. . . . . . . . . . . . 13
β’ ((π‘ β π½ β§ π β β0) β ((πΉββ¨π‘, πβ©) = π β ((2βπ) Β· π‘) = π)) |
124 | 113, 123 | bitr3id 285 |
. . . . . . . . . . . 12
β’ ((π‘ β π½ β§ π β β0) β (π = (π‘πΉπ) β ((2βπ) Β· π‘) = π)) |
125 | 21, 124 | sylan2 594 |
. . . . . . . . . . 11
β’ ((π‘ β π½ β§ π β (bitsβ(π΄βπ‘))) β (π = (π‘πΉπ) β ((2βπ) Β· π‘) = π)) |
126 | 125 | rexbidva 3177 |
. . . . . . . . . 10
β’ (π‘ β π½ β (βπ β (bitsβ(π΄βπ‘))π = (π‘πΉπ) β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
127 | 109, 126 | bitrd 279 |
. . . . . . . . 9
β’ (π‘ β π½ β (π β (πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
128 | 9, 127 | syl 17 |
. . . . . . . 8
β’ (π‘ β ((β‘π΄ β β) β© π½) β (π β (πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
129 | 128 | rexbiia 3093 |
. . . . . . 7
β’
(βπ‘ β
((β‘π΄ β β) β© π½)π β (πΉ β ({π‘} Γ (bitsβ(π΄βπ‘)))) β βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π) |
130 | 96, 97, 129 | 3bitri 297 |
. . . . . 6
β’ (π β (πΉ β π) β βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π) |
131 | 130 | a1i 11 |
. . . . 5
β’ (π΄ β (π β© π
) β (π β (πΉ β π) β βπ‘ β ((β‘π΄ β β) β© π½)βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π)) |
132 | 88, 92, 131 | 3bitr4rd 312 |
. . . 4
β’ (π΄ β (π β© π
) β (π β (πΉ β π) β π β {π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π})) |
133 | 132 | eqrdv 2731 |
. . 3
β’ (π΄ β (π β© π
) β (πΉ β π) = {π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π}) |
134 | | f1oeq3 6821 |
. . 3
β’ ((πΉ β π) = {π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π} β ((πΉ βΎ π):πβ1-1-ontoβ(πΉ β π) β (πΉ βΎ π):πβ1-1-ontoβ{π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π})) |
135 | 133, 134 | syl 17 |
. 2
β’ (π΄ β (π β© π
) β ((πΉ βΎ π):πβ1-1-ontoβ(πΉ β π) β (πΉ βΎ π):πβ1-1-ontoβ{π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π})) |
136 | 17, 135 | mpbii 232 |
1
β’ (π΄ β (π β© π
) β (πΉ βΎ π):πβ1-1-ontoβ{π β β β£ βπ‘ β β βπ β (bitsβ(π΄βπ‘))((2βπ) Β· π‘) = π}) |