Metamath Proof Explorer


Theorem dvradcnv

Description: The radius of convergence of the (formal) derivative H of the power series G is at least as large as the radius of convergence of G . (In fact they are equal, but we don't have as much use for the negative side of this claim.) (Contributed by Mario Carneiro, 31-Mar-2015)

Ref Expression
Hypotheses dvradcnv.g ⊢ G = x ∈ ℂ ⟼ n ∈ ℕ 0 ⟼ A ⁡ n ⁢ x n
dvradcnv.r ⊢ R = sup r ∈ ℝ | seq 0 + G ⁡ r ∈ dom ⁡ ⇝ ℝ * <
dvradcnv.h ⊢ H = n ∈ ℕ 0 ⟼ n + 1 ⁢ A ⁡ n + 1 ⁢ X n
dvradcnv.a ⊢ φ → A : ℕ 0 ⟶ ℂ
dvradcnv.x ⊢ φ → X ∈ ℂ
dvradcnv.l ⊢ φ → X < R
Assertion dvradcnv ⊢ φ → seq 0 + H ∈ dom ⁡ ⇝

Proof

Step Hyp Ref Expression
1 dvradcnv.g ⊢ G = x ∈ ℂ ⟼ n ∈ ℕ 0 ⟼ A ⁡ n ⁢ x n
2 dvradcnv.r ⊢ R = sup r ∈ ℝ | seq 0 + G ⁡ r ∈ dom ⁡ ⇝ ℝ * <
3 dvradcnv.h ⊢ H = n ∈ ℕ 0 ⟼ n + 1 ⁢ A ⁡ n + 1 ⁢ X n
4 dvradcnv.a ⊢ φ → A : ℕ 0 ⟶ ℂ
5 dvradcnv.x ⊢ φ → X ∈ ℂ
6 dvradcnv.l ⊢ φ → X < R
7 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
8 1nn0 ⊢ 1 ∈ ℕ 0
9 8 a1i ⊢ φ → 1 ∈ ℕ 0
10 ax-1cn ⊢ 1 ∈ ℂ
11 nn0cn ⊢ k ∈ ℕ 0 → k ∈ ℂ
12 11 adantl ⊢ φ ∧ k ∈ ℕ 0 → k ∈ ℂ
13 nn0ex ⊢ ℕ 0 ∈ V
14 13 mptex ⊢ i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ∈ V
15 14 shftval4 ⊢ 1 ∈ ℂ ∧ k ∈ ℂ → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k = i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ 1 + k
16 10 12 15 sylancr ⊢ φ ∧ k ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k = i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ 1 + k
17 addcom ⊢ 1 ∈ ℂ ∧ k ∈ ℂ → 1 + k = k + 1
18 10 12 17 sylancr ⊢ φ ∧ k ∈ ℕ 0 → 1 + k = k + 1
19 18 fveq2d ⊢ φ ∧ k ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ 1 + k = i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ k + 1
20 peano2nn0 ⊢ k ∈ ℕ 0 → k + 1 ∈ ℕ 0
21 20 adantl ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ∈ ℕ 0
22 id ⊢ i = k + 1 → i = k + 1
23 2fveq3 ⊢ i = k + 1 → G ⁡ X ⁡ i = G ⁡ X ⁡ k + 1
24 22 23 oveq12d ⊢ i = k + 1 → i ⁢ G ⁡ X ⁡ i = k + 1 ⁢ G ⁡ X ⁡ k + 1
25 eqid ⊢ i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i = i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i
26 ovex ⊢ k + 1 ⁢ G ⁡ X ⁡ k + 1 ∈ V
27 24 25 26 fvmpt ⊢ k + 1 ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ k + 1 = k + 1 ⁢ G ⁡ X ⁡ k + 1
28 21 27 syl ⊢ φ ∧ k ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ k + 1 = k + 1 ⁢ G ⁡ X ⁡ k + 1
29 1 pserval2 ⊢ X ∈ ℂ ∧ k + 1 ∈ ℕ 0 → G ⁡ X ⁡ k + 1 = A ⁡ k + 1 ⁢ X k + 1
30 5 20 29 syl2an ⊢ φ ∧ k ∈ ℕ 0 → G ⁡ X ⁡ k + 1 = A ⁡ k + 1 ⁢ X k + 1
31 30 fveq2d ⊢ φ ∧ k ∈ ℕ 0 → G ⁡ X ⁡ k + 1 = A ⁡ k + 1 ⁢ X k + 1
32 31 oveq2d ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ G ⁡ X ⁡ k + 1 = k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
33 28 32 eqtrd ⊢ φ ∧ k ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ k + 1 = k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
34 16 19 33 3eqtrd ⊢ φ ∧ k ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
35 21 nn0red ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ∈ ℝ
36 ffvelcdm ⊢ A : ℕ 0 ⟶ ℂ ∧ k + 1 ∈ ℕ 0 → A ⁡ k + 1 ∈ ℂ
37 4 20 36 syl2an ⊢ φ ∧ k ∈ ℕ 0 → A ⁡ k + 1 ∈ ℂ
38 expcl ⊢ X ∈ ℂ ∧ k + 1 ∈ ℕ 0 → X k + 1 ∈ ℂ
39 5 20 38 syl2an ⊢ φ ∧ k ∈ ℕ 0 → X k + 1 ∈ ℂ
40 37 39 mulcld ⊢ φ ∧ k ∈ ℕ 0 → A ⁡ k + 1 ⁢ X k + 1 ∈ ℂ
41 40 abscld ⊢ φ ∧ k ∈ ℕ 0 → A ⁡ k + 1 ⁢ X k + 1 ∈ ℝ
42 35 41 remulcld ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 ∈ ℝ
43 34 42 eqeltrd ⊢ φ ∧ k ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k ∈ ℝ
44 oveq1 ⊢ n = k → n + 1 = k + 1
45 44 fveq2d ⊢ n = k → A ⁡ n + 1 = A ⁡ k + 1
46 44 45 oveq12d ⊢ n = k → n + 1 ⁢ A ⁡ n + 1 = k + 1 ⁢ A ⁡ k + 1
47 oveq2 ⊢ n = k → X n = X k
48 46 47 oveq12d ⊢ n = k → n + 1 ⁢ A ⁡ n + 1 ⁢ X n = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
49 ovex ⊢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k ∈ V
50 48 3 49 fvmpt ⊢ k ∈ ℕ 0 → H ⁡ k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
51 50 adantl ⊢ φ ∧ k ∈ ℕ 0 → H ⁡ k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
52 21 nn0cnd ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ∈ ℂ
53 52 37 mulcld ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ∈ ℂ
54 expcl ⊢ X ∈ ℂ ∧ k ∈ ℕ 0 → X k ∈ ℂ
55 5 54 sylan ⊢ φ ∧ k ∈ ℕ 0 → X k ∈ ℂ
56 53 55 mulcld ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ∈ ℂ
57 51 56 eqeltrd ⊢ φ ∧ k ∈ ℕ 0 → H ⁡ k ∈ ℂ
58 id ⊢ i = k → i = k
59 2fveq3 ⊢ i = k → G ⁡ X ⁡ i = G ⁡ X ⁡ k
60 58 59 oveq12d ⊢ i = k → i ⁢ G ⁡ X ⁡ i = k ⁢ G ⁡ X ⁡ k
61 60 cbvmptv ⊢ i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i = k ∈ ℕ 0 ⟼ k ⁢ G ⁡ X ⁡ k
62 1 4 2 5 6 61 radcnvlt1 ⊢ φ → seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ∈ dom ⁡ ⇝ ∧ seq 0 + abs ∘ G ⁡ X ∈ dom ⁡ ⇝
63 62 simpld ⊢ φ → seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ∈ dom ⁡ ⇝
64 climdm ⊢ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ∈ dom ⁡ ⇝ ↔ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i
65 63 64 sylib ⊢ φ → seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i
66 0z ⊢ 0 ∈ ℤ
67 neg1z ⊢ − 1 ∈ ℤ
68 14 isershft ⊢ 0 ∈ ℤ ∧ − 1 ∈ ℤ → seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ↔ seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i
69 66 67 68 mp2an ⊢ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ↔ seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i
70 65 69 sylib ⊢ φ → seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i
71 seqex ⊢ seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ∈ V
72 fvex ⊢ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ∈ V
73 71 72 breldm ⊢ seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⇝ ⇝ ⁡ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i → seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ∈ dom ⁡ ⇝
74 70 73 syl ⊢ φ → seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ∈ dom ⁡ ⇝
75 eqid ⊢ ℤ ≥ 0 + -1 = ℤ ≥ 0 + -1
76 neg1cn ⊢ − 1 ∈ ℂ
77 76 addlidi ⊢ 0 + -1 = − 1
78 0le1 ⊢ 0 ≤ 1
79 1re ⊢ 1 ∈ ℝ
80 le0neg2 ⊢ 1 ∈ ℝ → 0 ≤ 1 ↔ − 1 ≤ 0
81 79 80 ax-mp ⊢ 0 ≤ 1 ↔ − 1 ≤ 0
82 78 81 mpbi ⊢ − 1 ≤ 0
83 77 82 eqbrtri ⊢ 0 + -1 ≤ 0
84 77 67 eqeltri ⊢ 0 + -1 ∈ ℤ
85 84 eluz1i ⊢ 0 ∈ ℤ ≥ 0 + -1 ↔ 0 ∈ ℤ ∧ 0 + -1 ≤ 0
86 66 83 85 mpbir2an ⊢ 0 ∈ ℤ ≥ 0 + -1
87 86 a1i ⊢ φ → 0 ∈ ℤ ≥ 0 + -1
88 eluzelcn ⊢ k ∈ ℤ ≥ 0 + -1 → k ∈ ℂ
89 88 adantl ⊢ φ ∧ k ∈ ℤ ≥ 0 + -1 → k ∈ ℂ
90 10 89 15 sylancr ⊢ φ ∧ k ∈ ℤ ≥ 0 + -1 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k = i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ 1 + k
91 nn0re ⊢ i ∈ ℕ 0 → i ∈ ℝ
92 91 adantl ⊢ φ ∧ i ∈ ℕ 0 → i ∈ ℝ
93 1 4 5 psergf ⊢ φ → G ⁡ X : ℕ 0 ⟶ ℂ
94 93 ffvelcdmda ⊢ φ ∧ i ∈ ℕ 0 → G ⁡ X ⁡ i ∈ ℂ
95 94 abscld ⊢ φ ∧ i ∈ ℕ 0 → G ⁡ X ⁡ i ∈ ℝ
96 92 95 remulcld ⊢ φ ∧ i ∈ ℕ 0 → i ⁢ G ⁡ X ⁡ i ∈ ℝ
97 96 recnd ⊢ φ ∧ i ∈ ℕ 0 → i ⁢ G ⁡ X ⁡ i ∈ ℂ
98 97 fmpttd ⊢ φ → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i : ℕ 0 ⟶ ℂ
99 10 88 17 sylancr ⊢ k ∈ ℤ ≥ 0 + -1 → 1 + k = k + 1
100 eluzp1p1 ⊢ k ∈ ℤ ≥ 0 + -1 → k + 1 ∈ ℤ ≥ 0 + -1 + 1
101 77 oveq1i ⊢ 0 + -1 + 1 = - 1 + 1
102 1pneg1e0 ⊢ 1 + -1 = 0
103 10 76 102 addcomli ⊢ - 1 + 1 = 0
104 101 103 eqtri ⊢ 0 + -1 + 1 = 0
105 104 fveq2i ⊢ ℤ ≥ 0 + -1 + 1 = ℤ ≥ 0
106 7 105 eqtr4i ⊢ ℕ 0 = ℤ ≥ 0 + -1 + 1
107 100 106 eleqtrrdi ⊢ k ∈ ℤ ≥ 0 + -1 → k + 1 ∈ ℕ 0
108 99 107 eqeltrd ⊢ k ∈ ℤ ≥ 0 + -1 → 1 + k ∈ ℕ 0
109 ffvelcdm ⊢ i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i : ℕ 0 ⟶ ℂ ∧ 1 + k ∈ ℕ 0 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ 1 + k ∈ ℂ
110 98 108 109 syl2an ⊢ φ ∧ k ∈ ℤ ≥ 0 + -1 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i ⁡ 1 + k ∈ ℂ
111 90 110 eqeltrd ⊢ φ ∧ k ∈ ℤ ≥ 0 + -1 → i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k ∈ ℂ
112 75 87 111 iserex ⊢ φ → seq 0 + -1 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ∈ dom ⁡ ⇝ ↔ seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ∈ dom ⁡ ⇝
113 74 112 mpbid ⊢ φ → seq 0 + i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ∈ dom ⁡ ⇝
114 1red ⊢ φ ∧ X = 0 → 1 ∈ ℝ
115 neqne ⊢ ¬ X = 0 → X ≠ 0
116 absrpcl ⊢ X ∈ ℂ ∧ X ≠ 0 → X ∈ ℝ +
117 5 115 116 syl2an ⊢ φ ∧ ¬ X = 0 → X ∈ ℝ +
118 117 rprecred ⊢ φ ∧ ¬ X = 0 → 1 X ∈ ℝ
119 114 118 ifclda ⊢ φ → if X = 0 1 1 X ∈ ℝ
120 oveq1 ⊢ 1 = if X = 0 1 1 X → 1 ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 = if X = 0 1 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
121 120 breq2d ⊢ 1 = if X = 0 1 1 X → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ 1 ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 ↔ k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ if X = 0 1 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
122 oveq1 ⊢ 1 X = if X = 0 1 1 X → 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 = if X = 0 1 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
123 122 breq2d ⊢ 1 X = if X = 0 1 1 X → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 ↔ k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ if X = 0 1 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
124 elnnuz ⊢ k ∈ ℕ ↔ k ∈ ℤ ≥ 1
125 nnnn0 ⊢ k ∈ ℕ → k ∈ ℕ 0
126 124 125 sylbir ⊢ k ∈ ℤ ≥ 1 → k ∈ ℕ 0
127 21 nn0ge0d ⊢ φ ∧ k ∈ ℕ 0 → 0 ≤ k + 1
128 40 absge0d ⊢ φ ∧ k ∈ ℕ 0 → 0 ≤ A ⁡ k + 1 ⁢ X k + 1
129 35 41 127 128 mulge0d ⊢ φ ∧ k ∈ ℕ 0 → 0 ≤ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
130 126 129 sylan2 ⊢ φ ∧ k ∈ ℤ ≥ 1 → 0 ≤ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
131 130 adantr ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → 0 ≤ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
132 oveq1 ⊢ X = 0 → X k = 0 k
133 124 bilanri ⊢ φ ∧ k ∈ ℤ ≥ 1 → k ∈ ℕ
134 133 0expd ⊢ φ ∧ k ∈ ℤ ≥ 1 → 0 k = 0
135 132 134 sylan9eqr ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → X k = 0
136 135 oveq2d ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = k + 1 ⁢ A ⁡ k + 1 ⋅ 0
137 53 mul01d ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⋅ 0 = 0
138 126 137 sylan2 ⊢ φ ∧ k ∈ ℤ ≥ 1 → k + 1 ⁢ A ⁡ k + 1 ⋅ 0 = 0
139 138 adantr ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → k + 1 ⁢ A ⁡ k + 1 ⋅ 0 = 0
140 136 139 eqtrd ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = 0
141 140 abs00bd ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = 0
142 42 recnd ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 ∈ ℂ
143 142 mullidd ⊢ φ ∧ k ∈ ℕ 0 → 1 ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 = k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
144 126 143 sylan2 ⊢ φ ∧ k ∈ ℤ ≥ 1 → 1 ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 = k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
145 144 adantr ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → 1 ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 = k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
146 131 141 145 3brtr4d ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X = 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ 1 ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
147 df-ne ⊢ X ≠ 0 ↔ ¬ X = 0
148 56 abscld ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ∈ ℝ
149 52 37 55 mulassd ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
150 149 fveq2d ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
151 37 55 mulcld ⊢ φ ∧ k ∈ ℕ 0 → A ⁡ k + 1 ⁢ X k ∈ ℂ
152 52 151 absmuld ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
153 35 127 absidd ⊢ φ ∧ k ∈ ℕ 0 → k + 1 = k + 1
154 153 oveq1d ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
155 150 152 154 3eqtrd ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
156 148 155 eqled ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ k + 1 ⁢ A ⁡ k + 1 ⁢ X k
157 156 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ k + 1 ⁢ A ⁡ k + 1 ⁢ X k
158 5 adantr ⊢ φ ∧ k ∈ ℕ 0 → X ∈ ℂ
159 116 rpreccld ⊢ X ∈ ℂ ∧ X ≠ 0 → 1 X ∈ ℝ +
160 158 159 sylan ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → 1 X ∈ ℝ +
161 160 rpcnd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → 1 X ∈ ℂ
162 52 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → k + 1 ∈ ℂ
163 41 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 ∈ ℝ
164 163 recnd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 ∈ ℂ
165 161 162 164 mul12d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 = k + 1 ⁢ 1 X ⁢ A ⁡ k + 1 ⁢ X k + 1
166 40 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 ∈ ℂ
167 5 ad2antrr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X ∈ ℂ
168 simpr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X ≠ 0
169 166 167 168 absdivd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 X = A ⁡ k + 1 ⁢ X k + 1 X
170 37 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ∈ ℂ
171 39 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X k + 1 ∈ ℂ
172 170 171 167 168 divassd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 X = A ⁡ k + 1 ⁢ X k + 1 X
173 12 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → k ∈ ℂ
174 pncan ⊢ k ∈ ℂ ∧ 1 ∈ ℂ → k + 1 - 1 = k
175 173 10 174 sylancl ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → k + 1 - 1 = k
176 175 oveq2d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X k + 1 - 1 = X k
177 21 nn0zd ⊢ φ ∧ k ∈ ℕ 0 → k + 1 ∈ ℤ
178 177 adantr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → k + 1 ∈ ℤ
179 167 168 178 expm1d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X k + 1 - 1 = X k + 1 X
180 176 179 eqtr3d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X k = X k + 1 X
181 180 oveq2d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k = A ⁡ k + 1 ⁢ X k + 1 X
182 172 181 eqtr4d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 X = A ⁡ k + 1 ⁢ X k
183 182 fveq2d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 X = A ⁡ k + 1 ⁢ X k
184 5 abscld ⊢ φ → X ∈ ℝ
185 184 ad2antrr ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X ∈ ℝ
186 185 recnd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X ∈ ℂ
187 158 116 sylan ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X ∈ ℝ +
188 187 rpne0d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → X ≠ 0
189 164 186 188 divrec2d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → A ⁡ k + 1 ⁢ X k + 1 X = 1 X ⁢ A ⁡ k + 1 ⁢ X k + 1
190 169 183 189 3eqtr3rd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → 1 X ⁢ A ⁡ k + 1 ⁢ X k + 1 = A ⁡ k + 1 ⁢ X k
191 190 oveq2d ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → k + 1 ⁢ 1 X ⁢ A ⁡ k + 1 ⁢ X k + 1 = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
192 165 191 eqtrd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1 = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
193 157 192 breqtrrd ⊢ φ ∧ k ∈ ℕ 0 ∧ X ≠ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
194 126 193 sylanl2 ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ X ≠ 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
195 147 194 sylan2br ⊢ φ ∧ k ∈ ℤ ≥ 1 ∧ ¬ X = 0 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
196 121 123 146 195 ifbothda ⊢ φ ∧ k ∈ ℤ ≥ 1 → k + 1 ⁢ A ⁡ k + 1 ⁢ X k ≤ if X = 0 1 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
197 51 fveq2d ⊢ φ ∧ k ∈ ℕ 0 → H ⁡ k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
198 126 197 sylan2 ⊢ φ ∧ k ∈ ℤ ≥ 1 → H ⁡ k = k + 1 ⁢ A ⁡ k + 1 ⁢ X k
199 34 oveq2d ⊢ φ ∧ k ∈ ℕ 0 → if X = 0 1 1 X ⁢ i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k = if X = 0 1 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
200 126 199 sylan2 ⊢ φ ∧ k ∈ ℤ ≥ 1 → if X = 0 1 1 X ⁢ i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k = if X = 0 1 1 X ⁢ k + 1 ⁢ A ⁡ k + 1 ⁢ X k + 1
201 196 198 200 3brtr4d ⊢ φ ∧ k ∈ ℤ ≥ 1 → H ⁡ k ≤ if X = 0 1 1 X ⁢ i ∈ ℕ 0 ⟼ i ⁢ G ⁡ X ⁡ i shift -1 ⁡ k
202 7 9 43 57 113 119 201 cvgcmpce ⊢ φ → seq 0 + H ∈ dom ⁡ ⇝