Table of ContentsTable of Contents Mathbox for Jeff Madsen < Previous   Next >
Related theorems
Unicode version

Theorem geomcau 15849
Description: If the distance between consecutive points in a sequence is bounded by a geometric sequence, then the sequence is Cauchy.
Hypothesis
Ref Expression
geomcau.1 |- X = dom dom M
Assertion
Ref Expression
geomcau |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> F e. (Cau` M))
Distinct variable groups:   k,M   k,X   k,F   A,k   B,k

Proof of Theorem geomcau
StepHypRef Expression
1 0re 6603 . . . . . . . . . 10 |- 0 e. RR
21a1i 8 . . . . . . . . 9 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> 0 e. RR)
3 geomcau.1 . . . . . . . . . . . . 13 |- X = dom dom M
43metcl 9088 . . . . . . . . . . . 12 |- ((M e. Met /\ (F` 1) e. X /\ (F` (1 + 1)) e. X) -> ((F` 1)M(F` (1 + 1))) e. RR)
543expb 1068 . . . . . . . . . . 11 |- ((M e. Met /\ ((F` 1) e. X /\ (F` (1 + 1)) e. X)) -> ((F` 1)M(F` (1 + 1))) e. RR)
6 1nn 7117 . . . . . . . . . . . . 13 |- 1 e. NN
7 ffvelrn 4787 . . . . . . . . . . . . 13 |- ((F:NN-->X /\ 1 e. NN) -> (F` 1) e. X)
86, 7mpan2 760 . . . . . . . . . . . 12 |- (F:NN-->X -> (F` 1) e. X)
9 nnaddcl 7123 . . . . . . . . . . . . . 14 |- ((1 e. NN /\ 1 e. NN) -> (1 + 1) e. NN)
106, 6, 9mp2an 761 . . . . . . . . . . . . 13 |- (1 + 1) e. NN
11 ffvelrn 4787 . . . . . . . . . . . . 13 |- ((F:NN-->X /\ (1 + 1) e. NN) -> (F` (1 + 1)) e. X)
1210, 11mpan2 760 . . . . . . . . . . . 12 |- (F:NN-->X -> (F` (1 + 1)) e. X)
138, 12jca 310 . . . . . . . . . . 11 |- (F:NN-->X -> ((F` 1) e. X /\ (F` (1 + 1)) e. X))
145, 13sylan2 500 . . . . . . . . . 10 |- ((M e. Met /\ F:NN-->X) -> ((F` 1)M(F` (1 + 1))) e. RR)
15143ad2ant1 897 . . . . . . . . 9 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> ((F` 1)M(F` (1 + 1))) e. RR)
16 axmulrcl 6427 . . . . . . . . . . . 12 |- ((A e. RR /\ B e. RR) -> (A x. B) e. RR)
17 rpre 7236 . . . . . . . . . . . 12 |- (B e. RR+ -> B e. RR)
1816, 17sylan2 500 . . . . . . . . . . 11 |- ((A e. RR /\ B e. RR+) -> (A x. B) e. RR)
19183adant3 896 . . . . . . . . . 10 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (A x. B) e. RR)
20193ad2ant2 898 . . . . . . . . 9 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> (A x. B) e. RR)
213metge0 9096 . . . . . . . . . . . 12 |- ((M e. Met /\ (F` 1) e. X /\ (F` (1 + 1)) e. X) -> 0 <_ ((F` 1)M(F` (1 + 1))))
22213expb 1068 . . . . . . . . . . 11 |- ((M e. Met /\ ((F` 1) e. X /\ (F` (1 + 1)) e. X)) -> 0 <_ ((F` 1)M(F` (1 + 1))))
2322, 13sylan2 500 . . . . . . . . . 10 |- ((M e. Met /\ F:NN-->X) -> 0 <_ ((F` 1)M(F` (1 + 1))))
24233ad2ant1 897 . . . . . . . . 9 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> 0 <_ ((F` 1)M(F` (1 + 1))))
25 rpcn 7237 . . . . . . . . . . . . . . 15 |- (B e. RR+ -> B e. CC)
26 exp1 7816 . . . . . . . . . . . . . . 15 |- (B e. CC -> (B^1) = B)
2725, 26syl 12 . . . . . . . . . . . . . 14 |- (B e. RR+ -> (B^1) = B)
28273ad2ant2 898 . . . . . . . . . . . . 13 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (B^1) = B)
2928adantl 424 . . . . . . . . . . . 12 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1)) -> (B^1) = B)
3029opreq2d 4898 . . . . . . . . . . 11 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1)) -> (A x. (B^1)) = (A x. B))
3130breq2d 3350 . . . . . . . . . 10 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1)) -> (((F` 1)M(F` (1 + 1))) <_ (A x. (B^1)) <-> ((F` 1)M(F` (1 + 1))) <_ (A x. B)))
3231biimp3a 1194 . . . . . . . . 9 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> ((F` 1)M(F` (1 + 1))) <_ (A x. B))
332, 15, 20, 24, 32letrd 6696 . . . . . . . 8 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> 0 <_ (A x. B))
34 prodge02 7007 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR) /\ (0 < B /\ 0 <_ (A x. B))) -> 0 <_ A)
3534ancom2s 545 . . . . . . . . . . . . . 14 |- (((A e. RR /\ B e. RR) /\ (0 <_ (A x. B) /\ 0 < B)) -> 0 <_ A)
3635an4s 566 . . . . . . . . . . . . 13 |- (((A e. RR /\ 0 <_ (A x. B)) /\ (B e. RR /\ 0 < B)) -> 0 <_ A)
37 rpregt0 7242 . . . . . . . . . . . . 13 |- (B e. RR+ -> (B e. RR /\ 0 < B))
3836, 37sylan2 500 . . . . . . . . . . . 12 |- (((A e. RR /\ 0 <_ (A x. B)) /\ B e. RR+) -> 0 <_ A)
3938an1rs 547 . . . . . . . . . . 11 |- (((A e. RR /\ B e. RR+) /\ 0 <_ (A x. B)) -> 0 <_ A)
4039ex 402 . . . . . . . . . 10 |- ((A e. RR /\ B e. RR+) -> (0 <_ (A x. B) -> 0 <_ A))
41403adant3 896 . . . . . . . . 9 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (0 <_ (A x. B) -> 0 <_ A))
42413ad2ant2 898 . . . . . . . 8 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> (0 <_ (A x. B) -> 0 <_ A))
4333, 42mpd 29 . . . . . . 7 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))) -> 0 <_ A)
44 fveq2 4681 . . . . . . . . . . 11 |- (k = 1 -> (F` k) = (F` 1))
45 opreq1 4889 . . . . . . . . . . . 12 |- (k = 1 -> (k + 1) = (1 + 1))
4645fveq2d 4685 . . . . . . . . . . 11 |- (k = 1 -> (F` (k + 1)) = (F` (1 + 1)))
4744, 46opreq12d 4900 . . . . . . . . . 10 |- (k = 1 -> ((F` k)M(F` (k + 1))) = ((F` 1)M(F` (1 + 1))))
48 opreq2 4890 . . . . . . . . . . 11 |- (k = 1 -> (B^k) = (B^1))
4948opreq2d 4898 . . . . . . . . . 10 |- (k = 1 -> (A x. (B^k)) = (A x. (B^1)))
5047, 49breq12d 3351 . . . . . . . . 9 |- (k = 1 -> (((F` k)M(F` (k + 1))) <_ (A x. (B^k)) <-> ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))))
5150rcla4v 2376 . . . . . . . 8 |- (1 e. NN -> (A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k)) -> ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1))))
526, 51ax-mp 7 . . . . . . 7 |- (A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k)) -> ((F` 1)M(F` (1 + 1))) <_ (A x. (B^1)))
5343, 52syl3an3 1132 . . . . . 6 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> 0 <_ A)
5453adantr 425 . . . . 5 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) -> 0 <_ A)
55 leloe 6688 . . . . . . . . . 10 |- ((0 e. RR /\ A e. RR) -> (0 <_ A <-> (0 < A \/ 0 = A)))
561, 55mpan 759 . . . . . . . . 9 |- (A e. RR -> (0 <_ A <-> (0 < A \/ 0 = A)))
57563ad2ant1 897 . . . . . . . 8 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (0 <_ A <-> (0 < A \/ 0 = A)))
58573ad2ant2 898 . . . . . . 7 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> (0 <_ A <-> (0 < A \/ 0 = A)))
5958adantr 425 . . . . . 6 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) -> (0 <_ A <-> (0 < A \/ 0 = A)))
60 simplr 449 . . . . . . . . . . . . 13 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> x e. RR+)
61 elrp 7233 . . . . . . . . . . . . . . . . 17 |- (A e. RR+ <-> (A e. RR /\ 0 < A))
6261biimpri 169 . . . . . . . . . . . . . . . 16 |- ((A e. RR /\ 0 < A) -> A e. RR+)
63623ad2antl1 1038 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> A e. RR+)
64 elrp 7233 . . . . . . . . . . . . . . . . . . 19 |- ((1 - B) e. RR+ <-> ((1 - B) e. RR /\ 0 < (1 - B)))
65 resubcl 6601 . . . . . . . . . . . . . . . . . . . . 21 |- ((1 e. RR /\ B e. RR) -> (1 - B) e. RR)
66 1re 6598 . . . . . . . . . . . . . . . . . . . . 21 |- 1 e. RR
6765, 66, 17sylancr 526 . . . . . . . . . . . . . . . . . . . 20 |- (B e. RR+ -> (1 - B) e. RR)
6867adantr 425 . . . . . . . . . . . . . . . . . . 19 |- ((B e. RR+ /\ B < 1) -> (1 - B) e. RR)
69 posdif 6843 . . . . . . . . . . . . . . . . . . . . 21 |- ((B e. RR /\ 1 e. RR) -> (B < 1 <-> 0 < (1 - B)))
7069, 17, 66sylancl 525 . . . . . . . . . . . . . . . . . . . 20 |- (B e. RR+ -> (B < 1 <-> 0 < (1 - B)))
7170biimpa 460 . . . . . . . . . . . . . . . . . . 19 |- ((B e. RR+ /\ B < 1) -> 0 < (1 - B))
7264, 68, 71sylanbrc 527 . . . . . . . . . . . . . . . . . 18 |- ((B e. RR+ /\ B < 1) -> (1 - B) e. RR+)
73 rpreccl 7250 . . . . . . . . . . . . . . . . . 18 |- ((1 - B) e. RR+ -> (1 / (1 - B)) e. RR+)
7472, 73syl 12 . . . . . . . . . . . . . . . . 17 |- ((B e. RR+ /\ B < 1) -> (1 / (1 - B)) e. RR+)
75743adant1 894 . . . . . . . . . . . . . . . 16 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (1 / (1 - B)) e. RR+)
7675adantr 425 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> (1 / (1 - B)) e. RR+)
77 rpmulcl 7248 . . . . . . . . . . . . . . 15 |- ((A e. RR+ /\ (1 / (1 - B)) e. RR+) -> (A x. (1 / (1 - B))) e. RR+)
7863, 76, 77syl11anc 524 . . . . . . . . . . . . . 14 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> (A x. (1 / (1 - B))) e. RR+)
7978adantlr 429 . . . . . . . . . . . . 13 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> (A x. (1 / (1 - B))) e. RR+)
80 rpdivcl 7249 . . . . . . . . . . . . 13 |- ((x e. RR+ /\ (A x. (1 / (1 - B))) e. RR+) -> (x / (A x. (1 / (1 - B)))) e. RR+)
8160, 79, 80syl11anc 524 . . . . . . . . . . . 12 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> (x / (A x. (1 / (1 - B)))) e. RR+)
82 rpreccl 7250 . . . . . . . . . . . . . . 15 |- (B e. RR+ -> (1 / B) e. RR+)
83 rpre 7236 . . . . . . . . . . . . . . 15 |- ((1 / B) e. RR+ -> (1 / B) e. RR)
8482, 83syl 12 . . . . . . . . . . . . . 14 |- (B e. RR+ -> (1 / B) e. RR)
85843ad2ant2 898 . . . . . . . . . . . . 13 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (1 / B) e. RR)
8685ad2antrr 440 . . . . . . . . . . . 12 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> (1 / B) e. RR)
87 reclt1 7081 . . . . . . . . . . . . . . . 16 |- ((B e. RR /\ 0 < B) -> (B < 1 <-> 1 < (1 / B)))
8837, 87syl 12 . . . . . . . . . . . . . . 15 |- (B e. RR+ -> (B < 1 <-> 1 < (1 / B)))
8988biimpa 460 . . . . . . . . . . . . . 14 |- ((B e. RR+ /\ B < 1) -> 1 < (1 / B))
90893adant1 894 . . . . . . . . . . . . 13 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> 1 < (1 / B))
9190ad2antrr 440 . . . . . . . . . . . 12 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> 1 < (1 / B))
92 expnlbnd 7902 . . . . . . . . . . . 12 |- (((x / (A x. (1 / (1 - B)))) e. RR+ /\ (1 / B) e. RR /\ 1 < (1 / B)) -> E.j e. NN (1 / ((1 / B)^j)) < (x / (A x. (1 / (1 - B)))))
9381, 86, 91, 92syl111anc 1100 . . . . . . . . . . 11 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> E.j e. NN (1 / ((1 / B)^j)) < (x / (A x. (1 / (1 - B)))))
94 rpcn 7237 . . . . . . . . . . . . . . . . . . . . 21 |- ((1 / B) e. RR+ -> (1 / B) e. CC)
9582, 94syl 12 . . . . . . . . . . . . . . . . . . . 20 |- (B e. RR+ -> (1 / B) e. CC)
9695adantr 425 . . . . . . . . . . . . . . . . . . 19 |- ((B e. RR+ /\ j e. NN) -> (1 / B) e. CC)
97 rpne0 7243 . . . . . . . . . . . . . . . . . . . . 21 |- ((1 / B) e. RR+ -> (1 / B) =/= 0)
9882, 97syl 12 . . . . . . . . . . . . . . . . . . . 20 |- (B e. RR+ -> (1 / B) =/= 0)
9998adantr 425 . . . . . . . . . . . . . . . . . . 19 |- ((B e. RR+ /\ j e. NN) -> (1 / B) =/= 0)
100 nnnn0 7315 . . . . . . . . . . . . . . . . . . . 20 |- (j e. NN -> j e. NN0)
101100adantl 424 . . . . . . . . . . . . . . . . . . 19 |- ((B e. RR+ /\ j e. NN) -> j e. NN0)
102 exprec 7837 . . . . . . . . . . . . . . . . . . 19 |- (((1 / B) e. CC /\ (1 / B) =/= 0 /\ j e. NN0) -> ((1 / (1 / B))^j) = (1 / ((1 / B)^j)))
10396, 99, 101, 102syl111anc 1100 . . . . . . . . . . . . . . . . . 18 |- ((B e. RR+ /\ j e. NN) -> ((1 / (1 / B))^j) = (1 / ((1 / B)^j)))
104103eqcomd 1889 . . . . . . . . . . . . . . . . 17 |- ((B e. RR+ /\ j e. NN) -> (1 / ((1 / B)^j)) = ((1 / (1 / B))^j))
1051043ad2antl2 1039 . . . . . . . . . . . . . . . 16 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (1 / ((1 / B)^j)) = ((1 / (1 / B))^j))
106105adantlr 429 . . . . . . . . . . . . . . 15 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ j e. NN) -> (1 / ((1 / B)^j)) = ((1 / (1 / B))^j))
107106adantlr 429 . . . . . . . . . . . . . 14 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (1 / ((1 / B)^j)) = ((1 / (1 / B))^j))
108 rpne0 7243 . . . . . . . . . . . . . . . . . . 19 |- (B e. RR+ -> B =/= 0)
109 recrec 6952 . . . . . . . . . . . . . . . . . . 19 |- ((B e. CC /\ B =/= 0) -> (1 / (1 / B)) = B)
11025, 108, 109syl11anc 524 . . . . . . . . . . . . . . . . . 18 |- (B e. RR+ -> (1 / (1 / B)) = B)
1111103ad2ant2 898 . . . . . . . . . . . . . . . . 17 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (1 / (1 / B)) = B)
112111adantr 425 . . . . . . . . . . . . . . . 16 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) -> (1 / (1 / B)) = B)
113112ad2antrr 440 . . . . . . . . . . . . . . 15 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (1 / (1 / B)) = B)
114113opreq1d 4897 . . . . . . . . . . . . . 14 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> ((1 / (1 / B))^j) = (B^j))
115107, 114eqtrd 1925 . . . . . . . . . . . . 13 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (1 / ((1 / B)^j)) = (B^j))
116115breq1d 3348 . . . . . . . . . . . 12 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> ((1 / ((1 / B)^j)) < (x / (A x. (1 / (1 - B)))) <-> (B^j) < (x / (A x. (1 / (1 - B))))))
117116rexbidva 2120 . . . . . . . . . . 11 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> (E.j e. NN (1 / ((1 / B)^j)) < (x / (A x. (1 / (1 - B)))) <-> E.j e. NN (B^j) < (x / (A x. (1 / (1 - B))))))
11893, 117mpbid 212 . . . . . . . . . 10 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> E.j e. NN (B^j) < (x / (A x. (1 / (1 - B)))))
119 reexpcl 7823 . . . . . . . . . . . . . . . . 17 |- ((B e. RR /\ j e. NN0) -> (B^j) e. RR)
120119, 17, 100syl2an 503 . . . . . . . . . . . . . . . 16 |- ((B e. RR+ /\ j e. NN) -> (B^j) e. RR)
1211203ad2antl2 1039 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (B^j) e. RR)
122121adantlr 429 . . . . . . . . . . . . . 14 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ j e. NN) -> (B^j) e. RR)
123122adantlr 429 . . . . . . . . . . . . 13 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (B^j) e. RR)
124 rpre 7236 . . . . . . . . . . . . . . 15 |- (x e. RR+ -> x e. RR)
125124adantl 424 . . . . . . . . . . . . . 14 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) -> x e. RR)
126125ad2antrr 440 . . . . . . . . . . . . 13 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> x e. RR)
127 remulcl 6457 . . . . . . . . . . . . . . . . . . 19 |- ((A e. RR /\ (1 / (1 - B)) e. RR) -> (A x. (1 / (1 - B))) e. RR)
12817adantr 425 . . . . . . . . . . . . . . . . . . . . . 22 |- ((B e. RR+ /\ B < 1) -> B e. RR)
12966a1i 8 . . . . . . . . . . . . . . . . . . . . . 22 |- ((B e. RR+ /\ B < 1) -> 1 e. RR)
130 simpr 350 . . . . . . . . . . . . . . . . . . . . . 22 |- ((B e. RR+ /\ B < 1) -> B < 1)
131 ltne 6686 . . . . . . . . . . . . . . . . . . . . . 22 |- ((B e. RR /\ 1 e. RR /\ B < 1) -> 1 =/= B)
132128, 129, 130, 131syl111anc 1100 . . . . . . . . . . . . . . . . . . . . 21 |- ((B e. RR+ /\ B < 1) -> 1 =/= B)
133 subeq0 6563 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((1 e. CC /\ B e. CC) -> ((1 - B) = 0 <-> 1 = B))
134 ax1cn 6422 . . . . . . . . . . . . . . . . . . . . . . . 24 |- 1 e. CC
135133, 134, 25sylancr 526 . . . . . . . . . . . . . . . . . . . . . . 23 |- (B e. RR+ -> ((1 - B) = 0 <-> 1 = B))
136135adantr 425 . . . . . . . . . . . . . . . . . . . . . 22 |- ((B e. RR+ /\ B < 1) -> ((1 - B) = 0 <-> 1 = B))
137136necon3bid 2035 . . . . . . . . . . . . . . . . . . . . 21 |- ((B e. RR+ /\ B < 1) -> ((1 - B) =/= 0 <-> 1 =/= B))
138132, 137mpbird 213 . . . . . . . . . . . . . . . . . . . 20 |- ((B e. RR+ /\ B < 1) -> (1 - B) =/= 0)
139 rereccl 6981 . . . . . . . . . . . . . . . . . . . 20 |- (((1 - B) e. RR /\ (1 - B) =/= 0) -> (1 / (1 - B)) e. RR)
14068, 138, 139syl11anc 524 . . . . . . . . . . . . . . . . . . 19 |- ((B e. RR+ /\ B < 1) -> (1 / (1 - B)) e. RR)
141127, 140sylan2 500 . . . . . . . . . . . . . . . . . 18 |- ((A e. RR /\ (B e. RR+ /\ B < 1)) -> (A x. (1 / (1 - B))) e. RR)
1421413impb 1063 . . . . . . . . . . . . . . . . 17 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (A x. (1 / (1 - B))) e. RR)
143142adantr 425 . . . . . . . . . . . . . . . 16 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> (A x. (1 / (1 - B))) e. RR)
144 simpl1 879 . . . . . . . . . . . . . . . . 17 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> A e. RR)
145 simpr 350 . . . . . . . . . . . . . . . . 17 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> 0 < A)
1461403adant1 894 . . . . . . . . . . . . . . . . . 18 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (1 / (1 - B)) e. RR)
147146adantr 425 . . . . . . . . . . . . . . . . 17 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> (1 / (1 - B)) e. RR)
148 recgt0 7043 . . . . . . . . . . . . . . . . . . . 20 |- (((1 - B) e. RR /\ 0 < (1 - B)) -> 0 < (1 / (1 - B)))
14968, 71, 148syl11anc 524 . . . . . . . . . . . . . . . . . . 19 |- ((B e. RR+ /\ B < 1) -> 0 < (1 / (1 - B)))
1501493adant1 894 . . . . . . . . . . . . . . . . . 18 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> 0 < (1 / (1 - B)))
151150adantr 425 . . . . . . . . . . . . . . . . 17 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> 0 < (1 / (1 - B)))
152 mulgt0 6678 . . . . . . . . . . . . . . . . 17 |- (((A e. RR /\ 0 < A) /\ ((1 / (1 - B)) e. RR /\ 0 < (1 / (1 - B)))) -> 0 < (A x. (1 / (1 - B))))
153144, 145, 147, 151, 152syl22anc 1101 . . . . . . . . . . . . . . . 16 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> 0 < (A x. (1 / (1 - B))))
154143, 153jca 310 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 < A) -> ((A x. (1 / (1 - B))) e. RR /\ 0 < (A x. (1 / (1 - B)))))
155154adantlr 429 . . . . . . . . . . . . . 14 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> ((A x. (1 / (1 - B))) e. RR /\ 0 < (A x. (1 / (1 - B)))))
156155adantr 425 . . . . . . . . . . . . 13 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> ((A x. (1 / (1 - B))) e. RR /\ 0 < (A x. (1 / (1 - B)))))
157 ltmuldiv2 7047 . . . . . . . . . . . . 13 |- (((B^j) e. RR /\ x e. RR /\ ((A x. (1 / (1 - B))) e. RR /\ 0 < (A x. (1 / (1 - B))))) -> (((A x. (1 / (1 - B))) x. (B^j)) < x <-> (B^j) < (x / (A x. (1 / (1 - B))))))
158123, 126, 156, 157syl111anc 1100 . . . . . . . . . . . 12 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (((A x. (1 / (1 - B))) x. (B^j)) < x <-> (B^j) < (x / (A x. (1 / (1 - B))))))
159 recn 6466 . . . . . . . . . . . . . . . . 17 |- (A e. RR -> A e. CC)
1601593ad2ant1 897 . . . . . . . . . . . . . . . 16 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> A e. CC)
161160adantr 425 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) -> A e. CC)
162161ad2antrr 440 . . . . . . . . . . . . . 14 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> A e. CC)
163140recnd 6468 . . . . . . . . . . . . . . . . 17 |- ((B e. RR+ /\ B < 1) -> (1 / (1 - B)) e. CC)
1641633adant1 894 . . . . . . . . . . . . . . . 16 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (1 / (1 - B)) e. CC)
165164adantr 425 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) -> (1 / (1 - B)) e. CC)
166165ad2antrr 440 . . . . . . . . . . . . . 14 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (1 / (1 - B)) e. CC)
167120recnd 6468 . . . . . . . . . . . . . . . . 17 |- ((B e. RR+ /\ j e. NN) -> (B^j) e. CC)
1681673ad2antl2 1039 . . . . . . . . . . . . . . . 16 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (B^j) e. CC)
169168adantlr 429 . . . . . . . . . . . . . . 15 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ j e. NN) -> (B^j) e. CC)
170169adantlr 429 . . . . . . . . . . . . . 14 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (B^j) e. CC)
171 mul23 6580 . . . . . . . . . . . . . 14 |- ((A e. CC /\ (1 / (1 - B)) e. CC /\ (B^j) e. CC) -> ((A x. (1 / (1 - B))) x. (B^j)) = ((A x. (B^j)) x. (1 / (1 - B))))
172162, 166, 170, 171syl111anc 1100 . . . . . . . . . . . . 13 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> ((A x. (1 / (1 - B))) x. (B^j)) = ((A x. (B^j)) x. (1 / (1 - B))))
173172breq1d 3348 . . . . . . . . . . . 12 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> (((A x. (1 / (1 - B))) x. (B^j)) < x <-> ((A x. (B^j)) x. (1 / (1 - B))) < x))
174158, 173bitr3d 589 . . . . . . . . . . 11 |- (((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) /\ j e. NN) -> ((B^j) < (x / (A x. (1 / (1 - B)))) <-> ((A x. (B^j)) x. (1 / (1 - B))) < x))
175174rexbidva 2120 . . . . . . . . . 10 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> (E.j e. NN (B^j) < (x / (A x. (1 / (1 - B)))) <-> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x))
176118, 175mpbid 212 . . . . . . . . 9 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 < A) -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x)
177 opreq2 4890 . . . . . . . . . . . . . 14 |- (j = 1 -> (B^j) = (B^1))
178177opreq2d 4898 . . . . . . . . . . . . 13 |- (j = 1 -> (A x. (B^j)) = (A x. (B^1)))
179178opreq1d 4897 . . . . . . . . . . . 12 |- (j = 1 -> ((A x. (B^j)) x. (1 / (1 - B))) = ((A x. (B^1)) x. (1 / (1 - B))))
180179breq1d 3348 . . . . . . . . . . 11 |- (j = 1 -> (((A x. (B^j)) x. (1 / (1 - B))) < x <-> ((A x. (B^1)) x. (1 / (1 - B))) < x))
181180rcla4ev 2381 . . . . . . . . . 10 |- ((1 e. NN /\ ((A x. (B^1)) x. (1 / (1 - B))) < x) -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x)
182 opreq1 4889 . . . . . . . . . . . . . . . . 17 |- (0 = A -> (0 x. (B^1)) = (A x. (B^1)))
183182eqcomd 1889 . . . . . . . . . . . . . . . 16 |- (0 = A -> (A x. (B^1)) = (0 x. (B^1)))
184 expcl 7824 . . . . . . . . . . . . . . . . . . . 20 |- ((B e. CC /\ 1 e. NN0) -> (B^1) e. CC)
185 1nn0 7323 . . . . . . . . . . . . . . . . . . . 20 |- 1 e. NN0
186184, 25, 185sylancl 525 . . . . . . . . . . . . . . . . . . 19 |- (B e. RR+ -> (B^1) e. CC)
187186adantr 425 . . . . . . . . . . . . . . . . . 18 |- ((B e. RR+ /\ B < 1) -> (B^1) e. CC)
188 mul02 6607 . . . . . . . . . . . . . . . . . 18 |- ((B^1) e. CC -> (0 x. (B^1)) = 0)
189187, 188syl 12 . . . . . . . . . . . . . . . . 17 |- ((B e. RR+ /\ B < 1) -> (0 x. (B^1)) = 0)
1901893adant1 894 . . . . . . . . . . . . . . . 16 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (0 x. (B^1)) = 0)
191183, 190sylan9eqr 1951 . . . . . . . . . . . . . . 15 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 = A) -> (A x. (B^1)) = 0)
192191opreq1d 4897 . . . . . . . . . . . . . 14 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 = A) -> ((A x. (B^1)) x. (1 / (1 - B))) = (0 x. (1 / (1 - B))))
193 mul02 6607 . . . . . . . . . . . . . . . . 17 |- ((1 / (1 - B)) e. CC -> (0 x. (1 / (1 - B))) = 0)
194163, 193syl 12 . . . . . . . . . . . . . . . 16 |- ((B e. RR+ /\ B < 1) -> (0 x. (1 / (1 - B))) = 0)
1951943adant1 894 . . . . . . . . . . . . . . 15 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (0 x. (1 / (1 - B))) = 0)
196195adantr 425 . . . . . . . . . . . . . 14 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 = A) -> (0 x. (1 / (1 - B))) = 0)
197192, 196eqtrd 1925 . . . . . . . . . . . . 13 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ 0 = A) -> ((A x. (B^1)) x. (1 / (1 - B))) = 0)
198197adantrl 430 . . . . . . . . . . . 12 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ (x e. RR+ /\ 0 = A)) -> ((A x. (B^1)) x. (1 / (1 - B))) = 0)
199 rpgt0 7240 . . . . . . . . . . . . 13 |- (x e. RR+ -> 0 < x)
200199ad2antrl 442 . . . . . . . . . . . 12 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ (x e. RR+ /\ 0 = A)) -> 0 < x)
201198, 200eqbrtrd 3357 . . . . . . . . . . 11 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ (x e. RR+ /\ 0 = A)) -> ((A x. (B^1)) x. (1 / (1 - B))) < x)
202201anassrs 489 . . . . . . . . . 10 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 = A) -> ((A x. (B^1)) x. (1 / (1 - B))) < x)
203181, 6, 202sylancr 526 . . . . . . . . 9 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ 0 = A) -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x)
204176, 203jaodan 471 . . . . . . . 8 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) /\ (0 < A \/ 0 = A)) -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x)
205204ex 402 . . . . . . 7 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ x e. RR+) -> ((0 < A \/ 0 = A) -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x))
2062053ad2antl2 1039 . . . . . 6 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) -> ((0 < A \/ 0 = A) -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x))
20759, 206sylbid 220 . . . . 5 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) -> (0 <_ A -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x))
20854, 207mpd 29 . . . 4 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) -> E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x)
209 leloe 6688 . . . . . . . . . . . . . 14 |- ((j e. RR /\ m e. RR) -> (j <_ m <-> (j < m \/ j = m)))
210209biimpd 170 . . . . . . . . . . . . 13 |- ((j e. RR /\ m e. RR) -> (j <_ m -> (j < m \/ j = m)))
211 nnre 7112 . . . . . . . . . . . . 13 |- (j e. NN -> j e. RR)
212 nnre 7112 . . . . . . . . . . . . 13 |- (m e. NN -> m e. RR)
213210, 211, 212syl2an 503 . . . . . . . . . . . 12 |- ((j e. NN /\ m e. NN) -> (j <_ m -> (j < m \/ j = m)))
214213adantl 424 . . . . . . . . . . 11 |- ((x e. RR+ /\ (j e. NN /\ m e. NN)) -> (j <_ m -> (j < m \/ j = m)))
215214ad2antlr 441 . . . . . . . . . 10 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) -> (j <_ m -> (j < m \/ j = m)))
216 nnltp1le 7139 . . . . . . . . . . . . . . 15 |- ((j e. NN /\ m e. NN) -> (j < m <-> (j + 1) <_ m))
217 eluz 7595 . . . . . . . . . . . . . . . 16 |- (((j + 1) e. ZZ /\ m e. ZZ) -> (m e. (ZZ>=` (j + 1)) <-> (j + 1) <_ m))
218 nnz 7362 . . . . . . . . . . . . . . . . 17 |- (j e. NN -> j e. ZZ)
219218peano2zdi 7376 . . . . . . . . . . . . . . . 16 |- (j e. NN -> (j + 1) e. ZZ)
220 nnz 7362 . . . . . . . . . . . . . . . 16 |- (m e. NN -> m e. ZZ)
221217, 219, 220syl2an 503 . . . . . . . . . . . . . . 15 |- ((j e. NN /\ m e. NN) -> (m e. (ZZ>=` (j + 1)) <-> (j + 1) <_ m))
222216, 221bitr4d 590 . . . . . . . . . . . . . 14 |- ((j e. NN /\ m e. NN) -> (j < m <-> m e. (ZZ>=` (j + 1))))
223222adantl 424 . . . . . . . . . . . . 13 |- ((x e. RR+ /\ (j e. NN /\ m e. NN)) -> (j < m <-> m e. (ZZ>=` (j + 1))))
224223ad2antlr 441 . . . . . . . . . . . 12 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) -> (j < m <-> m e. (ZZ>=` (j + 1))))
2253metcl 9088 . . . . . . . . . . . . . . . . . . . 20 |- ((M e. Met /\ (F` j) e. X /\ (F` m) e. X) -> ((F` j)M(F` m)) e. RR)
2262253expb 1068 . . . . . . . . . . . . . . . . . . 19 |- ((M e. Met /\ ((F` j) e. X /\ (F` m) e. X)) -> ((F` j)M(F` m)) e. RR)
227 ffvelrn 4787 . . . . . . . . . . . . . . . . . . . . . 22 |- ((F:NN-->X /\ j e. NN) -> (F` j) e. X)
228227ex 402 . . . . . . . . . . . . . . . . . . . . 21 |- (F:NN-->X -> (j e. NN -> (F` j) e. X))
229 ffvelrn 4787 . . . . . . . . . . . . . . . . . . . . . 22 |- ((F:NN-->X /\ m e. NN) -> (F` m) e. X)
230229ex 402 . . . . . . . . . . . . . . . . . . . . 21 |- (F:NN-->X -> (m e. NN -> (F` m) e. X))
231228, 230anim12d 617 . . . . . . . . . . . . . . . . . . . 20 |- (F:NN-->X -> ((j e. NN /\ m e. NN) -> ((F` j) e. X /\ (F` m) e. X)))
232231imp 377 . . . . . . . . . . . . . . . . . . 19 |- ((F:NN-->X /\ (j e. NN /\ m e. NN)) -> ((F` j) e. X /\ (F` m) e. X))
233226, 232sylan2 500 . . . . . . . . . . . . . . . . . 18 |- ((M e. Met /\ (F:NN-->X /\ (j e. NN /\ m e. NN))) -> ((F` j)M(F` m)) e. RR)
234233anassrs 489 . . . . . . . . . . . . . . . . 17 |- (((M e. Met /\ F:NN-->X) /\ (j e. NN /\ m e. NN)) -> ((F` j)M(F` m)) e. RR)
2352343ad2antl1 1038 . . . . . . . . . . . . . . . 16 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) -> ((F` j)M(F` m)) e. RR)
236235adantrl 430 . . . . . . . . . . . . . . 15 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) -> ((F` j)M(F` m)) e. RR)
237236ad2antrr 440 . . . . . . . . . . . . . 14 |- ((((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) /\ m e. (ZZ>=`
(j + 1))) -> ((F` j)M(F` m)) e. RR)
238 remulcl 6457 . . . . . . . . . . . . . . . . . . . . . 22 |- ((A e. RR /\ (B^j) e. RR) -> (A x. (B^j)) e. RR)
239238, 120sylan2 500 . . . . . . . . . . . . . . . . . . . . 21 |- ((A e. RR /\ (B e. RR+ /\ j e. NN)) -> (A x. (B^j)) e. RR)
240239anassrs 489 . . . . . . . . . . . . . . . . . . . 20 |- (((A e. RR /\ B e. RR+) /\ j e. NN) -> (A x. (B^j)) e. RR)
2412403adantl3 1034 . . . . . . . . . . . . . . . . . . 19 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (A x. (B^j)) e. RR)
242146adantr 425 . . . . . . . . . . . . . . . . . . 19 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (1 / (1 - B)) e. RR)
243 remulcl 6457 . . . . . . . . . . . . . . . . . . 19 |- (((A x. (B^j)) e. RR /\ (1 / (1 - B)) e. RR) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
244241, 242, 243syl11anc 524 . . . . . . . . . . . . . . . . . 18 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
245244adantrr 431 . . . . . . . . . . . . . . . . 17 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ (j e. NN /\ m e. NN)) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
2462453ad2antl2 1039 . . . . . . . . . . . . . . . 16 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
247246adantrl 430 . . . . . . . . . . . . . . 15 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
248247ad2antrr 440 . . . . . . . . . . . . . 14 |- ((((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) /\ m e. (ZZ>=`
(j + 1))) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
249124ad2antrl 442 . . . . . . . . . . . . . . 15 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) -> x e. RR)
250249ad2antrr 440 . . . . . . . . . . . . . 14 |- ((((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) /\ m e. (ZZ>=`
(j + 1))) -> x e. RR)
251236adantr 425 . . . . . . . . . . . . . . . 16 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> ((F` j)M(F` m)) e. RR)
252 1z 7368 . . . . . . . . . . . . . . . . . . . . . 22 |- 1 e. ZZ
253 eluzsub 15783 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((j e. ZZ /\ 1 e. ZZ /\ m e. (ZZ>=` (j + 1))) -> (m - 1) e. (ZZ>=` j))
254253, 218syl3an1 1130 . . . . . . . . . . . . . . . . . . . . . 22 |- ((j e. NN /\ 1 e. ZZ /\ m e. (ZZ>=` (j + 1))) -> (m - 1) e. (ZZ>=` j))
255252, 254mp3an2 1179 . . . . . . . . . . . . . . . . . . . . 21 |- ((j e. NN /\ m e. (ZZ>=` (j + 1))) -> (m - 1) e. (ZZ>=` j))
256255adantlr 429 . . . . . . . . . . . . . . . . . . . 20 |- (((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1))) -> (m - 1) e. (ZZ>=` j))
257256adantl 424 . . . . . . . . . . . . . . . . . . 19 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (m - 1) e. (ZZ>=`
j))
2583metcl 9088 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((M e. Met /\ (F` n) e. X /\ (F` (n + 1)) e. X) -> ((F` n)M(F` (n + 1))) e. RR)
2592583expb 1068 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((M e. Met /\ ((F` n) e. X /\ (F` (n + 1)) e. X)) -> ((F` n)M(F` (n + 1))) e. RR)
260 ffvelrn 4787 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((F:NN-->X /\ n e. NN) -> (F` n) e. X)
261 ffvelrn 4787 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((F:NN-->X /\ (n + 1) e. NN) -> (F` (n + 1)) e. X)
262 peano2nn 7118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (n e. NN -> (n + 1) e. NN)
263261, 262sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((F:NN-->X /\ n e. NN) -> (F` (n + 1)) e. X)
264260, 263jca 310 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((F:NN-->X /\ n e. NN) -> ((F` n) e. X /\ (F` (n + 1)) e. X))
265259, 264sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((M e. Met /\ (F:NN-->X /\ n e. NN)) -> ((F` n)M(F` (n + 1))) e. RR)
266265anassrs 489 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((M e. Met /\ F:NN-->X) /\ n e. NN) -> ((F` n)M(F` (n + 1))) e. RR)
267 ssel2 2616 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((ZZ>=` j) C_ (ZZ>=`
1) /\ n e. (ZZ>=`
j)) -> n e. (ZZ>=` 1))
268 elnnuz 7609 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (j e. NN <-> j e. (ZZ>=` 1))
269 uzss 7600 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (j e. (ZZ>=`
1) -> (ZZ>=` j) C_ (ZZ>=`
1))
270268, 269sylbi 216 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (j e. NN -> (ZZ>=` j) C_ (ZZ>=`
1))
271267, 270sylan 497 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((j e. NN /\ n e. (ZZ>=` j)) -> n e. (ZZ>=` 1))
272 elnnuz 7609 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (n e. NN <-> n e. (ZZ>=` 1))
273271, 272sylibr 217 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((j e. NN /\ n e. (ZZ>=` j)) -> n e. NN)
274 elfzuz 7658 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (n e. (j...(m - 1)) -> n e. (ZZ>=`
j))
275273, 274sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((j e. NN /\ n e. (j...(m - 1))) -> n e. NN)
276266, 275sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((M e. Met /\ F:NN-->X) /\ (j e. NN /\ n e. (j...(m - 1)))) -> ((F` n)M(F` (n + 1))) e. RR)
2772763ad2antl1 1038 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ n e. (j...(m - 1)))) -> ((F` n)M(F` (n + 1))) e. RR)
278277anassrs 489 . . . . . . . . . . . . . . . . . . . . . 22 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (j...(m - 1))) -> ((F` n)M(F` (n + 1))) e. RR)
279278r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> A.n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR)
280279adantrr 431 . . . . . . . . . . . . . . . . . . . 20 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) -> A.n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR)
281280adantrr 431 . . . . . . . . . . . . . . . . . . 19 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> A.n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR)
282 fsumrecl 8277 . . . . . . . . . . . . . . . . . . 19 |- (((m - 1) e. (ZZ>=` j) /\ A.n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR)
283257, 281, 282syl11anc 524 . . . . . . . . . . . . . . . . . 18 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR)
284283anassrs 489 . . . . . . . . . . . . . . . . 17 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) /\ m e. (ZZ>=` (j + 1))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR)
285284adantlrl 434 . . . . . . . . . . . . . . . 16 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) e. RR)
286247adantr 425 . . . . . . . . . . . . . . . 16 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
287 simpll1 915 . . . . . . . . . . . . . . . . 17 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> (M e. Met /\ F:NN-->X))
288218ad2antrr 440 . . . . . . . . . . . . . . . . . . . 20 |- (((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1))) -> j e. ZZ)
289 simpr 350 . . . . . . . . . . . . . . . . . . . 20 |- (((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1))) -> m e. (ZZ>=` (j + 1)))
290 fzssuz 7677 . . . . . . . . . . . . . . . . . . . . . . 23 |- (j...m) C_ (ZZ>=` j)
291290a1i 8 . . . . . . . . . . . . . . . . . . . . . 22 |- (j e. NN -> (j...m) C_ (ZZ>=` j))
292 nnuz 7608 . . . . . . . . . . . . . . . . . . . . . . 23 |- NN = (ZZ>=` 1)
293270, 292syl6ssr 2664 . . . . . . . . . . . . . . . . . . . . . 22 |- (j e. NN -> (ZZ>=` j) C_ NN)
294291, 293sstrd 2627 . . . . . . . . . . . . . . . . . . . . 21 |- (j e. NN -> (j...m) C_ NN)
295294ad2antrr 440 . . . . . . . . . . . . . . . . . . . 20 |- (((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1))) -> (j...m) C_ NN)
296288, 289, 2953jca 1050 . . . . . . . . . . . . . . . . . . 19 |- (((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1))) -> (j e. ZZ /\ m e. (ZZ>=` (j + 1)) /\ (j...m) C_ NN))
297296adantll 428 . . . . . . . . . . . . . . . . . 18 |- (((x e. RR+ /\ (j e. NN /\ m e. NN)) /\ m e. (ZZ>=`
(j + 1))) -> (j e. ZZ /\ m e. (ZZ>=` (j + 1)) /\ (j...m) C_ NN))
298297adantll 428 . . . . . . . . . . . . . . . . 17 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> (j e. ZZ /\ m e. (ZZ>=` (j + 1)) /\ (j...m) C_ NN))
299 nnex 7116 . . . . . . . . . . . . . . . . . 18 |- NN e. _V
3003, 299mettrifi2 15848 . . . . . . . . . . . . . . . . 17 |- (((M e. Met /\ F:NN-->X) /\ (j e. ZZ /\ m e. (ZZ>=` (j + 1)) /\ (j...m) C_ NN)) -> ((F` j)M(F` m)) <_ sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))))
301287, 298, 300syl11anc 524 . . . . . . . . . . . . . . . 16 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> ((F` j)M(F` m)) <_ sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))))
302 remulcl 6457 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((A e. RR /\ (B^n) e. RR) -> (A x. (B^n)) e. RR)
303 reexpcl 7823 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((B e. RR /\ n e. NN0) -> (B^n) e. RR)
304303, 17sylan 497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((B e. RR+ /\ n e. NN0) -> (B^n) e. RR)
305302, 304sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((A e. RR /\ (B e. RR+ /\ n e. NN0)) -> (A x. (B^n)) e. RR)
306305anassrs 489 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((A e. RR /\ B e. RR+) /\ n e. NN0) -> (A x. (B^n)) e. RR)
307 nnnn0 7315 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (n e. NN -> n e. NN0)
308273, 307syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((j e. NN /\ n e. (ZZ>=` j)) -> n e. NN0)
309308, 274sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((j e. NN /\ n e. (j...(m - 1))) -> n e. NN0)
310306, 309sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((A e. RR /\ B e. RR+) /\ (j e. NN /\ n e. (j...(m - 1)))) -> (A x. (B^n)) e. RR)
311310anassrs 489 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (j...(m - 1))) -> (A x. (B^n)) e. RR)
312311r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((A e. RR /\ B e. RR+) /\ j e. NN) -> A.n e. (j...(m - 1))(A x. (B^n)) e. RR)
3133123adantl3 1034 . . . . . . . . . . . . . . . . . . . . . . 23 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> A.n e. (j...(m - 1))(A x. (B^n)) e. RR)
3143133ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . 22 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> A.n e. (j...(m - 1))(A x. (B^n)) e. RR)
315314adantrr 431 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) -> A.n e. (j...(m - 1))(A x. (B^n)) e. RR)
316315adantrr 431 . . . . . . . . . . . . . . . . . . . 20 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> A.n e. (j...(m - 1))(A x. (B^n)) e. RR)
317 fsumrecl 8277 . . . . . . . . . . . . . . . . . . . 20 |- (((m - 1) e. (ZZ>=` j) /\ A.n e. (j...(m - 1))(A x. (B^n)) e. RR) -> sum_n e. (j...(m - 1))(A x. (B^n)) e. RR)
318257, 316, 317syl11anc 524 . . . . . . . . . . . . . . . . . . 19 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (j...(m - 1))(A x. (B^n)) e. RR)
319245adantrr 431 . . . . . . . . . . . . . . . . . . . 20 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
3203193ad2antl2 1039 . . . . . . . . . . . . . . . . . . 19 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> ((A x. (B^j)) x. (1 / (1 - B))) e. RR)
321 fzssuz 7677 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (j...(m - 1)) C_ (ZZ>=` j)
322321a1i 8 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (j e. NN -> (j...(m - 1)) C_ (ZZ>=`
j))
323322, 293sstrd 2627 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (j e. NN -> (j...(m - 1)) C_ NN)
324323ad2antrr 440 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1))) -> (j...(m - 1)) C_ NN)
325324adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (j...(m - 1)) C_ NN)
326325sseld 2619 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (n e. (j...(m - 1)) -> n e. NN))
327265expr 418 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((M e. Met /\ F:NN-->X) -> (n e. NN -> ((F` n)M(F` (n + 1))) e. RR))
3283273ad2ant1 897 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> (n e. NN -> ((F` n)M(F` (n + 1))) e. RR))
329328adantr 425 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (n e. NN -> ((F` n)M(F` (n + 1))) e. RR))
330326, 329syld 30 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (n e. (j...(m - 1)) -> ((F` n)M(F` (n + 1))) e. RR))
331330imp 377 . . . . . . . . . . . . . . . . . . . . . 22 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) /\ n e. (j...(m - 1))) -> ((F` n)M(F` (n + 1))) e. RR)
332303, 17, 307syl2an 503 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((B e. RR+ /\ n e. NN) -> (B^n) e. RR)
333302, 332sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((A e. RR /\ (B e. RR+ /\ n e. NN)) -> (A x. (B^n)) e. RR)
334333expr 418 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((A e. RR /\ B e. RR+) -> (n e. NN -> (A x. (B^n)) e. RR))
3353343adant3 896 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (n e. NN -> (A x. (B^n)) e. RR))
3363353ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> (n e. NN -> (A x. (B^n)) e. RR))
337336adantr 425 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (n e. NN -> (A x. (B^n)) e. RR))
338326, 337syld 30 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (n e. (j...(m - 1)) -> (A x. (B^n)) e. RR))
339338imp 377 . . . . . . . . . . . . . . . . . . . . . 22 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) /\ n e. (j...(m - 1))) -> (A x. (B^n)) e. RR)
340 fveq2 4681 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (k = n -> (F` k) = (F` n))
341 opreq1 4889 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (k = n -> (k + 1) = (n + 1))
342341fveq2d 4685 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (k = n -> (F` (k + 1)) = (F` (n + 1)))
343340, 342opreq12d 4900 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (k = n -> ((F` k)M(F` (k + 1))) = ((F` n)M(F` (n + 1))))
344 opreq2 4890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (k = n -> (B^k) = (B^n))
345344opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (k = n -> (A x. (B^k)) = (A x. (B^n)))
346343, 345breq12d 3351 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (k = n -> (((F` k)M(F` (k + 1))) <_ (A x. (B^k)) <-> ((F` n)M(F` (n + 1))) <_ (A x. (B^n))))
347346rcla4cv 2377 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k)) -> (n e. NN -> ((F` n)M(F` (n + 1))) <_ (A x. (B^n))))
3483473ad2ant3 899 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> (n e. NN -> ((F` n)M(F` (n + 1))) <_ (A x. (B^n))))
349348adantr 425 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (n e. NN -> ((F` n)M(F` (n + 1))) <_ (A x. (B^n))))
350326, 349syld 30 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (n e. (j...(m - 1)) -> ((F` n)M(F` (n + 1))) <_ (A x. (B^n))))
351350imp 377 . . . . . . . . . . . . . . . . . . . . . 22 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) /\ n e. (j...(m - 1))) -> ((F` n)M(F` (n + 1))) <_ (A x. (B^n)))
352331, 339, 3513jca 1050 . . . . . . . . . . . . . . . . . . . . 21 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) /\ n e. (j...(m - 1))) -> (((F` n)M(F` (n + 1))) e. RR /\ (A x. (B^n)) e. RR /\ ((F` n)M(F` (n + 1))) <_ (A x. (B^n))))
353352r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . 20 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> A.n e. (j...(m - 1))(((F` n)M(F` (n + 1))) e. RR /\ (A x. (B^n)) e. RR /\ ((F` n)M(F` (n + 1))) <_ (A x. (B^n))))
354 fsumcmp 8300 . . . . . . . . . . . . . . . . . . . 20 |- (((m - 1) e. (ZZ>=` j) /\ A.n e. (j...(m - 1))(((F` n)M(F` (n + 1))) e. RR /\ (A x. (B^n)) e. RR /\ ((F` n)M(F` (n + 1))) <_ (A x. (B^n)))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) <_ sum_n e. (j...(m - 1))(A x. (B^n)))
355257, 353, 354syl11anc 524 . . . . . . . . . . . . . . . . . . 19 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) <_ sum_n e. (j...(m - 1))(A x. (B^n)))
356288adantl 424 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> j e. ZZ)
357 remulcl 6457 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((A e. RR /\ (B^s) e. RR) -> (A x. (B^s)) e. RR)
358 reexpcl 7823 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((B e. RR /\ s e. NN0) -> (B^s) e. RR)
359358, 17sylan 497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B e. RR+ /\ s e. NN0) -> (B^s) e. RR)
360357, 359sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((A e. RR /\ (B e. RR+ /\ s e. NN0)) -> (A x. (B^s)) e. RR)
361360anassrs 489 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+) /\ s e. NN0) -> (A x. (B^s)) e. RR)
362 ssel2 2616 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (((ZZ>=` j) C_ (ZZ>=`
1) /\ s e. (ZZ>=`
j)) -> s e. (ZZ>=` 1))
363362, 270sylan 497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((j e. NN /\ s e. (ZZ>=` j)) -> s e. (ZZ>=` 1))
364 elnnuz 7609 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (s e. NN <-> s e. (ZZ>=` 1))
365363, 364sylibr 217 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((j e. NN /\ s e. (ZZ>=` j)) -> s e. NN)
366 nnnn0 7315 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (s e. NN -> s e. NN0)
367365, 366syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((j e. NN /\ s e. (ZZ>=` j)) -> s e. NN0)
368361, 367sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+) /\ (j e. NN /\ s e. (ZZ>=` j))) -> (A x. (B^s)) e. RR)
369368anassrs 489 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ s e. (ZZ>=` j)) -> (A x. (B^s)) e. RR)
370369r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((A e. RR /\ B e. RR+) /\ j e. NN) -> A.s e. (ZZ>=` j)(A x. (B^s)) e. RR)
3713703adantl3 1034 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> A.s e. (ZZ>=` j)(A x. (B^s)) e. RR)
372371adantrr 431 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ (j e. NN /\ m e. NN)) -> A.s e. (ZZ>=` j)(A x. (B^s)) e. RR)
373372adantrr 431 . . . . . . . . . . . . . . . . . . . . . . 23 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> A.s e. (ZZ>=` j)(A x. (B^s)) e. RR)
3743733ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . 22 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> A.s e. (ZZ>=` j)(A x. (B^s)) e. RR)
375 eqid 1884 . . . . . . . . . . . . . . . . . . . . . . 23 |- {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))} = {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}
376375fopab2 4796 . . . . . . . . . . . . . . . . . . . . . 22 |- (A.s e. (ZZ>=` j)(A x. (B^s)) e. RR <-> {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}:(ZZ>=` j)-->RR)
377374, 376sylib 215 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}:(ZZ>=` j)-->RR)
378 simp1 876 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> A e. RR)
3793783ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> A e. RR)
380379ad2antrr 440 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (ZZ>=` j)) -> A e. RR)
38153ad2antrr 440 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (ZZ>=` j)) -> 0 <_ A)
3823043ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ n e. NN0) -> (B^n) e. RR)
3833823ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ n e. NN0) -> (B^n) e. RR)
384383, 308sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ n e. (ZZ>=` j))) -> (B^n) e. RR)
385384anassrs 489 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (ZZ>=` j)) -> (B^n) e. RR)
386 rpexpcl 7825 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B e. RR+ /\ n e. NN0) -> (B^n) e. RR+)
387 rpge0 7241 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B^n) e. RR+ -> 0 <_ (B^n))
388386, 387syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((B e. RR+ /\ n e. NN0) -> 0 <_ (B^n))
3893883ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ n e. NN0) -> 0 <_ (B^n))
3903893ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ n e. NN0) -> 0 <_ (B^n))
391390, 308sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ n e. (ZZ>=` j))) -> 0 <_ (B^n))
392391anassrs 489 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (ZZ>=` j)) -> 0 <_ (B^n))
393 mulge0 6868 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((A e. RR /\ 0 <_ A) /\ ((B^n) e. RR /\ 0 <_ (B^n))) -> 0 <_ (A x. (B^n)))
394380, 381, 385, 392, 393syl22anc 1101 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (ZZ>=` j)) -> 0 <_ (A x. (B^n)))
395 opreq2 4890 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (s = n -> (B^s) = (B^n))
396395opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (s = n -> (A x. (B^s)) = (A x. (B^n)))
397 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (A x. (B^n)) e. _V
398396, 375, 397fvopab4 4743 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (n e. (ZZ>=` j) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = (A x. (B^n)))
399398adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (ZZ>=` j)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = (A x. (B^n)))
400394, 399breqtrrd 3363 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) /\ n e. (ZZ>=` j)) -> 0 <_ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
401400r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> A.n e. (ZZ>=` j)0 <_ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
402401adantrr 431 . . . . . . . . . . . . . . . . . . . . . 22 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) -> A.n e. (ZZ>=` j)0 <_ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
403402adantrr 431 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> A.n e. (ZZ>=` j)0 <_ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
404 nncn 7113 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (j e. NN -> j e. CC)
405 addid2 6482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (j e. CC -> (0 + j) = j)
406404, 405syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (j e. NN -> (0 + j) = j)
407406adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (0 + j) = j)
408407opeq1d 3164 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> <.(0 + j), + >. = <.j, + >.)
409408opreq1d 4897 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (<.(0 + j), + >. seq {<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}) = (<.j, + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}))
41025adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((B e. RR+ /\ B < 1) -> B e. CC)
411 rpge0 7241 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (B e. RR+ -> 0 <_ B)
412 absid 8113 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((B e. RR /\ 0 <_ B) -> (abs` B) = B)
41317, 411, 412syl11anc 524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (B e. RR+ -> (abs` B) = B)
414413adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((B e. RR+ /\ B < 1) -> (abs`
B) = B)
415414, 130eqbrtrd 3357 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((B e. RR+ /\ B < 1) -> (abs`
B) < 1)
416 eqid 1884 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- {<.s, t>. | (s e. NN0 /\ t = (B^s))} = {<.s, t>. | (s e. NN0 /\ t = (B^s))}
417416geolim 8499 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((B e. CC /\ (abs` B) < 1) -> ( + seq0 {<.s, t>. | (s e. NN0 /\ t = (B^s))}) ~~> (1 / (1 - B)))
418410, 415, 417syl11anc 524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B e. RR+ /\ B < 1) -> ( + seq0 {<.s, t>. | (s e. NN0 /\ t = (B^s))}) ~~> (1 / (1 - B)))
419 addex 6470 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- + e. _V
420 nn0ex 7314 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- NN0 e. _V
421420opabex2 4539 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- {<.s, t>. | (s e. NN0 /\ t = (B^s))} e. _V
422419, 421seq0seqz 7785 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ( + seq0 {<.s, t>. | (s e. NN0 /\ t = (B^s))}) = (<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = (B^s))})
423418, 422syl5eqbrr 3371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((B e. RR+ /\ B < 1) -> (<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = (B^s))}) ~~> (1 / (1 - B)))
4244233adant1 894 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> (<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = (B^s))}) ~~> (1 / (1 - B)))
425424adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = (B^s))}) ~~> (1 / (1 - B)))
426 0z 7355 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- 0 e. ZZ
427426a1i 8 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> 0 e. ZZ)
428241recnd 6468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (A x. (B^j)) e. CC)
429 elnn0uz 7610 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- (k e. NN0 <-> k e. (ZZ>=` 0))
430 opreq2 4890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 |- (s = k -> (B^s) = (B^k))
431 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 |- (B^k) e. _V
432430, 416, 431fvopab4 4743 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- (k e. NN0 -> ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) = (B^k))
433429, 432sylbir 218 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (k e. (ZZ>=`
0) -> ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) = (B^k))
434433adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((B e. RR+ /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) = (B^k))
435 expcl 7824 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((B e. CC /\ k e. NN0) -> (B^k) e. CC)
436429biimpri 169 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (k e. (ZZ>=`
0) -> k e. NN0)
437435, 25, 436syl2an 503 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((B e. RR+ /\ k e. (ZZ>=` 0)) -> (B^k) e. CC)
438434, 437eqeltrd 1971 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((B e. RR+ /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) e. CC)
4394383ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) e. CC)
440439adantlr 429 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) e. CC)
441430opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (s = k -> ((A x. (B^j)) x. (B^s)) = ((A x. (B^j)) x. (B^k)))
442 eqid 1884 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))} = {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}
443 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((A x. (B^j)) x. (B^k)) e. _V
444441, 442, 443fvopab4 4743 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (k e. NN0 -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. (B^k)))
445432opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (k e. NN0 -> ((A x. (B^j)) x. ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k)) = ((A x. (B^j)) x. (B^k)))
446444, 445eqtr4d 1928 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (k e. NN0 -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k)))
447429, 446sylbir 218 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (k e. (ZZ>=`
0) -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k)))
448447adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k)))
449440, 448jca 310 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) e. CC /\ ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k))))
450449r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> A.k e. (ZZ>=` 0)(({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) e. CC /\ ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k))))
451 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (1 / (1 - B)) e. _V
452420opabex2 4539 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))} e. _V
453451, 421, 452iserzmulc1 8396 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((0 e. ZZ /\ (A x. (B^j)) e. CC /\ A.k e. (ZZ>=` 0)(({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k) e. CC /\ ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. ({<.s, t>. | (s e. NN0 /\ t = (B^s))}` k)))) -> ((<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = (B^s))}) ~~> (1 / (1 - B)) -> (<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B)))))
454427, 428, 450, 453syl111anc 1100 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> ((<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = (B^s))}) ~~> (1 / (1 - B)) -> (<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B)))))
455425, 454mpd 29 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))))
456 fvex 4689 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (ZZ>=` j) e. _V
457456opabex2 4539 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))} e. _V
458457a1i 8 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))} e. _V)
459458, 452jctil 316 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))} e. _V /\ {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))} e. _V))
460218adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> j e. ZZ)
461460, 426jctil 316 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (0 e. ZZ /\ j e. ZZ))
462429, 444sylbir 218 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (k e. (ZZ>=`
0) -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. (B^k)))
463462adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) = ((A x. (B^j)) x. (B^k)))
464160adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> A e. CC)
465 mulcl 6456 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((A e. CC /\ (B^j) e. CC) -> (A x. (B^j)) e. CC)
466464, 168, 465syl11anc 524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (A x. (B^j)) e. CC)
467466adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (A x. (B^j)) e. CC)
4684373ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ k e. (ZZ>=` 0)) -> (B^k) e. CC)
469468adantlr 429 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (B^k) e. CC)
470 mulcl 6456 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (((A x. (B^j)) e. CC /\ (B^k) e. CC) -> ((A x. (B^j)) x. (B^k)) e. CC)
471467, 469, 470syl11anc 524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> ((A x. (B^j)) x. (B^k)) e. CC)
472463, 471eqeltrd 1971 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) e. CC)
473 addcom 6458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 |- ((k e. CC /\ j e. CC) -> (k + j) = (j + k))
474 eluzelz 7592 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 |- (k e. (ZZ>=`
0) -> k e. ZZ)
475 zcn 7349 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 |- (k e. ZZ -> k e. CC)
476474, 475syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 |- (k e. (ZZ>=`
0) -> k e. CC)
477473, 476, 404syl2an 503 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 |- ((k e. (ZZ>=` 0) /\ j e. NN) -> (k + j) = (j + k))
478477ancoms 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 |- ((j e. NN /\ k e. (ZZ>=` 0)) -> (k + j) = (j + k))
479478adantll 428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (k + j) = (j + k))
480479opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (B^(k + j)) = (B^(j + k)))
481253ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> B e. CC)
482481ad2antrr 440 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> B e. CC)
483100ad2antlr 441 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> j e. NN0)
484436adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> k e. NN0)
485 expadd 7839 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- ((B e. CC /\ j e. NN0 /\ k e. NN0) -> (B^(j + k)) = ((B^j) x. (B^k)))
486482, 483, 484, 485syl111anc 1100 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (B^(j + k)) = ((B^j) x. (B^k)))
487480, 486eqtrd 1925 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (B^(k + j)) = ((B^j) x. (B^k)))
488487opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (A x. (B^(k + j))) = (A x. ((B^j) x. (B^k))))
489160ad2antrr 440 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> A e. CC)
490168adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (B^j) e. CC)
491 mulass 6461 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((A e. CC /\ (B^j) e. CC /\ (B^k) e. CC) -> ((A x. (B^j)) x. (B^k)) = (A x. ((B^j) x. (B^k))))
492491eqcomd 1889 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((A e. CC /\ (B^j) e. CC /\ (B^k) e. CC) -> (A x. ((B^j) x. (B^k))) = ((A x. (B^j)) x. (B^k)))
493489, 490, 469, 492syl111anc 1100 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (A x. ((B^j) x. (B^k))) = ((A x. (B^j)) x. (B^k)))
494488, 493eqtrd 1925 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (A x. (B^(k + j))) = ((A x. (B^j)) x. (B^k)))
495 eluzadd 15782 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 |- ((k e. (ZZ>=` 0) /\ j e. ZZ) -> (k + j) e. (ZZ>=` (0 + j)))
496495, 218sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- ((k e. (ZZ>=` 0) /\ j e. NN) -> (k + j) e. (ZZ>=` (0 + j)))
497496ancoms 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((j e. NN /\ k e. (ZZ>=` 0)) -> (k + j) e. (ZZ>=` (0 + j)))
498406adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- ((j e. NN /\ k e. (ZZ>=` 0)) -> (0 + j) = j)
499498fveq2d 4685 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((j e. NN /\ k e. (ZZ>=` 0)) -> (ZZ>=`
(0 + j)) = (ZZ>=` j))
500497, 499eleqtrd 1973 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((j e. NN /\ k e. (ZZ>=` 0)) -> (k + j) e. (ZZ>=` j))
501 opreq2 4890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- (s = (k + j) -> (B^s) = (B^(k + j)))
502501opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (s = (k + j) -> (A x. (B^s)) = (A x. (B^(k + j))))
503 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (A x. (B^(k + j))) e. _V
504502, 375, 503fvopab4 4743 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((k + j) e. (ZZ>=`
j) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (k + j)) = (A x. (B^(k + j))))
505500, 504syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((j e. NN /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (k + j)) = (A x. (B^(k + j))))
506505adantll 428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (k + j)) = (A x. (B^(k + j))))
507494, 506, 4633eqtr4d 1937 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (k + j)) = ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k))
508472, 507jca 310 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) /\ k e. (ZZ>=` 0)) -> (({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) e. CC /\ ({<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}` (k + j)) = ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k)))
509508r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> A.k e. (ZZ>=` 0)(({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) e. CC /\ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (k + j)) = ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k)))
510 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((A x. (B^j)) x. (1 / (1 - B))) e. _V
511509, 510jctil 316 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (((A x. (B^j)) x. (1 / (1 - B))) e. _V /\ A.k e. (ZZ>=` 0)(({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) e. CC /\ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (k + j)) = ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k))))
512 iserzshft2 15829 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))} e. _V /\ {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))} e. _V) /\ (0 e. ZZ /\ j e. ZZ) /\ (((A x. (B^j)) x. (1 / (1 - B))) e. _V /\ A.k e. (ZZ>=` 0)(({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k) e. CC /\ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (k + j)) = ({<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}` k)))) -> ((<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))) <-> (<.(0 + j), + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B)))))
513459, 461, 511, 512syl111anc 1100 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> ((<.0, + >. seq {<.s, t>. | (s e. NN0 /\ t = ((A x. (B^j)) x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))) <-> (<.(0 + j), + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B)))))
514455, 513mpbid 212 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (<.(0 + j), + >. seq {<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))))
515409, 514eqbrtrrd 3359 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> (<.j, + >. seq {<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))))
5165153ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> (<.j, + >. seq {<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))))
517516adantrr 431 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) -> (<.j, + >. seq {<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))))
518517adantrr 431 . . . . . . . . . . . . . . . . . . . . . 22 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> (<.j, + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))))
519 breq2 3342 . . . . . . . . . . . . . . . . . . . . . . 23 |- (x = ((A x. (B^j)) x. (1 / (1 - B))) -> ((<.j, + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}) ~~> x <-> (<.j, + >. seq {<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B)))))
520510, 519cla4ev 2371 . . . . . . . . . . . . . . . . . . . . . 22 |- ((<.j, + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}) ~~> ((A x. (B^j)) x. (1 / (1 - B))) -> E.x(<.j, + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}) ~~> x)
521518, 520syl 12 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> E.x(<.j, + >. seq {<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}) ~~> x)
522 fsumleisum 15827 . . . . . . . . . . . . . . . . . . . . 21 |- (((j e. ZZ /\ (m - 1) e. (ZZ>=` j)) /\ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}:(ZZ>=` j)-->RR /\ A.n e. (ZZ>=` j)0 <_ ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) /\ E.x(<.j, + >. seq {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}) ~~> x)) -> sum_n e. (j...(m - 1))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) <_ sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
523356, 257, 377, 403, 521, 522syl23anc 1107 . . . . . . . . . . . . . . . . . . . 20 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (j...(m - 1))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) <_ sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
524274, 398syl 12 . . . . . . . . . . . . . . . . . . . . . 22 |- (n e. (j...(m - 1)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = (A x. (B^n)))
525524sumeq2i 8248 . . . . . . . . . . . . . . . . . . . . 21 |- sum_n e. (j...(m - 1))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = sum_n e. (j...(m - 1))(A x. (B^n))
526525a1i 8 . . . . . . . . . . . . . . . . . . . 20 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (j...(m - 1))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = sum_n e. (j...(m - 1))(A x. (B^n)))
527406eqcomd 1889 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (j e. NN -> j = (0 + j))
528527fveq2d 4685 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (j e. NN -> (ZZ>=` j) = (ZZ>=`
(0 + j)))
529528sumeq1d 8250 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (j e. NN -> sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` (0 + j))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
530529adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((F:NN-->X /\ j e. NN) -> sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` (0 + j))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n))
531457a1i 8 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((F:NN-->X /\ j e. NN) -> {<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))} e. _V)
532218adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((F:NN-->X /\ j e. NN) -> j e. ZZ)
533426a1i 8 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((F:NN-->X /\ j e. NN) -> 0 e. ZZ)
534 isumshft2 15830 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))} e. _V /\ j e. ZZ /\ 0 e. ZZ) -> sum_n e. (ZZ>=` (0 + j))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)))
535531, 532, 533, 534syl111anc 1100 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((F:NN-->X /\ j e. NN) -> sum_n e. (ZZ>=` (0 + j))({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)))
536530, 535eqtrd 1925 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((F:NN-->X /\ j e. NN) -> sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)))
537536adantrr 431 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((F:NN-->X /\ (j e. NN /\ m e. NN)) -> sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)))
538537ad2ant2lr 446 . . . . . . . . . . . . . . . . . . . . . 22 |- (((M e. Met /\ F:NN-->X) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)))
5395383ad2antl1 1038 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}` n) = sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)))
540 expadd 7839 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B e. CC /\ j e. NN0 /\ n e. NN0) -> (B^(j + n)) = ((B^j) x. (B^n)))
541 elnn0uz 7610 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (n e. NN0 <-> n e. (ZZ>=` 0))
542541biimpri 169 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (n e. (ZZ>=` 0) -> n e. NN0)
543540, 25, 100, 542syl3an 1139 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((B e. RR+ /\ j e. NN /\ n e. (ZZ>=` 0)) -> (B^(j + n)) = ((B^j) x. (B^n)))
5445433expa 1067 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((B e. RR+ /\ j e. NN) /\ n e. (ZZ>=` 0)) -> (B^(j + n)) = ((B^j) x. (B^n)))
545544adantlll 432 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> (B^(j + n)) = ((B^j) x. (B^n)))
546545opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> (A x. (B^(j + n))) = (A x. ((B^j) x. (B^n))))
547 eluzadd 15782 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((n e. (ZZ>=` 0) /\ j e. ZZ) -> (n + j) e. (ZZ>=` (0 + j)))
548547, 218sylan2 500 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((n e. (ZZ>=` 0) /\ j e. NN) -> (n + j) e. (ZZ>=` (0 + j)))
549548ancoms 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((j e. NN /\ n e. (ZZ>=` 0)) -> (n + j) e. (ZZ>=` (0 + j)))
550 addcom 6458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((n e. CC /\ j e. CC) -> (n + j) = (j + n))
551 eluzelz 7592 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (n e. (ZZ>=` 0) -> n e. ZZ)
552 zcn 7349 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (n e. ZZ -> n e. CC)
553551, 552syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (n e. (ZZ>=` 0) -> n e. CC)
554550, 553, 404syl2an 503 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((n e. (ZZ>=` 0) /\ j e. NN) -> (n + j) = (j + n))
555554ancoms 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((j e. NN /\ n e. (ZZ>=` 0)) -> (n + j) = (j + n))
556406fveq2d 4685 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (j e. NN -> (ZZ>=` (0 + j)) = (ZZ>=`
j))
557556adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((j e. NN /\ n e. (ZZ>=` 0)) -> (ZZ>=`
(0 + j)) = (ZZ>=` j))
558555, 557eleq12d 1965 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((j e. NN /\ n e. (ZZ>=` 0)) -> ((n + j) e. (ZZ>=` (0 + j)) <-> (j + n) e. (ZZ>=` j)))
559549, 558mpbid 212 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((j e. NN /\ n e. (ZZ>=` 0)) -> (j + n) e. (ZZ>=` j))
560 opreq2 4890 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (s = (j + n) -> (B^s) = (B^(j + n)))
561560opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (s = (j + n) -> (A x. (B^s)) = (A x. (B^(j + n))))
562 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (A x. (B^(j + n))) e. _V
563561, 375, 562fvopab4 4743 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((j + n) e. (ZZ>=`
j) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)) = (A x. (B^(j + n))))
564559, 563syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((j e. NN /\ n e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)) = (A x. (B^(j + n))))
565564adantll 428 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)) = (A x. (B^(j + n))))
566159adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((A e. RR /\ B e. RR+) -> A e. CC)
567566ad2antrr 440 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> A e. CC)
568167adantll 428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+) /\ j e. NN) -> (B^j) e. CC)
569568adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> (B^j) e. CC)
570303, 17, 542syl2an 503 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B e. RR+ /\ n e. (ZZ>=` 0)) -> (B^n) e. RR)
571570recnd 6468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((B e. RR+ /\ n e. (ZZ>=` 0)) -> (B^n) e. CC)
572571adantll 428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((A e. RR /\ B e. RR+) /\ n e. (ZZ>=` 0)) -> (B^n) e. CC)
573572adantlr 429 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> (B^n) e. CC)
574 mulass 6461 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((A e. CC /\ (B^j) e. CC /\ (B^n) e. CC) -> ((A x. (B^j)) x. (B^n)) = (A x. ((B^j) x. (B^n))))
575567, 569, 573, 574syl111anc 1100 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> ((A x. (B^j)) x. (B^n)) = (A x. ((B^j) x. (B^n))))
576546, 565, 5753eqtr4d 1937 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((((A e. RR /\ B e. RR+) /\ j e. NN) /\ n e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)) = ((A x. (B^j)) x. (B^n)))
577576sumeq2dv 8252 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((A e. RR /\ B e. RR+) /\ j e. NN) -> sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)))
5785773adantl3 1034 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)))
579578adantrr 431 . . . . . . . . . . . . . . . . . . . . . . 23 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ (j e. NN /\ m e. NN)) -> sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}` (j + n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)))
580579adantrr 431 . . . . . . . . . . . . . . . . . . . . . 22 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` j) /\ t = (A x. (B^s)))}` (j + n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)))
5815803ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}` (j + n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)))
582 eqid 1884 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))} = {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}
583 oprex 4907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (B^n) e. _V
584395, 582, 583fvopab4 4743 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (n e. (ZZ>=` 0) -> ({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) = (B^n))
585584adantl 424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((B e. RR+ /\ n e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) = (B^n))
586585, 571eqeltrd 1971 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B e. RR+ /\ n e. (ZZ>=` 0)) -> ({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) e. CC)
587586r19.21aiva 2176 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (B e. RR+ -> A.n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) e. CC)
5885873ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> A.n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) e. CC)
589588adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> A.n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) e. CC)
590 elnn0uz 7610 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 |- (s e. NN0 <-> s e. (ZZ>=` 0))
591590bicomi 189 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- (s e. (ZZ>=`
0) <-> s e. NN0)
592591anbi1i 539 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- ((s e. (ZZ>=` 0) /\ t = (B^s)) <-> (s e. NN0 /\ t = (B^s)))
593592opabbii 3402 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))} = {<.s, t>. | (s e. NN0 /\ t = (B^s))}
594593geolim 8499 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((B e. CC /\ (abs` B) < 1) -> ( + seq0 {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> (1 / (1 - B)))
595410, 415, 594syl11anc 524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ((B e. RR+ /\ B < 1) -> ( + seq0 {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> (1 / (1 - B)))
596 fvex 4689 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- (ZZ>=` 0) e. _V
597596opabex2 4539 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))} e. _V
598419, 597seq0seqz 7785 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- ( + seq0 {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) = (<.0, + >. seq {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))})
599595, 598syl5eqbrr 3371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((B e. RR+ /\ B < 1) -> (<.0, + >. seq {<.s, t>. | (s e. (ZZ>=`
0) /\ t = (B^s))}) ~~> (1 / (1 - B)))
600 breq2 3342 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (x = (1 / (1 - B)) -> ((<.0, + >. seq {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> x <-> (<.0, + >. seq {<.s, t>. | (s e. (ZZ>=`
0) /\ t = (B^s))}) ~~> (1 / (1 - B))))
601451, 600cla4ev 2371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- ((<.0, + >. seq {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> (1 / (1 - B)) -> E.x(<.0, + >. seq {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> x)
602599, 601syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((B e. RR+ /\ B < 1) -> E.x(<.0, + >. seq {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> x)
6036023adant1 894 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> E.x(<.0, + >. seq {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> x)
604603adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> E.x(<.0, + >. seq {<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}) ~~> x)
605597isummulc1 8473 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((0 e. ZZ /\ (A x. (B^j)) e. CC) /\ (A.n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) e. CC /\ E.x(<.0, + >. seq {<.s, t>. | (s e. (ZZ>=`
0) /\ t = (B^s))}) ~~> x)) -> ((A x. (B^j)) x. sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. ({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n)))
606427, 428, 589, 604, 605syl22anc 1101 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> ((A x. (B^j)) x. sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. ({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n)))
607584sumeq2i 8248 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n) = sum_n e. (ZZ>=` 0)(B^n)
608607opreq2i 4893 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((A x. (B^j)) x. sum_n e. (ZZ>=` 0)({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n)) = ((A x. (B^j)) x. sum_n e. (ZZ>=` 0)(B^n))
609584opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (n e. (ZZ>=` 0) -> ((A x. (B^j)) x. ({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n)) = ((A x. (B^j)) x. (B^n)))
610609sumeq2i 8248 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- sum_n e. (ZZ>=` 0)((A x. (B^j)) x. ({<.s, t>. | (s e. (ZZ>=` 0) /\ t = (B^s))}` n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n))
611606, 608, 6103eqtr3g 1952 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> ((A x. (B^j)) x. sum_n e. (ZZ>=` 0)(B^n)) = sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)))
612 nn0uz 7607 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- NN0 = (ZZ>=` 0)
613612sumeq1i 8247 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- sum_n e. NN0 (B^n) = sum_n e. (ZZ>=` 0)(B^n)
614613opreq2i 4893 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((A x. (B^j)) x. sum_n e. NN0 (B^n)) = ((A x. (B^j)) x. sum_n e. (ZZ>=` 0)(B^n))
615611, 614syl5req 1941 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ j e. NN) -> sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)) = ((A x. (B^j)) x. sum_n e. NN0 (B^n)))
616615adantrr 431 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ (j e. NN /\ m e. NN)) -> sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)) = ((A x. (B^j)) x. sum_n e. NN0 (B^n)))
617616adantrr 431 . . . . . . . . . . . . . . . . . . . . . . 23 |- (((A e. RR /\ B e. RR+ /\ B < 1) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)) = ((A x. (B^j)) x. sum_n e. NN0 (B^n)))
6186173ad2antl2 1039 . . . . . . . . . . . . . . . . . . . . . 22 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)) = ((A x. (B^j)) x. sum_n e. NN0 (B^n)))
6194813ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> B e. CC)
620619adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> B e. CC)
621173ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> B e. RR)
6226213ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> B e. RR)
6234113ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> 0 <_ B)
6246233ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> 0 <_ B)
625622, 624, 412syl11anc 524 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> (abs` B) = B)
626 simp3 878 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((A e. RR /\ B e. RR+ /\ B < 1) -> B < 1)
6276263ad2ant2 898 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> B < 1)
628625, 627eqbrtrd 3357 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> (abs` B) < 1)
629628adantr 425 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> (abs` B) < 1)
630 geoisum 8504 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((B e. CC /\ (abs` B) < 1) -> sum_n e. NN0 (B^n) = (1 / (1 - B)))
631620, 629, 630syl11anc 524 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> sum_n e. NN0 (B^n) = (1 / (1 - B)))
632631opreq2d 4898 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ j e. NN) -> ((A x. (B^j)) x. sum_n e. NN0 (B^n)) = ((A x. (B^j)) x. (1 / (1 - B))))
633632adantrr 431 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) -> ((A x. (B^j)) x. sum_n e. NN0 (B^n)) = ((A x. (B^j)) x. (1 / (1 - B))))
634633adantrr 431 . . . . . . . . . . . . . . . . . . . . . 22 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> ((A x. (B^j)) x. sum_n e. NN0 (B^n)) = ((A x. (B^j)) x. (1 / (1 - B))))
635618, 634eqtrd 1925 . . . . . . . . . . . . . . . . . . . . 21 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` 0)((A x. (B^j)) x. (B^n)) = ((A x. (B^j)) x. (1 / (1 - B))))
636539, 581, 6353eqtrd 1929 . . . . . . . . . . . . . . . . . . . 20 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (ZZ>=` j)({<.s, t>. | (s e. (ZZ>=`
j) /\ t = (A x. (B^s)))}` n) = ((A x. (B^j)) x. (1 / (1 - B))))
637523, 526, 6363brtr3d 3366 . . . . . . . . . . . . . . . . . . 19 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (j...(m - 1))(A x. (B^n)) <_ ((A x. (B^j)) x. (1 / (1 - B))))
638283, 318, 320, 355, 637letrd 6696 . . . . . . . . . . . . . . . . . 18 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ ((j e. NN /\ m e. NN) /\ m e. (ZZ>=` (j + 1)))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) <_ ((A x. (B^j)) x. (1 / (1 - B))))
639638anassrs 489 . . . . . . . . . . . . . . . . 17 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (j e. NN /\ m e. NN)) /\ m e. (ZZ>=` (j + 1))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) <_ ((A x. (B^j)) x. (1 / (1 - B))))
640639adantlrl 434 . . . . . . . . . . . . . . . 16 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> sum_n e. (j...(m - 1))((F` n)M(F` (n + 1))) <_ ((A x. (B^j)) x. (1 / (1 - B))))
641251, 285, 286, 301, 640letrd 6696 . . . . . . . . . . . . . . 15 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ m e. (ZZ>=` (j + 1))) -> ((F` j)M(F` m)) <_ ((A x. (B^j)) x. (1 / (1 - B))))
642641adantlr 429 . . . . . . . . . . . . . 14 |- ((((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) /\ m e. (ZZ>=`
(j + 1))) -> ((F` j)M(F` m)) <_ ((A x. (B^j)) x. (1 / (1 - B))))
643 simplr 449 . . . . . . . . . . . . . 14 |- ((((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) /\ m e. (ZZ>=`
(j + 1))) -> ((A x. (B^j)) x. (1 / (1 - B))) < x)
644237, 248, 250, 642, 643lelttrd 6697 . . . . . . . . . . . . 13 |- ((((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) /\ m e. (ZZ>=`
(j + 1))) -> ((F` j)M(F` m)) < x)
645644ex 402 . . . . . . . . . . . 12 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) -> (m e. (ZZ>=` (j + 1)) -> ((F` j)M(F` m)) < x))
646224, 645sylbid 220 . . . . . . . . . . 11 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) -> (j < m -> ((F` j)M(F` m)) < x))
647 fveq2 4681 . . . . . . . . . . . . . . . 16 |- (j = m -> (F` j) = (F` m))
648647opreq2d 4898 . . . . . . . . . . . . . . 15 |- (j = m -> ((F` j)M(F` j)) = ((F` j)M(F` m)))
649648breq1d 3348 . . . . . . . . . . . . . 14 |- (j = m -> (((F` j)M(F` j)) < x <-> ((F` j)M(F` m)) < x))
6503met0 9092 . . . . . . . . . . . . . . . . . . 19 |- ((M e. Met /\ (F` j) e. X) -> ((F` j)M(F` j)) = 0)
651650adantlr 429 . . . . . . . . . . . . . . . . . 18 |- (((M e. Met /\ x e. RR+) /\ (F` j) e. X) -> ((F` j)M(F` j)) = 0)
652199ad2antlr 441 . . . . . . . . . . . . . . . . . 18 |- (((M e. Met /\ x e. RR+) /\ (F` j) e. X) -> 0 < x)
653651, 652eqbrtrd 3357 . . . . . . . . . . . . . . . . 17 |- (((M e. Met /\ x e. RR+) /\ (F` j) e. X) -> ((F` j)M(F` j)) < x)
654653, 227sylan2 500 . . . . . . . . . . . . . . . 16 |- (((M e. Met /\ x e. RR+) /\ (F:NN-->X /\ j e. NN)) -> ((F` j)M(F` j)) < x)
655654an4s 566 . . . . . . . . . . . . . . 15 |- (((M e. Met /\ F:NN-->X) /\ (x e. RR+ /\ j e. NN)) -> ((F` j)M(F` j)) < x)
656655adantrrr 439 . . . . . . . . . . . . . 14 |- (((M e. Met /\ F:NN-->X) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) -> ((F` j)M(F` j)) < x)
657649, 656syl5cbi 226 . . . . . . . . . . . . 13 |- (((M e. Met /\ F:NN-->X) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) -> (j = m -> ((F` j)M(F` m)) < x))
6586573ad2antl1 1038 . . . . . . . . . . . 12 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) -> (j = m -> ((F` j)M(F` m)) < x))
659658adantr 425 . . . . . . . . . . 11 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) -> (j = m -> ((F` j)M(F` m)) < x))
660646, 659jaod 469 . . . . . . . . . 10 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) -> ((j < m \/ j = m) -> ((F` j)M(F` m)) < x))
661215, 660syld 30 . . . . . . . . 9 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) /\ ((A x. (B^j)) x. (1 / (1 - B))) < x) -> (j <_ m -> ((F` j)M(F` m)) < x))
662661ex 402 . . . . . . . 8 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ (x e. RR+ /\ (j e. NN /\ m e. NN))) -> (((A x. (B^j)) x. (1 / (1 - B))) < x -> (j <_ m -> ((F` j)M(F` m)) < x)))
663662anassrs 489 . . . . . . 7 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) /\ (j e. NN /\ m e. NN)) -> (((A x. (B^j)) x. (1 / (1 - B))) < x -> (j <_ m -> ((F` j)M(F` m)) < x)))
664663anassrs 489 . . . . . 6 |- ((((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) /\ j e. NN) /\ m e. NN) -> (((A x. (B^j)) x. (1 / (1 - B))) < x -> (j <_ m -> ((F` j)M(F` m)) < x)))
665664r19.21adva 2182 . . . . 5 |- (((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) /\ j e. NN) -> (((A x. (B^j)) x. (1 / (1 - B))) < x -> A.m e. NN (j <_ m -> ((F` j)M(F` m)) < x)))
666665reximdva 2203 . . . 4 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) -> (E.j e. NN ((A x. (B^j)) x. (1 / (1 - B))) < x -> E.j e. NN A.m e. NN (j <_ m -> ((F` j)M(F` m)) < x)))
667208, 666mpd 29 . . 3 |- ((((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) /\ x e. RR+) -> E.j e. NN A.m e. NN (j <_ m -> ((F` j)M(F` m)) < x))
668667r19.21aiva 2176 . 2 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> A.x e. RR+ E.j e. NN A.m e. NN (j <_ m -> ((F` j)M(F` m)) < x))
6693iscau5 9219 . . 3 |- ((M e. Met /\ F:NN-->X) -> (F e. (Cau` M) <-> A.x e. RR+ E.j e. NN A.m e. NN (j <_ m -> ((F` j)M(F` m)) < x)))
6706693ad2ant1 897 . 2 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> (F e. (Cau` M) <-> A.x e. RR+ E.j e. NN A.m e. NN (j <_ m -> ((F` j)M(F` m)) < x)))
671668, 670mpbird 213 1 |- (((M e. Met /\ F:NN-->X) /\ (A e. RR /\ B e. RR+ /\ B < 1) /\ A.k e. NN ((F` k)M(F` (k + 1))) <_ (A x. (B^k))) -> F e. (Cau` M))
Colors of variables: wff set class
Syntax hints:   -> wi 3   <-> wb 163   \/ wo 239   /\ wa 240   /\ w3a 858   = wceq 1298   e. wcel 1300  E.wex 1326   =/= wne 2017  A.wral 2105  E.wrex 2106  _Vcvv 2292   C_ wss 2593  <.cop 3046   class class class wbr 3338  {copab 3395  dom cdm 3986  -->wf 3994  ` cfv 3998  (class class class)co 4884  CCcc 6384  RRcr 6385  0cc0 6386  1c1 6387   + caddc 6389   x. cmul 6391   - cmin 6445   / cdiv 6447   <_ cle 6448  NNcn 6449  NN0cn0 6450  ZZcz 6451  RR+crp 6453   < clt 6653  ZZ>=cuz 7586  ...cfz 7637   seq cseqz 7774   seq0 cseq0 7775  ^cexp 7811  abscabs 8000   ~~> cli 8234  sum_csu 8239  Metcme 9066  Caucca 9198
This theorem is referenced by:  heiborlem33 15987  bfplem7 16004
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-5 1302  ax-7 1304  ax-gen 1305  ax-8 1306  ax-9 1307  ax-10 1308  ax-11 1309  ax-12 1310  ax-13 1311  ax-14 1312  ax-17 1317  ax-4 1319  ax-5o 1321  ax-6o 1324  ax-9o 1481  ax-10o 1500  ax-16 1580  ax-11o 1588  ax-ext 1865  ax-rep 3428  ax-sep 3438  ax-nul 3445  ax-pow 3481  ax-pr 3524  ax-un 3790  ax-inf2 5731
This theorem depends on definitions:  df-bi 164  df-or 241  df-an 242  df-3or 859  df-3an 860  df-ex 1327  df-sb 1536  df-eu 1775  df-mo 1776  df-clab 1872  df-cleq 1877  df-clel 1880  df-ne 2019  df-nel 2020  df-ral 2109  df-rex 2110  df-reu 2111  df-rab 2112  df-v 2294  df-sbc 2454  df-csb 2541  df-dif 2597  df-un 2600  df-in 2603  df-ss 2605  df-pss 2607  df-nul 2876  df-if 2983  df-pw 3035  df-sn 3049  df-pr 3050  df-tp 3052  df-op 3053  df-uni 3178  df-int 3215  df-iun 3257  df-br 3339  df-opab 3396  df-tr 3412  df-eprel 3583  df-id 3586  df-po 3591  df-so 3604  df-fr 3625  df-we 3644  df-ord 3660  df-on 3661  df-lim 3662  df-suc 3663  df-om 3950  df-xp 4000  df-rel 4001  df-cnv 4002  df-co 4003  df-dm 4004  df-rn 4005  df-res 4006  df-ima 4007  df-fun 4008  df-fn 4009  df-f 4010  df-f1 4011  df-fo 4012  df-f1o 4013  df-fv 4014  df-opr 4886  df-oprab 4887  df-mpt 5006  df-1st 5020  df-2nd 5021  df-iota 5089  df-rdg 5140  df-1o 5177  df-oadd 5179  df-omul 5180  df-er 5318  df-ec 5320  df-qs 5323  df-en 5427  df-dom 5428  df-sdom 5429  df-undef 5556  df-riota 5560  df-sup 5664  df-ni 6152  df-pli 6153  df-mi 6154  df-lti 6155  df-plpq 6187  df-mpq 6188  df-enq 6189  df-nq 6190  df-plq 6191  df-mq 6192  df-rq 6193  df-ltq 6194  df-1q 6195  df-np 6238  df-1p 6239  df-plp 6240  df-mp 6241  df-ltp 6242  df-plpr 6316  df-mpr 6317  df-enr 6318  df-nr 6319  df-plr 6320  df-mr 6321  df-ltr 6322  df-0r 6323  df-1r 6324  df-m1r 6325  df-c 6392  df-0 6393  df-1 6394  df-i 6395  df-r 6396  df-plus 6397  df-mul 6398  df-lt 6399  df-sub 6511  df-neg 6513  df-pnf 6654  df-mnf 6655  df-xr 6656  df-ltxr 6657  df-le 6658  df-div 6892  df-n 7108  df-2 7154  df-rp 7232  df-n0 7309  df-z 7345  df-fl 7463  df-uz 7587  df-fz 7638  df-seq1 7721  df-shft 7754  df-seqz 7776  df-seq0 7777  df-exp 7812  df-sqr 7920  df-re 8001  df-im 8002  df-cj 8003  df-abs 8004  df-clim 8235  df-sum 8240  df-met 9070  df-cau 9201
Copyright terms: Public domain