MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  pcadd Unicode version

Theorem pcadd 12885
Description: An inequality for the prime count of a sum. This is the source of the ultrametric inequality for the p-adic metric. (Contributed by Mario Carneiro, 9-Sep-2014.)
Hypotheses
Ref Expression
pcadd.1  |-  ( ph  ->  P  e.  Prime )
pcadd.2  |-  ( ph  ->  A  e.  QQ )
pcadd.3  |-  ( ph  ->  B  e.  QQ )
pcadd.4  |-  ( ph  ->  ( P  pCnt  A
)  <_  ( P  pCnt  B ) )
Assertion
Ref Expression
pcadd  |-  ( ph  ->  ( P  pCnt  A
)  <_  ( P  pCnt  ( A  +  B
) ) )

Proof of Theorem pcadd
StepHypRef Expression
1 pcadd.2 . . 3  |-  ( ph  ->  A  e.  QQ )
2 elq 10271 . . 3  |-  ( A  e.  QQ  <->  E. x  e.  ZZ  E. y  e.  NN  A  =  ( x  /  y ) )
31, 2sylib 190 . 2  |-  ( ph  ->  E. x  e.  ZZ  E. y  e.  NN  A  =  ( x  / 
y ) )
4 pcadd.3 . . 3  |-  ( ph  ->  B  e.  QQ )
5 elq 10271 . . 3  |-  ( B  e.  QQ  <->  E. z  e.  ZZ  E. w  e.  NN  B  =  ( z  /  w ) )
64, 5sylib 190 . 2  |-  ( ph  ->  E. z  e.  ZZ  E. w  e.  NN  B  =  ( z  /  w ) )
7 pcadd.1 . . . . . . . 8  |-  ( ph  ->  P  e.  Prime )
8 pcxcl 12861 . . . . . . . 8  |-  ( ( P  e.  Prime  /\  A  e.  QQ )  ->  ( P  pCnt  A )  e. 
RR* )
97, 1, 8syl2anc 645 . . . . . . 7  |-  ( ph  ->  ( P  pCnt  A
)  e.  RR* )
10 xrleid 10437 . . . . . . 7  |-  ( ( P  pCnt  A )  e.  RR*  ->  ( P  pCnt  A )  <_  ( P  pCnt  A ) )
119, 10syl 17 . . . . . 6  |-  ( ph  ->  ( P  pCnt  A
)  <_  ( P  pCnt  A ) )
1211adantr 453 . . . . 5  |-  ( (
ph  /\  B  = 
0 )  ->  ( P  pCnt  A )  <_ 
( P  pCnt  A
) )
13 oveq2 5786 . . . . . . 7  |-  ( B  =  0  ->  ( A  +  B )  =  ( A  + 
0 ) )
14 qcn 10283 . . . . . . . . 9  |-  ( A  e.  QQ  ->  A  e.  CC )
151, 14syl 17 . . . . . . . 8  |-  ( ph  ->  A  e.  CC )
1615addid1d 8966 . . . . . . 7  |-  ( ph  ->  ( A  +  0 )  =  A )
1713, 16sylan9eqr 2310 . . . . . 6  |-  ( (
ph  /\  B  = 
0 )  ->  ( A  +  B )  =  A )
1817oveq2d 5794 . . . . 5  |-  ( (
ph  /\  B  = 
0 )  ->  ( P  pCnt  ( A  +  B ) )  =  ( P  pCnt  A
) )
1912, 18breqtrrd 4009 . . . 4  |-  ( (
ph  /\  B  = 
0 )  ->  ( P  pCnt  A )  <_ 
( P  pCnt  ( A  +  B )
) )
2019a1d 24 . . 3  |-  ( (
ph  /\  B  = 
0 )  ->  (
( E. x  e.  ZZ  E. y  e.  NN  A  =  ( x  /  y )  /\  E. z  e.  ZZ  E. w  e.  NN  B  =  ( z  /  w ) )  ->  ( P  pCnt  A )  <_  ( P  pCnt  ( A  +  B ) ) ) )
21 reeanv 2680 . . . 4  |-  ( E. x  e.  ZZ  E. z  e.  ZZ  ( E. y  e.  NN  A  =  ( x  /  y )  /\  E. w  e.  NN  B  =  ( z  /  w ) )  <->  ( E. x  e.  ZZ  E. y  e.  NN  A  =  ( x  /  y )  /\  E. z  e.  ZZ  E. w  e.  NN  B  =  ( z  /  w ) ) )
22 reeanv 2680 . . . . . 6  |-  ( E. y  e.  NN  E. w  e.  NN  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) )  <->  ( E. y  e.  NN  A  =  ( x  / 
y )  /\  E. w  e.  NN  B  =  ( z  /  w ) ) )
237ad3antrrr 713 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  P  e.  Prime )
24 prmnn 12710 . . . . . . . . . . . . . . . . 17  |-  ( P  e.  Prime  ->  P  e.  NN )
2523, 24syl 17 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  P  e.  NN )
26 simplrl 739 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  x  e.  ZZ )
27 simprrl 743 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  A  =  ( x  /  y ) )
284ad3antrrr 713 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  B  e.  QQ )
29 simpllr 738 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  B  =/=  0 )
30 pcqcl 12857 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( P  e.  Prime  /\  ( B  e.  QQ  /\  B  =/=  0 ) )  -> 
( P  pCnt  B
)  e.  ZZ )
3123, 28, 29, 30syl12anc 1185 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  B
)  e.  ZZ )
3231zred 10070 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  B
)  e.  RR )
33 ltpnf 10416 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( P  pCnt  B )  e.  RR  ->  ( P  pCnt  B )  <  +oo )
34 rexr 8831 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( P  pCnt  B )  e.  RR  ->  ( P  pCnt  B )  e.  RR* )
35 pnfxr 10408 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  +oo  e.  RR*
36 xrltnle 8845 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( P  pCnt  B
)  e.  RR*  /\  +oo  e.  RR* )  ->  (
( P  pCnt  B
)  <  +oo  <->  -.  +oo  <_  ( P  pCnt  B )
) )
3734, 35, 36sylancl 646 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( P  pCnt  B )  e.  RR  ->  ( ( P  pCnt  B )  <  +oo 
<->  -.  +oo  <_  ( P 
pCnt  B ) ) )
3833, 37mpbid 203 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( P  pCnt  B )  e.  RR  ->  -.  +oo  <_  ( P  pCnt  B )
)
3932, 38syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  -.  +oo  <_  ( P  pCnt  B ) )
40 pc0 12855 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( P  e.  Prime  ->  ( P 
pCnt  0 )  = 
+oo )
4123, 40syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  0
)  =  +oo )
4241breq1d 3993 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P  pCnt  0 )  <_  ( P  pCnt  B )  <->  +oo  <_  ( P  pCnt  B ) ) )
4339, 42mtbird 294 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  -.  ( P  pCnt  0
)  <_  ( P  pCnt  B ) )
44 pcadd.4 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( P  pCnt  A
)  <_  ( P  pCnt  B ) )
4544ad3antrrr 713 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  A
)  <_  ( P  pCnt  B ) )
46 oveq2 5786 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( A  =  0  ->  ( P  pCnt  A )  =  ( P  pCnt  0
) )
4746breq1d 3993 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( A  =  0  ->  (
( P  pCnt  A
)  <_  ( P  pCnt  B )  <->  ( P  pCnt  0 )  <_  ( P  pCnt  B ) ) )
4845, 47syl5ibcom 213 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( A  =  0  ->  ( P  pCnt  0 )  <_  ( P  pCnt  B ) ) )
4948necon3bd 2456 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( -.  ( P 
pCnt  0 )  <_ 
( P  pCnt  B
)  ->  A  =/=  0 ) )
5043, 49mpd 16 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  A  =/=  0 )
5127, 50eqnetrrd 2439 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( x  /  y
)  =/=  0 )
52 simprll 741 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
y  e.  NN )
5352nncnd 9716 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
y  e.  CC )
5452nnne0d 9744 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
y  =/=  0 )
5553, 54div0d 9489 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( 0  /  y
)  =  0 )
56 oveq1 5785 . . . . . . . . . . . . . . . . . . . . 21  |-  ( x  =  0  ->  (
x  /  y )  =  ( 0  / 
y ) )
5756eqeq1d 2264 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  =  0  ->  (
( x  /  y
)  =  0  <->  (
0  /  y )  =  0 ) )
5855, 57syl5ibrcom 215 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( x  =  0  ->  ( x  / 
y )  =  0 ) )
5958necon3d 2457 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( x  / 
y )  =/=  0  ->  x  =/=  0 ) )
6051, 59mpd 16 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  x  =/=  0 )
61 pczcl 12849 . . . . . . . . . . . . . . . . 17  |-  ( ( P  e.  Prime  /\  (
x  e.  ZZ  /\  x  =/=  0 ) )  ->  ( P  pCnt  x )  e.  NN0 )
6223, 26, 60, 61syl12anc 1185 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  x
)  e.  NN0 )
6325, 62nnexpcld 11218 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  x ) )  e.  NN )
6463nncnd 9716 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  x ) )  e.  CC )
6564, 53mulcomd 8810 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  x
) )  x.  y
)  =  ( y  x.  ( P ^
( P  pCnt  x
) ) ) )
6665oveq2d 5794 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( x  x.  ( P ^ ( P  pCnt  y ) ) )  /  ( ( P ^ ( P 
pCnt  x ) )  x.  y ) )  =  ( ( x  x.  ( P ^ ( P  pCnt  y ) ) )  /  ( y  x.  ( P ^
( P  pCnt  x
) ) ) ) )
6726zcnd 10071 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  x  e.  CC )
6823, 52pccld 12851 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  y
)  e.  NN0 )
6925, 68nnexpcld 11218 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  y ) )  e.  NN )
7069nncnd 9716 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  y ) )  e.  CC )
7163nnne0d 9744 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  x ) )  =/=  0 )
7269nnne0d 9744 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  y ) )  =/=  0 )
7367, 64, 53, 70, 71, 72, 54divdivdivd 9537 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( x  / 
( P ^ ( P  pCnt  x ) ) )  /  ( y  /  ( P ^
( P  pCnt  y
) ) ) )  =  ( ( x  x.  ( P ^
( P  pCnt  y
) ) )  / 
( ( P ^
( P  pCnt  x
) )  x.  y
) ) )
7427oveq2d 5794 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  A
)  =  ( P 
pCnt  ( x  / 
y ) ) )
75 pcdiv 12853 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  e.  Prime  /\  (
x  e.  ZZ  /\  x  =/=  0 )  /\  y  e.  NN )  ->  ( P  pCnt  (
x  /  y ) )  =  ( ( P  pCnt  x )  -  ( P  pCnt  y ) ) )
7623, 26, 60, 52, 75syl121anc 1192 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  (
x  /  y ) )  =  ( ( P  pCnt  x )  -  ( P  pCnt  y ) ) )
7774, 76eqtrd 2288 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  A
)  =  ( ( P  pCnt  x )  -  ( P  pCnt  y ) ) )
7877oveq2d 5794 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  A ) )  =  ( P ^
( ( P  pCnt  x )  -  ( P 
pCnt  y ) ) ) )
7925nncnd 9716 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  P  e.  CC )
8025nnne0d 9744 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  P  =/=  0 )
8168nn0zd 10068 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  y
)  e.  ZZ )
8262nn0zd 10068 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  x
)  e.  ZZ )
8379, 80, 81, 82expsubd 11208 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ (
( P  pCnt  x
)  -  ( P 
pCnt  y ) ) )  =  ( ( P ^ ( P 
pCnt  x ) )  / 
( P ^ ( P  pCnt  y ) ) ) )
8478, 83eqtrd 2288 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  A ) )  =  ( ( P ^ ( P  pCnt  x ) )  /  ( P ^ ( P  pCnt  y ) ) ) )
8584oveq2d 5794 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( A  /  ( P ^ ( P  pCnt  A ) ) )  =  ( A  /  (
( P ^ ( P  pCnt  x ) )  /  ( P ^
( P  pCnt  y
) ) ) ) )
8627oveq1d 5793 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( A  /  (
( P ^ ( P  pCnt  x ) )  /  ( P ^
( P  pCnt  y
) ) ) )  =  ( ( x  /  y )  / 
( ( P ^
( P  pCnt  x
) )  /  ( P ^ ( P  pCnt  y ) ) ) ) )
8767, 53, 64, 70, 54, 72, 71divdivdivd 9537 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( x  / 
y )  /  (
( P ^ ( P  pCnt  x ) )  /  ( P ^
( P  pCnt  y
) ) ) )  =  ( ( x  x.  ( P ^
( P  pCnt  y
) ) )  / 
( y  x.  ( P ^ ( P  pCnt  x ) ) ) ) )
8885, 86, 873eqtrd 2292 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( A  /  ( P ^ ( P  pCnt  A ) ) )  =  ( ( x  x.  ( P ^ ( P  pCnt  y ) ) )  /  ( y  x.  ( P ^
( P  pCnt  x
) ) ) ) )
8966, 73, 883eqtr4d 2298 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( x  / 
( P ^ ( P  pCnt  x ) ) )  /  ( y  /  ( P ^
( P  pCnt  y
) ) ) )  =  ( A  / 
( P ^ ( P  pCnt  A ) ) ) )
9089oveq2d 5794 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  A
) )  x.  (
( x  /  ( P ^ ( P  pCnt  x ) ) )  / 
( y  /  ( P ^ ( P  pCnt  y ) ) ) ) )  =  ( ( P ^ ( P 
pCnt  A ) )  x.  ( A  /  ( P ^ ( P  pCnt  A ) ) ) ) )
911ad3antrrr 713 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  A  e.  QQ )
9291, 14syl 17 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  A  e.  CC )
93 pcqcl 12857 . . . . . . . . . . . . 13  |-  ( ( P  e.  Prime  /\  ( A  e.  QQ  /\  A  =/=  0 ) )  -> 
( P  pCnt  A
)  e.  ZZ )
9423, 91, 50, 93syl12anc 1185 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  A
)  e.  ZZ )
9579, 80, 94expclzd 11202 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  A ) )  e.  CC )
9679, 80, 94expne0d 11203 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  A ) )  =/=  0 )
9792, 95, 96divcan2d 9492 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  A
) )  x.  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  =  A )
9890, 97eqtr2d 2289 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  A  =  ( ( P ^ ( P  pCnt  A ) )  x.  (
( x  /  ( P ^ ( P  pCnt  x ) ) )  / 
( y  /  ( P ^ ( P  pCnt  y ) ) ) ) ) )
99 simplrr 740 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
z  e.  ZZ )
100 simprrr 744 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  B  =  ( z  /  w ) )
101100, 29eqnetrrd 2439 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( z  /  w
)  =/=  0 )
102 simprlr 742 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  w  e.  NN )
103102nncnd 9716 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  w  e.  CC )
104102nnne0d 9744 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  w  =/=  0 )
105103, 104div0d 9489 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( 0  /  w
)  =  0 )
106 oveq1 5785 . . . . . . . . . . . . . . . . . . . . 21  |-  ( z  =  0  ->  (
z  /  w )  =  ( 0  /  w ) )
107106eqeq1d 2264 . . . . . . . . . . . . . . . . . . . 20  |-  ( z  =  0  ->  (
( z  /  w
)  =  0  <->  (
0  /  w )  =  0 ) )
108105, 107syl5ibrcom 215 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( z  =  0  ->  ( z  /  w )  =  0 ) )
109108necon3d 2457 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( z  /  w )  =/=  0  ->  z  =/=  0 ) )
110101, 109mpd 16 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
z  =/=  0 )
111 pczcl 12849 . . . . . . . . . . . . . . . . 17  |-  ( ( P  e.  Prime  /\  (
z  e.  ZZ  /\  z  =/=  0 ) )  ->  ( P  pCnt  z )  e.  NN0 )
11223, 99, 110, 111syl12anc 1185 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  z
)  e.  NN0 )
11325, 112nnexpcld 11218 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  z ) )  e.  NN )
114113nncnd 9716 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  z ) )  e.  CC )
115114, 103mulcomd 8810 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  z
) )  x.  w
)  =  ( w  x.  ( P ^
( P  pCnt  z
) ) ) )
116115oveq2d 5794 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( z  x.  ( P ^ ( P  pCnt  w ) ) )  /  ( ( P ^ ( P 
pCnt  z ) )  x.  w ) )  =  ( ( z  x.  ( P ^
( P  pCnt  w
) ) )  / 
( w  x.  ( P ^ ( P  pCnt  z ) ) ) ) )
11799zcnd 10071 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
z  e.  CC )
11823, 102pccld 12851 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  w
)  e.  NN0 )
11925, 118nnexpcld 11218 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  w ) )  e.  NN )
120119nncnd 9716 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  w ) )  e.  CC )
121113nnne0d 9744 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  z ) )  =/=  0 )
122119nnne0d 9744 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  w ) )  =/=  0 )
123117, 114, 103, 120, 121, 122, 104divdivdivd 9537 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( z  / 
( P ^ ( P  pCnt  z ) ) )  /  ( w  /  ( P ^
( P  pCnt  w
) ) ) )  =  ( ( z  x.  ( P ^
( P  pCnt  w
) ) )  / 
( ( P ^
( P  pCnt  z
) )  x.  w
) ) )
124100oveq2d 5794 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  B
)  =  ( P 
pCnt  ( z  /  w ) ) )
125 pcdiv 12853 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  e.  Prime  /\  (
z  e.  ZZ  /\  z  =/=  0 )  /\  w  e.  NN )  ->  ( P  pCnt  (
z  /  w ) )  =  ( ( P  pCnt  z )  -  ( P  pCnt  w ) ) )
12623, 99, 110, 102, 125syl121anc 1192 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  (
z  /  w ) )  =  ( ( P  pCnt  z )  -  ( P  pCnt  w ) ) )
127124, 126eqtrd 2288 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  B
)  =  ( ( P  pCnt  z )  -  ( P  pCnt  w ) ) )
128127oveq2d 5794 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  B ) )  =  ( P ^
( ( P  pCnt  z )  -  ( P 
pCnt  w ) ) ) )
129118nn0zd 10068 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  w
)  e.  ZZ )
130112nn0zd 10068 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  z
)  e.  ZZ )
13179, 80, 129, 130expsubd 11208 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ (
( P  pCnt  z
)  -  ( P 
pCnt  w ) ) )  =  ( ( P ^ ( P  pCnt  z ) )  /  ( P ^ ( P  pCnt  w ) ) ) )
132128, 131eqtrd 2288 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  B ) )  =  ( ( P ^ ( P  pCnt  z ) )  /  ( P ^ ( P  pCnt  w ) ) ) )
133132oveq2d 5794 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( B  /  ( P ^ ( P  pCnt  B ) ) )  =  ( B  /  (
( P ^ ( P  pCnt  z ) )  /  ( P ^
( P  pCnt  w
) ) ) ) )
134100oveq1d 5793 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( B  /  (
( P ^ ( P  pCnt  z ) )  /  ( P ^
( P  pCnt  w
) ) ) )  =  ( ( z  /  w )  / 
( ( P ^
( P  pCnt  z
) )  /  ( P ^ ( P  pCnt  w ) ) ) ) )
135117, 103, 114, 120, 104, 122, 121divdivdivd 9537 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( z  /  w )  /  (
( P ^ ( P  pCnt  z ) )  /  ( P ^
( P  pCnt  w
) ) ) )  =  ( ( z  x.  ( P ^
( P  pCnt  w
) ) )  / 
( w  x.  ( P ^ ( P  pCnt  z ) ) ) ) )
136133, 134, 1353eqtrd 2292 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( B  /  ( P ^ ( P  pCnt  B ) ) )  =  ( ( z  x.  ( P ^ ( P  pCnt  w ) ) )  /  ( w  x.  ( P ^
( P  pCnt  z
) ) ) ) )
137116, 123, 1363eqtr4d 2298 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( z  / 
( P ^ ( P  pCnt  z ) ) )  /  ( w  /  ( P ^
( P  pCnt  w
) ) ) )  =  ( B  / 
( P ^ ( P  pCnt  B ) ) ) )
138137oveq2d 5794 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  B
) )  x.  (
( z  /  ( P ^ ( P  pCnt  z ) ) )  / 
( w  /  ( P ^ ( P  pCnt  w ) ) ) ) )  =  ( ( P ^ ( P 
pCnt  B ) )  x.  ( B  /  ( P ^ ( P  pCnt  B ) ) ) ) )
139 qcn 10283 . . . . . . . . . . . 12  |-  ( B  e.  QQ  ->  B  e.  CC )
14028, 139syl 17 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  B  e.  CC )
14179, 80, 31expclzd 11202 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  B ) )  e.  CC )
14279, 80, 31expne0d 11203 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  B ) )  =/=  0 )
143140, 141, 142divcan2d 9492 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  B
) )  x.  ( B  /  ( P ^
( P  pCnt  B
) ) ) )  =  B )
144138, 143eqtr2d 2289 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  B  =  ( ( P ^ ( P  pCnt  B ) )  x.  (
( z  /  ( P ^ ( P  pCnt  z ) ) )  / 
( w  /  ( P ^ ( P  pCnt  w ) ) ) ) ) )
145 eluz 10194 . . . . . . . . . . 11  |-  ( ( ( P  pCnt  A
)  e.  ZZ  /\  ( P  pCnt  B )  e.  ZZ )  -> 
( ( P  pCnt  B )  e.  ( ZZ>= `  ( P  pCnt  A ) )  <->  ( P  pCnt  A )  <_  ( P  pCnt  B ) ) )
14694, 31, 145syl2anc 645 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P  pCnt  B )  e.  ( ZZ>= `  ( P  pCnt  A ) )  <->  ( P  pCnt  A )  <_  ( P  pCnt  B ) ) )
14745, 146mpbird 225 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  B
)  e.  ( ZZ>= `  ( P  pCnt  A ) ) )
148 pczdvds 12863 . . . . . . . . . . . 12  |-  ( ( P  e.  Prime  /\  (
x  e.  ZZ  /\  x  =/=  0 ) )  ->  ( P ^
( P  pCnt  x
) )  ||  x
)
14923, 26, 60, 148syl12anc 1185 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  x ) ) 
||  x )
15063nnzd 10069 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  x ) )  e.  ZZ )
151 divides2 12482 . . . . . . . . . . . 12  |-  ( ( ( P ^ ( P  pCnt  x ) )  e.  ZZ  /\  ( P ^ ( P  pCnt  x ) )  =/=  0  /\  x  e.  ZZ )  ->  ( ( P ^ ( P  pCnt  x ) )  ||  x  <->  ( x  /  ( P ^ ( P  pCnt  x ) ) )  e.  ZZ ) )
152150, 71, 26, 151syl3anc 1187 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  x
) )  ||  x  <->  ( x  /  ( P ^ ( P  pCnt  x ) ) )  e.  ZZ ) )
153149, 152mpbid 203 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( x  /  ( P ^ ( P  pCnt  x ) ) )  e.  ZZ )
154 pczndvds2 12867 . . . . . . . . . . 11  |-  ( ( P  e.  Prime  /\  (
x  e.  ZZ  /\  x  =/=  0 ) )  ->  -.  P  ||  (
x  /  ( P ^ ( P  pCnt  x ) ) ) )
15523, 26, 60, 154syl12anc 1185 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  -.  P  ||  ( x  /  ( P ^
( P  pCnt  x
) ) ) )
156153, 155jca 520 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( x  / 
( P ^ ( P  pCnt  x ) ) )  e.  ZZ  /\  -.  P  ||  ( x  /  ( P ^
( P  pCnt  x
) ) ) ) )
157 pcdvds 12864 . . . . . . . . . . . . 13  |-  ( ( P  e.  Prime  /\  y  e.  NN )  ->  ( P ^ ( P  pCnt  y ) )  ||  y
)
15823, 52, 157syl2anc 645 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  y ) ) 
||  y )
15969nnzd 10069 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  y ) )  e.  ZZ )
16052nnzd 10069 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
y  e.  ZZ )
161 divides2 12482 . . . . . . . . . . . . 13  |-  ( ( ( P ^ ( P  pCnt  y ) )  e.  ZZ  /\  ( P ^ ( P  pCnt  y ) )  =/=  0  /\  y  e.  ZZ )  ->  ( ( P ^ ( P  pCnt  y ) )  ||  y  <->  ( y  /  ( P ^ ( P  pCnt  y ) ) )  e.  ZZ ) )
162159, 72, 160, 161syl3anc 1187 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  y
) )  ||  y  <->  ( y  /  ( P ^ ( P  pCnt  y ) ) )  e.  ZZ ) )
163158, 162mpbid 203 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( y  /  ( P ^ ( P  pCnt  y ) ) )  e.  ZZ )
16452nnred 9715 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
y  e.  RR )
16569nnred 9715 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  y ) )  e.  RR )
16652nngt0d 9743 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
0  <  y )
16769nngt0d 9743 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
0  <  ( P ^ ( P  pCnt  y ) ) )
168164, 165, 166, 167divgt0d 9646 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
0  <  ( y  /  ( P ^
( P  pCnt  y
) ) ) )
169 elnnz 9987 . . . . . . . . . . 11  |-  ( ( y  /  ( P ^ ( P  pCnt  y ) ) )  e.  NN  <->  ( ( y  /  ( P ^
( P  pCnt  y
) ) )  e.  ZZ  /\  0  < 
( y  /  ( P ^ ( P  pCnt  y ) ) ) ) )
170163, 168, 169sylanbrc 648 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( y  /  ( P ^ ( P  pCnt  y ) ) )  e.  NN )
171 pcndvds2 12868 . . . . . . . . . . 11  |-  ( ( P  e.  Prime  /\  y  e.  NN )  ->  -.  P  ||  ( y  / 
( P ^ ( P  pCnt  y ) ) ) )
17223, 52, 171syl2anc 645 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  -.  P  ||  ( y  /  ( P ^
( P  pCnt  y
) ) ) )
173170, 172jca 520 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( y  / 
( P ^ ( P  pCnt  y ) ) )  e.  NN  /\  -.  P  ||  ( y  /  ( P ^
( P  pCnt  y
) ) ) ) )
174 pczdvds 12863 . . . . . . . . . . . 12  |-  ( ( P  e.  Prime  /\  (
z  e.  ZZ  /\  z  =/=  0 ) )  ->  ( P ^
( P  pCnt  z
) )  ||  z
)
17523, 99, 110, 174syl12anc 1185 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  z ) ) 
||  z )
176113nnzd 10069 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  z ) )  e.  ZZ )
177 divides2 12482 . . . . . . . . . . . 12  |-  ( ( ( P ^ ( P  pCnt  z ) )  e.  ZZ  /\  ( P ^ ( P  pCnt  z ) )  =/=  0  /\  z  e.  ZZ )  ->  ( ( P ^ ( P  pCnt  z ) )  ||  z  <->  ( z  /  ( P ^ ( P  pCnt  z ) ) )  e.  ZZ ) )
178176, 121, 99, 177syl3anc 1187 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  z
) )  ||  z  <->  ( z  /  ( P ^ ( P  pCnt  z ) ) )  e.  ZZ ) )
179175, 178mpbid 203 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( z  /  ( P ^ ( P  pCnt  z ) ) )  e.  ZZ )
180 pczndvds2 12867 . . . . . . . . . . 11  |-  ( ( P  e.  Prime  /\  (
z  e.  ZZ  /\  z  =/=  0 ) )  ->  -.  P  ||  (
z  /  ( P ^ ( P  pCnt  z ) ) ) )
18123, 99, 110, 180syl12anc 1185 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  -.  P  ||  ( z  /  ( P ^
( P  pCnt  z
) ) ) )
182179, 181jca 520 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( z  / 
( P ^ ( P  pCnt  z ) ) )  e.  ZZ  /\  -.  P  ||  ( z  /  ( P ^
( P  pCnt  z
) ) ) ) )
183 pcdvds 12864 . . . . . . . . . . . . 13  |-  ( ( P  e.  Prime  /\  w  e.  NN )  ->  ( P ^ ( P  pCnt  w ) )  ||  w
)
18423, 102, 183syl2anc 645 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  w ) ) 
||  w )
185119nnzd 10069 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  w ) )  e.  ZZ )
186102nnzd 10069 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  w  e.  ZZ )
187 divides2 12482 . . . . . . . . . . . . 13  |-  ( ( ( P ^ ( P  pCnt  w ) )  e.  ZZ  /\  ( P ^ ( P  pCnt  w ) )  =/=  0  /\  w  e.  ZZ )  ->  ( ( P ^ ( P  pCnt  w ) )  ||  w  <->  ( w  /  ( P ^ ( P  pCnt  w ) ) )  e.  ZZ ) )
188185, 122, 186, 187syl3anc 1187 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( P ^
( P  pCnt  w
) )  ||  w  <->  ( w  /  ( P ^ ( P  pCnt  w ) ) )  e.  ZZ ) )
189184, 188mpbid 203 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( w  /  ( P ^ ( P  pCnt  w ) ) )  e.  ZZ )
190102nnred 9715 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  w  e.  RR )
191119nnred 9715 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P ^ ( P  pCnt  w ) )  e.  RR )
192102nngt0d 9743 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
0  <  w )
193119nngt0d 9743 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
0  <  ( P ^ ( P  pCnt  w ) ) )
194190, 191, 192, 193divgt0d 9646 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
0  <  ( w  /  ( P ^
( P  pCnt  w
) ) ) )
195 elnnz 9987 . . . . . . . . . . 11  |-  ( ( w  /  ( P ^ ( P  pCnt  w ) ) )  e.  NN  <->  ( ( w  /  ( P ^
( P  pCnt  w
) ) )  e.  ZZ  /\  0  < 
( w  /  ( P ^ ( P  pCnt  w ) ) ) ) )
196189, 194, 195sylanbrc 648 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( w  /  ( P ^ ( P  pCnt  w ) ) )  e.  NN )
197 pcndvds2 12868 . . . . . . . . . . 11  |-  ( ( P  e.  Prime  /\  w  e.  NN )  ->  -.  P  ||  ( w  / 
( P ^ ( P  pCnt  w ) ) ) )
19823, 102, 197syl2anc 645 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  ->  -.  P  ||  ( w  /  ( P ^
( P  pCnt  w
) ) ) )
199196, 198jca 520 . . . . . . . . 9  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( ( w  / 
( P ^ ( P  pCnt  w ) ) )  e.  NN  /\  -.  P  ||  ( w  /  ( P ^
( P  pCnt  w
) ) ) ) )
20023, 98, 144, 147, 156, 173, 182, 199pcaddlem 12884 . . . . . . . 8  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( ( y  e.  NN  /\  w  e.  NN )  /\  ( A  =  ( x  /  y )  /\  B  =  ( z  /  w ) ) ) )  -> 
( P  pCnt  A
)  <_  ( P  pCnt  ( A  +  B
) ) )
201200expr 601 . . . . . . 7  |-  ( ( ( ( ph  /\  B  =/=  0 )  /\  ( x  e.  ZZ  /\  z  e.  ZZ ) )  /\  ( y  e.  NN  /\  w  e.  NN ) )  -> 
( ( A  =  ( x  /  y
)  /\  B  =  ( z  /  w
) )  ->  ( P  pCnt  A )  <_ 
( P  pCnt  ( A  +  B )
) ) )
202201rexlimdvva 2647 . . . . . 6  |-  ( ( ( ph  /\  B  =/=  0 )  /\  (
x  e.  ZZ  /\  z  e.  ZZ )
)  ->  ( E. y  e.  NN  E. w  e.  NN  ( A  =  ( x  /  y
)  /\  B  =  ( z  /  w
) )  ->  ( P  pCnt  A )  <_ 
( P  pCnt  ( A  +  B )
) ) )
20322, 202syl5bir 211 . . . . 5  |-  ( ( ( ph  /\  B  =/=  0 )  /\  (
x  e.  ZZ  /\  z  e.  ZZ )
)  ->  ( ( E. y  e.  NN  A  =  ( x  /  y )  /\  E. w  e.  NN  B  =  ( z  /  w ) )  -> 
( P  pCnt  A
)  <_  ( P  pCnt  ( A  +  B
) ) ) )
204203rexlimdvva 2647 . . . 4  |-  ( (
ph  /\  B  =/=  0 )  ->  ( E. x  e.  ZZ  E. z  e.  ZZ  ( E. y  e.  NN  A  =  ( x  /  y )  /\  E. w  e.  NN  B  =  ( z  /  w ) )  -> 
( P  pCnt  A
)  <_  ( P  pCnt  ( A  +  B
) ) ) )
20521, 204syl5bir 211 . . 3  |-  ( (
ph  /\  B  =/=  0 )  ->  (
( E. x  e.  ZZ  E. y  e.  NN  A  =  ( x  /  y )  /\  E. z  e.  ZZ  E. w  e.  NN  B  =  ( z  /  w ) )  ->  ( P  pCnt  A )  <_  ( P  pCnt  ( A  +  B ) ) ) )
20620, 205pm2.61dane 2497 . 2  |-  ( ph  ->  ( ( E. x  e.  ZZ  E. y  e.  NN  A  =  ( x  /  y )  /\  E. z  e.  ZZ  E. w  e.  NN  B  =  ( z  /  w ) )  ->  ( P  pCnt  A )  <_  ( P  pCnt  ( A  +  B ) ) ) )
2073, 6, 206mp2and 663 1  |-  ( ph  ->  ( P  pCnt  A
)  <_  ( P  pCnt  ( A  +  B
) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    <-> wb 178    /\ wa 360    = wceq 1619    e. wcel 1621    =/= wne 2419   E.wrex 2517   class class class wbr 3983   ` cfv 4659  (class class class)co 5778   CCcc 8689   RRcr 8690   0cc0 8691    + caddc 8694    x. cmul 8696    +oocpnf 8818   RR*cxr 8820    < clt 8821    <_ cle 8822    - cmin 8991    / cdiv 9377   NNcn 9700   NN0cn0 9918   ZZcz 9977   ZZ>=cuz 10183   QQcq 10269   ^cexp 11056    || cdivides 12479   Primecprime 12706    pCnt cpc 12837
This theorem is referenced by:  pcadd2  12886  padicabv  20727
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1927  ax-ext 2237  ax-sep 4101  ax-nul 4109  ax-pow 4146  ax-pr 4172  ax-un 4470  ax-cnex 8747  ax-resscn 8748  ax-1cn 8749  ax-icn 8750  ax-addcl 8751  ax-addrcl 8752  ax-mulcl 8753  ax-mulrcl 8754  ax-mulcom 8755  ax-addass 8756  ax-mulass 8757  ax-distr 8758  ax-i2m1 8759  ax-1ne0 8760  ax-1rid 8761  ax-rnegex 8762  ax-rrecex 8763  ax-cnre 8764  ax-pre-lttri 8765  ax-pre-lttrn 8766  ax-pre-ltadd 8767  ax-pre-mulgt0 8768  ax-pre-sup 8769
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 940  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1884  df-eu 2121  df-mo 2122  df-clab 2243  df-cleq 2249  df-clel 2252  df-nfc 2381  df-ne 2421  df-nel 2422  df-ral 2521  df-rex 2522  df-reu 2523  df-rmo 2524  df-rab 2525  df-v 2759  df-sbc 2953  df-csb 3043  df-dif 3116  df-un 3118  df-in 3120  df-ss 3127  df-pss 3129  df-nul 3417  df-if 3526  df-pw 3587  df-sn 3606  df-pr 3607  df-tp 3608  df-op 3609  df-uni 3788  df-int 3823  df-iun 3867  df-br 3984  df-opab 4038  df-mpt 4039  df-tr 4074  df-eprel 4263  df-id 4267  df-po 4272  df-so 4273  df-fr 4310  df-we 4312  df-ord 4353  df-on 4354  df-lim 4355  df-suc 4356  df-om 4615  df-xp 4661  df-rel 4662  df-cnv 4663  df-co 4664  df-dm 4665  df-rn 4666  df-res 4667  df-ima 4668  df-fun 4669  df-fn 4670  df-f 4671  df-f1 4672  df-fo 4673  df-f1o 4674  df-fv 4675  df-ov 5781  df-oprab 5782  df-mpt2 5783  df-1st 6042  df-2nd 6043  df-iota 6211  df-riota 6258  df-recs 6342  df-rdg 6377  df-1o 6433  df-2o 6434  df-oadd 6437  df-er 6614  df-en 6818  df-dom 6819  df-sdom 6820  df-fin 6821  df-sup 7148  df-pnf 8823  df-mnf 8824  df-xr 8825  df-ltxr 8826  df-le 8827  df-sub 8993  df-neg 8994  df-div 9378  df-n 9701  df-2 9758  df-3 9759  df-n0 9919  df-z 9978  df-uz 10184  df-q 10270  df-rp 10308  df-fl 10877  df-mod 10926  df-seq 10999  df-exp 11057  df-cj 11535  df-re 11536  df-im 11537  df-sqr 11671  df-abs 11672  df-divides 12480  df-gcd 12634  df-prime 12707  df-pc 12838
  Copyright terms: Public domain W3C validator