Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  stirlinglem10 Structured version   Visualization version   GIF version

Theorem stirlinglem10 45530
Description: A bound for any B(N)-B(N + 1) that will allow to find a lower bound for the whole ๐ต sequence. (Contributed by Glauco Siliprandi, 29-Jun-2017.)
Hypotheses
Ref Expression
stirlinglem10.1 ๐ด = (๐‘› โˆˆ โ„• โ†ฆ ((!โ€˜๐‘›) / ((โˆšโ€˜(2 ยท ๐‘›)) ยท ((๐‘› / e)โ†‘๐‘›))))
stirlinglem10.2 ๐ต = (๐‘› โˆˆ โ„• โ†ฆ (logโ€˜(๐ดโ€˜๐‘›)))
stirlinglem10.4 ๐พ = (๐‘˜ โˆˆ โ„• โ†ฆ ((1 / ((2 ยท ๐‘˜) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘˜))))
stirlinglem10.5 ๐ฟ = (๐‘˜ โˆˆ โ„• โ†ฆ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘˜))
Assertion
Ref Expression
stirlinglem10 (๐‘ โˆˆ โ„• โ†’ ((๐ตโ€˜๐‘) โˆ’ (๐ตโ€˜(๐‘ + 1))) โ‰ค ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
Distinct variable groups:   ๐‘˜,๐‘›   ๐‘›,๐พ   ๐‘›,๐ฟ   ๐‘˜,๐‘,๐‘›
Allowed substitution hints:   ๐ด(๐‘˜,๐‘›)   ๐ต(๐‘˜,๐‘›)   ๐พ(๐‘˜)   ๐ฟ(๐‘˜)

Proof of Theorem stirlinglem10
Dummy variables ๐‘– ๐‘— are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nnuz 12890 . 2 โ„• = (โ„คโ‰ฅโ€˜1)
2 1zzd 12618 . 2 (๐‘ โˆˆ โ„• โ†’ 1 โˆˆ โ„ค)
3 stirlinglem10.1 . . 3 ๐ด = (๐‘› โˆˆ โ„• โ†ฆ ((!โ€˜๐‘›) / ((โˆšโ€˜(2 ยท ๐‘›)) ยท ((๐‘› / e)โ†‘๐‘›))))
4 stirlinglem10.2 . . 3 ๐ต = (๐‘› โˆˆ โ„• โ†ฆ (logโ€˜(๐ดโ€˜๐‘›)))
5 eqid 2725 . . 3 (๐‘› โˆˆ โ„• โ†ฆ ((((1 + (2 ยท ๐‘›)) / 2) ยท (logโ€˜((๐‘› + 1) / ๐‘›))) โˆ’ 1)) = (๐‘› โˆˆ โ„• โ†ฆ ((((1 + (2 ยท ๐‘›)) / 2) ยท (logโ€˜((๐‘› + 1) / ๐‘›))) โˆ’ 1))
6 stirlinglem10.4 . . 3 ๐พ = (๐‘˜ โˆˆ โ„• โ†ฆ ((1 / ((2 ยท ๐‘˜) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘˜))))
73, 4, 5, 6stirlinglem9 45529 . 2 (๐‘ โˆˆ โ„• โ†’ seq1( + , ๐พ) โ‡ ((๐ตโ€˜๐‘) โˆ’ (๐ตโ€˜(๐‘ + 1))))
8 2cnd 12315 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ 2 โˆˆ โ„‚)
9 nncn 12245 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„‚)
108, 9mulcld 11259 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ (2 ยท ๐‘) โˆˆ โ„‚)
11 1cnd 11234 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ 1 โˆˆ โ„‚)
1210, 11addcld 11258 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ ((2 ยท ๐‘) + 1) โˆˆ โ„‚)
1312sqcld 14135 . . . . 5 (๐‘ โˆˆ โ„• โ†’ (((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„‚)
14 0red 11242 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ 0 โˆˆ โ„)
15 1red 11240 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ 1 โˆˆ โ„)
16 2re 12311 . . . . . . . . . . 11 2 โˆˆ โ„
1716a1i 11 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ 2 โˆˆ โ„)
18 nnre 12244 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„)
1917, 18remulcld 11269 . . . . . . . . 9 (๐‘ โˆˆ โ„• โ†’ (2 ยท ๐‘) โˆˆ โ„)
2019, 15readdcld 11268 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ ((2 ยท ๐‘) + 1) โˆˆ โ„)
21 0lt1 11761 . . . . . . . . 9 0 < 1
2221a1i 11 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ 0 < 1)
23 2rp 13006 . . . . . . . . . . 11 2 โˆˆ โ„+
2423a1i 11 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ 2 โˆˆ โ„+)
25 nnrp 13012 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„+)
2624, 25rpmulcld 13059 . . . . . . . . 9 (๐‘ โˆˆ โ„• โ†’ (2 ยท ๐‘) โˆˆ โ„+)
2715, 26ltaddrp2d 13077 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ 1 < ((2 ยท ๐‘) + 1))
2814, 15, 20, 22, 27lttrd 11400 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ 0 < ((2 ยท ๐‘) + 1))
2928gt0ne0d 11803 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ ((2 ยท ๐‘) + 1) โ‰  0)
30 2z 12619 . . . . . . 7 2 โˆˆ โ„ค
3130a1i 11 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ 2 โˆˆ โ„ค)
3212, 29, 31expne0d 14143 . . . . 5 (๐‘ โˆˆ โ„• โ†’ (((2 ยท ๐‘) + 1)โ†‘2) โ‰  0)
3313, 32reccld 12008 . . . 4 (๐‘ โˆˆ โ„• โ†’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)) โˆˆ โ„‚)
3415renegcld 11666 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ -1 โˆˆ โ„)
3520resqcld 14116 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ (((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„)
3635, 32rereccld 12066 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)) โˆˆ โ„)
37 1re 11239 . . . . . . . 8 1 โˆˆ โ„
38 lt0neg2 11746 . . . . . . . 8 (1 โˆˆ โ„ โ†’ (0 < 1 โ†” -1 < 0))
3937, 38ax-mp 5 . . . . . . 7 (0 < 1 โ†” -1 < 0)
4022, 39sylib 217 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ -1 < 0)
4120, 29sqgt0d 14239 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ 0 < (((2 ยท ๐‘) + 1)โ†‘2))
4235, 41recgt0d 12173 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ 0 < (1 / (((2 ยท ๐‘) + 1)โ†‘2)))
4334, 14, 36, 40, 42lttrd 11400 . . . . 5 (๐‘ โˆˆ โ„• โ†’ -1 < (1 / (((2 ยท ๐‘) + 1)โ†‘2)))
44 2nn 12310 . . . . . . . 8 2 โˆˆ โ„•
4544a1i 11 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ 2 โˆˆ โ„•)
46 expgt1 14092 . . . . . . 7 ((((2 ยท ๐‘) + 1) โˆˆ โ„ โˆง 2 โˆˆ โ„• โˆง 1 < ((2 ยท ๐‘) + 1)) โ†’ 1 < (((2 ยท ๐‘) + 1)โ†‘2))
4720, 45, 27, 46syl3anc 1368 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ 1 < (((2 ยท ๐‘) + 1)โ†‘2))
4835, 41elrpd 13040 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ (((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„+)
4948recgt1d 13057 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (1 < (((2 ยท ๐‘) + 1)โ†‘2) โ†” (1 / (((2 ยท ๐‘) + 1)โ†‘2)) < 1))
5047, 49mpbid 231 . . . . 5 (๐‘ โˆˆ โ„• โ†’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)) < 1)
5136, 15absltd 15403 . . . . 5 (๐‘ โˆˆ โ„• โ†’ ((absโ€˜(1 / (((2 ยท ๐‘) + 1)โ†‘2))) < 1 โ†” (-1 < (1 / (((2 ยท ๐‘) + 1)โ†‘2)) โˆง (1 / (((2 ยท ๐‘) + 1)โ†‘2)) < 1)))
5243, 50, 51mpbir2and 711 . . . 4 (๐‘ โˆˆ โ„• โ†’ (absโ€˜(1 / (((2 ยท ๐‘) + 1)โ†‘2))) < 1)
53 1nn0 12513 . . . . 5 1 โˆˆ โ„•0
5453a1i 11 . . . 4 (๐‘ โˆˆ โ„• โ†’ 1 โˆˆ โ„•0)
55 stirlinglem10.5 . . . . . 6 ๐ฟ = (๐‘˜ โˆˆ โ„• โ†ฆ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘˜))
5655a1i 11 . . . . 5 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โ†’ ๐ฟ = (๐‘˜ โˆˆ โ„• โ†ฆ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘˜)))
57 simpr 483 . . . . . 6 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โˆง ๐‘˜ = ๐‘—) โ†’ ๐‘˜ = ๐‘—)
5857oveq2d 7429 . . . . 5 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โˆง ๐‘˜ = ๐‘—) โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘˜) = ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘—))
59 elnnuz 12891 . . . . . . 7 (๐‘— โˆˆ โ„• โ†” ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1))
6059biimpri 227 . . . . . 6 (๐‘— โˆˆ (โ„คโ‰ฅโ€˜1) โ†’ ๐‘— โˆˆ โ„•)
6160adantl 480 . . . . 5 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โ†’ ๐‘— โˆˆ โ„•)
6233adantr 479 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โ†’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)) โˆˆ โ„‚)
6361nnnn0d 12557 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โ†’ ๐‘— โˆˆ โ„•0)
6462, 63expcld 14137 . . . . 5 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘—) โˆˆ โ„‚)
6556, 58, 61, 64fvmptd 7005 . . . 4 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1)) โ†’ (๐ฟโ€˜๐‘—) = ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘—))
6633, 52, 54, 65geolim2 15844 . . 3 (๐‘ โˆˆ โ„• โ†’ seq1( + , ๐ฟ) โ‡ (((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘1) / (1 โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)))))
6733exp1d 14132 . . . . 5 (๐‘ โˆˆ โ„• โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘1) = (1 / (((2 ยท ๐‘) + 1)โ†‘2)))
6813, 32dividd 12013 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ ((((2 ยท ๐‘) + 1)โ†‘2) / (((2 ยท ๐‘) + 1)โ†‘2)) = 1)
6968eqcomd 2731 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ 1 = ((((2 ยท ๐‘) + 1)โ†‘2) / (((2 ยท ๐‘) + 1)โ†‘2)))
7069oveq1d 7428 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (1 โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2))) = (((((2 ยท ๐‘) + 1)โ†‘2) / (((2 ยท ๐‘) + 1)โ†‘2)) โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2))))
7148rpcnne0d 13052 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ ((((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„‚ โˆง (((2 ยท ๐‘) + 1)โ†‘2) โ‰  0))
72 divsubdir 11933 . . . . . . 7 (((((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ โˆง ((((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„‚ โˆง (((2 ยท ๐‘) + 1)โ†‘2) โ‰  0)) โ†’ (((((2 ยท ๐‘) + 1)โ†‘2) โˆ’ 1) / (((2 ยท ๐‘) + 1)โ†‘2)) = (((((2 ยท ๐‘) + 1)โ†‘2) / (((2 ยท ๐‘) + 1)โ†‘2)) โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2))))
7313, 11, 71, 72syl3anc 1368 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (((((2 ยท ๐‘) + 1)โ†‘2) โˆ’ 1) / (((2 ยท ๐‘) + 1)โ†‘2)) = (((((2 ยท ๐‘) + 1)โ†‘2) / (((2 ยท ๐‘) + 1)โ†‘2)) โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2))))
74 ax-1cn 11191 . . . . . . . . . 10 1 โˆˆ โ„‚
75 binom2 14207 . . . . . . . . . 10 (((2 ยท ๐‘) โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚) โ†’ (((2 ยท ๐‘) + 1)โ†‘2) = ((((2 ยท ๐‘)โ†‘2) + (2 ยท ((2 ยท ๐‘) ยท 1))) + (1โ†‘2)))
7610, 74, 75sylancl 584 . . . . . . . . 9 (๐‘ โˆˆ โ„• โ†’ (((2 ยท ๐‘) + 1)โ†‘2) = ((((2 ยท ๐‘)โ†‘2) + (2 ยท ((2 ยท ๐‘) ยท 1))) + (1โ†‘2)))
7776oveq1d 7428 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ ((((2 ยท ๐‘) + 1)โ†‘2) โˆ’ 1) = (((((2 ยท ๐‘)โ†‘2) + (2 ยท ((2 ยท ๐‘) ยท 1))) + (1โ†‘2)) โˆ’ 1))
788, 9sqmuld 14149 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„• โ†’ ((2 ยท ๐‘)โ†‘2) = ((2โ†‘2) ยท (๐‘โ†‘2)))
79 sq2 14187 . . . . . . . . . . . . . . 15 (2โ†‘2) = 4
8079a1i 11 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„• โ†’ (2โ†‘2) = 4)
8180oveq1d 7428 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„• โ†’ ((2โ†‘2) ยท (๐‘โ†‘2)) = (4 ยท (๐‘โ†‘2)))
8278, 81eqtrd 2765 . . . . . . . . . . . 12 (๐‘ โˆˆ โ„• โ†’ ((2 ยท ๐‘)โ†‘2) = (4 ยท (๐‘โ†‘2)))
8310mulridd 11256 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„• โ†’ ((2 ยท ๐‘) ยท 1) = (2 ยท ๐‘))
8483oveq2d 7429 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„• โ†’ (2 ยท ((2 ยท ๐‘) ยท 1)) = (2 ยท (2 ยท ๐‘)))
858, 8, 9mulassd 11262 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„• โ†’ ((2 ยท 2) ยท ๐‘) = (2 ยท (2 ยท ๐‘)))
86 2t2e4 12401 . . . . . . . . . . . . . . 15 (2 ยท 2) = 4
8786a1i 11 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„• โ†’ (2 ยท 2) = 4)
8887oveq1d 7428 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„• โ†’ ((2 ยท 2) ยท ๐‘) = (4 ยท ๐‘))
8984, 85, 883eqtr2d 2771 . . . . . . . . . . . 12 (๐‘ โˆˆ โ„• โ†’ (2 ยท ((2 ยท ๐‘) ยท 1)) = (4 ยท ๐‘))
9082, 89oveq12d 7431 . . . . . . . . . . 11 (๐‘ โˆˆ โ„• โ†’ (((2 ยท ๐‘)โ†‘2) + (2 ยท ((2 ยท ๐‘) ยท 1))) = ((4 ยท (๐‘โ†‘2)) + (4 ยท ๐‘)))
91 4cn 12322 . . . . . . . . . . . . 13 4 โˆˆ โ„‚
9291a1i 11 . . . . . . . . . . . 12 (๐‘ โˆˆ โ„• โ†’ 4 โˆˆ โ„‚)
939sqcld 14135 . . . . . . . . . . . 12 (๐‘ โˆˆ โ„• โ†’ (๐‘โ†‘2) โˆˆ โ„‚)
9492, 93, 9adddid 11263 . . . . . . . . . . 11 (๐‘ โˆˆ โ„• โ†’ (4 ยท ((๐‘โ†‘2) + ๐‘)) = ((4 ยท (๐‘โ†‘2)) + (4 ยท ๐‘)))
959sqvald 14134 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„• โ†’ (๐‘โ†‘2) = (๐‘ ยท ๐‘))
969mulridd 11256 . . . . . . . . . . . . . . 15 (๐‘ โˆˆ โ„• โ†’ (๐‘ ยท 1) = ๐‘)
9796eqcomd 2731 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„• โ†’ ๐‘ = (๐‘ ยท 1))
9895, 97oveq12d 7431 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„• โ†’ ((๐‘โ†‘2) + ๐‘) = ((๐‘ ยท ๐‘) + (๐‘ ยท 1)))
999, 9, 11adddid 11263 . . . . . . . . . . . . 13 (๐‘ โˆˆ โ„• โ†’ (๐‘ ยท (๐‘ + 1)) = ((๐‘ ยท ๐‘) + (๐‘ ยท 1)))
10098, 99eqtr4d 2768 . . . . . . . . . . . 12 (๐‘ โˆˆ โ„• โ†’ ((๐‘โ†‘2) + ๐‘) = (๐‘ ยท (๐‘ + 1)))
101100oveq2d 7429 . . . . . . . . . . 11 (๐‘ โˆˆ โ„• โ†’ (4 ยท ((๐‘โ†‘2) + ๐‘)) = (4 ยท (๐‘ ยท (๐‘ + 1))))
10290, 94, 1013eqtr2d 2771 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ (((2 ยท ๐‘)โ†‘2) + (2 ยท ((2 ยท ๐‘) ยท 1))) = (4 ยท (๐‘ ยท (๐‘ + 1))))
103 sq1 14185 . . . . . . . . . . 11 (1โ†‘2) = 1
104103a1i 11 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ (1โ†‘2) = 1)
105102, 104oveq12d 7431 . . . . . . . . 9 (๐‘ โˆˆ โ„• โ†’ ((((2 ยท ๐‘)โ†‘2) + (2 ยท ((2 ยท ๐‘) ยท 1))) + (1โ†‘2)) = ((4 ยท (๐‘ ยท (๐‘ + 1))) + 1))
106105oveq1d 7428 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ (((((2 ยท ๐‘)โ†‘2) + (2 ยท ((2 ยท ๐‘) ยท 1))) + (1โ†‘2)) โˆ’ 1) = (((4 ยท (๐‘ ยท (๐‘ + 1))) + 1) โˆ’ 1))
1079, 11addcld 11258 . . . . . . . . . . 11 (๐‘ โˆˆ โ„• โ†’ (๐‘ + 1) โˆˆ โ„‚)
1089, 107mulcld 11259 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ (๐‘ ยท (๐‘ + 1)) โˆˆ โ„‚)
10992, 108mulcld 11259 . . . . . . . . 9 (๐‘ โˆˆ โ„• โ†’ (4 ยท (๐‘ ยท (๐‘ + 1))) โˆˆ โ„‚)
110109, 11pncand 11597 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ (((4 ยท (๐‘ ยท (๐‘ + 1))) + 1) โˆ’ 1) = (4 ยท (๐‘ ยท (๐‘ + 1))))
11177, 106, 1103eqtrd 2769 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ ((((2 ยท ๐‘) + 1)โ†‘2) โˆ’ 1) = (4 ยท (๐‘ ยท (๐‘ + 1))))
112111oveq1d 7428 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (((((2 ยท ๐‘) + 1)โ†‘2) โˆ’ 1) / (((2 ยท ๐‘) + 1)โ†‘2)) = ((4 ยท (๐‘ ยท (๐‘ + 1))) / (((2 ยท ๐‘) + 1)โ†‘2)))
11370, 73, 1123eqtr2d 2771 . . . . 5 (๐‘ โˆˆ โ„• โ†’ (1 โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2))) = ((4 ยท (๐‘ ยท (๐‘ + 1))) / (((2 ยท ๐‘) + 1)โ†‘2)))
11467, 113oveq12d 7431 . . . 4 (๐‘ โˆˆ โ„• โ†’ (((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘1) / (1 โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)))) = ((1 / (((2 ยท ๐‘) + 1)โ†‘2)) / ((4 ยท (๐‘ ยท (๐‘ + 1))) / (((2 ยท ๐‘) + 1)โ†‘2))))
115 4pos 12344 . . . . . . . . 9 0 < 4
116115a1i 11 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ 0 < 4)
117116gt0ne0d 11803 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ 4 โ‰  0)
118 nnne0 12271 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ ๐‘ โ‰  0)
11918, 15readdcld 11268 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ (๐‘ + 1) โˆˆ โ„)
120 nngt0 12268 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ 0 < ๐‘)
12118ltp1d 12169 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ ๐‘ < (๐‘ + 1))
12214, 18, 119, 120, 121lttrd 11400 . . . . . . . . 9 (๐‘ โˆˆ โ„• โ†’ 0 < (๐‘ + 1))
123122gt0ne0d 11803 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ (๐‘ + 1) โ‰  0)
1249, 107, 118, 123mulne0d 11891 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ (๐‘ ยท (๐‘ + 1)) โ‰  0)
12592, 108, 117, 124mulne0d 11891 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (4 ยท (๐‘ ยท (๐‘ + 1))) โ‰  0)
12611, 13, 109, 13, 32, 32, 125divdivdivd 12062 . . . . 5 (๐‘ โˆˆ โ„• โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2)) / ((4 ยท (๐‘ ยท (๐‘ + 1))) / (((2 ยท ๐‘) + 1)โ†‘2))) = ((1 ยท (((2 ยท ๐‘) + 1)โ†‘2)) / ((((2 ยท ๐‘) + 1)โ†‘2) ยท (4 ยท (๐‘ ยท (๐‘ + 1))))))
12711, 13mulcomd 11260 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (1 ยท (((2 ยท ๐‘) + 1)โ†‘2)) = ((((2 ยท ๐‘) + 1)โ†‘2) ยท 1))
128127oveq1d 7428 . . . . 5 (๐‘ โˆˆ โ„• โ†’ ((1 ยท (((2 ยท ๐‘) + 1)โ†‘2)) / ((((2 ยท ๐‘) + 1)โ†‘2) ยท (4 ยท (๐‘ ยท (๐‘ + 1))))) = (((((2 ยท ๐‘) + 1)โ†‘2) ยท 1) / ((((2 ยท ๐‘) + 1)โ†‘2) ยท (4 ยท (๐‘ ยท (๐‘ + 1))))))
12911mulridd 11256 . . . . . . . . . 10 (๐‘ โˆˆ โ„• โ†’ (1 ยท 1) = 1)
130129eqcomd 2731 . . . . . . . . 9 (๐‘ โˆˆ โ„• โ†’ 1 = (1 ยท 1))
131130oveq1d 7428 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ (1 / (4 ยท (๐‘ ยท (๐‘ + 1)))) = ((1 ยท 1) / (4 ยท (๐‘ ยท (๐‘ + 1)))))
13211, 92, 11, 108, 117, 124divmuldivd 12056 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))) = ((1 ยท 1) / (4 ยท (๐‘ ยท (๐‘ + 1)))))
133131, 132eqtr4d 2768 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ (1 / (4 ยท (๐‘ ยท (๐‘ + 1)))) = ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
13468, 133oveq12d 7431 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (((((2 ยท ๐‘) + 1)โ†‘2) / (((2 ยท ๐‘) + 1)โ†‘2)) ยท (1 / (4 ยท (๐‘ ยท (๐‘ + 1))))) = (1 ยท ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1))))))
13513, 13, 11, 109, 32, 125divmuldivd 12056 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (((((2 ยท ๐‘) + 1)โ†‘2) / (((2 ยท ๐‘) + 1)โ†‘2)) ยท (1 / (4 ยท (๐‘ ยท (๐‘ + 1))))) = (((((2 ยท ๐‘) + 1)โ†‘2) ยท 1) / ((((2 ยท ๐‘) + 1)โ†‘2) ยท (4 ยท (๐‘ ยท (๐‘ + 1))))))
13692, 117reccld 12008 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ (1 / 4) โˆˆ โ„‚)
137108, 124reccld 12008 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ (1 / (๐‘ ยท (๐‘ + 1))) โˆˆ โ„‚)
138136, 137mulcld 11259 . . . . . . 7 (๐‘ โˆˆ โ„• โ†’ ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))) โˆˆ โ„‚)
139138mullidd 11257 . . . . . 6 (๐‘ โˆˆ โ„• โ†’ (1 ยท ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1))))) = ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
140134, 135, 1393eqtr3d 2773 . . . . 5 (๐‘ โˆˆ โ„• โ†’ (((((2 ยท ๐‘) + 1)โ†‘2) ยท 1) / ((((2 ยท ๐‘) + 1)โ†‘2) ยท (4 ยท (๐‘ ยท (๐‘ + 1))))) = ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
141126, 128, 1403eqtrd 2769 . . . 4 (๐‘ โˆˆ โ„• โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2)) / ((4 ยท (๐‘ ยท (๐‘ + 1))) / (((2 ยท ๐‘) + 1)โ†‘2))) = ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
142114, 141eqtrd 2765 . . 3 (๐‘ โˆˆ โ„• โ†’ (((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘1) / (1 โˆ’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)))) = ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
14366, 142breqtrd 5170 . 2 (๐‘ โˆˆ โ„• โ†’ seq1( + , ๐ฟ) โ‡ ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
14459biimpi 215 . . . 4 (๐‘— โˆˆ โ„• โ†’ ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1))
145144adantl 480 . . 3 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โ†’ ๐‘— โˆˆ (โ„คโ‰ฅโ€˜1))
146 oveq2 7421 . . . . . . . . 9 (๐‘˜ = ๐‘› โ†’ (2 ยท ๐‘˜) = (2 ยท ๐‘›))
147146oveq1d 7428 . . . . . . . 8 (๐‘˜ = ๐‘› โ†’ ((2 ยท ๐‘˜) + 1) = ((2 ยท ๐‘›) + 1))
148147oveq2d 7429 . . . . . . 7 (๐‘˜ = ๐‘› โ†’ (1 / ((2 ยท ๐‘˜) + 1)) = (1 / ((2 ยท ๐‘›) + 1)))
149146oveq2d 7429 . . . . . . 7 (๐‘˜ = ๐‘› โ†’ ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘˜)) = ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›)))
150148, 149oveq12d 7431 . . . . . 6 (๐‘˜ = ๐‘› โ†’ ((1 / ((2 ยท ๐‘˜) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘˜))) = ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›))))
151 elfznn 13557 . . . . . . 7 (๐‘› โˆˆ (1...๐‘—) โ†’ ๐‘› โˆˆ โ„•)
152151adantl 480 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ๐‘› โˆˆ โ„•)
153 2cnd 12315 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 2 โˆˆ โ„‚)
154152nncnd 12253 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ๐‘› โˆˆ โ„‚)
155153, 154mulcld 11259 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (2 ยท ๐‘›) โˆˆ โ„‚)
156 1cnd 11234 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 1 โˆˆ โ„‚)
157155, 156addcld 11258 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((2 ยท ๐‘›) + 1) โˆˆ โ„‚)
158 0red 11242 . . . . . . . . . . . 12 (๐‘› โˆˆ โ„• โ†’ 0 โˆˆ โ„)
159 1red 11240 . . . . . . . . . . . 12 (๐‘› โˆˆ โ„• โ†’ 1 โˆˆ โ„)
16016a1i 11 . . . . . . . . . . . . . 14 (๐‘› โˆˆ โ„• โ†’ 2 โˆˆ โ„)
161 nnre 12244 . . . . . . . . . . . . . 14 (๐‘› โˆˆ โ„• โ†’ ๐‘› โˆˆ โ„)
162160, 161remulcld 11269 . . . . . . . . . . . . 13 (๐‘› โˆˆ โ„• โ†’ (2 ยท ๐‘›) โˆˆ โ„)
163162, 159readdcld 11268 . . . . . . . . . . . 12 (๐‘› โˆˆ โ„• โ†’ ((2 ยท ๐‘›) + 1) โˆˆ โ„)
16421a1i 11 . . . . . . . . . . . 12 (๐‘› โˆˆ โ„• โ†’ 0 < 1)
16523a1i 11 . . . . . . . . . . . . . 14 (๐‘› โˆˆ โ„• โ†’ 2 โˆˆ โ„+)
166 nnrp 13012 . . . . . . . . . . . . . 14 (๐‘› โˆˆ โ„• โ†’ ๐‘› โˆˆ โ„+)
167165, 166rpmulcld 13059 . . . . . . . . . . . . 13 (๐‘› โˆˆ โ„• โ†’ (2 ยท ๐‘›) โˆˆ โ„+)
168159, 167ltaddrp2d 13077 . . . . . . . . . . . 12 (๐‘› โˆˆ โ„• โ†’ 1 < ((2 ยท ๐‘›) + 1))
169158, 159, 163, 164, 168lttrd 11400 . . . . . . . . . . 11 (๐‘› โˆˆ โ„• โ†’ 0 < ((2 ยท ๐‘›) + 1))
170151, 169syl 17 . . . . . . . . . 10 (๐‘› โˆˆ (1...๐‘—) โ†’ 0 < ((2 ยท ๐‘›) + 1))
171170gt0ne0d 11803 . . . . . . . . 9 (๐‘› โˆˆ (1...๐‘—) โ†’ ((2 ยท ๐‘›) + 1) โ‰  0)
172171adantl 480 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((2 ยท ๐‘›) + 1) โ‰  0)
173157, 172reccld 12008 . . . . . . 7 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / ((2 ยท ๐‘›) + 1)) โˆˆ โ„‚)
1749adantr 479 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ๐‘ โˆˆ โ„‚)
175153, 174mulcld 11259 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (2 ยท ๐‘) โˆˆ โ„‚)
176175, 156addcld 11258 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((2 ยท ๐‘) + 1) โˆˆ โ„‚)
17729adantr 479 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((2 ยท ๐‘) + 1) โ‰  0)
178176, 177reccld 12008 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / ((2 ยท ๐‘) + 1)) โˆˆ โ„‚)
179 2nn0 12514 . . . . . . . . . 10 2 โˆˆ โ„•0
180179a1i 11 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 2 โˆˆ โ„•0)
181152nnnn0d 12557 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ๐‘› โˆˆ โ„•0)
182180, 181nn0mulcld 12562 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (2 ยท ๐‘›) โˆˆ โ„•0)
183178, 182expcld 14137 . . . . . . 7 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›)) โˆˆ โ„‚)
184173, 183mulcld 11259 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›))) โˆˆ โ„‚)
1856, 150, 152, 184fvmptd3 7021 . . . . 5 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐พโ€˜๐‘›) = ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›))))
186185adantlr 713 . . . 4 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐พโ€˜๐‘›) = ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›))))
187169gt0ne0d 11803 . . . . . . . 8 (๐‘› โˆˆ โ„• โ†’ ((2 ยท ๐‘›) + 1) โ‰  0)
188163, 187rereccld 12066 . . . . . . 7 (๐‘› โˆˆ โ„• โ†’ (1 / ((2 ยท ๐‘›) + 1)) โˆˆ โ„)
189151, 188syl 17 . . . . . 6 (๐‘› โˆˆ (1...๐‘—) โ†’ (1 / ((2 ยท ๐‘›) + 1)) โˆˆ โ„)
190189adantl 480 . . . . 5 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / ((2 ยท ๐‘›) + 1)) โˆˆ โ„)
19120, 29rereccld 12066 . . . . . . . 8 (๐‘ โˆˆ โ„• โ†’ (1 / ((2 ยท ๐‘) + 1)) โˆˆ โ„)
192191adantr 479 . . . . . . 7 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / ((2 ยท ๐‘) + 1)) โˆˆ โ„)
193192, 182reexpcld 14154 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›)) โˆˆ โ„)
194193adantlr 713 . . . . 5 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›)) โˆˆ โ„)
195190, 194remulcld 11269 . . . 4 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›))) โˆˆ โ„)
196186, 195eqeltrd 2825 . . 3 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐พโ€˜๐‘›) โˆˆ โ„)
197 readdcl 11216 . . . 4 ((๐‘› โˆˆ โ„ โˆง ๐‘– โˆˆ โ„) โ†’ (๐‘› + ๐‘–) โˆˆ โ„)
198197adantl 480 . . 3 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง (๐‘› โˆˆ โ„ โˆง ๐‘– โˆˆ โ„)) โ†’ (๐‘› + ๐‘–) โˆˆ โ„)
199145, 196, 198seqcl 14014 . 2 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โ†’ (seq1( + , ๐พ)โ€˜๐‘—) โˆˆ โ„)
200 oveq2 7421 . . . . . 6 (๐‘˜ = ๐‘› โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘˜) = ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›))
20133adantr 479 . . . . . . 7 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)) โˆˆ โ„‚)
202201, 181expcld 14137 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›) โˆˆ โ„‚)
20355, 200, 152, 202fvmptd3 7021 . . . . 5 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐ฟโ€˜๐‘›) = ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›))
20436adantr 479 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)) โˆˆ โ„)
205204, 181reexpcld 14154 . . . . 5 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›) โˆˆ โ„)
206203, 205eqeltrd 2825 . . . 4 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐ฟโ€˜๐‘›) โˆˆ โ„)
207206adantlr 713 . . 3 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐ฟโ€˜๐‘›) โˆˆ โ„)
208145, 207, 198seqcl 14014 . 2 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โ†’ (seq1( + , ๐ฟ)โ€˜๐‘—) โˆˆ โ„)
20930a1i 11 . . . . . . . . . . . . 13 (๐‘› โˆˆ (1...๐‘—) โ†’ 2 โˆˆ โ„ค)
210 elfzelz 13528 . . . . . . . . . . . . 13 (๐‘› โˆˆ (1...๐‘—) โ†’ ๐‘› โˆˆ โ„ค)
211209, 210zmulcld 12697 . . . . . . . . . . . 12 (๐‘› โˆˆ (1...๐‘—) โ†’ (2 ยท ๐‘›) โˆˆ โ„ค)
212 1exp 14083 . . . . . . . . . . . 12 ((2 ยท ๐‘›) โˆˆ โ„ค โ†’ (1โ†‘(2 ยท ๐‘›)) = 1)
213211, 212syl 17 . . . . . . . . . . 11 (๐‘› โˆˆ (1...๐‘—) โ†’ (1โ†‘(2 ยท ๐‘›)) = 1)
214 1exp 14083 . . . . . . . . . . . 12 (๐‘› โˆˆ โ„ค โ†’ (1โ†‘๐‘›) = 1)
215210, 214syl 17 . . . . . . . . . . 11 (๐‘› โˆˆ (1...๐‘—) โ†’ (1โ†‘๐‘›) = 1)
216213, 215eqtr4d 2768 . . . . . . . . . 10 (๐‘› โˆˆ (1...๐‘—) โ†’ (1โ†‘(2 ยท ๐‘›)) = (1โ†‘๐‘›))
217216adantl 480 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1โ†‘(2 ยท ๐‘›)) = (1โ†‘๐‘›))
218176, 181, 180expmuld 14140 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (((2 ยท ๐‘) + 1)โ†‘(2 ยท ๐‘›)) = ((((2 ยท ๐‘) + 1)โ†‘2)โ†‘๐‘›))
219217, 218oveq12d 7431 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1โ†‘(2 ยท ๐‘›)) / (((2 ยท ๐‘) + 1)โ†‘(2 ยท ๐‘›))) = ((1โ†‘๐‘›) / ((((2 ยท ๐‘) + 1)โ†‘2)โ†‘๐‘›)))
220156, 176, 177, 182expdivd 14151 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›)) = ((1โ†‘(2 ยท ๐‘›)) / (((2 ยท ๐‘) + 1)โ†‘(2 ยท ๐‘›))))
221176sqcld 14135 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„‚)
22230a1i 11 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 2 โˆˆ โ„ค)
223176, 177, 222expne0d 14143 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (((2 ยท ๐‘) + 1)โ†‘2) โ‰  0)
224156, 221, 223, 181expdivd 14151 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›) = ((1โ†‘๐‘›) / ((((2 ยท ๐‘) + 1)โ†‘2)โ†‘๐‘›)))
225219, 220, 2243eqtr4d 2775 . . . . . . 7 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›)) = ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›))
226225oveq2d 7429 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›))) = ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›)))
227 1rp 13005 . . . . . . . . . . 11 1 โˆˆ โ„+
228227a1i 11 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 1 โˆˆ โ„+)
22916a1i 11 . . . . . . . . . . . 12 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 2 โˆˆ โ„)
230152nnred 12252 . . . . . . . . . . . 12 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ๐‘› โˆˆ โ„)
231229, 230remulcld 11269 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (2 ยท ๐‘›) โˆˆ โ„)
232180nn0ge0d 12560 . . . . . . . . . . . 12 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 0 โ‰ค 2)
233181nn0ge0d 12560 . . . . . . . . . . . 12 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 0 โ‰ค ๐‘›)
234229, 230, 232, 233mulge0d 11816 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 0 โ‰ค (2 ยท ๐‘›))
235231, 234ge0p1rpd 13073 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((2 ยท ๐‘›) + 1) โˆˆ โ„+)
236 1red 11240 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 1 โˆˆ โ„)
237228rpge0d 13047 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 0 โ‰ค 1)
238159, 163, 168ltled 11387 . . . . . . . . . . . 12 (๐‘› โˆˆ โ„• โ†’ 1 โ‰ค ((2 ยท ๐‘›) + 1))
239151, 238syl 17 . . . . . . . . . . 11 (๐‘› โˆˆ (1...๐‘—) โ†’ 1 โ‰ค ((2 ยท ๐‘›) + 1))
240239adantl 480 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 1 โ‰ค ((2 ยท ๐‘›) + 1))
241228, 235, 236, 237, 240lediv2ad 13065 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / ((2 ยท ๐‘›) + 1)) โ‰ค (1 / 1))
242156div1d 12007 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / 1) = 1)
243241, 242breqtrd 5170 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / ((2 ยท ๐‘›) + 1)) โ‰ค 1)
244152, 188syl 17 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / ((2 ยท ๐‘›) + 1)) โˆˆ โ„)
24518adantr 479 . . . . . . . . . . . . . 14 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ๐‘ โˆˆ โ„)
246229, 245remulcld 11269 . . . . . . . . . . . . 13 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (2 ยท ๐‘) โˆˆ โ„)
24714, 18, 120ltled 11387 . . . . . . . . . . . . . . 15 (๐‘ โˆˆ โ„• โ†’ 0 โ‰ค ๐‘)
248247adantr 479 . . . . . . . . . . . . . 14 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 0 โ‰ค ๐‘)
249229, 245, 232, 248mulge0d 11816 . . . . . . . . . . . . 13 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ 0 โ‰ค (2 ยท ๐‘))
250246, 249ge0p1rpd 13073 . . . . . . . . . . . 12 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((2 ยท ๐‘) + 1) โˆˆ โ„+)
251250, 222rpexpcld 14236 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (((2 ยท ๐‘) + 1)โ†‘2) โˆˆ โ„+)
252251rpreccld 13053 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 / (((2 ยท ๐‘) + 1)โ†‘2)) โˆˆ โ„+)
253210adantl 480 . . . . . . . . . 10 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ๐‘› โˆˆ โ„ค)
254252, 253rpexpcld 14236 . . . . . . . . 9 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›) โˆˆ โ„+)
255244, 236, 254lemul1d 13086 . . . . . . . 8 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘›) + 1)) โ‰ค 1 โ†” ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›)) โ‰ค (1 ยท ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›))))
256243, 255mpbid 231 . . . . . . 7 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›)) โ‰ค (1 ยท ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›)))
257202mullidd 11257 . . . . . . 7 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (1 ยท ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›)) = ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›))
258256, 257breqtrd 5170 . . . . . 6 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›)) โ‰ค ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›))
259226, 258eqbrtrd 5166 . . . . 5 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ ((1 / ((2 ยท ๐‘›) + 1)) ยท ((1 / ((2 ยท ๐‘) + 1))โ†‘(2 ยท ๐‘›))) โ‰ค ((1 / (((2 ยท ๐‘) + 1)โ†‘2))โ†‘๐‘›))
260259, 185, 2033brtr4d 5176 . . . 4 ((๐‘ โˆˆ โ„• โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐พโ€˜๐‘›) โ‰ค (๐ฟโ€˜๐‘›))
261260adantlr 713 . . 3 (((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โˆง ๐‘› โˆˆ (1...๐‘—)) โ†’ (๐พโ€˜๐‘›) โ‰ค (๐ฟโ€˜๐‘›))
262145, 196, 207, 261serle 14049 . 2 ((๐‘ โˆˆ โ„• โˆง ๐‘— โˆˆ โ„•) โ†’ (seq1( + , ๐พ)โ€˜๐‘—) โ‰ค (seq1( + , ๐ฟ)โ€˜๐‘—))
2631, 2, 7, 143, 199, 208, 262climle 15611 1 (๐‘ โˆˆ โ„• โ†’ ((๐ตโ€˜๐‘) โˆ’ (๐ตโ€˜(๐‘ + 1))) โ‰ค ((1 / 4) ยท (1 / (๐‘ ยท (๐‘ + 1)))))
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โ†” wb 205   โˆง wa 394   = wceq 1533   โˆˆ wcel 2098   โ‰  wne 2930   class class class wbr 5144   โ†ฆ cmpt 5227  โ€˜cfv 6543  (class class class)co 7413  โ„‚cc 11131  โ„cr 11132  0cc0 11133  1c1 11134   + caddc 11136   ยท cmul 11138   < clt 11273   โ‰ค cle 11274   โˆ’ cmin 11469  -cneg 11470   / cdiv 11896  โ„•cn 12237  2c2 12292  4c4 12294  โ„•0cn0 12497  โ„คcz 12583  โ„คโ‰ฅcuz 12847  โ„+crp 13001  ...cfz 13511  seqcseq 13993  โ†‘cexp 14053  !cfa 14259  โˆšcsqrt 15207  abscabs 15208   โ‡ cli 15455  eceu 16033  logclog 26501
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5281  ax-sep 5295  ax-nul 5302  ax-pow 5360  ax-pr 5424  ax-un 7735  ax-inf2 9659  ax-cnex 11189  ax-resscn 11190  ax-1cn 11191  ax-icn 11192  ax-addcl 11193  ax-addrcl 11194  ax-mulcl 11195  ax-mulrcl 11196  ax-mulcom 11197  ax-addass 11198  ax-mulass 11199  ax-distr 11200  ax-i2m1 11201  ax-1ne0 11202  ax-1rid 11203  ax-rnegex 11204  ax-rrecex 11205  ax-cnre 11206  ax-pre-lttri 11207  ax-pre-lttrn 11208  ax-pre-ltadd 11209  ax-pre-mulgt0 11210  ax-pre-sup 11211  ax-addf 11212
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3961  df-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-tp 4630  df-op 4632  df-uni 4905  df-int 4946  df-iun 4994  df-iin 4995  df-br 5145  df-opab 5207  df-mpt 5228  df-tr 5262  df-id 5571  df-eprel 5577  df-po 5585  df-so 5586  df-fr 5628  df-se 5629  df-we 5630  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-pred 6301  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7369  df-ov 7416  df-oprab 7417  df-mpo 7418  df-of 7679  df-om 7866  df-1st 7987  df-2nd 7988  df-supp 8159  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-2o 8481  df-oadd 8484  df-er 8718  df-map 8840  df-pm 8841  df-ixp 8910  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-fsupp 9381  df-fi 9429  df-sup 9460  df-inf 9461  df-oi 9528  df-card 9957  df-pnf 11275  df-mnf 11276  df-xr 11277  df-ltxr 11278  df-le 11279  df-sub 11471  df-neg 11472  df-div 11897  df-nn 12238  df-2 12300  df-3 12301  df-4 12302  df-5 12303  df-6 12304  df-7 12305  df-8 12306  df-9 12307  df-n0 12498  df-xnn0 12570  df-z 12584  df-dec 12703  df-uz 12848  df-q 12958  df-rp 13002  df-xneg 13119  df-xadd 13120  df-xmul 13121  df-ioo 13355  df-ioc 13356  df-ico 13357  df-icc 13358  df-fz 13512  df-fzo 13655  df-fl 13784  df-mod 13862  df-seq 13994  df-exp 14054  df-fac 14260  df-bc 14289  df-hash 14317  df-shft 15041  df-cj 15073  df-re 15074  df-im 15075  df-sqrt 15209  df-abs 15210  df-limsup 15442  df-clim 15459  df-rlim 15460  df-sum 15660  df-ef 16038  df-e 16039  df-sin 16040  df-cos 16041  df-tan 16042  df-pi 16043  df-dvds 16226  df-struct 17110  df-sets 17127  df-slot 17145  df-ndx 17157  df-base 17175  df-ress 17204  df-plusg 17240  df-mulr 17241  df-starv 17242  df-sca 17243  df-vsca 17244  df-ip 17245  df-tset 17246  df-ple 17247  df-ds 17249  df-unif 17250  df-hom 17251  df-cco 17252  df-rest 17398  df-topn 17399  df-0g 17417  df-gsum 17418  df-topgen 17419  df-pt 17420  df-prds 17423  df-xrs 17478  df-qtop 17483  df-imas 17484  df-xps 17486  df-mre 17560  df-mrc 17561  df-acs 17563  df-mgm 18594  df-sgrp 18673  df-mnd 18689  df-submnd 18735  df-mulg 19023  df-cntz 19267  df-cmn 19736  df-psmet 21270  df-xmet 21271  df-met 21272  df-bl 21273  df-mopn 21274  df-fbas 21275  df-fg 21276  df-cnfld 21279  df-top 22809  df-topon 22826  df-topsp 22848  df-bases 22862  df-cld 22936  df-ntr 22937  df-cls 22938  df-nei 23015  df-lp 23053  df-perf 23054  df-cn 23144  df-cnp 23145  df-haus 23232  df-cmp 23304  df-tx 23479  df-hmeo 23672  df-fil 23763  df-fm 23855  df-flim 23856  df-flf 23857  df-xms 24239  df-ms 24240  df-tms 24241  df-cncf 24811  df-limc 25808  df-dv 25809  df-ulm 26326  df-log 26503  df-cxp 26504
This theorem is referenced by:  stirlinglem12  45532
  Copyright terms: Public domain W3C validator