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

Theorem dchrisum0flblem2 22645
Description: Lemma for dchrisum0flb 22646. Induction over relatively prime factors, with the prime power case handled in dchrisum0flblem1 . (Contributed by Mario Carneiro, 5-May-2016.)
Hypotheses
Ref Expression
rpvmasum.z  |-  Z  =  (ℤ/n `  N )
rpvmasum.l  |-  L  =  ( ZRHom `  Z
)
rpvmasum.a  |-  ( ph  ->  N  e.  NN )
rpvmasum2.g  |-  G  =  (DChr `  N )
rpvmasum2.d  |-  D  =  ( Base `  G
)
rpvmasum2.1  |-  .1.  =  ( 0g `  G )
dchrisum0f.f  |-  F  =  ( b  e.  NN  |->  sum_ v  e.  { q  e.  NN  |  q 
||  b }  ( X `  ( L `  v ) ) )
dchrisum0f.x  |-  ( ph  ->  X  e.  D )
dchrisum0flb.r  |-  ( ph  ->  X : ( Base `  Z ) --> RR )
dchrisum0flb.1  |-  ( ph  ->  A  e.  ( ZZ>= ` 
2 ) )
dchrisum0flb.2  |-  ( ph  ->  P  e.  Prime )
dchrisum0flb.3  |-  ( ph  ->  P  ||  A )
dchrisum0flb.4  |-  ( ph  ->  A. y  e.  ( 1..^ A ) if ( ( sqr `  y
)  e.  NN , 
1 ,  0 )  <_  ( F `  y ) )
Assertion
Ref Expression
dchrisum0flblem2  |-  ( ph  ->  if ( ( sqr `  A )  e.  NN ,  1 ,  0 )  <_  ( F `  A ) )
Distinct variable groups:    y,  .1.    y, F    q, b, v, y, A    N, q,
y    P, b, q, v, y    y, Z    y, D    L, b, v, y    X, b, v, y
Allowed substitution hints:    ph( y, v, q, b)    D( v, q, b)    .1. ( v,
q, b)    F( v,
q, b)    G( y,
v, q, b)    L( q)    N( v, b)    X( q)    Z( v, q, b)

Proof of Theorem dchrisum0flblem2
StepHypRef Expression
1 breq1 4285 . . 3  |-  ( 1  =  if ( ( sqr `  A )  e.  NN ,  1 ,  0 )  -> 
( 1  <_  (
( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )  <->  if ( ( sqr `  A )  e.  NN ,  1 ,  0 )  <_  ( ( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) ) )
2 breq1 4285 . . 3  |-  ( 0  =  if ( ( sqr `  A )  e.  NN ,  1 ,  0 )  -> 
( 0  <_  (
( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )  <->  if ( ( sqr `  A )  e.  NN ,  1 ,  0 )  <_  ( ( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) ) )
3 1t1e1 10459 . . . 4  |-  ( 1  x.  1 )  =  1
4 dchrisum0flb.2 . . . . . . . . . . . . . . 15  |-  ( ph  ->  P  e.  Prime )
54adantr 462 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  P  e.  Prime )
6 nnq 10956 . . . . . . . . . . . . . . 15  |-  ( ( sqr `  A )  e.  NN  ->  ( sqr `  A )  e.  QQ )
76adantl 463 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  A
)  e.  QQ )
8 nnne0 10344 . . . . . . . . . . . . . . 15  |-  ( ( sqr `  A )  e.  NN  ->  ( sqr `  A )  =/=  0 )
98adantl 463 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  A
)  =/=  0 )
10 2z 10668 . . . . . . . . . . . . . . 15  |-  2  e.  ZZ
1110a1i 11 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  2  e.  ZZ )
12 pcexp 13911 . . . . . . . . . . . . . 14  |-  ( ( P  e.  Prime  /\  (
( sqr `  A
)  e.  QQ  /\  ( sqr `  A )  =/=  0 )  /\  2  e.  ZZ )  ->  ( P  pCnt  (
( sqr `  A
) ^ 2 ) )  =  ( 2  x.  ( P  pCnt  ( sqr `  A ) ) ) )
135, 7, 9, 11, 12syl121anc 1218 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P  pCnt  ( ( sqr `  A
) ^ 2 ) )  =  ( 2  x.  ( P  pCnt  ( sqr `  A ) ) ) )
14 dchrisum0flb.1 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  A  e.  ( ZZ>= ` 
2 ) )
15 eluz2b2 10917 . . . . . . . . . . . . . . . . . . 19  |-  ( A  e.  ( ZZ>= `  2
)  <->  ( A  e.  NN  /\  1  < 
A ) )
1615simplbi 457 . . . . . . . . . . . . . . . . . 18  |-  ( A  e.  ( ZZ>= `  2
)  ->  A  e.  NN )
1714, 16syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  A  e.  NN )
1817nncnd 10328 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  A  e.  CC )
1918adantr 462 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  A  e.  CC )
2019sqsqrd 12911 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( ( sqr `  A ) ^ 2 )  =  A )
2120oveq2d 6098 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P  pCnt  ( ( sqr `  A
) ^ 2 ) )  =  ( P 
pCnt  A ) )
22 2cnd 10384 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  2  e.  CC )
23 simpr 458 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  A
)  e.  NN )
245, 23pccld 13902 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P  pCnt  ( sqr `  A ) )  e.  NN0 )
2524nn0cnd 10628 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P  pCnt  ( sqr `  A ) )  e.  CC )
2622, 25mulcomd 9397 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( 2  x.  ( P  pCnt  ( sqr `  A ) ) )  =  ( ( P  pCnt  ( sqr `  A ) )  x.  2 ) )
2713, 21, 263eqtr3rd 2476 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( ( P 
pCnt  ( sqr `  A
) )  x.  2 )  =  ( P 
pCnt  A ) )
2827oveq2d 6098 . . . . . . . . . . 11  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P ^
( ( P  pCnt  ( sqr `  A ) )  x.  2 ) )  =  ( P ^ ( P  pCnt  A ) ) )
29 prmnn 13751 . . . . . . . . . . . . . 14  |-  ( P  e.  Prime  ->  P  e.  NN )
305, 29syl 16 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  P  e.  NN )
3130nncnd 10328 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  P  e.  CC )
32 2nn0 10586 . . . . . . . . . . . . 13  |-  2  e.  NN0
3332a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  2  e.  NN0 )
3431, 33, 24expmuld 11997 . . . . . . . . . . 11  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P ^
( ( P  pCnt  ( sqr `  A ) )  x.  2 ) )  =  ( ( P ^ ( P 
pCnt  ( sqr `  A
) ) ) ^
2 ) )
3528, 34eqtr3d 2469 . . . . . . . . . 10  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P ^
( P  pCnt  A
) )  =  ( ( P ^ ( P  pCnt  ( sqr `  A
) ) ) ^
2 ) )
3635fveq2d 5685 . . . . . . . . 9  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  ( P ^ ( P  pCnt  A ) ) )  =  ( sqr `  (
( P ^ ( P  pCnt  ( sqr `  A
) ) ) ^
2 ) ) )
3730, 24nnexpcld 12015 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P ^
( P  pCnt  ( sqr `  A ) ) )  e.  NN )
3837nnrpd 11016 . . . . . . . . . . 11  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P ^
( P  pCnt  ( sqr `  A ) ) )  e.  RR+ )
3938rprege0d 11024 . . . . . . . . . 10  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( ( P ^ ( P  pCnt  ( sqr `  A ) ) )  e.  RR  /\  0  <_  ( P ^ ( P  pCnt  ( sqr `  A ) ) ) ) )
40 sqrsq 12745 . . . . . . . . . 10  |-  ( ( ( P ^ ( P  pCnt  ( sqr `  A
) ) )  e.  RR  /\  0  <_ 
( P ^ ( P  pCnt  ( sqr `  A
) ) ) )  ->  ( sqr `  (
( P ^ ( P  pCnt  ( sqr `  A
) ) ) ^
2 ) )  =  ( P ^ ( P  pCnt  ( sqr `  A
) ) ) )
4139, 40syl 16 . . . . . . . . 9  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  (
( P ^ ( P  pCnt  ( sqr `  A
) ) ) ^
2 ) )  =  ( P ^ ( P  pCnt  ( sqr `  A
) ) ) )
4236, 41eqtrd 2467 . . . . . . . 8  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  ( P ^ ( P  pCnt  A ) ) )  =  ( P ^ ( P  pCnt  ( sqr `  A
) ) ) )
4342, 37eqeltrd 2509 . . . . . . 7  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN )
44 iftrue 3787 . . . . . . 7  |-  ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN  ->  if (
( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 )  =  1 )
4543, 44syl 16 . . . . . 6  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 )  =  1 )
46 rpvmasum.z . . . . . . . 8  |-  Z  =  (ℤ/n `  N )
47 rpvmasum.l . . . . . . . 8  |-  L  =  ( ZRHom `  Z
)
48 rpvmasum.a . . . . . . . 8  |-  ( ph  ->  N  e.  NN )
49 rpvmasum2.g . . . . . . . 8  |-  G  =  (DChr `  N )
50 rpvmasum2.d . . . . . . . 8  |-  D  =  ( Base `  G
)
51 rpvmasum2.1 . . . . . . . 8  |-  .1.  =  ( 0g `  G )
52 dchrisum0f.f . . . . . . . 8  |-  F  =  ( b  e.  NN  |->  sum_ v  e.  { q  e.  NN  |  q 
||  b }  ( X `  ( L `  v ) ) )
53 dchrisum0f.x . . . . . . . 8  |-  ( ph  ->  X  e.  D )
54 dchrisum0flb.r . . . . . . . 8  |-  ( ph  ->  X : ( Base `  Z ) --> RR )
554, 17pccld 13902 . . . . . . . 8  |-  ( ph  ->  ( P  pCnt  A
)  e.  NN0 )
5646, 47, 48, 49, 50, 51, 52, 53, 54, 4, 55dchrisum0flblem1 22644 . . . . . . 7  |-  ( ph  ->  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN , 
1 ,  0 )  <_  ( F `  ( P ^ ( P 
pCnt  A ) ) ) )
5756adantr 462 . . . . . 6  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 )  <_  ( F `  ( P ^ ( P  pCnt  A ) ) ) )
5845, 57eqbrtrrd 4304 . . . . 5  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  1  <_  ( F `  ( P ^ ( P  pCnt  A ) ) ) )
59 pcdvds 13915 . . . . . . . . . . . . 13  |-  ( ( P  e.  Prime  /\  A  e.  NN )  ->  ( P ^ ( P  pCnt  A ) )  ||  A
)
604, 17, 59syl2anc 656 . . . . . . . . . . . 12  |-  ( ph  ->  ( P ^ ( P  pCnt  A ) ) 
||  A )
614, 29syl 16 . . . . . . . . . . . . . 14  |-  ( ph  ->  P  e.  NN )
6261, 55nnexpcld 12015 . . . . . . . . . . . . 13  |-  ( ph  ->  ( P ^ ( P  pCnt  A ) )  e.  NN )
63 nndivdvds 13526 . . . . . . . . . . . . 13  |-  ( ( A  e.  NN  /\  ( P ^ ( P 
pCnt  A ) )  e.  NN )  ->  (
( P ^ ( P  pCnt  A ) ) 
||  A  <->  ( A  /  ( P ^
( P  pCnt  A
) ) )  e.  NN ) )
6417, 62, 63syl2anc 656 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( P ^
( P  pCnt  A
) )  ||  A  <->  ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  NN ) )
6560, 64mpbid 210 . . . . . . . . . . 11  |-  ( ph  ->  ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  NN )
6665nnzd 10736 . . . . . . . . . 10  |-  ( ph  ->  ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  ZZ )
6766adantr 462 . . . . . . . . 9  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( A  / 
( P ^ ( P  pCnt  A ) ) )  e.  ZZ )
6817adantr 462 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  A  e.  NN )
6968nnrpd 11016 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  A  e.  RR+ )
7069rprege0d 11024 . . . . . . . . . . 11  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( A  e.  RR  /\  0  <_  A ) )
7162adantr 462 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P ^
( P  pCnt  A
) )  e.  NN )
7271nnrpd 11016 . . . . . . . . . . 11  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( P ^
( P  pCnt  A
) )  e.  RR+ )
73 sqrdiv 12741 . . . . . . . . . . 11  |-  ( ( ( A  e.  RR  /\  0  <_  A )  /\  ( P ^ ( P  pCnt  A ) )  e.  RR+ )  ->  ( sqr `  ( A  / 
( P ^ ( P  pCnt  A ) ) ) )  =  ( ( sqr `  A
)  /  ( sqr `  ( P ^ ( P  pCnt  A ) ) ) ) )
7470, 72, 73syl2anc 656 . . . . . . . . . 10  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  =  ( ( sqr `  A )  /  ( sqr `  ( P ^
( P  pCnt  A
) ) ) ) )
75 nnz 10658 . . . . . . . . . . . 12  |-  ( ( sqr `  A )  e.  NN  ->  ( sqr `  A )  e.  ZZ )
7675adantl 463 . . . . . . . . . . 11  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  A
)  e.  ZZ )
77 znq 10947 . . . . . . . . . . 11  |-  ( ( ( sqr `  A
)  e.  ZZ  /\  ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN )  ->  (
( sqr `  A
)  /  ( sqr `  ( P ^ ( P  pCnt  A ) ) ) )  e.  QQ )
7876, 43, 77syl2anc 656 . . . . . . . . . 10  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( ( sqr `  A )  /  ( sqr `  ( P ^
( P  pCnt  A
) ) ) )  e.  QQ )
7974, 78eqeltrd 2509 . . . . . . . . 9  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  QQ )
80 zsqrelqelz 13821 . . . . . . . . 9  |-  ( ( ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  ZZ  /\  ( sqr `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  e.  QQ )  -> 
( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  ZZ )
8167, 79, 80syl2anc 656 . . . . . . . 8  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  ZZ )
8265adantr 462 . . . . . . . . . 10  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( A  / 
( P ^ ( P  pCnt  A ) ) )  e.  NN )
8382nnrpd 11016 . . . . . . . . 9  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( A  / 
( P ^ ( P  pCnt  A ) ) )  e.  RR+ )
8483sqrgt0d 12885 . . . . . . . 8  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  0  <  ( sqr `  ( A  / 
( P ^ ( P  pCnt  A ) ) ) ) )
85 elnnz 10646 . . . . . . . 8  |-  ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN  <->  ( ( sqr `  ( A  / 
( P ^ ( P  pCnt  A ) ) ) )  e.  ZZ  /\  0  <  ( sqr `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) ) ) )
8681, 84, 85sylanbrc 659 . . . . . . 7  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN )
87 iftrue 3787 . . . . . . 7  |-  ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN  ->  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  =  1 )
8886, 87syl 16 . . . . . 6  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  =  1 )
89 nnuz 10886 . . . . . . . . . 10  |-  NN  =  ( ZZ>= `  1 )
9065, 89syl6eleq 2525 . . . . . . . . 9  |-  ( ph  ->  ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  ( ZZ>= `  1 )
)
9117nnzd 10736 . . . . . . . . 9  |-  ( ph  ->  A  e.  ZZ )
9261nnred 10327 . . . . . . . . . . . 12  |-  ( ph  ->  P  e.  RR )
93 dchrisum0flb.3 . . . . . . . . . . . . 13  |-  ( ph  ->  P  ||  A )
94 pcelnn 13921 . . . . . . . . . . . . . 14  |-  ( ( P  e.  Prime  /\  A  e.  NN )  ->  (
( P  pCnt  A
)  e.  NN  <->  P  ||  A
) )
954, 17, 94syl2anc 656 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( P  pCnt  A )  e.  NN  <->  P  ||  A
) )
9693, 95mpbird 232 . . . . . . . . . . . 12  |-  ( ph  ->  ( P  pCnt  A
)  e.  NN )
97 prmuz2 13766 . . . . . . . . . . . . 13  |-  ( P  e.  Prime  ->  P  e.  ( ZZ>= `  2 )
)
98 eluz2b2 10917 . . . . . . . . . . . . . 14  |-  ( P  e.  ( ZZ>= `  2
)  <->  ( P  e.  NN  /\  1  < 
P ) )
9998simprbi 461 . . . . . . . . . . . . 13  |-  ( P  e.  ( ZZ>= `  2
)  ->  1  <  P )
1004, 97, 993syl 20 . . . . . . . . . . . 12  |-  ( ph  ->  1  <  P )
101 expgt1 11888 . . . . . . . . . . . 12  |-  ( ( P  e.  RR  /\  ( P  pCnt  A )  e.  NN  /\  1  <  P )  ->  1  <  ( P ^ ( P  pCnt  A ) ) )
10292, 96, 100, 101syl3anc 1213 . . . . . . . . . . 11  |-  ( ph  ->  1  <  ( P ^ ( P  pCnt  A ) ) )
103 1re 9375 . . . . . . . . . . . . 13  |-  1  e.  RR
104103a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  1  e.  RR )
10562nnred 10327 . . . . . . . . . . . 12  |-  ( ph  ->  ( P ^ ( P  pCnt  A ) )  e.  RR )
10617nnred 10327 . . . . . . . . . . . 12  |-  ( ph  ->  A  e.  RR )
107 0lt1 9852 . . . . . . . . . . . . 13  |-  0  <  1
108107a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  0  <  1 )
10962nngt0d 10355 . . . . . . . . . . . 12  |-  ( ph  ->  0  <  ( P ^ ( P  pCnt  A ) ) )
11017nngt0d 10355 . . . . . . . . . . . 12  |-  ( ph  ->  0  <  A )
111 ltdiv2OLD 10208 . . . . . . . . . . . 12  |-  ( ( ( 1  e.  RR  /\  ( P ^ ( P  pCnt  A ) )  e.  RR  /\  A  e.  RR )  /\  (
0  <  1  /\  0  <  ( P ^
( P  pCnt  A
) )  /\  0  <  A ) )  -> 
( 1  <  ( P ^ ( P  pCnt  A ) )  <->  ( A  /  ( P ^
( P  pCnt  A
) ) )  < 
( A  /  1
) ) )
112104, 105, 106, 108, 109, 110, 111syl33anc 1228 . . . . . . . . . . 11  |-  ( ph  ->  ( 1  <  ( P ^ ( P  pCnt  A ) )  <->  ( A  /  ( P ^
( P  pCnt  A
) ) )  < 
( A  /  1
) ) )
113102, 112mpbid 210 . . . . . . . . . 10  |-  ( ph  ->  ( A  /  ( P ^ ( P  pCnt  A ) ) )  < 
( A  /  1
) )
11418div1d 10089 . . . . . . . . . 10  |-  ( ph  ->  ( A  /  1
)  =  A )
115113, 114breqtrd 4306 . . . . . . . . 9  |-  ( ph  ->  ( A  /  ( P ^ ( P  pCnt  A ) ) )  < 
A )
116 elfzo2 11542 . . . . . . . . 9  |-  ( ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  ( 1..^ A )  <-> 
( ( A  / 
( P ^ ( P  pCnt  A ) ) )  e.  ( ZZ>= ` 
1 )  /\  A  e.  ZZ  /\  ( A  /  ( P ^
( P  pCnt  A
) ) )  < 
A ) )
11790, 91, 115, 116syl3anbrc 1167 . . . . . . . 8  |-  ( ph  ->  ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  ( 1..^ A ) )
118 dchrisum0flb.4 . . . . . . . 8  |-  ( ph  ->  A. y  e.  ( 1..^ A ) if ( ( sqr `  y
)  e.  NN , 
1 ,  0 )  <_  ( F `  y ) )
119 fveq2 5681 . . . . . . . . . . . 12  |-  ( y  =  ( A  / 
( P ^ ( P  pCnt  A ) ) )  ->  ( sqr `  y )  =  ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )
120119eleq1d 2501 . . . . . . . . . . 11  |-  ( y  =  ( A  / 
( P ^ ( P  pCnt  A ) ) )  ->  ( ( sqr `  y )  e.  NN  <->  ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ) )
121120ifbid 3801 . . . . . . . . . 10  |-  ( y  =  ( A  / 
( P ^ ( P  pCnt  A ) ) )  ->  if (
( sqr `  y
)  e.  NN , 
1 ,  0 )  =  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 ) )
122 fveq2 5681 . . . . . . . . . 10  |-  ( y  =  ( A  / 
( P ^ ( P  pCnt  A ) ) )  ->  ( F `  y )  =  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )
123121, 122breq12d 4295 . . . . . . . . 9  |-  ( y  =  ( A  / 
( P ^ ( P  pCnt  A ) ) )  ->  ( if ( ( sqr `  y
)  e.  NN , 
1 ,  0 )  <_  ( F `  y )  <->  if (
( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  <_ 
( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) )
124123rspcv 3060 . . . . . . . 8  |-  ( ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  ( 1..^ A )  ->  ( A. y  e.  ( 1..^ A ) if ( ( sqr `  y )  e.  NN ,  1 ,  0 )  <_  ( F `  y )  ->  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  <_ 
( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) )
125117, 118, 124sylc 60 . . . . . . 7  |-  ( ph  ->  if ( ( sqr `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  e.  NN ,  1 ,  0 )  <_ 
( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )
126125adantr 462 . . . . . 6  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  <_ 
( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )
12788, 126eqbrtrrd 4304 . . . . 5  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  1  <_  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )
128 0le1 9853 . . . . . . . 8  |-  0  <_  1
129103, 128pm3.2i 452 . . . . . . 7  |-  ( 1  e.  RR  /\  0  <_  1 )
130129a1i 11 . . . . . 6  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( 1  e.  RR  /\  0  <_ 
1 ) )
13146, 47, 48, 49, 50, 51, 52, 53, 54dchrisum0ff 22643 . . . . . . . 8  |-  ( ph  ->  F : NN --> RR )
132131, 62ffvelrnd 5834 . . . . . . 7  |-  ( ph  ->  ( F `  ( P ^ ( P  pCnt  A ) ) )  e.  RR )
133132adantr 462 . . . . . 6  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( F `  ( P ^ ( P 
pCnt  A ) ) )  e.  RR )
134131, 65ffvelrnd 5834 . . . . . . 7  |-  ( ph  ->  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  RR )
135134adantr 462 . . . . . 6  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( F `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  e.  RR )
136 lemul12a 10177 . . . . . 6  |-  ( ( ( ( 1  e.  RR  /\  0  <_ 
1 )  /\  ( F `  ( P ^ ( P  pCnt  A ) ) )  e.  RR )  /\  (
( 1  e.  RR  /\  0  <_  1 )  /\  ( F `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  e.  RR ) )  ->  ( ( 1  <_  ( F `  ( P ^ ( P 
pCnt  A ) ) )  /\  1  <_  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )  ->  ( 1  x.  1 )  <_ 
( ( F `  ( P ^ ( P 
pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) ) ) ) )
137130, 133, 130, 135, 136syl22anc 1214 . . . . 5  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( ( 1  <_  ( F `  ( P ^ ( P 
pCnt  A ) ) )  /\  1  <_  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) )  ->  ( 1  x.  1 )  <_ 
( ( F `  ( P ^ ( P 
pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) ) ) ) )
13858, 127, 137mp2and 674 . . . 4  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  ( 1  x.  1 )  <_  (
( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) )
1393, 138syl5eqbrr 4316 . . 3  |-  ( (
ph  /\  ( sqr `  A )  e.  NN )  ->  1  <_  (
( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) )
140 0red 9377 . . . . . 6  |-  ( ph  ->  0  e.  RR )
141 0re 9376 . . . . . . . 8  |-  0  e.  RR
142103, 141keepel 3847 . . . . . . 7  |-  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 )  e.  RR
143142a1i 11 . . . . . 6  |-  ( ph  ->  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN , 
1 ,  0 )  e.  RR )
144 breq2 4286 . . . . . . . 8  |-  ( 1  =  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 )  ->  (
0  <_  1  <->  0  <_  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 ) ) )
145 breq2 4286 . . . . . . . 8  |-  ( 0  =  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 )  ->  (
0  <_  0  <->  0  <_  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 ) ) )
146 0le0 10401 . . . . . . . 8  |-  0  <_  0
147144, 145, 128, 146keephyp 3844 . . . . . . 7  |-  0  <_  if ( ( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN , 
1 ,  0 )
148147a1i 11 . . . . . 6  |-  ( ph  ->  0  <_  if (
( sqr `  ( P ^ ( P  pCnt  A ) ) )  e.  NN ,  1 ,  0 ) )
149140, 143, 132, 148, 56letrd 9518 . . . . 5  |-  ( ph  ->  0  <_  ( F `  ( P ^ ( P  pCnt  A ) ) ) )
150103, 141keepel 3847 . . . . . . 7  |-  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  e.  RR
151150a1i 11 . . . . . 6  |-  ( ph  ->  if ( ( sqr `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  e.  NN ,  1 ,  0 )  e.  RR )
152 breq2 4286 . . . . . . . 8  |-  ( 1  =  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  -> 
( 0  <_  1  <->  0  <_  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 ) ) )
153 breq2 4286 . . . . . . . 8  |-  ( 0  =  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 )  -> 
( 0  <_  0  <->  0  <_  if ( ( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 ) ) )
154152, 153, 128, 146keephyp 3844 . . . . . . 7  |-  0  <_  if ( ( sqr `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  e.  NN ,  1 ,  0 )
155154a1i 11 . . . . . 6  |-  ( ph  ->  0  <_  if (
( sqr `  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  e.  NN ,  1 ,  0 ) )
156140, 151, 134, 155, 125letrd 9518 . . . . 5  |-  ( ph  ->  0  <_  ( F `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) ) )
157132, 134, 149, 156mulge0d 9906 . . . 4  |-  ( ph  ->  0  <_  ( ( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) )
158157adantr 462 . . 3  |-  ( (
ph  /\  -.  ( sqr `  A )  e.  NN )  ->  0  <_  ( ( F `  ( P ^ ( P 
pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) ) ) )
1591, 2, 139, 158ifbothda 3814 . 2  |-  ( ph  ->  if ( ( sqr `  A )  e.  NN ,  1 ,  0 )  <_  ( ( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) )
16062nncnd 10328 . . . . 5  |-  ( ph  ->  ( P ^ ( P  pCnt  A ) )  e.  CC )
16162nnne0d 10356 . . . . 5  |-  ( ph  ->  ( P ^ ( P  pCnt  A ) )  =/=  0 )
16218, 160, 161divcan2d 10099 . . . 4  |-  ( ph  ->  ( ( P ^
( P  pCnt  A
) )  x.  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  =  A )
163162fveq2d 5685 . . 3  |-  ( ph  ->  ( F `  (
( P ^ ( P  pCnt  A ) )  x.  ( A  / 
( P ^ ( P  pCnt  A ) ) ) ) )  =  ( F `  A
) )
164 pcndvds2 13919 . . . . . . 7  |-  ( ( P  e.  Prime  /\  A  e.  NN )  ->  -.  P  ||  ( A  / 
( P ^ ( P  pCnt  A ) ) ) )
1654, 17, 164syl2anc 656 . . . . . 6  |-  ( ph  ->  -.  P  ||  ( A  /  ( P ^
( P  pCnt  A
) ) ) )
166 coprm 13771 . . . . . . 7  |-  ( ( P  e.  Prime  /\  ( A  /  ( P ^
( P  pCnt  A
) ) )  e.  ZZ )  ->  ( -.  P  ||  ( A  /  ( P ^
( P  pCnt  A
) ) )  <->  ( P  gcd  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  =  1 ) )
1674, 66, 166syl2anc 656 . . . . . 6  |-  ( ph  ->  ( -.  P  ||  ( A  /  ( P ^ ( P  pCnt  A ) ) )  <->  ( P  gcd  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  =  1 ) )
168165, 167mpbid 210 . . . . 5  |-  ( ph  ->  ( P  gcd  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  =  1 )
169 prmz 13752 . . . . . . 7  |-  ( P  e.  Prime  ->  P  e.  ZZ )
1704, 169syl 16 . . . . . 6  |-  ( ph  ->  P  e.  ZZ )
171 rpexp1i 13792 . . . . . 6  |-  ( ( P  e.  ZZ  /\  ( A  /  ( P ^ ( P  pCnt  A ) ) )  e.  ZZ  /\  ( P 
pCnt  A )  e.  NN0 )  ->  ( ( P  gcd  ( A  / 
( P ^ ( P  pCnt  A ) ) ) )  =  1  ->  ( ( P ^ ( P  pCnt  A ) )  gcd  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  =  1 ) )
172170, 66, 55, 171syl3anc 1213 . . . . 5  |-  ( ph  ->  ( ( P  gcd  ( A  /  ( P ^ ( P  pCnt  A ) ) ) )  =  1  ->  (
( P ^ ( P  pCnt  A ) )  gcd  ( A  / 
( P ^ ( P  pCnt  A ) ) ) )  =  1 ) )
173168, 172mpd 15 . . . 4  |-  ( ph  ->  ( ( P ^
( P  pCnt  A
) )  gcd  ( A  /  ( P ^
( P  pCnt  A
) ) ) )  =  1 )
17446, 47, 48, 49, 50, 51, 52, 53, 62, 65, 173dchrisum0fmul 22642 . . 3  |-  ( ph  ->  ( F `  (
( P ^ ( P  pCnt  A ) )  x.  ( A  / 
( P ^ ( P  pCnt  A ) ) ) ) )  =  ( ( F `  ( P ^ ( P 
pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^ ( P  pCnt  A ) ) ) ) ) )
175163, 174eqtr3d 2469 . 2  |-  ( ph  ->  ( F `  A
)  =  ( ( F `  ( P ^ ( P  pCnt  A ) ) )  x.  ( F `  ( A  /  ( P ^
( P  pCnt  A
) ) ) ) ) )
176159, 175breqtrrd 4308 1  |-  ( ph  ->  if ( ( sqr `  A )  e.  NN ,  1 ,  0 )  <_  ( F `  A ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    = wceq 1364    e. wcel 1757    =/= wne 2598   A.wral 2707   {crab 2711   ifcif 3781   class class class wbr 4282    e. cmpt 4340   -->wf 5404   ` cfv 5408  (class class class)co 6082   CCcc 9270   RRcr 9271   0cc0 9272   1c1 9273    x. cmul 9277    < clt 9408    <_ cle 9409    / cdiv 9983   NNcn 10312   2c2 10361   NN0cn0 10569   ZZcz 10636   ZZ>=cuz 10851   QQcq 10943   RR+crp 10981  ..^cfzo 11534   ^cexp 11851   sqrcsqr 12708   sum_csu 13149    || cdivides 13520    gcd cgcd 13675   Primecprime 13748    pCnt cpc 13888   Basecbs 14159   0gc0g 14363   ZRHomczrh 17775  ℤ/nczn 17778  DChrcdchr 22458
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1671  ax-6 1709  ax-7 1729  ax-8 1759  ax-9 1761  ax-10 1776  ax-11 1781  ax-12 1793  ax-13 1944  ax-ext 2416  ax-rep 4393  ax-sep 4403  ax-nul 4411  ax-pow 4460  ax-pr 4521  ax-un 6363  ax-inf2 7837  ax-cnex 9328  ax-resscn 9329  ax-1cn 9330  ax-icn 9331  ax-addcl 9332  ax-addrcl 9333  ax-mulcl 9334  ax-mulrcl 9335  ax-mulcom 9336  ax-addass 9337  ax-mulass 9338  ax-distr 9339  ax-i2m1 9340  ax-1ne0 9341  ax-1rid 9342  ax-rnegex 9343  ax-rrecex 9344  ax-cnre 9345  ax-pre-lttri 9346  ax-pre-lttrn 9347  ax-pre-ltadd 9348  ax-pre-mulgt0 9349  ax-pre-sup 9350  ax-addf 9351  ax-mulf 9352
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 961  df-3an 962  df-tru 1367  df-fal 1370  df-ex 1592  df-nf 1595  df-sb 1702  df-eu 2260  df-mo 2261  df-clab 2422  df-cleq 2428  df-clel 2431  df-nfc 2560  df-ne 2600  df-nel 2601  df-ral 2712  df-rex 2713  df-reu 2714  df-rmo 2715  df-rab 2716  df-v 2966  df-sbc 3178  df-csb 3279  df-dif 3321  df-un 3323  df-in 3325  df-ss 3332  df-pss 3334  df-nul 3628  df-if 3782  df-pw 3852  df-sn 3868  df-pr 3870  df-tp 3872  df-op 3874  df-uni 4082  df-int 4119  df-iun 4163  df-iin 4164  df-disj 4253  df-br 4283  df-opab 4341  df-mpt 4342  df-tr 4376  df-eprel 4621  df-id 4625  df-po 4630  df-so 4631  df-fr 4668  df-se 4669  df-we 4670  df-ord 4711  df-on 4712  df-lim 4713  df-suc 4714  df-xp 4835  df-rel 4836  df-cnv 4837  df-co 4838  df-dm 4839  df-rn 4840  df-res 4841  df-ima 4842  df-iota 5371  df-fun 5410  df-fn 5411  df-f 5412  df-f1 5413  df-fo 5414  df-f1o 5415  df-fv 5416  df-isom 5417  df-riota 6041  df-ov 6085  df-oprab 6086  df-mpt2 6087  df-of 6311  df-om 6468  df-1st 6568  df-2nd 6569  df-supp 6682  df-tpos 6736  df-recs 6820  df-rdg 6854  df-1o 6910  df-2o 6911  df-oadd 6914  df-omul 6915  df-er 7091  df-ec 7093  df-qs 7097  df-map 7206  df-pm 7207  df-ixp 7254  df-en 7301  df-dom 7302  df-sdom 7303  df-fin 7304  df-fsupp 7611  df-fi 7651  df-sup 7681  df-oi 7714  df-card 8099  df-acn 8102  df-cda 8327  df-pnf 9410  df-mnf 9411  df-xr 9412  df-ltxr 9413  df-le 9414  df-sub 9587  df-neg 9588  df-div 9984  df-nn 10313  df-2 10370  df-3 10371  df-4 10372  df-5 10373  df-6 10374  df-7 10375  df-8 10376  df-9 10377  df-10 10378  df-n0 10570  df-z 10637  df-dec 10746  df-uz 10852  df-q 10944  df-rp 10982  df-xneg 11079  df-xadd 11080  df-xmul 11081  df-ioo 11294  df-ioc 11295  df-ico 11296  df-icc 11297  df-fz 11427  df-fzo 11535  df-fl 11628  df-mod 11695  df-seq 11793  df-exp 11852  df-fac 12038  df-bc 12065  df-hash 12090  df-shft 12542  df-cj 12574  df-re 12575  df-im 12576  df-sqr 12710  df-abs 12711  df-limsup 12935  df-clim 12952  df-rlim 12953  df-sum 13150  df-ef 13338  df-sin 13340  df-cos 13341  df-pi 13343  df-dvds 13521  df-gcd 13676  df-prm 13749  df-numer 13798  df-denom 13799  df-pc 13889  df-struct 14161  df-ndx 14162  df-slot 14163  df-base 14164  df-sets 14165  df-ress 14166  df-plusg 14236  df-mulr 14237  df-starv 14238  df-sca 14239  df-vsca 14240  df-ip 14241  df-tset 14242  df-ple 14243  df-ds 14245  df-unif 14246  df-hom 14247  df-cco 14248  df-rest 14346  df-topn 14347  df-0g 14365  df-gsum 14366  df-topgen 14367  df-pt 14368  df-prds 14371  df-xrs 14425  df-qtop 14430  df-imas 14431  df-divs 14432  df-xps 14433  df-mre 14509  df-mrc 14510  df-acs 14512  df-mnd 15400  df-mhm 15449  df-submnd 15450  df-grp 15527  df-minusg 15528  df-sbg 15529  df-mulg 15530  df-subg 15660  df-nsg 15661  df-eqg 15662  df-ghm 15727  df-cntz 15817  df-od 16014  df-cmn 16261  df-abl 16262  df-mgp 16568  df-rng 16582  df-cring 16583  df-ur 16584  df-oppr 16651  df-dvdsr 16669  df-unit 16670  df-invr 16700  df-dvr 16711  df-rnghom 16742  df-drng 16760  df-subrg 16789  df-lmod 16876  df-lss 16938  df-lsp 16977  df-sra 17177  df-rgmod 17178  df-lidl 17179  df-rsp 17180  df-2idl 17238  df-psmet 17655  df-xmet 17656  df-met 17657  df-bl 17658  df-mopn 17659  df-fbas 17660  df-fg 17661  df-cnfld 17665  df-zring 17728  df-zrh 17779  df-zn 17782  df-top 18347  df-bases 18349  df-topon 18350  df-topsp 18351  df-cld 18467  df-ntr 18468  df-cls 18469  df-nei 18546  df-lp 18584  df-perf 18585  df-cn 18675  df-cnp 18676  df-haus 18763  df-tx 18979  df-hmeo 19172  df-fil 19263  df-fm 19355  df-flim 19356  df-flf 19357  df-xms 19739  df-ms 19740  df-tms 19741  df-cncf 20298  df-limc 21185  df-dv 21186  df-log 21895  df-cxp 21896  df-dchr 22459
This theorem is referenced by:  dchrisum0flb  22646
  Copyright terms: Public domain W3C validator