Step | Hyp | Ref
| Expression |
1 | | peano2z 12549 |
. . . . . 6
β’ (π΄ β β€ β (π΄ + 1) β
β€) |
2 | 1 | adantr 482 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(π΄ + 1) β
β€) |
3 | | zre 12508 |
. . . . 5
β’ ((π΄ + 1) β β€ β
(π΄ + 1) β
β) |
4 | 2, 3 | syl 17 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(π΄ + 1) β
β) |
5 | | chtval 26475 |
. . . 4
β’ ((π΄ + 1) β β β
(ΞΈβ(π΄ + 1)) =
Ξ£π β
((0[,](π΄ + 1)) β©
β)(logβπ)) |
6 | 4, 5 | syl 17 |
. . 3
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(ΞΈβ(π΄ + 1)) =
Ξ£π β
((0[,](π΄ + 1)) β©
β)(logβπ)) |
7 | | ppisval 26469 |
. . . . . 6
β’ ((π΄ + 1) β β β
((0[,](π΄ + 1)) β©
β) = ((2...(ββ(π΄ + 1))) β© β)) |
8 | 4, 7 | syl 17 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((0[,](π΄ + 1)) β©
β) = ((2...(ββ(π΄ + 1))) β© β)) |
9 | | flid 13719 |
. . . . . . . 8
β’ ((π΄ + 1) β β€ β
(ββ(π΄ + 1)) =
(π΄ + 1)) |
10 | 2, 9 | syl 17 |
. . . . . . 7
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(ββ(π΄ + 1)) =
(π΄ + 1)) |
11 | 10 | oveq2d 7374 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(2...(ββ(π΄ +
1))) = (2...(π΄ +
1))) |
12 | 11 | ineq1d 4172 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((2...(ββ(π΄ +
1))) β© β) = ((2...(π΄ + 1)) β© β)) |
13 | 8, 12 | eqtrd 2773 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((0[,](π΄ + 1)) β©
β) = ((2...(π΄ + 1))
β© β)) |
14 | 13 | sumeq1d 15591 |
. . 3
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
Ξ£π β
((0[,](π΄ + 1)) β©
β)(logβπ) =
Ξ£π β
((2...(π΄ + 1)) β©
β)(logβπ)) |
15 | 6, 14 | eqtrd 2773 |
. 2
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(ΞΈβ(π΄ + 1)) =
Ξ£π β
((2...(π΄ + 1)) β©
β)(logβπ)) |
16 | | zre 12508 |
. . . . . . . 8
β’ (π΄ β β€ β π΄ β
β) |
17 | 16 | adantr 482 |
. . . . . . 7
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
π΄ β
β) |
18 | 17 | ltp1d 12090 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
π΄ < (π΄ + 1)) |
19 | 17, 4 | ltnled 11307 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(π΄ < (π΄ + 1) β Β¬ (π΄ + 1) β€ π΄)) |
20 | 18, 19 | mpbid 231 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
Β¬ (π΄ + 1) β€ π΄) |
21 | | elinel1 4156 |
. . . . . 6
β’ ((π΄ + 1) β ((2...π΄) β© β) β (π΄ + 1) β (2...π΄)) |
22 | | elfzle2 13451 |
. . . . . 6
β’ ((π΄ + 1) β (2...π΄) β (π΄ + 1) β€ π΄) |
23 | 21, 22 | syl 17 |
. . . . 5
β’ ((π΄ + 1) β ((2...π΄) β© β) β (π΄ + 1) β€ π΄) |
24 | 20, 23 | nsyl 140 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
Β¬ (π΄ + 1) β
((2...π΄) β©
β)) |
25 | | disjsn 4673 |
. . . 4
β’
((((2...π΄) β©
β) β© {(π΄ + 1)}) =
β
β Β¬ (π΄ +
1) β ((2...π΄) β©
β)) |
26 | 24, 25 | sylibr 233 |
. . 3
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(((2...π΄) β© β)
β© {(π΄ + 1)}) =
β
) |
27 | | 2z 12540 |
. . . . . . 7
β’ 2 β
β€ |
28 | | zcn 12509 |
. . . . . . . . . . 11
β’ (π΄ β β€ β π΄ β
β) |
29 | 28 | adantr 482 |
. . . . . . . . . 10
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
π΄ β
β) |
30 | | ax-1cn 11114 |
. . . . . . . . . 10
β’ 1 β
β |
31 | | pncan 11412 |
. . . . . . . . . 10
β’ ((π΄ β β β§ 1 β
β) β ((π΄ + 1)
β 1) = π΄) |
32 | 29, 30, 31 | sylancl 587 |
. . . . . . . . 9
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((π΄ + 1) β 1) = π΄) |
33 | | prmuz2 16577 |
. . . . . . . . . . 11
β’ ((π΄ + 1) β β β
(π΄ + 1) β
(β€β₯β2)) |
34 | 33 | adantl 483 |
. . . . . . . . . 10
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(π΄ + 1) β
(β€β₯β2)) |
35 | | uz2m1nn 12853 |
. . . . . . . . . 10
β’ ((π΄ + 1) β
(β€β₯β2) β ((π΄ + 1) β 1) β
β) |
36 | 34, 35 | syl 17 |
. . . . . . . . 9
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((π΄ + 1) β 1) β
β) |
37 | 32, 36 | eqeltrrd 2835 |
. . . . . . . 8
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
π΄ β
β) |
38 | | nnuz 12811 |
. . . . . . . . 9
β’ β =
(β€β₯β1) |
39 | | 2m1e1 12284 |
. . . . . . . . . 10
β’ (2
β 1) = 1 |
40 | 39 | fveq2i 6846 |
. . . . . . . . 9
β’
(β€β₯β(2 β 1)) =
(β€β₯β1) |
41 | 38, 40 | eqtr4i 2764 |
. . . . . . . 8
β’ β =
(β€β₯β(2 β 1)) |
42 | 37, 41 | eleqtrdi 2844 |
. . . . . . 7
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
π΄ β
(β€β₯β(2 β 1))) |
43 | | fzsuc2 13505 |
. . . . . . 7
β’ ((2
β β€ β§ π΄
β (β€β₯β(2 β 1))) β (2...(π΄ + 1)) = ((2...π΄) βͺ {(π΄ + 1)})) |
44 | 27, 42, 43 | sylancr 588 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(2...(π΄ + 1)) = ((2...π΄) βͺ {(π΄ + 1)})) |
45 | 44 | ineq1d 4172 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((2...(π΄ + 1)) β©
β) = (((2...π΄) βͺ
{(π΄ + 1)}) β©
β)) |
46 | | indir 4236 |
. . . . 5
β’
(((2...π΄) βͺ
{(π΄ + 1)}) β© β) =
(((2...π΄) β© β)
βͺ ({(π΄ + 1)} β©
β)) |
47 | 45, 46 | eqtrdi 2789 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((2...(π΄ + 1)) β©
β) = (((2...π΄) β©
β) βͺ ({(π΄ + 1)}
β© β))) |
48 | | simpr 486 |
. . . . . . 7
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(π΄ + 1) β
β) |
49 | 48 | snssd 4770 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
{(π΄ + 1)} β
β) |
50 | | df-ss 3928 |
. . . . . 6
β’ ({(π΄ + 1)} β β β
({(π΄ + 1)} β© β) =
{(π΄ + 1)}) |
51 | 49, 50 | sylib 217 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
({(π΄ + 1)} β© β) =
{(π΄ + 1)}) |
52 | 51 | uneq2d 4124 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(((2...π΄) β© β)
βͺ ({(π΄ + 1)} β©
β)) = (((2...π΄) β©
β) βͺ {(π΄ +
1)})) |
53 | 47, 52 | eqtrd 2773 |
. . 3
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((2...(π΄ + 1)) β©
β) = (((2...π΄) β©
β) βͺ {(π΄ +
1)})) |
54 | | fzfid 13884 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(2...(π΄ + 1)) β
Fin) |
55 | | inss1 4189 |
. . . 4
β’
((2...(π΄ + 1)) β©
β) β (2...(π΄ +
1)) |
56 | | ssfi 9120 |
. . . 4
β’
(((2...(π΄ + 1))
β Fin β§ ((2...(π΄ +
1)) β© β) β (2...(π΄ + 1))) β ((2...(π΄ + 1)) β© β) β
Fin) |
57 | 54, 55, 56 | sylancl 587 |
. . 3
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((2...(π΄ + 1)) β©
β) β Fin) |
58 | | simpr 486 |
. . . . . . . 8
β’ (((π΄ β β€ β§ (π΄ + 1) β β) β§
π β ((2...(π΄ + 1)) β© β)) β
π β ((2...(π΄ + 1)) β©
β)) |
59 | 58 | elin2d 4160 |
. . . . . . 7
β’ (((π΄ β β€ β§ (π΄ + 1) β β) β§
π β ((2...(π΄ + 1)) β© β)) β
π β
β) |
60 | | prmnn 16555 |
. . . . . . 7
β’ (π β β β π β
β) |
61 | 59, 60 | syl 17 |
. . . . . 6
β’ (((π΄ β β€ β§ (π΄ + 1) β β) β§
π β ((2...(π΄ + 1)) β© β)) β
π β
β) |
62 | 61 | nnrpd 12960 |
. . . . 5
β’ (((π΄ β β€ β§ (π΄ + 1) β β) β§
π β ((2...(π΄ + 1)) β© β)) β
π β
β+) |
63 | 62 | relogcld 25994 |
. . . 4
β’ (((π΄ β β€ β§ (π΄ + 1) β β) β§
π β ((2...(π΄ + 1)) β© β)) β
(logβπ) β
β) |
64 | 63 | recnd 11188 |
. . 3
β’ (((π΄ β β€ β§ (π΄ + 1) β β) β§
π β ((2...(π΄ + 1)) β© β)) β
(logβπ) β
β) |
65 | 26, 53, 57, 64 | fsumsplit 15631 |
. 2
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
Ξ£π β
((2...(π΄ + 1)) β©
β)(logβπ) =
(Ξ£π β
((2...π΄) β©
β)(logβπ) +
Ξ£π β {(π΄ + 1)} (logβπ))) |
66 | | chtval 26475 |
. . . . 5
β’ (π΄ β β β
(ΞΈβπ΄) =
Ξ£π β ((0[,]π΄) β© β)(logβπ)) |
67 | 17, 66 | syl 17 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(ΞΈβπ΄) =
Ξ£π β ((0[,]π΄) β© β)(logβπ)) |
68 | | ppisval 26469 |
. . . . . . 7
β’ (π΄ β β β
((0[,]π΄) β© β) =
((2...(ββπ΄))
β© β)) |
69 | 17, 68 | syl 17 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((0[,]π΄) β© β) =
((2...(ββπ΄))
β© β)) |
70 | | flid 13719 |
. . . . . . . . 9
β’ (π΄ β β€ β
(ββπ΄) = π΄) |
71 | 70 | adantr 482 |
. . . . . . . 8
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(ββπ΄) = π΄) |
72 | 71 | oveq2d 7374 |
. . . . . . 7
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(2...(ββπ΄)) =
(2...π΄)) |
73 | 72 | ineq1d 4172 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((2...(ββπ΄))
β© β) = ((2...π΄)
β© β)) |
74 | 69, 73 | eqtrd 2773 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
((0[,]π΄) β© β) =
((2...π΄) β©
β)) |
75 | 74 | sumeq1d 15591 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
Ξ£π β ((0[,]π΄) β© β)(logβπ) = Ξ£π β ((2...π΄) β© β)(logβπ)) |
76 | 67, 75 | eqtr2d 2774 |
. . 3
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
Ξ£π β ((2...π΄) β© β)(logβπ) = (ΞΈβπ΄)) |
77 | | prmnn 16555 |
. . . . 5
β’ ((π΄ + 1) β β β
(π΄ + 1) β
β) |
78 | 77 | adantl 483 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(π΄ + 1) β
β) |
79 | 78 | nnrpd 12960 |
. . . . . 6
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(π΄ + 1) β
β+) |
80 | 79 | relogcld 25994 |
. . . . 5
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(logβ(π΄ + 1)) β
β) |
81 | 80 | recnd 11188 |
. . . 4
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(logβ(π΄ + 1)) β
β) |
82 | | fveq2 6843 |
. . . . 5
β’ (π = (π΄ + 1) β (logβπ) = (logβ(π΄ + 1))) |
83 | 82 | sumsn 15636 |
. . . 4
β’ (((π΄ + 1) β β β§
(logβ(π΄ + 1)) β
β) β Ξ£π
β {(π΄ + 1)}
(logβπ) =
(logβ(π΄ +
1))) |
84 | 78, 81, 83 | syl2anc 585 |
. . 3
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
Ξ£π β {(π΄ + 1)} (logβπ) = (logβ(π΄ + 1))) |
85 | 76, 84 | oveq12d 7376 |
. 2
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(Ξ£π β
((2...π΄) β©
β)(logβπ) +
Ξ£π β {(π΄ + 1)} (logβπ)) = ((ΞΈβπ΄) + (logβ(π΄ + 1)))) |
86 | 15, 65, 85 | 3eqtrd 2777 |
1
β’ ((π΄ β β€ β§ (π΄ + 1) β β) β
(ΞΈβ(π΄ + 1)) =
((ΞΈβπ΄) +
(logβ(π΄ +
1)))) |