Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  oddpwdc Structured version   Visualization version   GIF version

Theorem oddpwdc 33342
Description: Lemma for eulerpart 33370. The function ๐น that decomposes a number into its "odd" and "even" parts, which is to say the largest power of two and largest odd divisor of a number, is a bijection from pairs of a nonnegative integer and an odd number to positive integers. (Contributed by Thierry Arnoux, 15-Aug-2017.)
Hypotheses
Ref Expression
oddpwdc.j ๐ฝ = {๐‘ง โˆˆ โ„• โˆฃ ยฌ 2 โˆฅ ๐‘ง}
oddpwdc.f ๐น = (๐‘ฅ โˆˆ ๐ฝ, ๐‘ฆ โˆˆ โ„•0 โ†ฆ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
Assertion
Ref Expression
oddpwdc ๐น:(๐ฝ ร— โ„•0)โ€“1-1-ontoโ†’โ„•
Distinct variable groups:   ๐‘ฅ,๐‘ฆ,๐‘ง   ๐‘ฅ,๐ฝ,๐‘ฆ
Allowed substitution hints:   ๐น(๐‘ฅ,๐‘ฆ,๐‘ง)   ๐ฝ(๐‘ง)

Proof of Theorem oddpwdc
Dummy variables ๐‘˜ ๐‘Ž ๐‘™ ๐‘š ๐‘› ๐‘œ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oddpwdc.f . . 3 ๐น = (๐‘ฅ โˆˆ ๐ฝ, ๐‘ฆ โˆˆ โ„•0 โ†ฆ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
2 2nn 12282 . . . . . . . 8 2 โˆˆ โ„•
32a1i 11 . . . . . . 7 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ 2 โˆˆ โ„•)
4 simpl 484 . . . . . . 7 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ๐‘ฆ โˆˆ โ„•0)
53, 4nnexpcld 14205 . . . . . 6 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
6 oddpwdc.j . . . . . . . 8 ๐ฝ = {๐‘ง โˆˆ โ„• โˆฃ ยฌ 2 โˆฅ ๐‘ง}
7 ssrab2 4077 . . . . . . . 8 {๐‘ง โˆˆ โ„• โˆฃ ยฌ 2 โˆฅ ๐‘ง} โŠ† โ„•
86, 7eqsstri 4016 . . . . . . 7 ๐ฝ โŠ† โ„•
9 simpr 486 . . . . . . 7 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ๐‘ฅ โˆˆ ๐ฝ)
108, 9sselid 3980 . . . . . 6 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ๐‘ฅ โˆˆ โ„•)
115, 10nnmulcld 12262 . . . . 5 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
1211ancoms 460 . . . 4 ((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
1312adantl 483 . . 3 ((โŠค โˆง (๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0)) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
14 id 22 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž โˆˆ โ„•)
152a1i 11 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ 2 โˆˆ โ„•)
16 nn0ssre 12473 . . . . . . . . . . 11 โ„•0 โŠ† โ„
17 ltso 11291 . . . . . . . . . . 11 < Or โ„
18 soss 5608 . . . . . . . . . . 11 (โ„•0 โŠ† โ„ โ†’ ( < Or โ„ โ†’ < Or โ„•0))
1916, 17, 18mp2 9 . . . . . . . . . 10 < Or โ„•0
2019a1i 11 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ < Or โ„•0)
21 0zd 12567 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ 0 โˆˆ โ„ค)
22 ssrab2 4077 . . . . . . . . . . 11 {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0
2322a1i 11 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0)
24 nnz 12576 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž โˆˆ โ„ค)
25 oveq2 7414 . . . . . . . . . . . . . . 15 (๐‘˜ = ๐‘› โ†’ (2โ†‘๐‘˜) = (2โ†‘๐‘›))
2625breq1d 5158 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘› โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘๐‘›) โˆฅ ๐‘Ž))
2726elrab 3683 . . . . . . . . . . . . 13 (๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž))
28 simprl 770 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โˆˆ โ„•0)
2928nn0red 12530 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โˆˆ โ„)
302a1i 11 . . . . . . . . . . . . . . . 16 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ 2 โˆˆ โ„•)
3130, 28nnexpcld 14205 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆˆ โ„•)
3231nnred 12224 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆˆ โ„)
33 simpl 484 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘Ž โˆˆ โ„•)
3433nnred 12224 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘Ž โˆˆ โ„)
35 2re 12283 . . . . . . . . . . . . . . . 16 2 โˆˆ โ„
3635leidi 11745 . . . . . . . . . . . . . . . 16 2 โ‰ค 2
37 nexple 32996 . . . . . . . . . . . . . . . 16 ((๐‘› โˆˆ โ„•0 โˆง 2 โˆˆ โ„ โˆง 2 โ‰ค 2) โ†’ ๐‘› โ‰ค (2โ†‘๐‘›))
3835, 36, 37mp3an23 1454 . . . . . . . . . . . . . . 15 (๐‘› โˆˆ โ„•0 โ†’ ๐‘› โ‰ค (2โ†‘๐‘›))
3938ad2antrl 727 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โ‰ค (2โ†‘๐‘›))
4031nnzd 12582 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆˆ โ„ค)
41 simprr 772 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆฅ ๐‘Ž)
42 dvdsle 16250 . . . . . . . . . . . . . . . 16 (((2โ†‘๐‘›) โˆˆ โ„ค โˆง ๐‘Ž โˆˆ โ„•) โ†’ ((2โ†‘๐‘›) โˆฅ ๐‘Ž โ†’ (2โ†‘๐‘›) โ‰ค ๐‘Ž))
4342imp 408 . . . . . . . . . . . . . . 15 ((((2โ†‘๐‘›) โˆˆ โ„ค โˆง ๐‘Ž โˆˆ โ„•) โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž) โ†’ (2โ†‘๐‘›) โ‰ค ๐‘Ž)
4440, 33, 41, 43syl21anc 837 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โ‰ค ๐‘Ž)
4529, 32, 34, 39, 44letrd 11368 . . . . . . . . . . . . 13 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โ‰ค ๐‘Ž)
4627, 45sylan2b 595 . . . . . . . . . . . 12 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โ‰ค ๐‘Ž)
4746ralrimiva 3147 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘Ž)
48 brralrspcev 5208 . . . . . . . . . . 11 ((๐‘Ž โˆˆ โ„ค โˆง โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘Ž) โ†’ โˆƒ๐‘š โˆˆ โ„ค โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘š)
4924, 47, 48syl2anc 585 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ โˆƒ๐‘š โˆˆ โ„ค โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘š)
50 nn0uz 12861 . . . . . . . . . . 11 โ„•0 = (โ„คโ‰ฅโ€˜0)
5150uzsupss 12921 . . . . . . . . . 10 ((0 โˆˆ โ„ค โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0 โˆง โˆƒ๐‘š โˆˆ โ„ค โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘š) โ†’ โˆƒ๐‘š โˆˆ โ„•0 (โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} ยฌ ๐‘š < ๐‘› โˆง โˆ€๐‘› โˆˆ โ„•0 (๐‘› < ๐‘š โ†’ โˆƒ๐‘œ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› < ๐‘œ)))
5221, 23, 49, 51syl3anc 1372 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ โˆƒ๐‘š โˆˆ โ„•0 (โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} ยฌ ๐‘š < ๐‘› โˆง โˆ€๐‘› โˆˆ โ„•0 (๐‘› < ๐‘š โ†’ โˆƒ๐‘œ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› < ๐‘œ)))
5320, 52supcl 9450 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0)
5415, 53nnexpcld 14205 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„•)
55 fzfi 13934 . . . . . . . . . . . 12 (0...๐‘Ž) โˆˆ Fin
56 0zd 12567 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ 0 โˆˆ โ„ค)
5724adantr 482 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘Ž โˆˆ โ„ค)
5827, 28sylan2b 595 . . . . . . . . . . . . . . . 16 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โˆˆ โ„•0)
5958nn0zd 12581 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โˆˆ โ„ค)
6058nn0ge0d 12532 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ 0 โ‰ค ๐‘›)
6156, 57, 59, 60, 46elfzd 13489 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โˆˆ (0...๐‘Ž))
6261ex 414 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ (๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†’ ๐‘› โˆˆ (0...๐‘Ž)))
6362ssrdv 3988 . . . . . . . . . . . 12 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† (0...๐‘Ž))
64 ssfi 9170 . . . . . . . . . . . 12 (((0...๐‘Ž) โˆˆ Fin โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† (0...๐‘Ž)) โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โˆˆ Fin)
6555, 63, 64sylancr 588 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โˆˆ Fin)
66 0nn0 12484 . . . . . . . . . . . . . 14 0 โˆˆ โ„•0
6766a1i 11 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ 0 โˆˆ โ„•0)
68 2cn 12284 . . . . . . . . . . . . . . 15 2 โˆˆ โ„‚
69 exp0 14028 . . . . . . . . . . . . . . 15 (2 โˆˆ โ„‚ โ†’ (2โ†‘0) = 1)
7068, 69ax-mp 5 . . . . . . . . . . . . . 14 (2โ†‘0) = 1
71 1dvds 16211 . . . . . . . . . . . . . . 15 (๐‘Ž โˆˆ โ„ค โ†’ 1 โˆฅ ๐‘Ž)
7224, 71syl 17 . . . . . . . . . . . . . 14 (๐‘Ž โˆˆ โ„• โ†’ 1 โˆฅ ๐‘Ž)
7370, 72eqbrtrid 5183 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘0) โˆฅ ๐‘Ž)
74 oveq2 7414 . . . . . . . . . . . . . . 15 (๐‘˜ = 0 โ†’ (2โ†‘๐‘˜) = (2โ†‘0))
7574breq1d 5158 . . . . . . . . . . . . . 14 (๐‘˜ = 0 โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘0) โˆฅ ๐‘Ž))
7675elrab 3683 . . . . . . . . . . . . 13 (0 โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (0 โˆˆ โ„•0 โˆง (2โ†‘0) โˆฅ ๐‘Ž))
7767, 73, 76sylanbrc 584 . . . . . . . . . . . 12 (๐‘Ž โˆˆ โ„• โ†’ 0 โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
7877ne0d 4335 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ‰  โˆ…)
79 fisupcl 9461 . . . . . . . . . . 11 (( < Or โ„•0 โˆง ({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โˆˆ Fin โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ‰  โˆ… โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0)) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
8020, 65, 78, 23, 79syl13anc 1373 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
81 oveq2 7414 . . . . . . . . . . . 12 (๐‘˜ = ๐‘™ โ†’ (2โ†‘๐‘˜) = (2โ†‘๐‘™))
8281breq1d 5158 . . . . . . . . . . 11 (๐‘˜ = ๐‘™ โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘๐‘™) โˆฅ ๐‘Ž))
8382cbvrabv 3443 . . . . . . . . . 10 {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} = {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž}
8480, 83eleqtrdi 2844 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž})
85 oveq2 7414 . . . . . . . . . . 11 (๐‘™ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†’ (2โ†‘๐‘™) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
8685breq1d 5158 . . . . . . . . . 10 (๐‘™ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†’ ((2โ†‘๐‘™) โˆฅ ๐‘Ž โ†” (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž))
8786elrab 3683 . . . . . . . . 9 (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž} โ†” (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0 โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž))
8884, 87sylib 217 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0 โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž))
8988simprd 497 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž)
90 nndivdvds 16203 . . . . . . . 8 ((๐‘Ž โˆˆ โ„• โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„•) โ†’ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž โ†” (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„•))
9190biimpa 478 . . . . . . 7 (((๐‘Ž โˆˆ โ„• โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„•) โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„•)
9214, 54, 89, 91syl21anc 837 . . . . . 6 (๐‘Ž โˆˆ โ„• โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„•)
93 1nn0 12485 . . . . . . . . . . 11 1 โˆˆ โ„•0
9493a1i 11 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ 1 โˆˆ โ„•0)
9553, 94nn0addcld 12533 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0)
9653nn0red 12530 . . . . . . . . . . . . . 14 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„)
9796ltp1d 12141 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1))
9820, 52supub 9451 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†’ ยฌ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)))
9997, 98mt2d 136 . . . . . . . . . . . 12 (๐‘Ž โˆˆ โ„• โ†’ ยฌ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
10083eleq2i 2826 . . . . . . . . . . . 12 ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž})
10199, 100sylnib 328 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ ยฌ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž})
102 oveq2 7414 . . . . . . . . . . . . 13 (๐‘™ = (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โ†’ (2โ†‘๐‘™) = (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)))
103102breq1d 5158 . . . . . . . . . . . 12 (๐‘™ = (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โ†’ ((2โ†‘๐‘™) โˆฅ ๐‘Ž โ†” (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
104103elrab 3683 . . . . . . . . . . 11 ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž} โ†” ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0 โˆง (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
105101, 104sylnib 328 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ ยฌ ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0 โˆง (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
106 imnan 401 . . . . . . . . . 10 (((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0 โ†’ ยฌ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž) โ†” ยฌ ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0 โˆง (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
107105, 106sylibr 233 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0 โ†’ ยฌ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
10895, 107mpd 15 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ ยฌ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž)
109 expp1 14031 . . . . . . . . . 10 ((2 โˆˆ โ„‚ โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2))
11068, 53, 109sylancr 588 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2))
111110breq1d 5158 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž โ†” ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž))
112108, 111mtbid 324 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ ยฌ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž)
113 nncn 12217 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž โˆˆ โ„‚)
11454nncnd 12225 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„‚)
11554nnne0d 12259 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ‰  0)
116113, 114, 115divcan2d 11989 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) = ๐‘Ž)
117116eqcomd 2739 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
118117breq2d 5160 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ (((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž โ†” ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))))
11915nnzd 12582 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ 2 โˆˆ โ„ค)
12092nnzd 12582 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„ค)
12154nnzd 12582 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„ค)
122 dvdscmulr 16225 . . . . . . . . 9 ((2 โˆˆ โ„ค โˆง (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„ค โˆง ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„ค โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ‰  0)) โ†’ (((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) โ†” 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
123119, 120, 121, 115, 122syl112anc 1375 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ (((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) โ†” 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
124118, 123bitrd 279 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ (((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž โ†” 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
125112, 124mtbid 324 . . . . . 6 (๐‘Ž โˆˆ โ„• โ†’ ยฌ 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
126 breq2 5152 . . . . . . . 8 (๐‘ง = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (2 โˆฅ ๐‘ง โ†” 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
127126notbid 318 . . . . . . 7 (๐‘ง = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (ยฌ 2 โˆฅ ๐‘ง โ†” ยฌ 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
128127, 6elrab2 3686 . . . . . 6 ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ โ†” ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„• โˆง ยฌ 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
12992, 125, 128sylanbrc 584 . . . . 5 (๐‘Ž โˆˆ โ„• โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ)
130129, 53jca 513 . . . 4 (๐‘Ž โˆˆ โ„• โ†’ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0))
131130adantl 483 . . 3 ((โŠค โˆง ๐‘Ž โˆˆ โ„•) โ†’ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0))
132 simpr 486 . . . . . . 7 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
1332a1i 11 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ 2 โˆˆ โ„•)
134 simplr 768 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ โˆˆ โ„•0)
135133, 134nnexpcld 14205 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
1368sseli 3978 . . . . . . . . 9 (๐‘ฅ โˆˆ ๐ฝ โ†’ ๐‘ฅ โˆˆ โ„•)
137136ad2antrr 725 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฅ โˆˆ โ„•)
138135, 137nnmulcld 12262 . . . . . . 7 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
139132, 138eqeltrd 2834 . . . . . 6 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘Ž โˆˆ โ„•)
140 simplll 774 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ ๐ฝ)
141 breq2 5152 . . . . . . . . . . . . . 14 (๐‘ง = ๐‘ฅ โ†’ (2 โˆฅ ๐‘ง โ†” 2 โˆฅ ๐‘ฅ))
142141notbid 318 . . . . . . . . . . . . 13 (๐‘ง = ๐‘ฅ โ†’ (ยฌ 2 โˆฅ ๐‘ง โ†” ยฌ 2 โˆฅ ๐‘ฅ))
143142, 6elrab2 3686 . . . . . . . . . . . 12 (๐‘ฅ โˆˆ ๐ฝ โ†” (๐‘ฅ โˆˆ โ„• โˆง ยฌ 2 โˆฅ ๐‘ฅ))
144143simprbi 498 . . . . . . . . . . 11 (๐‘ฅ โˆˆ ๐ฝ โ†’ ยฌ 2 โˆฅ ๐‘ฅ)
145 2z 12591 . . . . . . . . . . . . . 14 2 โˆˆ โ„ค
146134adantr 482 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ โˆˆ โ„•0)
147146nn0zd 12581 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ โˆˆ โ„ค)
14819a1i 11 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ < Or โ„•0)
149139, 52syl 17 . . . . . . . . . . . . . . . . . 18 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ โˆƒ๐‘š โˆˆ โ„•0 (โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} ยฌ ๐‘š < ๐‘› โˆง โˆ€๐‘› โˆˆ โ„•0 (๐‘› < ๐‘š โ†’ โˆƒ๐‘œ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› < ๐‘œ)))
150149adantr 482 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ โˆƒ๐‘š โˆˆ โ„•0 (โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} ยฌ ๐‘š < ๐‘› โˆง โˆ€๐‘› โˆˆ โ„•0 (๐‘› < ๐‘š โ†’ โˆƒ๐‘œ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› < ๐‘œ)))
151148, 150supcl 9450 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0)
152151nn0zd 12581 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„ค)
153 simpr 486 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
154 znnsub 12605 . . . . . . . . . . . . . . . 16 ((๐‘ฆ โˆˆ โ„ค โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„ค) โ†’ (๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†” (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•))
155154biimpa 478 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ โ„ค โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„ค) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•)
156147, 152, 153, 155syl21anc 837 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•)
157 iddvdsexp 16220 . . . . . . . . . . . . . 14 ((2 โˆˆ โ„ค โˆง (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•) โ†’ 2 โˆฅ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)))
158145, 156, 157sylancr 588 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โˆฅ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)))
159145a1i 11 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โˆˆ โ„ค)
160139, 120syl 17 . . . . . . . . . . . . . . 15 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„ค)
161160adantr 482 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„ค)
162156nnnn0d 12529 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•0)
163 zexpcl 14039 . . . . . . . . . . . . . . 15 ((2 โˆˆ โ„ค โˆง (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•0) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โˆˆ โ„ค)
164145, 162, 163sylancr 588 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โˆˆ โ„ค)
165 dvdsmultr2 16238 . . . . . . . . . . . . . 14 ((2 โˆˆ โ„ค โˆง (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„ค โˆง (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โˆˆ โ„ค) โ†’ (2 โˆฅ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โ†’ 2 โˆฅ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)))))
166159, 161, 164, 165syl3anc 1372 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2 โˆฅ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โ†’ 2 โˆฅ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)))))
167158, 166mpd 15 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โˆฅ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))))
168137adantr 482 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„•)
169168nncnd 12225 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„‚)
170 2cnd 12287 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โˆˆ โ„‚)
171170, 162expcld 14108 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โˆˆ โ„‚)
172139adantr 482 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„•)
173172nncnd 12225 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„‚)
174172, 114syl 17 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„‚)
175 2ne0 12313 . . . . . . . . . . . . . . . . . 18 2 โ‰  0
176175a1i 11 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โ‰  0)
177170, 176, 152expne0d 14114 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ‰  0)
178173, 174, 177divcld 11987 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„‚)
179171, 178mulcld 11231 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) โˆˆ โ„‚)
180170, 146expcld 14108 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„‚)
181170, 176, 147expne0d 14114 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘๐‘ฆ) โ‰  0)
182172, 117syl 17 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
183 simplr 768 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
184146nn0cnd 12531 . . . . . . . . . . . . . . . . . . . 20 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ โˆˆ โ„‚)
185151nn0cnd 12531 . . . . . . . . . . . . . . . . . . . 20 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„‚)
186184, 185pncan3d 11571 . . . . . . . . . . . . . . . . . . 19 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘ฆ + (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
187186oveq2d 7422 . . . . . . . . . . . . . . . . . 18 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(๐‘ฆ + (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
188170, 162, 146expaddd 14110 . . . . . . . . . . . . . . . . . 18 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(๐‘ฆ + (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) = ((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))))
189187, 188eqtr3d 2775 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) = ((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))))
190189oveq1d 7421 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) = (((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
191182, 183, 1903eqtr3d 2781 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = (((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
192180, 171, 178mulassd 11234 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) = ((2โ†‘๐‘ฆ) ยท ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))))
193191, 192eqtrd 2773 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = ((2โ†‘๐‘ฆ) ยท ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))))
194169, 179, 180, 181, 193mulcanad 11846 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ = ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
195178, 171mulcomd 11232 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) = ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
196194, 195eqtr4d 2776 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ = ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))))
197167, 196breqtrrd 5176 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โˆฅ ๐‘ฅ)
198144, 197nsyl3 138 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ยฌ ๐‘ฅ โˆˆ ๐ฝ)
199140, 198pm2.65da 816 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ยฌ ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
200137nnzd 12582 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฅ โˆˆ โ„ค)
201135nnzd 12582 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„ค)
202139nnzd 12582 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘Ž โˆˆ โ„ค)
203135nncnd 12225 . . . . . . . . . . . . . 14 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„‚)
204137nncnd 12225 . . . . . . . . . . . . . 14 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฅ โˆˆ โ„‚)
205203, 204mulcomd 11232 . . . . . . . . . . . . 13 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = (๐‘ฅ ยท (2โ†‘๐‘ฆ)))
206132, 205eqtr2d 2774 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฅ ยท (2โ†‘๐‘ฆ)) = ๐‘Ž)
207 dvds0lem 16207 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ โ„ค โˆง (2โ†‘๐‘ฆ) โˆˆ โ„ค โˆง ๐‘Ž โˆˆ โ„ค) โˆง (๐‘ฅ ยท (2โ†‘๐‘ฆ)) = ๐‘Ž) โ†’ (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž)
208200, 201, 202, 206, 207syl31anc 1374 . . . . . . . . . . 11 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž)
209 oveq2 7414 . . . . . . . . . . . . 13 (๐‘˜ = ๐‘ฆ โ†’ (2โ†‘๐‘˜) = (2โ†‘๐‘ฆ))
210209breq1d 5158 . . . . . . . . . . . 12 (๐‘˜ = ๐‘ฆ โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž))
211210elrab 3683 . . . . . . . . . . 11 (๐‘ฆ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (๐‘ฆ โˆˆ โ„•0 โˆง (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž))
212134, 208, 211sylanbrc 584 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
21319a1i 11 . . . . . . . . . . 11 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ < Or โ„•0)
214213, 149supub 9451 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†’ ยฌ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < ๐‘ฆ))
215212, 214mpd 15 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ยฌ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < ๐‘ฆ)
216134nn0red 12530 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ โˆˆ โ„)
217139, 96syl 17 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„)
218216, 217lttri3d 11351 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†” (ยฌ ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆง ยฌ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < ๐‘ฆ)))
219199, 215, 218mpbir2and 712 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
220 simplr 768 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
221139adantr 482 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„•)
222221nncnd 12225 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„‚)
223137adantr 482 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„•)
224223nncnd 12225 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„‚)
225 nnexpcl 14037 . . . . . . . . . . . . . . . 16 ((2 โˆˆ โ„• โˆง ๐‘ฆ โˆˆ โ„•0) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
2262, 225mpan 689 . . . . . . . . . . . . . . 15 (๐‘ฆ โˆˆ โ„•0 โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
227226nncnd 12225 . . . . . . . . . . . . . 14 (๐‘ฆ โˆˆ โ„•0 โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„‚)
228226nnne0d 12259 . . . . . . . . . . . . . 14 (๐‘ฆ โˆˆ โ„•0 โ†’ (2โ†‘๐‘ฆ) โ‰  0)
229227, 228jca 513 . . . . . . . . . . . . 13 (๐‘ฆ โˆˆ โ„•0 โ†’ ((2โ†‘๐‘ฆ) โˆˆ โ„‚ โˆง (2โ†‘๐‘ฆ) โ‰  0))
230229ad3antlr 730 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘๐‘ฆ) โˆˆ โ„‚ โˆง (2โ†‘๐‘ฆ) โ‰  0))
231 divmul2 11873 . . . . . . . . . . . 12 ((๐‘Ž โˆˆ โ„‚ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ((2โ†‘๐‘ฆ) โˆˆ โ„‚ โˆง (2โ†‘๐‘ฆ) โ‰  0)) โ†’ ((๐‘Ž / (2โ†‘๐‘ฆ)) = ๐‘ฅ โ†” ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)))
232222, 224, 230, 231syl3anc 1372 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((๐‘Ž / (2โ†‘๐‘ฆ)) = ๐‘ฅ โ†” ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)))
233220, 232mpbird 257 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘๐‘ฆ)) = ๐‘ฅ)
234 simpr 486 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
235234oveq2d 7422 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘๐‘ฆ) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
236235oveq2d 7422 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘๐‘ฆ)) = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
237233, 236eqtr3d 2775 . . . . . . . . 9 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
238237ex 414 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†’ ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
239219, 238jcai 518 . . . . . . 7 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆง ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
240239ancomd 463 . . . . . 6 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
241139, 240jca 513 . . . . 5 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
242 simprl 770 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
243129adantr 482 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ)
244242, 243eqeltrd 2834 . . . . . 6 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฅ โˆˆ ๐ฝ)
245 simprr 772 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
24653adantr 482 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0)
247245, 246eqeltrd 2834 . . . . . 6 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฆ โˆˆ โ„•0)
248117adantr 482 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘Ž = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
249245oveq2d 7422 . . . . . . . 8 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (2โ†‘๐‘ฆ) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
250249, 242oveq12d 7424 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
251248, 250eqtr4d 2776 . . . . . 6 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
252244, 247, 251jca31 516 . . . . 5 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)))
253241, 252impbii 208 . . . 4 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†” (๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
254253a1i 11 . . 3 (โŠค โ†’ (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†” (๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
2551, 13, 131, 254f1od2 31934 . 2 (โŠค โ†’ ๐น:(๐ฝ ร— โ„•0)โ€“1-1-ontoโ†’โ„•)
256255mptru 1549 1 ๐น:(๐ฝ ร— โ„•0)โ€“1-1-ontoโ†’โ„•
Colors of variables: wff setvar class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โ†” wb 205   โˆง wa 397   = wceq 1542  โŠคwtru 1543   โˆˆ wcel 2107   โ‰  wne 2941  โˆ€wral 3062  โˆƒwrex 3071  {crab 3433   โŠ† wss 3948  โˆ…c0 4322   class class class wbr 5148   Or wor 5587   ร— cxp 5674  โ€“1-1-ontoโ†’wf1o 6540  (class class class)co 7406   โˆˆ cmpo 7408  Fincfn 8936  supcsup 9432  โ„‚cc 11105  โ„cr 11106  0cc0 11107  1c1 11108   + caddc 11110   ยท cmul 11112   < clt 11245   โ‰ค cle 11246   โˆ’ cmin 11441   / cdiv 11868  โ„•cn 12209  2c2 12264  โ„•0cn0 12469  โ„คcz 12555  ...cfz 13481  โ†‘cexp 14024   โˆฅ cdvds 16194
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-om 7853  df-1st 7972  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-er 8700  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-sup 9434  df-inf 9435  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-n0 12470  df-z 12556  df-uz 12820  df-fz 13482  df-seq 13964  df-exp 14025  df-dvds 16195
This theorem is referenced by:  eulerpartgbij  33360  eulerpartlemgvv  33364  eulerpartlemgh  33366  eulerpartlemgf  33367
  Copyright terms: Public domain W3C validator