Metamath Proof Explorer


Theorem pcpremul

Description: Multiplicative property of the prime count pre-function. Note that the primality of P is essential for this property; ( 4 pCnt 2 ) = 0 but ( 4 pCnt ( 2 x. 2 ) ) = 1 =/= 2 x. ( 4 pCnt 2 ) = 0 . Since this is needed to show uniqueness for the real prime count function (over QQ ), we don't bother to define it off the primes. (Contributed by Mario Carneiro, 23-Feb-2014)

Ref Expression
Hypotheses pcpremul.1 โŠข ๐‘† = sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘€ } , โ„ , < )
pcpremul.2 โŠข ๐‘‡ = sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘ } , โ„ , < )
pcpremul.3 โŠข ๐‘ˆ = sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } , โ„ , < )
Assertion pcpremul ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) = ๐‘ˆ )

Proof

Step Hyp Ref Expression
1 pcpremul.1 โŠข ๐‘† = sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘€ } , โ„ , < )
2 pcpremul.2 โŠข ๐‘‡ = sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘ } , โ„ , < )
3 pcpremul.3 โŠข ๐‘ˆ = sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } , โ„ , < )
4 prmuz2 โŠข ( ๐‘ƒ โˆˆ โ„™ โ†’ ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) )
5 4 3ad2ant1 โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) )
6 zmulcl โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ ยท ๐‘ ) โˆˆ โ„ค )
7 6 ad2ant2r โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ๐‘ ) โˆˆ โ„ค )
8 7 3adant1 โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ๐‘ ) โˆˆ โ„ค )
9 zcn โŠข ( ๐‘€ โˆˆ โ„ค โ†’ ๐‘€ โˆˆ โ„‚ )
10 9 anim1i โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โ†’ ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) )
11 zcn โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„‚ )
12 11 anim1i โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) โ†’ ( ๐‘ โˆˆ โ„‚ โˆง ๐‘ โ‰  0 ) )
13 mulne0 โŠข ( ( ( ๐‘€ โˆˆ โ„‚ โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„‚ โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ๐‘ ) โ‰  0 )
14 10 12 13 syl2an โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ๐‘ ) โ‰  0 )
15 14 3adant1 โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ๐‘ ) โ‰  0 )
16 eqid โŠข { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } = { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) }
17 16 pclem โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ( ( ๐‘€ ยท ๐‘ ) โˆˆ โ„ค โˆง ( ๐‘€ ยท ๐‘ ) โ‰  0 ) ) โ†’ ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } โŠ† โ„ค โˆง { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } โ‰  โˆ… โˆง โˆƒ ๐‘ฅ โˆˆ โ„ค โˆ€ ๐‘ฆ โˆˆ { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } ๐‘ฆ โ‰ค ๐‘ฅ ) )
18 5 8 15 17 syl12anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } โŠ† โ„ค โˆง { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } โ‰  โˆ… โˆง โˆƒ ๐‘ฅ โˆˆ โ„ค โˆ€ ๐‘ฆ โˆˆ { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } ๐‘ฆ โ‰ค ๐‘ฅ ) )
19 18 simp1d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } โŠ† โ„ค )
20 18 simp3d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ โˆƒ ๐‘ฅ โˆˆ โ„ค โˆ€ ๐‘ฆ โˆˆ { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } ๐‘ฆ โ‰ค ๐‘ฅ )
21 oveq2 โŠข ( ๐‘ฅ = ( ๐‘† + ๐‘‡ ) โ†’ ( ๐‘ƒ โ†‘ ๐‘ฅ ) = ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) )
22 21 breq1d โŠข ( ๐‘ฅ = ( ๐‘† + ๐‘‡ ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘ฅ ) โˆฅ ( ๐‘€ ยท ๐‘ ) โ†” ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
23 simp2l โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘€ โˆˆ โ„ค )
24 simp2r โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘€ โ‰  0 )
25 eqid โŠข { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘€ } = { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘€ }
26 25 1 pcprecl โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) ) โ†’ ( ๐‘† โˆˆ โ„•0 โˆง ( ๐‘ƒ โ†‘ ๐‘† ) โˆฅ ๐‘€ ) )
27 5 23 24 26 syl12anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† โˆˆ โ„•0 โˆง ( ๐‘ƒ โ†‘ ๐‘† ) โˆฅ ๐‘€ ) )
28 27 simpld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘† โˆˆ โ„•0 )
29 simp3l โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ โˆˆ โ„ค )
30 simp3r โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ โ‰  0 )
31 eqid โŠข { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘ } = { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ๐‘ }
32 31 2 pcprecl โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘‡ โˆˆ โ„•0 โˆง ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆฅ ๐‘ ) )
33 5 29 30 32 syl12anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘‡ โˆˆ โ„•0 โˆง ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆฅ ๐‘ ) )
34 33 simpld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘‡ โˆˆ โ„•0 )
35 28 34 nn0addcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) โˆˆ โ„•0 )
36 prmnn โŠข ( ๐‘ƒ โˆˆ โ„™ โ†’ ๐‘ƒ โˆˆ โ„• )
37 36 3ad2ant1 โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ƒ โˆˆ โ„• )
38 37 35 nnexpcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โˆˆ โ„• )
39 38 nnzd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โˆˆ โ„ค )
40 37 34 nnexpcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆˆ โ„• )
41 40 nnzd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆˆ โ„ค )
42 23 41 zmulcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆˆ โ„ค )
43 37 nncnd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ƒ โˆˆ โ„‚ )
44 43 34 28 expaddd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) = ( ( ๐‘ƒ โ†‘ ๐‘† ) ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) )
45 27 simprd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘† ) โˆฅ ๐‘€ )
46 37 28 nnexpcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘† ) โˆˆ โ„• )
47 46 nnzd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘† ) โˆˆ โ„ค )
48 dvdsmulc โŠข ( ( ( ๐‘ƒ โ†‘ ๐‘† ) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆˆ โ„ค ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘† ) โˆฅ ๐‘€ โ†’ ( ( ๐‘ƒ โ†‘ ๐‘† ) ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
49 47 23 41 48 syl3anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘† ) โˆฅ ๐‘€ โ†’ ( ( ๐‘ƒ โ†‘ ๐‘† ) ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
50 45 49 mpd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘† ) ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) )
51 44 50 eqbrtrd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) )
52 33 simprd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆฅ ๐‘ )
53 dvdscmul โŠข ( ( ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆฅ ๐‘ โ†’ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
54 41 29 23 53 syl3anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆฅ ๐‘ โ†’ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
55 52 54 mpd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) )
56 39 42 8 51 55 dvdstrd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) )
57 22 35 56 elrabd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) โˆˆ { ๐‘ฅ โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘ฅ ) โˆฅ ( ๐‘€ ยท ๐‘ ) } )
58 oveq2 โŠข ( ๐‘ฅ = ๐‘› โ†’ ( ๐‘ƒ โ†‘ ๐‘ฅ ) = ( ๐‘ƒ โ†‘ ๐‘› ) )
59 58 breq1d โŠข ( ๐‘ฅ = ๐‘› โ†’ ( ( ๐‘ƒ โ†‘ ๐‘ฅ ) โˆฅ ( ๐‘€ ยท ๐‘ ) โ†” ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
60 59 cbvrabv โŠข { ๐‘ฅ โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘ฅ ) โˆฅ ( ๐‘€ ยท ๐‘ ) } = { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) }
61 57 60 eleqtrdi โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) โˆˆ { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } )
62 suprzub โŠข ( ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } โŠ† โ„ค โˆง โˆƒ ๐‘ฅ โˆˆ โ„ค โˆ€ ๐‘ฆ โˆˆ { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } ๐‘ฆ โ‰ค ๐‘ฅ โˆง ( ๐‘† + ๐‘‡ ) โˆˆ { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } ) โ†’ ( ๐‘† + ๐‘‡ ) โ‰ค sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } , โ„ , < ) )
63 19 20 61 62 syl3anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) โ‰ค sup ( { ๐‘› โˆˆ โ„•0 โˆฃ ( ๐‘ƒ โ†‘ ๐‘› ) โˆฅ ( ๐‘€ ยท ๐‘ ) } , โ„ , < ) )
64 63 3 breqtrrdi โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) โ‰ค ๐‘ˆ )
65 25 1 pcprendvds2 โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) ) โ†’ ยฌ ๐‘ƒ โˆฅ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) )
66 5 23 24 65 syl12anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ยฌ ๐‘ƒ โˆฅ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) )
67 31 2 pcprendvds2 โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ยฌ ๐‘ƒ โˆฅ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) )
68 5 29 30 67 syl12anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ยฌ ๐‘ƒ โˆฅ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) )
69 ioran โŠข ( ยฌ ( ๐‘ƒ โˆฅ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆจ ๐‘ƒ โˆฅ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) โ†” ( ยฌ ๐‘ƒ โˆฅ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆง ยฌ ๐‘ƒ โˆฅ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
70 66 68 69 sylanbrc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ยฌ ( ๐‘ƒ โˆฅ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆจ ๐‘ƒ โˆฅ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
71 simp1 โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ƒ โˆˆ โ„™ )
72 46 nnne0d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘† ) โ‰  0 )
73 dvdsval2 โŠข ( ( ( ๐‘ƒ โ†‘ ๐‘† ) โˆˆ โ„ค โˆง ( ๐‘ƒ โ†‘ ๐‘† ) โ‰  0 โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘† ) โˆฅ ๐‘€ โ†” ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆˆ โ„ค ) )
74 47 72 23 73 syl3anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘† ) โˆฅ ๐‘€ โ†” ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆˆ โ„ค ) )
75 45 74 mpbid โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆˆ โ„ค )
76 40 nnne0d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘‡ ) โ‰  0 )
77 dvdsval2 โŠข ( ( ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆˆ โ„ค โˆง ( ๐‘ƒ โ†‘ ๐‘‡ ) โ‰  0 โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆฅ ๐‘ โ†” ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆˆ โ„ค ) )
78 41 76 29 77 syl3anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆฅ ๐‘ โ†” ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆˆ โ„ค ) )
79 52 78 mpbid โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆˆ โ„ค )
80 euclemma โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆˆ โ„ค โˆง ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) โˆˆ โ„ค ) โ†’ ( ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) โ†” ( ๐‘ƒ โˆฅ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆจ ๐‘ƒ โˆฅ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
81 71 75 79 80 syl3anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) โ†” ( ๐‘ƒ โˆฅ ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) โˆจ ๐‘ƒ โˆฅ ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
82 70 81 mtbird โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ยฌ ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
83 16 3 pcprecl โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ( ( ๐‘€ ยท ๐‘ ) โˆˆ โ„ค โˆง ( ๐‘€ ยท ๐‘ ) โ‰  0 ) ) โ†’ ( ๐‘ˆ โˆˆ โ„•0 โˆง ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
84 5 8 15 83 syl12anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ˆ โˆˆ โ„•0 โˆง ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
85 84 simpld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ˆ โˆˆ โ„•0 )
86 nn0ltp1le โŠข ( ( ( ๐‘† + ๐‘‡ ) โˆˆ โ„•0 โˆง ๐‘ˆ โˆˆ โ„•0 ) โ†’ ( ( ๐‘† + ๐‘‡ ) < ๐‘ˆ โ†” ( ( ๐‘† + ๐‘‡ ) + 1 ) โ‰ค ๐‘ˆ ) )
87 35 85 86 syl2anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘† + ๐‘‡ ) < ๐‘ˆ โ†” ( ( ๐‘† + ๐‘‡ ) + 1 ) โ‰ค ๐‘ˆ ) )
88 37 nnzd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ƒ โˆˆ โ„ค )
89 peano2nn0 โŠข ( ( ๐‘† + ๐‘‡ ) โˆˆ โ„•0 โ†’ ( ( ๐‘† + ๐‘‡ ) + 1 ) โˆˆ โ„•0 )
90 35 89 syl โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘† + ๐‘‡ ) + 1 ) โˆˆ โ„•0 )
91 dvdsexp โŠข ( ( ๐‘ƒ โˆˆ โ„ค โˆง ( ( ๐‘† + ๐‘‡ ) + 1 ) โˆˆ โ„•0 โˆง ๐‘ˆ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘ƒ โ†‘ ๐‘ˆ ) )
92 91 3expia โŠข ( ( ๐‘ƒ โˆˆ โ„ค โˆง ( ( ๐‘† + ๐‘‡ ) + 1 ) โˆˆ โ„•0 ) โ†’ ( ๐‘ˆ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘ƒ โ†‘ ๐‘ˆ ) ) )
93 88 90 92 syl2anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ˆ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘ƒ โ†‘ ๐‘ˆ ) ) )
94 84 simprd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆฅ ( ๐‘€ ยท ๐‘ ) )
95 37 90 nnexpcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆˆ โ„• )
96 95 nnzd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆˆ โ„ค )
97 37 85 nnexpcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆˆ โ„• )
98 97 nnzd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆˆ โ„ค )
99 dvdstr โŠข ( ( ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆˆ โ„ค โˆง ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆˆ โ„ค โˆง ( ๐‘€ ยท ๐‘ ) โˆˆ โ„ค ) โ†’ ( ( ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆง ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
100 96 98 8 99 syl3anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆง ( ๐‘ƒ โ†‘ ๐‘ˆ ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
101 94 100 mpan2d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘ƒ โ†‘ ๐‘ˆ ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
102 93 101 syld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ˆ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) ) )
103 90 nn0zd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘† + ๐‘‡ ) + 1 ) โˆˆ โ„ค )
104 85 nn0zd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ˆ โˆˆ โ„ค )
105 eluz โŠข ( ( ( ( ๐‘† + ๐‘‡ ) + 1 ) โˆˆ โ„ค โˆง ๐‘ˆ โˆˆ โ„ค ) โ†’ ( ๐‘ˆ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โ†” ( ( ๐‘† + ๐‘‡ ) + 1 ) โ‰ค ๐‘ˆ ) )
106 103 104 105 syl2anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ˆ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โ†” ( ( ๐‘† + ๐‘‡ ) + 1 ) โ‰ค ๐‘ˆ ) )
107 43 35 expp1d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) = ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ๐‘ƒ ) )
108 23 zcnd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘€ โˆˆ โ„‚ )
109 29 zcnd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ โˆˆ โ„‚ )
110 108 109 mulcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ๐‘ ) โˆˆ โ„‚ )
111 38 nncnd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โˆˆ โ„‚ )
112 38 nnne0d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โ‰  0 )
113 110 111 112 divcan2d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ( ( ๐‘€ ยท ๐‘ ) / ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ) ) = ( ๐‘€ ยท ๐‘ ) )
114 44 oveq2d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘€ ยท ๐‘ ) / ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ) = ( ( ๐‘€ ยท ๐‘ ) / ( ( ๐‘ƒ โ†‘ ๐‘† ) ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
115 46 nncnd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘† ) โˆˆ โ„‚ )
116 40 nncnd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘ƒ โ†‘ ๐‘‡ ) โˆˆ โ„‚ )
117 108 115 109 116 72 76 divmuldivd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) = ( ( ๐‘€ ยท ๐‘ ) / ( ( ๐‘ƒ โ†‘ ๐‘† ) ยท ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
118 114 117 eqtr4d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘€ ยท ๐‘ ) / ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ) = ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) )
119 118 oveq2d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ( ( ๐‘€ ยท ๐‘ ) / ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ) ) = ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
120 113 119 eqtr3d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘€ ยท ๐‘ ) = ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
121 107 120 breq12d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) โ†” ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ๐‘ƒ ) โˆฅ ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) ) )
122 75 79 zmulcld โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) โˆˆ โ„ค )
123 dvdscmulr โŠข ( ( ๐‘ƒ โˆˆ โ„ค โˆง ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) โˆˆ โ„ค โˆง ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โˆˆ โ„ค โˆง ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) โ‰  0 ) ) โ†’ ( ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ๐‘ƒ ) โˆฅ ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) โ†” ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
124 88 122 39 112 123 syl112anc โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ๐‘ƒ ) โˆฅ ( ( ๐‘ƒ โ†‘ ( ๐‘† + ๐‘‡ ) ) ยท ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) โ†” ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
125 121 124 bitrd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘ƒ โ†‘ ( ( ๐‘† + ๐‘‡ ) + 1 ) ) โˆฅ ( ๐‘€ ยท ๐‘ ) โ†” ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
126 102 106 125 3imtr3d โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ( ๐‘† + ๐‘‡ ) + 1 ) โ‰ค ๐‘ˆ โ†’ ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
127 87 126 sylbid โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘† + ๐‘‡ ) < ๐‘ˆ โ†’ ๐‘ƒ โˆฅ ( ( ๐‘€ / ( ๐‘ƒ โ†‘ ๐‘† ) ) ยท ( ๐‘ / ( ๐‘ƒ โ†‘ ๐‘‡ ) ) ) ) )
128 82 127 mtod โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ยฌ ( ๐‘† + ๐‘‡ ) < ๐‘ˆ )
129 35 nn0red โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) โˆˆ โ„ )
130 85 nn0red โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ๐‘ˆ โˆˆ โ„ )
131 129 130 eqleltd โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ๐‘† + ๐‘‡ ) = ๐‘ˆ โ†” ( ( ๐‘† + ๐‘‡ ) โ‰ค ๐‘ˆ โˆง ยฌ ( ๐‘† + ๐‘‡ ) < ๐‘ˆ ) ) )
132 64 128 131 mpbir2and โŠข ( ( ๐‘ƒ โˆˆ โ„™ โˆง ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐‘† + ๐‘‡ ) = ๐‘ˆ )