Metamath Proof Explorer


Theorem pntpbnd1

Description: Lemma for pntpbnd . (Contributed by Mario Carneiro, 11-Apr-2016)

Ref Expression
Hypotheses pntpbnd.r ⊢ R = a ∈ ℝ + ⟼ ψ ⁡ a − a
pntpbnd1.e ⊢ φ → E ∈ 0 1
pntpbnd1.x ⊢ X = e 2 E
pntpbnd1.y ⊢ φ → Y ∈ X +∞
pntpbnd1.1 ⊢ φ → A ∈ ℝ +
pntpbnd1.2 ⊢ φ → ∀ i ∈ ℕ ∀ j ∈ ℤ ∑ y = i j R ⁡ y y ⁢ y + 1 ≤ A
pntpbnd1.c ⊢ C = A + 2
pntpbnd1.k ⊢ φ → K ∈ e C E +∞
pntpbnd1.3 ⊢ φ → ¬ ∃ y ∈ ℕ Y < y ∧ y ≤ K ⁢ Y ∧ R ⁡ y y ≤ E
Assertion pntpbnd1 ⊢ φ → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ≤ A

Proof

Step Hyp Ref Expression
1 pntpbnd.r ⊢ R = a ∈ ℝ + ⟼ ψ ⁡ a − a
2 pntpbnd1.e ⊢ φ → E ∈ 0 1
3 pntpbnd1.x ⊢ X = e 2 E
4 pntpbnd1.y ⊢ φ → Y ∈ X +∞
5 pntpbnd1.1 ⊢ φ → A ∈ ℝ +
6 pntpbnd1.2 ⊢ φ → ∀ i ∈ ℕ ∀ j ∈ ℤ ∑ y = i j R ⁡ y y ⁢ y + 1 ≤ A
7 pntpbnd1.c ⊢ C = A + 2
8 pntpbnd1.k ⊢ φ → K ∈ e C E +∞
9 pntpbnd1.3 ⊢ φ → ¬ ∃ y ∈ ℕ Y < y ∧ y ≤ K ⁢ Y ∧ R ⁡ y y ≤ E
10 fzfid ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i → Y + 1 … K ⁢ Y ∈ Fin
11 ioossre ⊢ X +∞ ⊆ ℝ
12 11 4 sselid ⊢ φ → Y ∈ ℝ
13 0red ⊢ φ → 0 ∈ ℝ
14 2re ⊢ 2 ∈ ℝ
15 ioossre ⊢ 0 1 ⊆ ℝ
16 15 2 sselid ⊢ φ → E ∈ ℝ
17 eliooord ⊢ E ∈ 0 1 → 0 < E ∧ E < 1
18 2 17 syl ⊢ φ → 0 < E ∧ E < 1
19 18 simpld ⊢ φ → 0 < E
20 16 19 elrpd ⊢ φ → E ∈ ℝ +
21 rerpdivcl ⊢ 2 ∈ ℝ ∧ E ∈ ℝ + → 2 E ∈ ℝ
22 14 20 21 sylancr ⊢ φ → 2 E ∈ ℝ
23 22 reefcld ⊢ φ → e 2 E ∈ ℝ
24 3 23 eqeltrid ⊢ φ → X ∈ ℝ
25 efgt0 ⊢ 2 E ∈ ℝ → 0 < e 2 E
26 22 25 syl ⊢ φ → 0 < e 2 E
27 26 3 breqtrrdi ⊢ φ → 0 < X
28 eliooord ⊢ Y ∈ X +∞ → X < Y ∧ Y < +∞
29 4 28 syl ⊢ φ → X < Y ∧ Y < +∞
30 29 simpld ⊢ φ → X < Y
31 13 24 12 27 30 lttrd ⊢ φ → 0 < Y
32 13 12 31 ltled ⊢ φ → 0 ≤ Y
33 flge0nn0 ⊢ Y ∈ ℝ ∧ 0 ≤ Y → Y ∈ ℕ 0
34 12 32 33 syl2anc ⊢ φ → Y ∈ ℕ 0
35 nn0p1nn ⊢ Y ∈ ℕ 0 → Y + 1 ∈ ℕ
36 34 35 syl ⊢ φ → Y + 1 ∈ ℕ
37 elfzuz ⊢ n ∈ Y + 1 … K ⁢ Y → n ∈ ℤ ≥ Y + 1
38 eluznn ⊢ Y + 1 ∈ ℕ ∧ n ∈ ℤ ≥ Y + 1 → n ∈ ℕ
39 36 37 38 syl2an ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → n ∈ ℕ
40 39 nnrpd ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → n ∈ ℝ +
41 1 pntrf ⊢ R : ℝ + ⟶ ℝ
42 41 ffvelcdmi ⊢ n ∈ ℝ + → R ⁡ n ∈ ℝ
43 40 42 syl ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n ∈ ℝ
44 39 peano2nnd ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → n + 1 ∈ ℕ
45 39 44 nnmulcld ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → n ⁢ n + 1 ∈ ℕ
46 43 45 nndivred ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 ∈ ℝ
47 46 adantlr ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 ∈ ℝ
48 10 47 fsumrecl ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ∈ ℝ
49 43 adantlr ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n ∈ ℝ
50 fveq2 ⊢ i = n → R ⁡ i = R ⁡ n
51 50 breq2d ⊢ i = n → 0 ≤ R ⁡ i ↔ 0 ≤ R ⁡ n
52 51 rspccva ⊢ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → 0 ≤ R ⁡ n
53 52 adantll ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → 0 ≤ R ⁡ n
54 45 adantlr ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → n ⁢ n + 1 ∈ ℕ
55 54 nnred ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → n ⁢ n + 1 ∈ ℝ
56 54 nngt0d ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → 0 < n ⁢ n + 1
57 divge0 ⊢ R ⁡ n ∈ ℝ ∧ 0 ≤ R ⁡ n ∧ n ⁢ n + 1 ∈ ℝ ∧ 0 < n ⁢ n + 1 → 0 ≤ R ⁡ n n ⁢ n + 1
58 49 53 55 56 57 syl22anc ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → 0 ≤ R ⁡ n n ⁢ n + 1
59 10 47 58 fsumge0 ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i → 0 ≤ ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
60 48 59 absidd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
61 47 58 absidd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 = R ⁡ n n ⁢ n + 1
62 61 sumeq2dv ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
63 60 62 eqtr4d ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
64 fzfid ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → Y + 1 … K ⁢ Y ∈ Fin
65 46 adantlr ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 ∈ ℝ
66 65 recnd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 ∈ ℂ
67 64 66 fsumneg ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → ∑ n = Y + 1 K ⁢ Y − R ⁡ n n ⁢ n + 1 = − ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
68 43 adantlr ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n ∈ ℝ
69 68 renegcld ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → − R ⁡ n ∈ ℝ
70 50 breq1d ⊢ i = n → R ⁡ i ≤ 0 ↔ R ⁡ n ≤ 0
71 70 rspccva ⊢ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n ≤ 0
72 71 adantll ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n ≤ 0
73 68 le0neg1d ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n ≤ 0 ↔ 0 ≤ − R ⁡ n
74 72 73 mpbid ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → 0 ≤ − R ⁡ n
75 45 adantlr ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → n ⁢ n + 1 ∈ ℕ
76 75 nnred ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → n ⁢ n + 1 ∈ ℝ
77 75 nngt0d ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → 0 < n ⁢ n + 1
78 divge0 ⊢ − R ⁡ n ∈ ℝ ∧ 0 ≤ − R ⁡ n ∧ n ⁢ n + 1 ∈ ℝ ∧ 0 < n ⁢ n + 1 → 0 ≤ − R ⁡ n n ⁢ n + 1
79 69 74 76 77 78 syl22anc ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → 0 ≤ − R ⁡ n n ⁢ n + 1
80 43 recnd ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n ∈ ℂ
81 45 nncnd ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → n ⁢ n + 1 ∈ ℂ
82 45 nnne0d ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → n ⁢ n + 1 ≠ 0
83 80 81 82 divnegd ⊢ φ ∧ n ∈ Y + 1 … K ⁢ Y → − R ⁡ n n ⁢ n + 1 = − R ⁡ n n ⁢ n + 1
84 83 adantlr ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → − R ⁡ n n ⁢ n + 1 = − R ⁡ n n ⁢ n + 1
85 79 84 breqtrrd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → 0 ≤ − R ⁡ n n ⁢ n + 1
86 65 le0neg1d ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 ≤ 0 ↔ 0 ≤ − R ⁡ n n ⁢ n + 1
87 85 86 mpbird ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 ≤ 0
88 65 87 absnidd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → R ⁡ n n ⁢ n + 1 = − R ⁡ n n ⁢ n + 1
89 88 sumeq2dv ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y − R ⁡ n n ⁢ n + 1
90 64 65 fsumrecl ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ∈ ℝ
91 65 renegcld ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 ∧ n ∈ Y + 1 … K ⁢ Y → − R ⁡ n n ⁢ n + 1 ∈ ℝ
92 64 91 85 fsumge0 ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → 0 ≤ ∑ n = Y + 1 K ⁢ Y − R ⁡ n n ⁢ n + 1
93 92 67 breqtrd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → 0 ≤ − ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
94 90 le0neg1d ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ≤ 0 ↔ 0 ≤ − ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
95 93 94 mpbird ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ≤ 0
96 90 95 absnidd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 = − ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
97 67 89 96 3eqtr4rd ⊢ φ ∧ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0 → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
98 2rp ⊢ 2 ∈ ℝ +
99 rpaddcl ⊢ A ∈ ℝ + ∧ 2 ∈ ℝ + → A + 2 ∈ ℝ +
100 5 98 99 sylancl ⊢ φ → A + 2 ∈ ℝ +
101 7 100 eqeltrid ⊢ φ → C ∈ ℝ +
102 101 20 rpdivcld ⊢ φ → C E ∈ ℝ +
103 102 rpred ⊢ φ → C E ∈ ℝ
104 103 reefcld ⊢ φ → e C E ∈ ℝ
105 pnfxr ⊢ +∞ ∈ ℝ *
106 icossre ⊢ e C E ∈ ℝ ∧ +∞ ∈ ℝ * → e C E +∞ ⊆ ℝ
107 104 105 106 sylancl ⊢ φ → e C E +∞ ⊆ ℝ
108 107 8 sseldd ⊢ φ → K ∈ ℝ
109 108 12 remulcld ⊢ φ → K ⁢ Y ∈ ℝ
110 12 recnd ⊢ φ → Y ∈ ℂ
111 110 mullidd ⊢ φ → 1 ⁢ Y = Y
112 1red ⊢ φ → 1 ∈ ℝ
113 efgt1 ⊢ C E ∈ ℝ + → 1 < e C E
114 102 113 syl ⊢ φ → 1 < e C E
115 elicopnf ⊢ e C E ∈ ℝ → K ∈ e C E +∞ ↔ K ∈ ℝ ∧ e C E ≤ K
116 104 115 syl ⊢ φ → K ∈ e C E +∞ ↔ K ∈ ℝ ∧ e C E ≤ K
117 116 simplbda ⊢ φ ∧ K ∈ e C E +∞ → e C E ≤ K
118 8 117 mpdan ⊢ φ → e C E ≤ K
119 112 104 108 114 118 ltletrd ⊢ φ → 1 < K
120 ltmul1 ⊢ 1 ∈ ℝ ∧ K ∈ ℝ ∧ Y ∈ ℝ ∧ 0 < Y → 1 < K ↔ 1 ⁢ Y < K ⁢ Y
121 112 108 12 31 120 syl112anc ⊢ φ → 1 < K ↔ 1 ⁢ Y < K ⁢ Y
122 119 121 mpbid ⊢ φ → 1 ⁢ Y < K ⁢ Y
123 111 122 eqbrtrrd ⊢ φ → Y < K ⁢ Y
124 12 109 123 ltled ⊢ φ → Y ≤ K ⁢ Y
125 flword2 ⊢ Y ∈ ℝ ∧ K ⁢ Y ∈ ℝ ∧ Y ≤ K ⁢ Y → K ⁢ Y ∈ ℤ ≥ Y
126 12 109 124 125 syl3anc ⊢ φ → K ⁢ Y ∈ ℤ ≥ Y
127 109 flcld ⊢ φ → K ⁢ Y ∈ ℤ
128 uzid ⊢ K ⁢ Y ∈ ℤ → K ⁢ Y ∈ ℤ ≥ K ⁢ Y
129 127 128 syl ⊢ φ → K ⁢ Y ∈ ℤ ≥ K ⁢ Y
130 elfzuzb ⊢ K ⁢ Y ∈ Y … K ⁢ Y ↔ K ⁢ Y ∈ ℤ ≥ Y ∧ K ⁢ Y ∈ ℤ ≥ K ⁢ Y
131 126 129 130 sylanbrc ⊢ φ → K ⁢ Y ∈ Y … K ⁢ Y
132 oveq2 ⊢ x = Y → Y + 1 … x = Y + 1 … Y
133 132 raleqdv ⊢ x = Y → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 … Y 0 ≤ R ⁡ i
134 132 raleqdv ⊢ x = Y → ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … Y R ⁡ i ≤ 0
135 133 134 orbi12d ⊢ x = Y → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … Y R ⁡ i ≤ 0
136 135 imbi2d ⊢ x = Y → φ → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ φ → ∀ i ∈ Y + 1 … Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … Y R ⁡ i ≤ 0
137 oveq2 ⊢ x = m → Y + 1 … x = Y + 1 … m
138 137 raleqdv ⊢ x = m → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i
139 137 raleqdv ⊢ x = m → ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0
140 138 139 orbi12d ⊢ x = m → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0
141 140 imbi2d ⊢ x = m → φ → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ φ → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0
142 oveq2 ⊢ x = m + 1 → Y + 1 … x = Y + 1 … m + 1
143 142 raleqdv ⊢ x = m + 1 → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i
144 142 raleqdv ⊢ x = m + 1 → ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
145 143 144 orbi12d ⊢ x = m + 1 → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
146 145 imbi2d ⊢ x = m + 1 → φ → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ φ → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
147 oveq2 ⊢ x = K ⁢ Y → Y + 1 … x = Y + 1 … K ⁢ Y
148 147 raleqdv ⊢ x = K ⁢ Y → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i
149 147 raleqdv ⊢ x = K ⁢ Y → ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0
150 148 149 orbi12d ⊢ x = K ⁢ Y → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0
151 150 imbi2d ⊢ x = K ⁢ Y → φ → ∀ i ∈ Y + 1 … x 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … x R ⁡ i ≤ 0 ↔ φ → ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0
152 elfzle3 ⊢ i ∈ Y + 1 … Y → Y + 1 ≤ Y
153 elfzel2 ⊢ i ∈ Y + 1 … Y → Y ∈ ℤ
154 153 zred ⊢ i ∈ Y + 1 … Y → Y ∈ ℝ
155 154 ltp1d ⊢ i ∈ Y + 1 … Y → Y < Y + 1
156 peano2re ⊢ Y ∈ ℝ → Y + 1 ∈ ℝ
157 154 156 syl ⊢ i ∈ Y + 1 … Y → Y + 1 ∈ ℝ
158 154 157 ltnled ⊢ i ∈ Y + 1 … Y → Y < Y + 1 ↔ ¬ Y + 1 ≤ Y
159 155 158 mpbid ⊢ i ∈ Y + 1 … Y → ¬ Y + 1 ≤ Y
160 152 159 pm2.21dd ⊢ i ∈ Y + 1 … Y → R ⁡ i ≤ 0
161 160 rgen ⊢ ∀ i ∈ Y + 1 … Y R ⁡ i ≤ 0
162 161 olci ⊢ ∀ i ∈ Y + 1 … Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … Y R ⁡ i ≤ 0
163 162 2a1i ⊢ K ⁢ Y ∈ ℤ ≥ Y → φ → ∀ i ∈ Y + 1 … Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … Y R ⁡ i ≤ 0
164 elfzofz ⊢ m ∈ Y ..^ K ⁢ Y → m ∈ Y … K ⁢ Y
165 elfzp12 ⊢ K ⁢ Y ∈ ℤ ≥ Y → m ∈ Y … K ⁢ Y ↔ m = Y ∨ m ∈ Y + 1 … K ⁢ Y
166 126 165 syl ⊢ φ → m ∈ Y … K ⁢ Y ↔ m = Y ∨ m ∈ Y + 1 … K ⁢ Y
167 164 166 imbitrid ⊢ φ → m ∈ Y ..^ K ⁢ Y → m = Y ∨ m ∈ Y + 1 … K ⁢ Y
168 167 imp ⊢ φ ∧ m ∈ Y ..^ K ⁢ Y → m = Y ∨ m ∈ Y + 1 … K ⁢ Y
169 36 nnrpd ⊢ φ → Y + 1 ∈ ℝ +
170 41 ffvelcdmi ⊢ Y + 1 ∈ ℝ + → R ⁡ Y + 1 ∈ ℝ
171 169 170 syl ⊢ φ → R ⁡ Y + 1 ∈ ℝ
172 13 171 letrid ⊢ φ → 0 ≤ R ⁡ Y + 1 ∨ R ⁡ Y + 1 ≤ 0
173 172 adantr ⊢ φ ∧ m = Y → 0 ≤ R ⁡ Y + 1 ∨ R ⁡ Y + 1 ≤ 0
174 oveq1 ⊢ m = Y → m + 1 = Y + 1
175 174 oveq2d ⊢ m = Y → Y + 1 … m + 1 = Y + 1 … Y + 1
176 12 flcld ⊢ φ → Y ∈ ℤ
177 176 peano2zd ⊢ φ → Y + 1 ∈ ℤ
178 fzsn ⊢ Y + 1 ∈ ℤ → Y + 1 … Y + 1 = Y + 1
179 177 178 syl ⊢ φ → Y + 1 … Y + 1 = Y + 1
180 175 179 sylan9eqr ⊢ φ ∧ m = Y → Y + 1 … m + 1 = Y + 1
181 180 raleqdv ⊢ φ ∧ m = Y → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 0 ≤ R ⁡ i
182 ovex ⊢ Y + 1 ∈ V
183 fveq2 ⊢ i = Y + 1 → R ⁡ i = R ⁡ Y + 1
184 183 breq2d ⊢ i = Y + 1 → 0 ≤ R ⁡ i ↔ 0 ≤ R ⁡ Y + 1
185 182 184 ralsn ⊢ ∀ i ∈ Y + 1 0 ≤ R ⁡ i ↔ 0 ≤ R ⁡ Y + 1
186 181 185 bitrdi ⊢ φ ∧ m = Y → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ↔ 0 ≤ R ⁡ Y + 1
187 180 raleqdv ⊢ φ ∧ m = Y → ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 R ⁡ i ≤ 0
188 183 breq1d ⊢ i = Y + 1 → R ⁡ i ≤ 0 ↔ R ⁡ Y + 1 ≤ 0
189 182 188 ralsn ⊢ ∀ i ∈ Y + 1 R ⁡ i ≤ 0 ↔ R ⁡ Y + 1 ≤ 0
190 187 189 bitrdi ⊢ φ ∧ m = Y → ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0 ↔ R ⁡ Y + 1 ≤ 0
191 186 190 orbi12d ⊢ φ ∧ m = Y → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0 ↔ 0 ≤ R ⁡ Y + 1 ∨ R ⁡ Y + 1 ≤ 0
192 173 191 mpbird ⊢ φ ∧ m = Y → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
193 192 a1d ⊢ φ ∧ m = Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
194 elfzuz ⊢ m ∈ Y + 1 … K ⁢ Y → m ∈ ℤ ≥ Y + 1
195 194 adantl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m ∈ ℤ ≥ Y + 1
196 eluzfz2 ⊢ m ∈ ℤ ≥ Y + 1 → m ∈ Y + 1 … m
197 195 196 syl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m ∈ Y + 1 … m
198 fveq2 ⊢ i = m → R ⁡ i = R ⁡ m
199 198 breq2d ⊢ i = m → 0 ≤ R ⁡ i ↔ 0 ≤ R ⁡ m
200 199 rspcv ⊢ m ∈ Y + 1 … m → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i → 0 ≤ R ⁡ m
201 197 200 syl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i → 0 ≤ R ⁡ m
202 9 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ¬ ∃ y ∈ ℕ Y < y ∧ y ≤ K ⁢ Y ∧ R ⁡ y y ≤ E
203 eluznn ⊢ Y + 1 ∈ ℕ ∧ m ∈ ℤ ≥ Y + 1 → m ∈ ℕ
204 36 194 203 syl2an ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m ∈ ℕ
205 204 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m → m ∈ ℕ
206 elfzle1 ⊢ m ∈ Y + 1 … K ⁢ Y → Y + 1 ≤ m
207 206 adantl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → Y + 1 ≤ m
208 elfzelz ⊢ m ∈ Y + 1 … K ⁢ Y → m ∈ ℤ
209 zltp1le ⊢ Y ∈ ℤ ∧ m ∈ ℤ → Y < m ↔ Y + 1 ≤ m
210 176 208 209 syl2an ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → Y < m ↔ Y + 1 ≤ m
211 207 210 mpbird ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → Y < m
212 fllt ⊢ Y ∈ ℝ ∧ m ∈ ℤ → Y < m ↔ Y < m
213 12 208 212 syl2an ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → Y < m ↔ Y < m
214 211 213 mpbird ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → Y < m
215 elfzle2 ⊢ m ∈ Y + 1 … K ⁢ Y → m ≤ K ⁢ Y
216 215 adantl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m ≤ K ⁢ Y
217 flge ⊢ K ⁢ Y ∈ ℝ ∧ m ∈ ℤ → m ≤ K ⁢ Y ↔ m ≤ K ⁢ Y
218 109 208 217 syl2an ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m ≤ K ⁢ Y ↔ m ≤ K ⁢ Y
219 216 218 mpbird ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m ≤ K ⁢ Y
220 214 219 jca ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → Y < m ∧ m ≤ K ⁢ Y
221 220 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m → Y < m ∧ m ≤ K ⁢ Y
222 2 ad2antrr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m → E ∈ 0 1
223 4 ad2antrr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m → Y ∈ X +∞
224 simpr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m → R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
225 1 222 3 223 205 221 224 pntpbnd1a ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m → R ⁡ m m ≤ E
226 breq2 ⊢ y = m → Y < y ↔ Y < m
227 breq1 ⊢ y = m → y ≤ K ⁢ Y ↔ m ≤ K ⁢ Y
228 226 227 anbi12d ⊢ y = m → Y < y ∧ y ≤ K ⁢ Y ↔ Y < m ∧ m ≤ K ⁢ Y
229 fveq2 ⊢ y = m → R ⁡ y = R ⁡ m
230 id ⊢ y = m → y = m
231 229 230 oveq12d ⊢ y = m → R ⁡ y y = R ⁡ m m
232 231 fveq2d ⊢ y = m → R ⁡ y y = R ⁡ m m
233 232 breq1d ⊢ y = m → R ⁡ y y ≤ E ↔ R ⁡ m m ≤ E
234 228 233 anbi12d ⊢ y = m → Y < y ∧ y ≤ K ⁢ Y ∧ R ⁡ y y ≤ E ↔ Y < m ∧ m ≤ K ⁢ Y ∧ R ⁡ m m ≤ E
235 234 rspcev ⊢ m ∈ ℕ ∧ Y < m ∧ m ≤ K ⁢ Y ∧ R ⁡ m m ≤ E → ∃ y ∈ ℕ Y < y ∧ y ≤ K ⁢ Y ∧ R ⁡ y y ≤ E
236 205 221 225 235 syl12anc ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m → ∃ y ∈ ℕ Y < y ∧ y ≤ K ⁢ Y ∧ R ⁡ y y ≤ E
237 202 236 mtand ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ¬ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
238 237 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m → ¬ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
239 204 nnrpd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m ∈ ℝ +
240 41 ffvelcdmi ⊢ m ∈ ℝ + → R ⁡ m ∈ ℝ
241 239 240 syl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → R ⁡ m ∈ ℝ
242 241 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m ∈ ℝ
243 242 recnd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m ∈ ℂ
244 243 subid1d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m − 0 = R ⁡ m
245 204 peano2nnd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m + 1 ∈ ℕ
246 245 nnrpd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → m + 1 ∈ ℝ +
247 41 ffvelcdmi ⊢ m + 1 ∈ ℝ + → R ⁡ m + 1 ∈ ℝ
248 246 247 syl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → R ⁡ m + 1 ∈ ℝ
249 248 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m + 1 ∈ ℝ
250 0red ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → 0 ∈ ℝ
251 0re ⊢ 0 ∈ ℝ
252 letric ⊢ 0 ∈ ℝ ∧ R ⁡ m + 1 ∈ ℝ → 0 ≤ R ⁡ m + 1 ∨ R ⁡ m + 1 ≤ 0
253 251 248 252 sylancr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → 0 ≤ R ⁡ m + 1 ∨ R ⁡ m + 1 ≤ 0
254 253 ord ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m + 1 ≤ 0
255 254 imp ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m + 1 ≤ 0
256 255 adantrl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m + 1 ≤ 0
257 249 250 242 256 lesub2dd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m − 0 ≤ R ⁡ m − R ⁡ m + 1
258 244 257 eqbrtrrd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m ≤ R ⁡ m − R ⁡ m + 1
259 simprl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → 0 ≤ R ⁡ m
260 242 259 absidd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m = R ⁡ m
261 249 250 242 256 259 letrd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m + 1 ≤ R ⁡ m
262 249 242 261 abssuble0d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m + 1 − R ⁡ m = R ⁡ m − R ⁡ m + 1
263 258 260 262 3brtr4d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m ∧ ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
264 263 expr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m → ¬ 0 ≤ R ⁡ m + 1 → R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
265 238 264 mt3d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ 0 ≤ R ⁡ m → 0 ≤ R ⁡ m + 1
266 265 ex ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → 0 ≤ R ⁡ m → 0 ≤ R ⁡ m + 1
267 201 266 syld ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i → 0 ≤ R ⁡ m + 1
268 ovex ⊢ m + 1 ∈ V
269 fveq2 ⊢ i = m + 1 → R ⁡ i = R ⁡ m + 1
270 269 breq2d ⊢ i = m + 1 → 0 ≤ R ⁡ i ↔ 0 ≤ R ⁡ m + 1
271 268 270 ralsn ⊢ ∀ i ∈ m + 1 0 ≤ R ⁡ i ↔ 0 ≤ R ⁡ m + 1
272 267 271 imbitrrdi ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i → ∀ i ∈ m + 1 0 ≤ R ⁡ i
273 272 ancld ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∧ ∀ i ∈ m + 1 0 ≤ R ⁡ i
274 fzsuc ⊢ m ∈ ℤ ≥ Y + 1 → Y + 1 … m + 1 = Y + 1 … m ∪ m + 1
275 195 274 syl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → Y + 1 … m + 1 = Y + 1 … m ∪ m + 1
276 275 raleqdv ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 … m ∪ m + 1 0 ≤ R ⁡ i
277 ralunb ⊢ ∀ i ∈ Y + 1 … m ∪ m + 1 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∧ ∀ i ∈ m + 1 0 ≤ R ⁡ i
278 276 277 bitrdi ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ↔ ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∧ ∀ i ∈ m + 1 0 ≤ R ⁡ i
279 273 278 sylibrd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i
280 198 breq1d ⊢ i = m → R ⁡ i ≤ 0 ↔ R ⁡ m ≤ 0
281 280 rspcv ⊢ m ∈ Y + 1 … m → ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → R ⁡ m ≤ 0
282 197 281 syl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → R ⁡ m ≤ 0
283 237 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 → ¬ R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
284 254 con1d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ¬ R ⁡ m + 1 ≤ 0 → 0 ≤ R ⁡ m + 1
285 284 imp ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ ¬ R ⁡ m + 1 ≤ 0 → 0 ≤ R ⁡ m + 1
286 285 adantrl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → 0 ≤ R ⁡ m + 1
287 241 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m ∈ ℝ
288 287 renegcld ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → − R ⁡ m ∈ ℝ
289 248 adantr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m + 1 ∈ ℝ
290 288 289 addge02d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → 0 ≤ R ⁡ m + 1 ↔ − R ⁡ m ≤ R ⁡ m + 1 + − R ⁡ m
291 286 290 mpbid ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → − R ⁡ m ≤ R ⁡ m + 1 + − R ⁡ m
292 289 recnd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m + 1 ∈ ℂ
293 287 recnd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m ∈ ℂ
294 292 293 negsubd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m + 1 + − R ⁡ m = R ⁡ m + 1 − R ⁡ m
295 291 294 breqtrd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → − R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
296 simprl ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m ≤ 0
297 287 296 absnidd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m = − R ⁡ m
298 0red ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → 0 ∈ ℝ
299 287 298 289 296 286 letrd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m ≤ R ⁡ m + 1
300 287 289 299 abssubge0d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m + 1 − R ⁡ m = R ⁡ m + 1 − R ⁡ m
301 295 297 300 3brtr4d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 ∧ ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
302 301 expr ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 → ¬ R ⁡ m + 1 ≤ 0 → R ⁡ m ≤ R ⁡ m + 1 − R ⁡ m
303 283 302 mt3d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y ∧ R ⁡ m ≤ 0 → R ⁡ m + 1 ≤ 0
304 303 ex ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → R ⁡ m ≤ 0 → R ⁡ m + 1 ≤ 0
305 282 304 syld ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → R ⁡ m + 1 ≤ 0
306 269 breq1d ⊢ i = m + 1 → R ⁡ i ≤ 0 ↔ R ⁡ m + 1 ≤ 0
307 268 306 ralsn ⊢ ∀ i ∈ m + 1 R ⁡ i ≤ 0 ↔ R ⁡ m + 1 ≤ 0
308 305 307 imbitrrdi ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ m + 1 R ⁡ i ≤ 0
309 308 ancld ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 ∧ ∀ i ∈ m + 1 R ⁡ i ≤ 0
310 275 raleqdv ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … m ∪ m + 1 R ⁡ i ≤ 0
311 ralunb ⊢ ∀ i ∈ Y + 1 … m ∪ m + 1 R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 ∧ ∀ i ∈ m + 1 R ⁡ i ≤ 0
312 310 311 bitrdi ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0 ↔ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 ∧ ∀ i ∈ m + 1 R ⁡ i ≤ 0
313 309 312 sylibrd ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
314 279 313 orim12d ⊢ φ ∧ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
315 193 314 jaodan ⊢ φ ∧ m = Y ∨ m ∈ Y + 1 … K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
316 168 315 syldan ⊢ φ ∧ m ∈ Y ..^ K ⁢ Y → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
317 316 expcom ⊢ m ∈ Y ..^ K ⁢ Y → φ → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
318 317 a2d ⊢ m ∈ Y ..^ K ⁢ Y → φ → ∀ i ∈ Y + 1 … m 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m R ⁡ i ≤ 0 → φ → ∀ i ∈ Y + 1 … m + 1 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … m + 1 R ⁡ i ≤ 0
319 136 141 146 151 163 318 fzind2 ⊢ K ⁢ Y ∈ Y … K ⁢ Y → φ → ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0
320 131 319 mpcom ⊢ φ → ∀ i ∈ Y + 1 … K ⁢ Y 0 ≤ R ⁡ i ∨ ∀ i ∈ Y + 1 … K ⁢ Y R ⁡ i ≤ 0
321 63 97 320 mpjaodan ⊢ φ → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
322 fveq2 ⊢ y = n → R ⁡ y = R ⁡ n
323 id ⊢ y = n → y = n
324 oveq1 ⊢ y = n → y + 1 = n + 1
325 323 324 oveq12d ⊢ y = n → y ⁢ y + 1 = n ⁢ n + 1
326 322 325 oveq12d ⊢ y = n → R ⁡ y y ⁢ y + 1 = R ⁡ n n ⁢ n + 1
327 326 cbvsumv ⊢ ∑ y = i j R ⁡ y y ⁢ y + 1 = ∑ n = i j R ⁡ n n ⁢ n + 1
328 oveq1 ⊢ i = Y + 1 → i … j = Y + 1 … j
329 328 sumeq1d ⊢ i = Y + 1 → ∑ n = i j R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 j R ⁡ n n ⁢ n + 1
330 327 329 eqtrid ⊢ i = Y + 1 → ∑ y = i j R ⁡ y y ⁢ y + 1 = ∑ n = Y + 1 j R ⁡ n n ⁢ n + 1
331 330 fveq2d ⊢ i = Y + 1 → ∑ y = i j R ⁡ y y ⁢ y + 1 = ∑ n = Y + 1 j R ⁡ n n ⁢ n + 1
332 331 breq1d ⊢ i = Y + 1 → ∑ y = i j R ⁡ y y ⁢ y + 1 ≤ A ↔ ∑ n = Y + 1 j R ⁡ n n ⁢ n + 1 ≤ A
333 oveq2 ⊢ j = K ⁢ Y → Y + 1 … j = Y + 1 … K ⁢ Y
334 333 sumeq1d ⊢ j = K ⁢ Y → ∑ n = Y + 1 j R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
335 334 fveq2d ⊢ j = K ⁢ Y → ∑ n = Y + 1 j R ⁡ n n ⁢ n + 1 = ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1
336 335 breq1d ⊢ j = K ⁢ Y → ∑ n = Y + 1 j R ⁡ n n ⁢ n + 1 ≤ A ↔ ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ≤ A
337 332 336 rspc2va ⊢ Y + 1 ∈ ℕ ∧ K ⁢ Y ∈ ℤ ∧ ∀ i ∈ ℕ ∀ j ∈ ℤ ∑ y = i j R ⁡ y y ⁢ y + 1 ≤ A → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ≤ A
338 36 127 6 337 syl21anc ⊢ φ → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ≤ A
339 321 338 eqbrtrrd ⊢ φ → ∑ n = Y + 1 K ⁢ Y R ⁡ n n ⁢ n + 1 ≤ A