HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem georeclim 7175
Description: The limit of a geometric series of reciprocals. (Contributed by Paul Chapman, 28-Dec-2007.)
Hypothesis
Ref Expression
georeclim.1 |- F = {<.j, y>. | (j e. NN0 /\ y = ((1 / A)^j))}
Assertion
Ref Expression
georeclim |- ((A e. CC /\ 1 < (abs` A)) -> ( + seq0 F) ~~> (A / (A - 1)))
Distinct variable group:   A,j,y

Proof of Theorem georeclim
StepHypRef Expression
1 georeclim.1 . . . 4 |- F = {<.j, y>. | (j e. NN0 /\ y = ((1 / A)^j))}
21geolim 7172 . . 3 |- (((1 / A) e. CC /\ (abs` (1 / A)) < 1) -> ( + seq0 F) ~~> (1 / (1 - (1 / A))))
3 gt0ne0t 5592 . . . . . 6 |- (((abs` A) e. RR /\ 0 < (abs` A)) -> (abs`
A) =/= 0)
4 absclt 6768 . . . . . . 7 |- (A e. CC -> (abs` A) e. RR)
54adantr 389 . . . . . 6 |- ((A e. CC /\ 1 < (abs` A)) -> (abs`
A) e. RR)
6 lt01 5653 . . . . . . . 8 |- 0 < 1
7 0re 5412 . . . . . . . . . 10 |- 0 e. RR
8 1re 5407 . . . . . . . . . 10 |- 1 e. RR
9 axlttrn 5476 . . . . . . . . . 10 |- ((0 e. RR /\ 1 e. RR /\ (abs` A) e. RR) -> ((0 < 1 /\ 1 < (abs`
A)) -> 0 < (abs` A)))
107, 8, 9mp3an12 903 . . . . . . . . 9 |- ((abs` A) e. RR -> ((0 < 1 /\ 1 < (abs` A)) -> 0 < (abs` A)))
114, 10syl 10 . . . . . . . 8 |- (A e. CC -> ((0 < 1 /\ 1 < (abs` A)) -> 0 < (abs` A)))
126, 11mpani 696 . . . . . . 7 |- (A e. CC -> (1 < (abs` A) -> 0 < (abs` A)))
1312imp 350 . . . . . 6 |- ((A e. CC /\ 1 < (abs` A)) -> 0 < (abs` A))
143, 5, 13sylanc 471 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> (abs`
A) =/= 0)
15 abs00t 6788 . . . . . . 7 |- (A e. CC -> ((abs` A) = 0 <-> A = 0))
1615necon3bid 1593 . . . . . 6 |- (A e. CC -> ((abs` A) =/= 0 <-> A =/= 0))
1716adantr 389 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> ((abs` A) =/= 0 <-> A =/= 0))
1814, 17mpbid 195 . . . 4 |- ((A e. CC /\ 1 < (abs` A)) -> A =/= 0)
19 recclt 5684 . . . 4 |- ((A e. CC /\ A =/= 0) -> (1 / A) e. CC)
2018, 19syldan 467 . . 3 |- ((A e. CC /\ 1 < (abs` A)) -> (1 / A) e. CC)
21 ax1cn 5241 . . . . . . 7 |- 1 e. CC
22 absdivt 6795 . . . . . . 7 |- ((1 e. CC /\ A e. CC /\ A =/= 0) -> (abs`
(1 / A)) = ((abs` 1) / (abs` A)))
2321, 22mp3an1 900 . . . . . 6 |- ((A e. CC /\ A =/= 0) -> (abs`
(1 / A)) = ((abs` 1) / (abs` A)))
2418, 23syldan 467 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> (abs`
(1 / A)) = ((abs` 1) / (abs` A)))
257, 8, 6ltlei 5554 . . . . . . 7 |- 0 <_ 1
26 absidt 6797 . . . . . . 7 |- ((1 e. RR /\ 0 <_ 1) -> (abs`
1) = 1)
278, 25, 26mp2an 695 . . . . . 6 |- (abs` 1) = 1
2827opreq1i 3956 . . . . 5 |- ((abs` 1) / (abs`
A)) = (1 / (abs` A))
2924, 28syl6eq 1515 . . . 4 |- ((A e. CC /\ 1 < (abs` A)) -> (abs`
(1 / A)) = (1 / (abs` A)))
30 recgt1t 5847 . . . . . . . . 9 |- (((abs` A) e. RR /\ 0 < (abs` A)) -> (1 < (abs` A) <-> (1 / (abs` A)) < 1))
3130, 5, 13sylanc 471 . . . . . . . 8 |- ((A e. CC /\ 1 < (abs` A)) -> (1 < (abs` A) <-> (1 / (abs` A)) < 1))
3231biimpd 153 . . . . . . 7 |- ((A e. CC /\ 1 < (abs` A)) -> (1 < (abs` A) -> (1 / (abs`
A)) < 1))
3332ex 373 . . . . . 6 |- (A e. CC -> (1 < (abs` A) -> (1 < (abs` A) -> (1 / (abs` A)) < 1)))
3433pm2.43d 65 . . . . 5 |- (A e. CC -> (1 < (abs` A) -> (1 / (abs` A)) < 1))
3534imp 350 . . . 4 |- ((A e. CC /\ 1 < (abs` A)) -> (1 / (abs` A)) < 1)
3629, 35eqbrtrd 2625 . . 3 |- ((A e. CC /\ 1 < (abs` A)) -> (abs`
(1 / A)) < 1)
372, 20, 36sylanc 471 . 2 |- ((A e. CC /\ 1 < (abs` A)) -> ( + seq0 F) ~~> (1 / (1 - (1 / A))))
38 dividt 5722 . . . . . 6 |- ((A e. CC /\ A =/= 0) -> (A / A) = 1)
3918, 38syldan 467 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> (A / A) = 1)
4039opreq2d 3961 . . . 4 |- ((A e. CC /\ 1 < (abs` A)) -> ((1 / (1 - (1 / A))) / (A / A)) = ((1 / (1 - (1 / A))) / 1))
41 divdivdivt 5741 . . . . 5 |- ((((1 e. CC /\ (1 - (1 / A)) e. CC) /\ (A e. CC /\ A e. CC)) /\ ((1 - (1 / A)) =/= 0 /\ A =/= 0 /\ A =/= 0)) -> ((1 / (1 - (1 / A))) / (A / A)) = ((1 x. A) / ((1 - (1 / A)) x. A)))
42 subclt 5339 . . . . . . . 8 |- ((1 e. CC /\ (1 / A) e. CC) -> (1 - (1 / A)) e. CC)
4321a1i 8 . . . . . . . 8 |- ((A e. CC /\ 1 < (abs` A)) -> 1 e. CC)
4442, 43, 20sylanc 471 . . . . . . 7 |- ((A e. CC /\ 1 < (abs` A)) -> (1 - (1 / A)) e. CC)
4544, 21jctil 292 . . . . . 6 |- ((A e. CC /\ 1 < (abs` A)) -> (1 e. CC /\ (1 - (1 / A)) e. CC))
46 pm3.26 319 . . . . . . 7 |- ((A e. CC /\ 1 < (abs` A)) -> A e. CC)
4746, 46jca 288 . . . . . 6 |- ((A e. CC /\ 1 < (abs` A)) -> (A e. CC /\ A e. CC))
4845, 47jca 288 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> ((1 e. CC /\ (1 - (1 / A)) e. CC) /\ (A e. CC /\ A e. CC)))
49 abssubne0t 6820 . . . . . . . 8 |- (((1 / A) e. CC /\ 1 e. RR /\ (abs` (1 / A)) < 1) -> (1 - (1 / A)) =/= 0)
508, 49mp3an2 901 . . . . . . 7 |- (((1 / A) e. CC /\ (abs` (1 / A)) < 1) -> (1 - (1 / A)) =/= 0)
5150, 20, 36sylanc 471 . . . . . 6 |- ((A e. CC /\ 1 < (abs` A)) -> (1 - (1 / A)) =/= 0)
5251, 18, 183jca 817 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> ((1 - (1 / A)) =/= 0 /\ A =/= 0 /\ A =/= 0))
5341, 48, 52sylanc 471 . . . 4 |- ((A e. CC /\ 1 < (abs` A)) -> ((1 / (1 - (1 / A))) / (A / A)) = ((1 x. A) / ((1 - (1 / A)) x. A)))
54 recclt 5684 . . . . . 6 |- (((1 - (1 / A)) e. CC /\ (1 - (1 / A)) =/= 0) -> (1 / (1 - (1 / A))) e. CC)
5554, 44, 51sylanc 471 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> (1 / (1 - (1 / A))) e. CC)
56 div1t 5729 . . . . 5 |- ((1 / (1 - (1 / A))) e. CC -> ((1 / (1 - (1 / A))) / 1) = (1 / (1 - (1 / A))))
5755, 56syl 10 . . . 4 |- ((A e. CC /\ 1 < (abs` A)) -> ((1 / (1 - (1 / A))) / 1) = (1 / (1 - (1 / A))))
5840, 53, 573eqtr3rd 1508 . . 3 |- ((A e. CC /\ 1 < (abs` A)) -> (1 / (1 - (1 / A))) = ((1 x. A) / ((1 - (1 / A)) x. A)))
59 mulid2t 5389 . . . . 5 |- (A e. CC -> (1 x. A) = A)
6059adantr 389 . . . 4 |- ((A e. CC /\ 1 < (abs` A)) -> (1 x. A) = A)
61 subdirt 5400 . . . . . 6 |- ((1 e. CC /\ (1 / A) e. CC /\ A e. CC) -> ((1 - (1 / A)) x. A) = ((1 x. A) - ((1 / A) x. A)))
6261, 43, 20, 46syl3anc 856 . . . . 5 |- ((A e. CC /\ 1 < (abs` A)) -> ((1 - (1 / A)) x. A) = ((1 x. A) - ((1 / A) x. A)))
63 recid2t 5699 . . . . . . 7 |- ((A e. CC /\ A =/= 0) -> ((1