Step | Hyp | Ref
| Expression |
1 | | stirlinglem14.1 |
. . 3
β’ π΄ = (π β β β¦ ((!βπ) / ((ββ(2 Β·
π)) Β· ((π / e)βπ)))) |
2 | | stirlinglem14.2 |
. . 3
β’ π΅ = (π β β β¦ (logβ(π΄βπ))) |
3 | 1, 2 | stirlinglem13 44259 |
. 2
β’
βπ β
β π΅ β π |
4 | | simpl 483 |
. . . . 5
β’ ((π β β β§ π΅ β π) β π β β) |
5 | 4 | rpefcld 15979 |
. . . 4
β’ ((π β β β§ π΅ β π) β (expβπ) β
β+) |
6 | | nnuz 12798 |
. . . . . 6
β’ β =
(β€β₯β1) |
7 | | 1zzd 12530 |
. . . . . 6
β’ ((π β β β§ π΅ β π) β 1 β β€) |
8 | | efcn 25786 |
. . . . . . 7
β’ exp
β (ββcnββ) |
9 | 8 | a1i 11 |
. . . . . 6
β’ ((π β β β§ π΅ β π) β exp β (ββcnββ)) |
10 | | nnnn0 12416 |
. . . . . . . . . . . . 13
β’ (π β β β π β
β0) |
11 | | faccl 14175 |
. . . . . . . . . . . . 13
β’ (π β β0
β (!βπ) β
β) |
12 | | nncn 12157 |
. . . . . . . . . . . . 13
β’
((!βπ) β
β β (!βπ)
β β) |
13 | 10, 11, 12 | 3syl 18 |
. . . . . . . . . . . 12
β’ (π β β β
(!βπ) β
β) |
14 | | 2cnd 12227 |
. . . . . . . . . . . . . . 15
β’ (π β β β 2 β
β) |
15 | | nncn 12157 |
. . . . . . . . . . . . . . 15
β’ (π β β β π β
β) |
16 | 14, 15 | mulcld 11171 |
. . . . . . . . . . . . . 14
β’ (π β β β (2
Β· π) β
β) |
17 | 16 | sqrtcld 15314 |
. . . . . . . . . . . . 13
β’ (π β β β
(ββ(2 Β· π)) β β) |
18 | | epr 16082 |
. . . . . . . . . . . . . . . . 17
β’ e β
β+ |
19 | | rpcn 12917 |
. . . . . . . . . . . . . . . . 17
β’ (e β
β+ β e β β) |
20 | 18, 19 | ax-mp 5 |
. . . . . . . . . . . . . . . 16
β’ e β
β |
21 | 20 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β β β e β
β) |
22 | | 0re 11153 |
. . . . . . . . . . . . . . . . 17
β’ 0 β
β |
23 | | epos 16081 |
. . . . . . . . . . . . . . . . 17
β’ 0 <
e |
24 | 22, 23 | gtneii 11263 |
. . . . . . . . . . . . . . . 16
β’ e β
0 |
25 | 24 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β β β e β
0) |
26 | 15, 21, 25 | divcld 11927 |
. . . . . . . . . . . . . 14
β’ (π β β β (π / e) β
β) |
27 | 26, 10 | expcld 14043 |
. . . . . . . . . . . . 13
β’ (π β β β ((π / e)βπ) β β) |
28 | 17, 27 | mulcld 11171 |
. . . . . . . . . . . 12
β’ (π β β β
((ββ(2 Β· π)) Β· ((π / e)βπ)) β β) |
29 | | 2rp 12912 |
. . . . . . . . . . . . . . . . 17
β’ 2 β
β+ |
30 | 29 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (π β β β 2 β
β+) |
31 | | nnrp 12918 |
. . . . . . . . . . . . . . . 16
β’ (π β β β π β
β+) |
32 | 30, 31 | rpmulcld 12965 |
. . . . . . . . . . . . . . 15
β’ (π β β β (2
Β· π) β
β+) |
33 | 32 | sqrtgt0d 15289 |
. . . . . . . . . . . . . 14
β’ (π β β β 0 <
(ββ(2 Β· π))) |
34 | 33 | gt0ne0d 11715 |
. . . . . . . . . . . . 13
β’ (π β β β
(ββ(2 Β· π)) β 0) |
35 | | nnne0 12183 |
. . . . . . . . . . . . . . 15
β’ (π β β β π β 0) |
36 | 15, 21, 35, 25 | divne0d 11943 |
. . . . . . . . . . . . . 14
β’ (π β β β (π / e) β 0) |
37 | | nnz 12516 |
. . . . . . . . . . . . . 14
β’ (π β β β π β
β€) |
38 | 26, 36, 37 | expne0d 14049 |
. . . . . . . . . . . . 13
β’ (π β β β ((π / e)βπ) β 0) |
39 | 17, 27, 34, 38 | mulne0d 11803 |
. . . . . . . . . . . 12
β’ (π β β β
((ββ(2 Β· π)) Β· ((π / e)βπ)) β 0) |
40 | 13, 28, 39 | divcld 11927 |
. . . . . . . . . . 11
β’ (π β β β
((!βπ) /
((ββ(2 Β· π)) Β· ((π / e)βπ))) β β) |
41 | 1 | fvmpt2 6956 |
. . . . . . . . . . 11
β’ ((π β β β§
((!βπ) /
((ββ(2 Β· π)) Β· ((π / e)βπ))) β β) β (π΄βπ) = ((!βπ) / ((ββ(2 Β· π)) Β· ((π / e)βπ)))) |
42 | 40, 41 | mpdan 685 |
. . . . . . . . . 10
β’ (π β β β (π΄βπ) = ((!βπ) / ((ββ(2 Β· π)) Β· ((π / e)βπ)))) |
43 | 42, 40 | eqeltrd 2838 |
. . . . . . . . 9
β’ (π β β β (π΄βπ) β β) |
44 | | nnne0 12183 |
. . . . . . . . . . . 12
β’
((!βπ) β
β β (!βπ)
β 0) |
45 | 10, 11, 44 | 3syl 18 |
. . . . . . . . . . 11
β’ (π β β β
(!βπ) β
0) |
46 | 13, 28, 45, 39 | divne0d 11943 |
. . . . . . . . . 10
β’ (π β β β
((!βπ) /
((ββ(2 Β· π)) Β· ((π / e)βπ))) β 0) |
47 | 42, 46 | eqnetrd 3009 |
. . . . . . . . 9
β’ (π β β β (π΄βπ) β 0) |
48 | 43, 47 | logcld 25910 |
. . . . . . . 8
β’ (π β β β
(logβ(π΄βπ)) β
β) |
49 | 2, 48 | fmpti 7056 |
. . . . . . 7
β’ π΅:ββΆβ |
50 | 49 | a1i 11 |
. . . . . 6
β’ ((π β β β§ π΅ β π) β π΅:ββΆβ) |
51 | | simpr 485 |
. . . . . 6
β’ ((π β β β§ π΅ β π) β π΅ β π) |
52 | 4 | recnd 11179 |
. . . . . 6
β’ ((π β β β§ π΅ β π) β π β β) |
53 | 6, 7, 9, 50, 51, 52 | climcncf 24247 |
. . . . 5
β’ ((π β β β§ π΅ β π) β (exp β π΅) β (expβπ)) |
54 | 8 | elexi 3462 |
. . . . . . . . 9
β’ exp
β V |
55 | | nnex 12155 |
. . . . . . . . . . 11
β’ β
β V |
56 | 55 | mptex 7169 |
. . . . . . . . . 10
β’ (π β β β¦
(logβ(π΄βπ))) β V |
57 | 2, 56 | eqeltri 2834 |
. . . . . . . . 9
β’ π΅ β V |
58 | 54, 57 | coex 7863 |
. . . . . . . 8
β’ (exp
β π΅) β
V |
59 | 58 | a1i 11 |
. . . . . . 7
β’ (β€
β (exp β π΅)
β V) |
60 | 55 | mptex 7169 |
. . . . . . . . 9
β’ (π β β β¦
((!βπ) /
((ββ(2 Β· π)) Β· ((π / e)βπ)))) β V |
61 | 1, 60 | eqeltri 2834 |
. . . . . . . 8
β’ π΄ β V |
62 | 61 | a1i 11 |
. . . . . . 7
β’ (β€
β π΄ β
V) |
63 | | 1zzd 12530 |
. . . . . . 7
β’ (β€
β 1 β β€) |
64 | 2 | funmpt2 6537 |
. . . . . . . . . 10
β’ Fun π΅ |
65 | | id 22 |
. . . . . . . . . . 11
β’ (π β β β π β
β) |
66 | | rabid2 3434 |
. . . . . . . . . . . . 13
β’ (β
= {π β β β£
(logβ(π΄βπ)) β V} β
βπ β β
(logβ(π΄βπ)) β V) |
67 | 1 | stirlinglem2 44248 |
. . . . . . . . . . . . . 14
β’ (π β β β (π΄βπ) β
β+) |
68 | | relogcl 25915 |
. . . . . . . . . . . . . 14
β’ ((π΄βπ) β β+ β
(logβ(π΄βπ)) β
β) |
69 | | elex 3461 |
. . . . . . . . . . . . . 14
β’
((logβ(π΄βπ)) β β β (logβ(π΄βπ)) β V) |
70 | 67, 68, 69 | 3syl 18 |
. . . . . . . . . . . . 13
β’ (π β β β
(logβ(π΄βπ)) β V) |
71 | 66, 70 | mprgbir 3069 |
. . . . . . . . . . . 12
β’ β =
{π β β β£
(logβ(π΄βπ)) β V} |
72 | 2 | dmmpt 6190 |
. . . . . . . . . . . 12
β’ dom π΅ = {π β β β£ (logβ(π΄βπ)) β V} |
73 | 71, 72 | eqtr4i 2767 |
. . . . . . . . . . 11
β’ β =
dom π΅ |
74 | 65, 73 | eleqtrdi 2848 |
. . . . . . . . . 10
β’ (π β β β π β dom π΅) |
75 | | fvco 6936 |
. . . . . . . . . 10
β’ ((Fun
π΅ β§ π β dom π΅) β ((exp β π΅)βπ) = (expβ(π΅βπ))) |
76 | 64, 74, 75 | sylancr 587 |
. . . . . . . . 9
β’ (π β β β ((exp
β π΅)βπ) = (expβ(π΅βπ))) |
77 | 1 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β β β π΄ = (π β β β¦ ((!βπ) / ((ββ(2 Β·
π)) Β· ((π / e)βπ))))) |
78 | | simpr 485 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π = π) β π = π) |
79 | 78 | fveq2d 6843 |
. . . . . . . . . . . . . . 15
β’ ((π β β β§ π = π) β (!βπ) = (!βπ)) |
80 | 78 | oveq2d 7369 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β β§ π = π) β (2 Β· π) = (2 Β· π)) |
81 | 80 | fveq2d 6843 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π = π) β (ββ(2 Β· π)) = (ββ(2 Β·
π))) |
82 | 78 | oveq1d 7368 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β β§ π = π) β (π / e) = (π / e)) |
83 | 82, 78 | oveq12d 7371 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π = π) β ((π / e)βπ) = ((π / e)βπ)) |
84 | 81, 83 | oveq12d 7371 |
. . . . . . . . . . . . . . 15
β’ ((π β β β§ π = π) β ((ββ(2 Β· π)) Β· ((π / e)βπ)) = ((ββ(2 Β· π)) Β· ((π / e)βπ))) |
85 | 79, 84 | oveq12d 7371 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ π = π) β ((!βπ) / ((ββ(2 Β· π)) Β· ((π / e)βπ))) = ((!βπ) / ((ββ(2 Β· π)) Β· ((π / e)βπ)))) |
86 | | nnnn0 12416 |
. . . . . . . . . . . . . . . 16
β’ (π β β β π β
β0) |
87 | | faccl 14175 |
. . . . . . . . . . . . . . . 16
β’ (π β β0
β (!βπ) β
β) |
88 | | nncn 12157 |
. . . . . . . . . . . . . . . 16
β’
((!βπ) β
β β (!βπ)
β β) |
89 | 86, 87, 88 | 3syl 18 |
. . . . . . . . . . . . . . 15
β’ (π β β β
(!βπ) β
β) |
90 | | 2cnd 12227 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β 2 β
β) |
91 | | nncn 12157 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β π β
β) |
92 | 90, 91 | mulcld 11171 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β (2
Β· π) β
β) |
93 | 92 | sqrtcld 15314 |
. . . . . . . . . . . . . . . 16
β’ (π β β β
(ββ(2 Β· π)) β β) |
94 | 20 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β e β
β) |
95 | 24 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β e β
0) |
96 | 91, 94, 95 | divcld 11927 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β (π / e) β
β) |
97 | 96, 86 | expcld 14043 |
. . . . . . . . . . . . . . . 16
β’ (π β β β ((π / e)βπ) β β) |
98 | 93, 97 | mulcld 11171 |
. . . . . . . . . . . . . . 15
β’ (π β β β
((ββ(2 Β· π)) Β· ((π / e)βπ)) β β) |
99 | 29 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β β β 2 β
β+) |
100 | | nnrp 12918 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β β β π β
β+) |
101 | 99, 100 | rpmulcld 12965 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β (2
Β· π) β
β+) |
102 | 101 | sqrtgt0d 15289 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β 0 <
(ββ(2 Β· π))) |
103 | 102 | gt0ne0d 11715 |
. . . . . . . . . . . . . . . 16
β’ (π β β β
(ββ(2 Β· π)) β 0) |
104 | | nnne0 12183 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β π β 0) |
105 | 91, 94, 104, 95 | divne0d 11943 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β (π / e) β 0) |
106 | | nnz 12516 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β π β
β€) |
107 | 96, 105, 106 | expne0d 14049 |
. . . . . . . . . . . . . . . 16
β’ (π β β β ((π / e)βπ) β 0) |
108 | 93, 97, 103, 107 | mulne0d 11803 |
. . . . . . . . . . . . . . 15
β’ (π β β β
((ββ(2 Β· π)) Β· ((π / e)βπ)) β 0) |
109 | 89, 98, 108 | divcld 11927 |
. . . . . . . . . . . . . 14
β’ (π β β β
((!βπ) /
((ββ(2 Β· π)) Β· ((π / e)βπ))) β β) |
110 | 77, 85, 65, 109 | fvmptd 6952 |
. . . . . . . . . . . . 13
β’ (π β β β (π΄βπ) = ((!βπ) / ((ββ(2 Β· π)) Β· ((π / e)βπ)))) |
111 | 110, 109 | eqeltrd 2838 |
. . . . . . . . . . . 12
β’ (π β β β (π΄βπ) β β) |
112 | | nnne0 12183 |
. . . . . . . . . . . . . . 15
β’
((!βπ) β
β β (!βπ)
β 0) |
113 | 86, 87, 112 | 3syl 18 |
. . . . . . . . . . . . . 14
β’ (π β β β
(!βπ) β
0) |
114 | 89, 98, 113, 108 | divne0d 11943 |
. . . . . . . . . . . . 13
β’ (π β β β
((!βπ) /
((ββ(2 Β· π)) Β· ((π / e)βπ))) β 0) |
115 | 110, 114 | eqnetrd 3009 |
. . . . . . . . . . . 12
β’ (π β β β (π΄βπ) β 0) |
116 | 111, 115 | logcld 25910 |
. . . . . . . . . . 11
β’ (π β β β
(logβ(π΄βπ)) β
β) |
117 | | nfcv 2905 |
. . . . . . . . . . . 12
β’
β²ππ |
118 | | nfcv 2905 |
. . . . . . . . . . . . 13
β’
β²πlog |
119 | | nfmpt1 5211 |
. . . . . . . . . . . . . . 15
β’
β²π(π β β β¦ ((!βπ) / ((ββ(2 Β·
π)) Β· ((π / e)βπ)))) |
120 | 1, 119 | nfcxfr 2903 |
. . . . . . . . . . . . . 14
β’
β²ππ΄ |
121 | 120, 117 | nffv 6849 |
. . . . . . . . . . . . 13
β’
β²π(π΄βπ) |
122 | 118, 121 | nffv 6849 |
. . . . . . . . . . . 12
β’
β²π(logβ(π΄βπ)) |
123 | | 2fveq3 6844 |
. . . . . . . . . . . 12
β’ (π = π β (logβ(π΄βπ)) = (logβ(π΄βπ))) |
124 | 117, 122,
123, 2 | fvmptf 6966 |
. . . . . . . . . . 11
β’ ((π β β β§
(logβ(π΄βπ)) β β) β (π΅βπ) = (logβ(π΄βπ))) |
125 | 116, 124 | mpdan 685 |
. . . . . . . . . 10
β’ (π β β β (π΅βπ) = (logβ(π΄βπ))) |
126 | 125 | fveq2d 6843 |
. . . . . . . . 9
β’ (π β β β
(expβ(π΅βπ)) =
(expβ(logβ(π΄βπ)))) |
127 | | eflog 25916 |
. . . . . . . . . 10
β’ (((π΄βπ) β β β§ (π΄βπ) β 0) β (expβ(logβ(π΄βπ))) = (π΄βπ)) |
128 | 111, 115,
127 | syl2anc 584 |
. . . . . . . . 9
β’ (π β β β
(expβ(logβ(π΄βπ))) = (π΄βπ)) |
129 | 76, 126, 128 | 3eqtrd 2780 |
. . . . . . . 8
β’ (π β β β ((exp
β π΅)βπ) = (π΄βπ)) |
130 | 129 | adantl 482 |
. . . . . . 7
β’
((β€ β§ π
β β) β ((exp β π΅)βπ) = (π΄βπ)) |
131 | 6, 59, 62, 63, 130 | climeq 15441 |
. . . . . 6
β’ (β€
β ((exp β π΅)
β (expβπ)
β π΄ β
(expβπ))) |
132 | 131 | mptru 1548 |
. . . . 5
β’ ((exp
β π΅) β
(expβπ) β π΄ β (expβπ)) |
133 | 53, 132 | sylib 217 |
. . . 4
β’ ((π β β β§ π΅ β π) β π΄ β (expβπ)) |
134 | | breq2 5107 |
. . . . 5
β’ (π = (expβπ) β (π΄ β π β π΄ β (expβπ))) |
135 | 134 | rspcev 3579 |
. . . 4
β’
(((expβπ)
β β+ β§ π΄ β (expβπ)) β βπ β β+ π΄ β π) |
136 | 5, 133, 135 | syl2anc 584 |
. . 3
β’ ((π β β β§ π΅ β π) β βπ β β+ π΄ β π) |
137 | 136 | rexlimiva 3142 |
. 2
β’
(βπ β
β π΅ β π β βπ β β+
π΄ β π) |
138 | 3, 137 | ax-mp 5 |
1
β’
βπ β
β+ π΄
β π |