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 33651
Description: Lemma for eulerpart 33679. 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 12289 . . . . . . . 8 2 โˆˆ โ„•
32a1i 11 . . . . . . 7 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ 2 โˆˆ โ„•)
4 simpl 481 . . . . . . 7 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ๐‘ฆ โˆˆ โ„•0)
53, 4nnexpcld 14212 . . . . . 6 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
6 oddpwdc.j . . . . . . . 8 ๐ฝ = {๐‘ง โˆˆ โ„• โˆฃ ยฌ 2 โˆฅ ๐‘ง}
7 ssrab2 4076 . . . . . . . 8 {๐‘ง โˆˆ โ„• โˆฃ ยฌ 2 โˆฅ ๐‘ง} โŠ† โ„•
86, 7eqsstri 4015 . . . . . . 7 ๐ฝ โŠ† โ„•
9 simpr 483 . . . . . . 7 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ๐‘ฅ โˆˆ ๐ฝ)
108, 9sselid 3979 . . . . . 6 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ๐‘ฅ โˆˆ โ„•)
115, 10nnmulcld 12269 . . . . 5 ((๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฅ โˆˆ ๐ฝ) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
1211ancoms 457 . . . 4 ((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
1312adantl 480 . . 3 ((โŠค โˆง (๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0)) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
14 id 22 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž โˆˆ โ„•)
152a1i 11 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ 2 โˆˆ โ„•)
16 nn0ssre 12480 . . . . . . . . . . 11 โ„•0 โŠ† โ„
17 ltso 11298 . . . . . . . . . . 11 < Or โ„
18 soss 5607 . . . . . . . . . . 11 (โ„•0 โŠ† โ„ โ†’ ( < Or โ„ โ†’ < Or โ„•0))
1916, 17, 18mp2 9 . . . . . . . . . 10 < Or โ„•0
2019a1i 11 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ < Or โ„•0)
21 0zd 12574 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ 0 โˆˆ โ„ค)
22 ssrab2 4076 . . . . . . . . . . 11 {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0
2322a1i 11 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0)
24 nnz 12583 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž โˆˆ โ„ค)
25 oveq2 7419 . . . . . . . . . . . . . . 15 (๐‘˜ = ๐‘› โ†’ (2โ†‘๐‘˜) = (2โ†‘๐‘›))
2625breq1d 5157 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘› โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘๐‘›) โˆฅ ๐‘Ž))
2726elrab 3682 . . . . . . . . . . . . 13 (๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž))
28 simprl 767 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โˆˆ โ„•0)
2928nn0red 12537 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โˆˆ โ„)
302a1i 11 . . . . . . . . . . . . . . . 16 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ 2 โˆˆ โ„•)
3130, 28nnexpcld 14212 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆˆ โ„•)
3231nnred 12231 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆˆ โ„)
33 simpl 481 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘Ž โˆˆ โ„•)
3433nnred 12231 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘Ž โˆˆ โ„)
35 2re 12290 . . . . . . . . . . . . . . . 16 2 โˆˆ โ„
3635leidi 11752 . . . . . . . . . . . . . . . 16 2 โ‰ค 2
37 nexple 33305 . . . . . . . . . . . . . . . 16 ((๐‘› โˆˆ โ„•0 โˆง 2 โˆˆ โ„ โˆง 2 โ‰ค 2) โ†’ ๐‘› โ‰ค (2โ†‘๐‘›))
3835, 36, 37mp3an23 1451 . . . . . . . . . . . . . . 15 (๐‘› โˆˆ โ„•0 โ†’ ๐‘› โ‰ค (2โ†‘๐‘›))
3938ad2antrl 724 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โ‰ค (2โ†‘๐‘›))
4031nnzd 12589 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆˆ โ„ค)
41 simprr 769 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โˆฅ ๐‘Ž)
42 dvdsle 16257 . . . . . . . . . . . . . . . 16 (((2โ†‘๐‘›) โˆˆ โ„ค โˆง ๐‘Ž โˆˆ โ„•) โ†’ ((2โ†‘๐‘›) โˆฅ ๐‘Ž โ†’ (2โ†‘๐‘›) โ‰ค ๐‘Ž))
4342imp 405 . . . . . . . . . . . . . . 15 ((((2โ†‘๐‘›) โˆˆ โ„ค โˆง ๐‘Ž โˆˆ โ„•) โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž) โ†’ (2โ†‘๐‘›) โ‰ค ๐‘Ž)
4440, 33, 41, 43syl21anc 834 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ (2โ†‘๐‘›) โ‰ค ๐‘Ž)
4529, 32, 34, 39, 44letrd 11375 . . . . . . . . . . . . 13 ((๐‘Ž โˆˆ โ„• โˆง (๐‘› โˆˆ โ„•0 โˆง (2โ†‘๐‘›) โˆฅ ๐‘Ž)) โ†’ ๐‘› โ‰ค ๐‘Ž)
4627, 45sylan2b 592 . . . . . . . . . . . 12 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โ‰ค ๐‘Ž)
4746ralrimiva 3144 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘Ž)
48 brralrspcev 5207 . . . . . . . . . . 11 ((๐‘Ž โˆˆ โ„ค โˆง โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘Ž) โ†’ โˆƒ๐‘š โˆˆ โ„ค โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘š)
4924, 47, 48syl2anc 582 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ โˆƒ๐‘š โˆˆ โ„ค โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘š)
50 nn0uz 12868 . . . . . . . . . . 11 โ„•0 = (โ„คโ‰ฅโ€˜0)
5150uzsupss 12928 . . . . . . . . . 10 ((0 โˆˆ โ„ค โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0 โˆง โˆƒ๐‘š โˆˆ โ„ค โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› โ‰ค ๐‘š) โ†’ โˆƒ๐‘š โˆˆ โ„•0 (โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} ยฌ ๐‘š < ๐‘› โˆง โˆ€๐‘› โˆˆ โ„•0 (๐‘› < ๐‘š โ†’ โˆƒ๐‘œ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› < ๐‘œ)))
5221, 23, 49, 51syl3anc 1369 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ โˆƒ๐‘š โˆˆ โ„•0 (โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} ยฌ ๐‘š < ๐‘› โˆง โˆ€๐‘› โˆˆ โ„•0 (๐‘› < ๐‘š โ†’ โˆƒ๐‘œ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› < ๐‘œ)))
5320, 52supcl 9455 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0)
5415, 53nnexpcld 14212 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„•)
55 fzfi 13941 . . . . . . . . . . . 12 (0...๐‘Ž) โˆˆ Fin
56 0zd 12574 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ 0 โˆˆ โ„ค)
5724adantr 479 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘Ž โˆˆ โ„ค)
5827, 28sylan2b 592 . . . . . . . . . . . . . . . 16 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โˆˆ โ„•0)
5958nn0zd 12588 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โˆˆ โ„ค)
6058nn0ge0d 12539 . . . . . . . . . . . . . . 15 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ 0 โ‰ค ๐‘›)
6156, 57, 59, 60, 46elfzd 13496 . . . . . . . . . . . . . 14 ((๐‘Ž โˆˆ โ„• โˆง ๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}) โ†’ ๐‘› โˆˆ (0...๐‘Ž))
6261ex 411 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ (๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†’ ๐‘› โˆˆ (0...๐‘Ž)))
6362ssrdv 3987 . . . . . . . . . . . 12 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† (0...๐‘Ž))
64 ssfi 9175 . . . . . . . . . . . 12 (((0...๐‘Ž) โˆˆ Fin โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† (0...๐‘Ž)) โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โˆˆ Fin)
6555, 63, 64sylancr 585 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โˆˆ Fin)
66 0nn0 12491 . . . . . . . . . . . . . 14 0 โˆˆ โ„•0
6766a1i 11 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ 0 โˆˆ โ„•0)
68 2cn 12291 . . . . . . . . . . . . . . 15 2 โˆˆ โ„‚
69 exp0 14035 . . . . . . . . . . . . . . 15 (2 โˆˆ โ„‚ โ†’ (2โ†‘0) = 1)
7068, 69ax-mp 5 . . . . . . . . . . . . . 14 (2โ†‘0) = 1
71 1dvds 16218 . . . . . . . . . . . . . . 15 (๐‘Ž โˆˆ โ„ค โ†’ 1 โˆฅ ๐‘Ž)
7224, 71syl 17 . . . . . . . . . . . . . 14 (๐‘Ž โˆˆ โ„• โ†’ 1 โˆฅ ๐‘Ž)
7370, 72eqbrtrid 5182 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘0) โˆฅ ๐‘Ž)
74 oveq2 7419 . . . . . . . . . . . . . . 15 (๐‘˜ = 0 โ†’ (2โ†‘๐‘˜) = (2โ†‘0))
7574breq1d 5157 . . . . . . . . . . . . . 14 (๐‘˜ = 0 โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘0) โˆฅ ๐‘Ž))
7675elrab 3682 . . . . . . . . . . . . 13 (0 โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (0 โˆˆ โ„•0 โˆง (2โ†‘0) โˆฅ ๐‘Ž))
7767, 73, 76sylanbrc 581 . . . . . . . . . . . 12 (๐‘Ž โˆˆ โ„• โ†’ 0 โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
7877ne0d 4334 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ‰  โˆ…)
79 fisupcl 9466 . . . . . . . . . . 11 (( < Or โ„•0 โˆง ({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โˆˆ Fin โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ‰  โˆ… โˆง {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โŠ† โ„•0)) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
8020, 65, 78, 23, 79syl13anc 1370 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
81 oveq2 7419 . . . . . . . . . . . 12 (๐‘˜ = ๐‘™ โ†’ (2โ†‘๐‘˜) = (2โ†‘๐‘™))
8281breq1d 5157 . . . . . . . . . . 11 (๐‘˜ = ๐‘™ โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘๐‘™) โˆฅ ๐‘Ž))
8382cbvrabv 3440 . . . . . . . . . 10 {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} = {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž}
8480, 83eleqtrdi 2841 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž})
85 oveq2 7419 . . . . . . . . . . 11 (๐‘™ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†’ (2โ†‘๐‘™) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
8685breq1d 5157 . . . . . . . . . 10 (๐‘™ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†’ ((2โ†‘๐‘™) โˆฅ ๐‘Ž โ†” (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž))
8786elrab 3682 . . . . . . . . 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 494 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž)
90 nndivdvds 16210 . . . . . . . 8 ((๐‘Ž โˆˆ โ„• โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„•) โ†’ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž โ†” (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„•))
9190biimpa 475 . . . . . . 7 (((๐‘Ž โˆˆ โ„• โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„•) โˆง (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆฅ ๐‘Ž) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„•)
9214, 54, 89, 91syl21anc 834 . . . . . 6 (๐‘Ž โˆˆ โ„• โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„•)
93 1nn0 12492 . . . . . . . . . . 11 1 โˆˆ โ„•0
9493a1i 11 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ 1 โˆˆ โ„•0)
9553, 94nn0addcld 12540 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0)
9653nn0red 12537 . . . . . . . . . . . . . 14 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„)
9796ltp1d 12148 . . . . . . . . . . . . 13 (๐‘Ž โˆˆ โ„• โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1))
9820, 52supub 9456 . . . . . . . . . . . . 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 2823 . . . . . . . . . . . 12 ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž})
10199, 100sylnib 327 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ ยฌ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž})
102 oveq2 7419 . . . . . . . . . . . . 13 (๐‘™ = (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โ†’ (2โ†‘๐‘™) = (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)))
103102breq1d 5157 . . . . . . . . . . . 12 (๐‘™ = (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โ†’ ((2โ†‘๐‘™) โˆฅ ๐‘Ž โ†” (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
104103elrab 3682 . . . . . . . . . . 11 ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ {๐‘™ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘™) โˆฅ ๐‘Ž} โ†” ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0 โˆง (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
105101, 104sylnib 327 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ ยฌ ((sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1) โˆˆ โ„•0 โˆง (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž))
106 imnan 398 . . . . . . . . . 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 14038 . . . . . . . . . 10 ((2 โˆˆ โ„‚ โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2))
11068, 53, 109sylancr 585 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2))
111110breq1d 5157 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) + 1)) โˆฅ ๐‘Ž โ†” ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž))
112108, 111mtbid 323 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ ยฌ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž)
113 nncn 12224 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž โˆˆ โ„‚)
11454nncnd 12232 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„‚)
11554nnne0d 12266 . . . . . . . . . . 11 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ‰  0)
116113, 114, 115divcan2d 11996 . . . . . . . . . 10 (๐‘Ž โˆˆ โ„• โ†’ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) = ๐‘Ž)
117116eqcomd 2736 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ ๐‘Ž = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
118117breq2d 5159 . . . . . . . 8 (๐‘Ž โˆˆ โ„• โ†’ (((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž โ†” ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))))
11915nnzd 12589 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ 2 โˆˆ โ„ค)
12092nnzd 12589 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„ค)
12154nnzd 12589 . . . . . . . . 9 (๐‘Ž โˆˆ โ„• โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„ค)
122 dvdscmulr 16232 . . . . . . . . 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 1372 . . . . . . . 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 278 . . . . . . 7 (๐‘Ž โˆˆ โ„• โ†’ (((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท 2) โˆฅ ๐‘Ž โ†” 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
125112, 124mtbid 323 . . . . . 6 (๐‘Ž โˆˆ โ„• โ†’ ยฌ 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
126 breq2 5151 . . . . . . . 8 (๐‘ง = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (2 โˆฅ ๐‘ง โ†” 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
127126notbid 317 . . . . . . 7 (๐‘ง = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (ยฌ 2 โˆฅ ๐‘ง โ†” ยฌ 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
128127, 6elrab2 3685 . . . . . 6 ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ โ†” ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„• โˆง ยฌ 2 โˆฅ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
12992, 125, 128sylanbrc 581 . . . . 5 (๐‘Ž โˆˆ โ„• โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ)
130129, 53jca 510 . . . 4 (๐‘Ž โˆˆ โ„• โ†’ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0))
131130adantl 480 . . 3 ((โŠค โˆง ๐‘Ž โˆˆ โ„•) โ†’ ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0))
132 simpr 483 . . . . . . 7 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
1332a1i 11 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ 2 โˆˆ โ„•)
134 simplr 765 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ โˆˆ โ„•0)
135133, 134nnexpcld 14212 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
1368sseli 3977 . . . . . . . . 9 (๐‘ฅ โˆˆ ๐ฝ โ†’ ๐‘ฅ โˆˆ โ„•)
137136ad2antrr 722 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฅ โˆˆ โ„•)
138135, 137nnmulcld 12269 . . . . . . 7 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) โˆˆ โ„•)
139132, 138eqeltrd 2831 . . . . . 6 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘Ž โˆˆ โ„•)
140 simplll 771 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ ๐ฝ)
141 breq2 5151 . . . . . . . . . . . . . 14 (๐‘ง = ๐‘ฅ โ†’ (2 โˆฅ ๐‘ง โ†” 2 โˆฅ ๐‘ฅ))
142141notbid 317 . . . . . . . . . . . . 13 (๐‘ง = ๐‘ฅ โ†’ (ยฌ 2 โˆฅ ๐‘ง โ†” ยฌ 2 โˆฅ ๐‘ฅ))
143142, 6elrab2 3685 . . . . . . . . . . . 12 (๐‘ฅ โˆˆ ๐ฝ โ†” (๐‘ฅ โˆˆ โ„• โˆง ยฌ 2 โˆฅ ๐‘ฅ))
144143simprbi 495 . . . . . . . . . . 11 (๐‘ฅ โˆˆ ๐ฝ โ†’ ยฌ 2 โˆฅ ๐‘ฅ)
145 2z 12598 . . . . . . . . . . . . . 14 2 โˆˆ โ„ค
146134adantr 479 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ โˆˆ โ„•0)
147146nn0zd 12588 . . . . . . . . . . . . . . 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 479 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ โˆƒ๐‘š โˆˆ โ„•0 (โˆ€๐‘› โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} ยฌ ๐‘š < ๐‘› โˆง โˆ€๐‘› โˆˆ โ„•0 (๐‘› < ๐‘š โ†’ โˆƒ๐‘œ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}๐‘› < ๐‘œ)))
151148, 150supcl 9455 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0)
152151nn0zd 12588 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„ค)
153 simpr 483 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
154 znnsub 12612 . . . . . . . . . . . . . . . 16 ((๐‘ฆ โˆˆ โ„ค โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„ค) โ†’ (๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†” (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•))
155154biimpa 475 . . . . . . . . . . . . . . 15 (((๐‘ฆ โˆˆ โ„ค โˆง sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„ค) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•)
156147, 152, 153, 155syl21anc 834 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•)
157 iddvdsexp 16227 . . . . . . . . . . . . . 14 ((2 โˆˆ โ„ค โˆง (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•) โ†’ 2 โˆฅ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)))
158145, 156, 157sylancr 585 . . . . . . . . . . . . 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 479 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„ค)
162156nnnn0d 12536 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•0)
163 zexpcl 14046 . . . . . . . . . . . . . . 15 ((2 โˆˆ โ„ค โˆง (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ) โˆˆ โ„•0) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โˆˆ โ„ค)
164145, 162, 163sylancr 585 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โˆˆ โ„ค)
165 dvdsmultr2 16245 . . . . . . . . . . . . . 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 1369 . . . . . . . . . . . . 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 479 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„•)
169168nncnd 12232 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„‚)
170 2cnd 12294 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โˆˆ โ„‚)
171170, 162expcld 14115 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) โˆˆ โ„‚)
172139adantr 479 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„•)
173172nncnd 12232 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„‚)
174172, 114syl 17 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โˆˆ โ„‚)
175 2ne0 12320 . . . . . . . . . . . . . . . . . 18 2 โ‰  0
176175a1i 11 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โ‰  0)
177170, 176, 152expne0d 14121 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ‰  0)
178173, 174, 177divcld 11994 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ โ„‚)
179171, 178mulcld 11238 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))) โˆˆ โ„‚)
180170, 146expcld 14115 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„‚)
181170, 176, 147expne0d 14121 . . . . . . . . . . . . . 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 765 . . . . . . . . . . . . . . . 16 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
184146nn0cnd 12538 . . . . . . . . . . . . . . . . . . . 20 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ โˆˆ โ„‚)
185151nn0cnd 12538 . . . . . . . . . . . . . . . . . . . 20 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„‚)
186184, 185pncan3d 11578 . . . . . . . . . . . . . . . . . . 19 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘ฆ + (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
187186oveq2d 7427 . . . . . . . . . . . . . . . . . 18 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(๐‘ฆ + (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
188170, 162, 146expaddd 14117 . . . . . . . . . . . . . . . . . 18 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘(๐‘ฆ + (sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) = ((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))))
189187, 188eqtr3d 2772 . . . . . . . . . . . . . . . . 17 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) = ((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))))
190189oveq1d 7426 . . . . . . . . . . . . . . . 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 2778 . . . . . . . . . . . . . . 15 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = (((2โ†‘๐‘ฆ) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
192180, 171, 178mulassd 11241 . . . . . . . . . . . . . . 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 2770 . . . . . . . . . . . . . 14 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = ((2โ†‘๐‘ฆ) ยท ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))))
194169, 179, 180, 181, 193mulcanad 11853 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ = ((2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ)) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
195178, 171mulcomd 11239 . . . . . . . . . . . . 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 2773 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ = ((๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) ยท (2โ†‘(sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆ’ ๐‘ฆ))))
197167, 196breqtrrd 5175 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ 2 โˆฅ ๐‘ฅ)
198144, 197nsyl3 138 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ยฌ ๐‘ฅ โˆˆ ๐ฝ)
199140, 198pm2.65da 813 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ยฌ ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
200137nnzd 12589 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฅ โˆˆ โ„ค)
201135nnzd 12589 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„ค)
202139nnzd 12589 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘Ž โˆˆ โ„ค)
203135nncnd 12232 . . . . . . . . . . . . . 14 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„‚)
204137nncnd 12232 . . . . . . . . . . . . . 14 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฅ โˆˆ โ„‚)
205203, 204mulcomd 11239 . . . . . . . . . . . . 13 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = (๐‘ฅ ยท (2โ†‘๐‘ฆ)))
206132, 205eqtr2d 2771 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฅ ยท (2โ†‘๐‘ฆ)) = ๐‘Ž)
207 dvds0lem 16214 . . . . . . . . . . . 12 (((๐‘ฅ โˆˆ โ„ค โˆง (2โ†‘๐‘ฆ) โˆˆ โ„ค โˆง ๐‘Ž โˆˆ โ„ค) โˆง (๐‘ฅ ยท (2โ†‘๐‘ฆ)) = ๐‘Ž) โ†’ (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž)
208200, 201, 202, 206, 207syl31anc 1371 . . . . . . . . . . 11 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž)
209 oveq2 7419 . . . . . . . . . . . . 13 (๐‘˜ = ๐‘ฆ โ†’ (2โ†‘๐‘˜) = (2โ†‘๐‘ฆ))
210209breq1d 5157 . . . . . . . . . . . 12 (๐‘˜ = ๐‘ฆ โ†’ ((2โ†‘๐‘˜) โˆฅ ๐‘Ž โ†” (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž))
211210elrab 3682 . . . . . . . . . . 11 (๐‘ฆ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†” (๐‘ฆ โˆˆ โ„•0 โˆง (2โ†‘๐‘ฆ) โˆฅ ๐‘Ž))
212134, 208, 211sylanbrc 581 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž})
21319a1i 11 . . . . . . . . . . 11 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ < Or โ„•0)
214213, 149supub 9456 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ โˆˆ {๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž} โ†’ ยฌ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < ๐‘ฆ))
215212, 214mpd 15 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ยฌ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < ๐‘ฆ)
216134nn0red 12537 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ โˆˆ โ„)
217139, 96syl 17 . . . . . . . . . 10 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„)
218216, 217lttri3d 11358 . . . . . . . . 9 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†” (ยฌ ๐‘ฆ < sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆง ยฌ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) < ๐‘ฆ)))
219199, 215, 218mpbir2and 709 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
220 simplr 765 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
221139adantr 479 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„•)
222221nncnd 12232 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘Ž โˆˆ โ„‚)
223137adantr 479 . . . . . . . . . . . . 13 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„•)
224223nncnd 12232 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ โˆˆ โ„‚)
225 nnexpcl 14044 . . . . . . . . . . . . . . . 16 ((2 โˆˆ โ„• โˆง ๐‘ฆ โˆˆ โ„•0) โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
2262, 225mpan 686 . . . . . . . . . . . . . . 15 (๐‘ฆ โˆˆ โ„•0 โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„•)
227226nncnd 12232 . . . . . . . . . . . . . 14 (๐‘ฆ โˆˆ โ„•0 โ†’ (2โ†‘๐‘ฆ) โˆˆ โ„‚)
228226nnne0d 12266 . . . . . . . . . . . . . 14 (๐‘ฆ โˆˆ โ„•0 โ†’ (2โ†‘๐‘ฆ) โ‰  0)
229227, 228jca 510 . . . . . . . . . . . . 13 (๐‘ฆ โˆˆ โ„•0 โ†’ ((2โ†‘๐‘ฆ) โˆˆ โ„‚ โˆง (2โ†‘๐‘ฆ) โ‰  0))
230229ad3antlr 727 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((2โ†‘๐‘ฆ) โˆˆ โ„‚ โˆง (2โ†‘๐‘ฆ) โ‰  0))
231 divmul2 11880 . . . . . . . . . . . 12 ((๐‘Ž โˆˆ โ„‚ โˆง ๐‘ฅ โˆˆ โ„‚ โˆง ((2โ†‘๐‘ฆ) โˆˆ โ„‚ โˆง (2โ†‘๐‘ฆ) โ‰  0)) โ†’ ((๐‘Ž / (2โ†‘๐‘ฆ)) = ๐‘ฅ โ†” ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)))
232222, 224, 230, 231syl3anc 1369 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ((๐‘Ž / (2โ†‘๐‘ฆ)) = ๐‘ฅ โ†” ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)))
233220, 232mpbird 256 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘๐‘ฆ)) = ๐‘ฅ)
234 simpr 483 . . . . . . . . . . . 12 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
235234oveq2d 7427 . . . . . . . . . . 11 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (2โ†‘๐‘ฆ) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
236235oveq2d 7427 . . . . . . . . . 10 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ (๐‘Ž / (2โ†‘๐‘ฆ)) = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
237233, 236eqtr3d 2772 . . . . . . . . 9 ((((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) โ†’ ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
238237ex 411 . . . . . . . 8 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โ†’ ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
239219, 238jcai 515 . . . . . . 7 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆง ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
240239ancomd 460 . . . . . 6 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
241139, 240jca 510 . . . . 5 (((๐‘ฅ โˆˆ ๐ฝ โˆง ๐‘ฆ โˆˆ โ„•0) โˆง ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ)) โ†’ (๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
242 simprl 767 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))))
243129adantr 479 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆˆ ๐ฝ)
244242, 243eqeltrd 2831 . . . . . 6 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฅ โˆˆ ๐ฝ)
245 simprr 769 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))
24653adantr 479 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ) โˆˆ โ„•0)
247245, 246eqeltrd 2831 . . . . . 6 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘ฆ โˆˆ โ„•0)
248117adantr 479 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘Ž = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
249245oveq2d 7427 . . . . . . . 8 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ (2โ†‘๐‘ฆ) = (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))
250249, 242oveq12d 7429 . . . . . . 7 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ((2โ†‘๐‘ฆ) ยท ๐‘ฅ) = ((2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )) ยท (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < )))))
251248, 250eqtr4d 2773 . . . . . 6 ((๐‘Ž โˆˆ โ„• โˆง (๐‘ฅ = (๐‘Ž / (2โ†‘sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โˆง ๐‘ฆ = sup({๐‘˜ โˆˆ โ„•0 โˆฃ (2โ†‘๐‘˜) โˆฅ ๐‘Ž}, โ„•0, < ))) โ†’ ๐‘Ž = ((2โ†‘๐‘ฆ) ยท ๐‘ฅ))
252244, 247, 251jca31 513 . . . . 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 32213 . 2 (โŠค โ†’ ๐น:(๐ฝ ร— โ„•0)โ€“1-1-ontoโ†’โ„•)
256255mptru 1546 1 ๐น:(๐ฝ ร— โ„•0)โ€“1-1-ontoโ†’โ„•
Colors of variables: wff setvar class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โ†” wb 205   โˆง wa 394   = wceq 1539  โŠคwtru 1540   โˆˆ wcel 2104   โ‰  wne 2938  โˆ€wral 3059  โˆƒwrex 3068  {crab 3430   โŠ† wss 3947  โˆ…c0 4321   class class class wbr 5147   Or wor 5586   ร— cxp 5673  โ€“1-1-ontoโ†’wf1o 6541  (class class class)co 7411   โˆˆ cmpo 7413  Fincfn 8941  supcsup 9437  โ„‚cc 11110  โ„cr 11111  0cc0 11112  1c1 11113   + caddc 11115   ยท cmul 11117   < clt 11252   โ‰ค cle 11253   โˆ’ cmin 11448   / cdiv 11875  โ„•cn 12216  2c2 12271  โ„•0cn0 12476  โ„คcz 12562  ...cfz 13488  โ†‘cexp 14031   โˆฅ cdvds 16201
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7858  df-1st 7977  df-2nd 7978  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-rdg 8412  df-1o 8468  df-er 8705  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-sup 9439  df-inf 9440  df-pnf 11254  df-mnf 11255  df-xr 11256  df-ltxr 11257  df-le 11258  df-sub 11450  df-neg 11451  df-div 11876  df-nn 12217  df-2 12279  df-n0 12477  df-z 12563  df-uz 12827  df-fz 13489  df-seq 13971  df-exp 14032  df-dvds 16202
This theorem is referenced by:  eulerpartgbij  33669  eulerpartlemgvv  33673  eulerpartlemgh  33675  eulerpartlemgf  33676
  Copyright terms: Public domain W3C validator