Step |
Hyp |
Ref |
Expression |
1 |
|
rpvmasum.z |
β’ π = ( β€/nβ€ β π ) |
2 |
|
rpvmasum.l |
β’ πΏ = ( β€RHom β π ) |
3 |
|
rpvmasum.a |
β’ ( π β π β β ) |
4 |
|
dchrmusum.g |
β’ πΊ = ( DChr β π ) |
5 |
|
dchrmusum.d |
β’ π· = ( Base β πΊ ) |
6 |
|
dchrmusum.1 |
β’ 1 = ( 0g β πΊ ) |
7 |
|
dchrmusum.b |
β’ ( π β π β π· ) |
8 |
|
dchrmusum.n1 |
β’ ( π β π β 1 ) |
9 |
|
eqid |
β’ ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) = ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) |
10 |
1 2 3 4 5 6 7 8 9
|
dchrmusumlema |
β’ ( π β β π‘ β π β ( 0 [,) +β ) ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) |
11 |
3
|
adantr |
β’ ( ( π β§ ( π β ( 0 [,) +β ) β§ ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) ) β π β β ) |
12 |
7
|
adantr |
β’ ( ( π β§ ( π β ( 0 [,) +β ) β§ ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) ) β π β π· ) |
13 |
8
|
adantr |
β’ ( ( π β§ ( π β ( 0 [,) +β ) β§ ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) ) β π β 1 ) |
14 |
|
simprl |
β’ ( ( π β§ ( π β ( 0 [,) +β ) β§ ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) ) β π β ( 0 [,) +β ) ) |
15 |
|
simprrl |
β’ ( ( π β§ ( π β ( 0 [,) +β ) β§ ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) ) β seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ ) |
16 |
|
simprrr |
β’ ( ( π β§ ( π β ( 0 [,) +β ) β§ ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) ) β β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) |
17 |
1 2 11 4 5 6 12 13 9 14 15 16
|
dchrmusumlem |
β’ ( ( π β§ ( π β ( 0 [,) +β ) β§ ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) ) ) β ( π₯ β β+ β¦ Ξ£ π β ( 1 ... ( β β π₯ ) ) ( ( π β ( πΏ β π ) ) Β· ( ( ΞΌ β π ) / π ) ) ) β π(1) ) |
18 |
17
|
rexlimdvaa |
β’ ( π β ( β π β ( 0 [,) +β ) ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) β ( π₯ β β+ β¦ Ξ£ π β ( 1 ... ( β β π₯ ) ) ( ( π β ( πΏ β π ) ) Β· ( ( ΞΌ β π ) / π ) ) ) β π(1) ) ) |
19 |
18
|
exlimdv |
β’ ( π β ( β π‘ β π β ( 0 [,) +β ) ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β π‘ β§ β π¦ β ( 1 [,) +β ) ( abs β ( ( seq 1 ( + , ( π β β β¦ ( ( π β ( πΏ β π ) ) / π ) ) ) β ( β β π¦ ) ) β π‘ ) ) β€ ( π / π¦ ) ) β ( π₯ β β+ β¦ Ξ£ π β ( 1 ... ( β β π₯ ) ) ( ( π β ( πΏ β π ) ) Β· ( ( ΞΌ β π ) / π ) ) ) β π(1) ) ) |
20 |
10 19
|
mpd |
β’ ( π β ( π₯ β β+ β¦ Ξ£ π β ( 1 ... ( β β π₯ ) ) ( ( π β ( πΏ β π ) ) Β· ( ( ΞΌ β π ) / π ) ) ) β π(1) ) |