Step | Hyp | Ref
| Expression |
1 | | chtcl 26603 |
. . . . . . 7
β’ (π΅ β β β
(ΞΈβπ΅) β
β) |
2 | 1 | 3ad2ant2 1135 |
. . . . . 6
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (ΞΈβπ΅) β β) |
3 | 2 | recnd 11239 |
. . . . 5
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (ΞΈβπ΅) β β) |
4 | | chtcl 26603 |
. . . . . . 7
β’ (π΄ β β β
(ΞΈβπ΄) β
β) |
5 | 4 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (ΞΈβπ΄) β β) |
6 | 5 | recnd 11239 |
. . . . 5
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (ΞΈβπ΄) β β) |
7 | | efsub 16040 |
. . . . 5
β’
(((ΞΈβπ΅)
β β β§ (ΞΈβπ΄) β β) β
(expβ((ΞΈβπ΅) β (ΞΈβπ΄))) = ((expβ(ΞΈβπ΅)) /
(expβ(ΞΈβπ΄)))) |
8 | 3, 6, 7 | syl2anc 585 |
. . . 4
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ((ΞΈβπ΅) β (ΞΈβπ΄))) =
((expβ(ΞΈβπ΅)) / (expβ(ΞΈβπ΄)))) |
9 | | chtfl 26643 |
. . . . . . . . 9
β’ (π΅ β β β
(ΞΈβ(ββπ΅)) = (ΞΈβπ΅)) |
10 | 9 | 3ad2ant2 1135 |
. . . . . . . 8
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (ΞΈβ(ββπ΅)) = (ΞΈβπ΅)) |
11 | | chtfl 26643 |
. . . . . . . . 9
β’ (π΄ β β β
(ΞΈβ(ββπ΄)) = (ΞΈβπ΄)) |
12 | 11 | 3ad2ant1 1134 |
. . . . . . . 8
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (ΞΈβ(ββπ΄)) = (ΞΈβπ΄)) |
13 | 10, 12 | oveq12d 7424 |
. . . . . . 7
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β
((ΞΈβ(ββπ΅)) β
(ΞΈβ(ββπ΄))) = ((ΞΈβπ΅) β (ΞΈβπ΄))) |
14 | | flword2 13775 |
. . . . . . . 8
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (ββπ΅) β
(β€β₯β(ββπ΄))) |
15 | | chtdif 26652 |
. . . . . . . 8
β’
((ββπ΅)
β (β€β₯β(ββπ΄)) β
((ΞΈβ(ββπ΅)) β
(ΞΈβ(ββπ΄))) = Ξ£π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)(logβπ)) |
16 | 14, 15 | syl 17 |
. . . . . . 7
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β
((ΞΈβ(ββπ΅)) β
(ΞΈβ(ββπ΄))) = Ξ£π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)(logβπ)) |
17 | 13, 16 | eqtr3d 2775 |
. . . . . 6
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β ((ΞΈβπ΅) β (ΞΈβπ΄)) = Ξ£π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)(logβπ)) |
18 | | ssrab2 4077 |
. . . . . . . . 9
β’ {π₯ β β β£
(expβπ₯) β
β} β β |
19 | | ax-resscn 11164 |
. . . . . . . . 9
β’ β
β β |
20 | 18, 19 | sstri 3991 |
. . . . . . . 8
β’ {π₯ β β β£
(expβπ₯) β
β} β β |
21 | 20 | a1i 11 |
. . . . . . 7
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β {π₯ β β β£ (expβπ₯) β β} β
β) |
22 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π₯ = π¦ β (expβπ₯) = (expβπ¦)) |
23 | 22 | eleq1d 2819 |
. . . . . . . . . 10
β’ (π₯ = π¦ β ((expβπ₯) β β β (expβπ¦) β
β)) |
24 | 23 | elrab 3683 |
. . . . . . . . 9
β’ (π¦ β {π₯ β β β£ (expβπ₯) β β} β (π¦ β β β§
(expβπ¦) β
β)) |
25 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π₯ = π§ β (expβπ₯) = (expβπ§)) |
26 | 25 | eleq1d 2819 |
. . . . . . . . . 10
β’ (π₯ = π§ β ((expβπ₯) β β β (expβπ§) β
β)) |
27 | 26 | elrab 3683 |
. . . . . . . . 9
β’ (π§ β {π₯ β β β£ (expβπ₯) β β} β (π§ β β β§
(expβπ§) β
β)) |
28 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π₯ = (π¦ + π§) β (expβπ₯) = (expβ(π¦ + π§))) |
29 | 28 | eleq1d 2819 |
. . . . . . . . . 10
β’ (π₯ = (π¦ + π§) β ((expβπ₯) β β β (expβ(π¦ + π§)) β β)) |
30 | | simpll 766 |
. . . . . . . . . . 11
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β π¦
β β) |
31 | | simprl 770 |
. . . . . . . . . . 11
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β π§
β β) |
32 | 30, 31 | readdcld 11240 |
. . . . . . . . . 10
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β (π¦
+ π§) β
β) |
33 | 30 | recnd 11239 |
. . . . . . . . . . . 12
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β π¦
β β) |
34 | 31 | recnd 11239 |
. . . . . . . . . . . 12
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β π§
β β) |
35 | | efadd 16034 |
. . . . . . . . . . . 12
β’ ((π¦ β β β§ π§ β β) β
(expβ(π¦ + π§)) = ((expβπ¦) Β· (expβπ§))) |
36 | 33, 34, 35 | syl2anc 585 |
. . . . . . . . . . 11
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β (expβ(π¦ + π§)) = ((expβπ¦) Β· (expβπ§))) |
37 | | nnmulcl 12233 |
. . . . . . . . . . . 12
β’
(((expβπ¦)
β β β§ (expβπ§) β β) β ((expβπ¦) Β· (expβπ§)) β
β) |
38 | 37 | ad2ant2l 745 |
. . . . . . . . . . 11
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β ((expβπ¦) Β· (expβπ§)) β β) |
39 | 36, 38 | eqeltrd 2834 |
. . . . . . . . . 10
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β (expβ(π¦ + π§)) β β) |
40 | 29, 32, 39 | elrabd 3685 |
. . . . . . . . 9
β’ (((π¦ β β β§
(expβπ¦) β
β) β§ (π§ β
β β§ (expβπ§)
β β)) β (π¦
+ π§) β {π₯ β β β£
(expβπ₯) β
β}) |
41 | 24, 27, 40 | syl2anb 599 |
. . . . . . . 8
β’ ((π¦ β {π₯ β β β£ (expβπ₯) β β} β§ π§ β {π₯ β β β£ (expβπ₯) β β}) β (π¦ + π§) β {π₯ β β β£ (expβπ₯) β
β}) |
42 | 41 | adantl 483 |
. . . . . . 7
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ (π¦ β {π₯ β β β£ (expβπ₯) β β} β§ π§ β {π₯ β β β£ (expβπ₯) β β})) β
(π¦ + π§) β {π₯ β β β£ (expβπ₯) β
β}) |
43 | | fzfid 13935 |
. . . . . . . 8
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (((ββπ΄) + 1)...(ββπ΅)) β Fin) |
44 | | inss1 4228 |
. . . . . . . 8
β’
((((ββπ΄)
+ 1)...(ββπ΅))
β© β) β (((ββπ΄) + 1)...(ββπ΅)) |
45 | | ssfi 9170 |
. . . . . . . 8
β’
(((((ββπ΄) + 1)...(ββπ΅)) β Fin β§ ((((ββπ΄) + 1)...(ββπ΅)) β© β) β
(((ββπ΄) +
1)...(ββπ΅)))
β ((((ββπ΄)
+ 1)...(ββπ΅))
β© β) β Fin) |
46 | 43, 44, 45 | sylancl 587 |
. . . . . . 7
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β ((((ββπ΄) + 1)...(ββπ΅)) β© β) β
Fin) |
47 | | fveq2 6889 |
. . . . . . . . 9
β’ (π₯ = (logβπ) β (expβπ₯) = (expβ(logβπ))) |
48 | 47 | eleq1d 2819 |
. . . . . . . 8
β’ (π₯ = (logβπ) β ((expβπ₯) β β β
(expβ(logβπ))
β β)) |
49 | | simpr 486 |
. . . . . . . . . . . 12
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) |
50 | 49 | elin2d 4199 |
. . . . . . . . . . 11
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β π β β) |
51 | | prmnn 16608 |
. . . . . . . . . . 11
β’ (π β β β π β
β) |
52 | 50, 51 | syl 17 |
. . . . . . . . . 10
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β π β β) |
53 | 52 | nnrpd 13011 |
. . . . . . . . 9
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β π β β+) |
54 | 53 | relogcld 26123 |
. . . . . . . 8
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β (logβπ) β
β) |
55 | 53 | reeflogd 26124 |
. . . . . . . . 9
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β
(expβ(logβπ)) =
π) |
56 | 55, 52 | eqeltrd 2834 |
. . . . . . . 8
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β
(expβ(logβπ))
β β) |
57 | 48, 54, 56 | elrabd 3685 |
. . . . . . 7
β’ (((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β§ π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)) β (logβπ) β {π₯ β β β£ (expβπ₯) β
β}) |
58 | | 0re 11213 |
. . . . . . . . 9
β’ 0 β
β |
59 | | 1nn 12220 |
. . . . . . . . 9
β’ 1 β
β |
60 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π₯ = 0 β (expβπ₯) =
(expβ0)) |
61 | | ef0 16031 |
. . . . . . . . . . . 12
β’
(expβ0) = 1 |
62 | 60, 61 | eqtrdi 2789 |
. . . . . . . . . . 11
β’ (π₯ = 0 β (expβπ₯) = 1) |
63 | 62 | eleq1d 2819 |
. . . . . . . . . 10
β’ (π₯ = 0 β ((expβπ₯) β β β 1 β
β)) |
64 | 63 | elrab 3683 |
. . . . . . . . 9
β’ (0 β
{π₯ β β β£
(expβπ₯) β
β} β (0 β β β§ 1 β β)) |
65 | 58, 59, 64 | mpbir2an 710 |
. . . . . . . 8
β’ 0 β
{π₯ β β β£
(expβπ₯) β
β} |
66 | 65 | a1i 11 |
. . . . . . 7
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β 0 β {π₯ β β β£ (expβπ₯) β
β}) |
67 | 21, 42, 46, 57, 66 | fsumcllem 15675 |
. . . . . 6
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β Ξ£π β ((((ββπ΄) + 1)...(ββπ΅)) β© β)(logβπ) β {π₯ β β β£ (expβπ₯) β
β}) |
68 | 17, 67 | eqeltrd 2834 |
. . . . 5
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β ((ΞΈβπ΅) β (ΞΈβπ΄)) β {π₯ β β β£ (expβπ₯) β
β}) |
69 | | fveq2 6889 |
. . . . . . . 8
β’ (π₯ = ((ΞΈβπ΅) β (ΞΈβπ΄)) β (expβπ₯) =
(expβ((ΞΈβπ΅) β (ΞΈβπ΄)))) |
70 | 69 | eleq1d 2819 |
. . . . . . 7
β’ (π₯ = ((ΞΈβπ΅) β (ΞΈβπ΄)) β ((expβπ₯) β β β
(expβ((ΞΈβπ΅) β (ΞΈβπ΄))) β β)) |
71 | 70 | elrab 3683 |
. . . . . 6
β’
(((ΞΈβπ΅)
β (ΞΈβπ΄))
β {π₯ β β
β£ (expβπ₯)
β β} β (((ΞΈβπ΅) β (ΞΈβπ΄)) β β β§
(expβ((ΞΈβπ΅) β (ΞΈβπ΄))) β β)) |
72 | 71 | simprbi 498 |
. . . . 5
β’
(((ΞΈβπ΅)
β (ΞΈβπ΄))
β {π₯ β β
β£ (expβπ₯)
β β} β (expβ((ΞΈβπ΅) β (ΞΈβπ΄))) β β) |
73 | 68, 72 | syl 17 |
. . . 4
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ((ΞΈβπ΅) β (ΞΈβπ΄))) β
β) |
74 | 8, 73 | eqeltrrd 2835 |
. . 3
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β ((expβ(ΞΈβπ΅)) /
(expβ(ΞΈβπ΄))) β β) |
75 | 74 | nnzd 12582 |
. 2
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β ((expβ(ΞΈβπ΅)) /
(expβ(ΞΈβπ΄))) β β€) |
76 | | efchtcl 26605 |
. . . . 5
β’ (π΄ β β β
(expβ(ΞΈβπ΄)) β β) |
77 | 76 | 3ad2ant1 1134 |
. . . 4
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ(ΞΈβπ΄)) β
β) |
78 | 77 | nnzd 12582 |
. . 3
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ(ΞΈβπ΄)) β
β€) |
79 | 77 | nnne0d 12259 |
. . 3
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ(ΞΈβπ΄)) β 0) |
80 | | efchtcl 26605 |
. . . . 5
β’ (π΅ β β β
(expβ(ΞΈβπ΅)) β β) |
81 | 80 | 3ad2ant2 1135 |
. . . 4
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ(ΞΈβπ΅)) β
β) |
82 | 81 | nnzd 12582 |
. . 3
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ(ΞΈβπ΅)) β
β€) |
83 | | dvdsval2 16197 |
. . 3
β’
(((expβ(ΞΈβπ΄)) β β€ β§
(expβ(ΞΈβπ΄)) β 0 β§
(expβ(ΞΈβπ΅)) β β€) β
((expβ(ΞΈβπ΄)) β₯ (expβ(ΞΈβπ΅)) β
((expβ(ΞΈβπ΅)) / (expβ(ΞΈβπ΄))) β
β€)) |
84 | 78, 79, 82, 83 | syl3anc 1372 |
. 2
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β ((expβ(ΞΈβπ΄)) β₯
(expβ(ΞΈβπ΅)) β ((expβ(ΞΈβπ΅)) /
(expβ(ΞΈβπ΄))) β β€)) |
85 | 75, 84 | mpbird 257 |
1
β’ ((π΄ β β β§ π΅ β β β§ π΄ β€ π΅) β (expβ(ΞΈβπ΄)) β₯
(expβ(ΞΈβπ΅))) |