Metamath Proof Explorer


Theorem esumgect

Description: "Send n to +oo " in an inequality with an extended sum. (Contributed by Thierry Arnoux, 24-May-2020)

Ref Expression
Hypotheses esumsup.1 ⊢ φ → B ∈ 0 +∞
esumsup.2 ⊢ φ ∧ k ∈ ℕ → A ∈ 0 +∞
esumgect.1 ⊢ φ ∧ n ∈ ℕ → ∑ * k = 1 n A ≤ B
Assertion esumgect ⊢ φ → ∑ * k ∈ ℕ A ≤ B

Proof

Step Hyp Ref Expression
1 esumsup.1 ⊢ φ → B ∈ 0 +∞
2 esumsup.2 ⊢ φ ∧ k ∈ ℕ → A ∈ 0 +∞
3 esumgect.1 ⊢ φ ∧ n ∈ ℕ → ∑ * k = 1 n A ≤ B
4 1 2 esumsup ⊢ φ → ∑ * k ∈ ℕ A = sup ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ℝ * <
5 nfv ⊢ Ⅎ n φ
6 nfcv ⊢ Ⅎ _ n z
7 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ ∑ * k = 1 n A
8 7 nfrn ⊢ Ⅎ _ n ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A
9 6 8 nfel ⊢ Ⅎ n z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A
10 5 9 nfan ⊢ Ⅎ n φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A
11 simpr ⊢ φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ∧ n ∈ ℕ ∧ z = ∑ * k = 1 n A → z = ∑ * k = 1 n A
12 simplll ⊢ φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ∧ n ∈ ℕ ∧ z = ∑ * k = 1 n A → φ
13 simplr ⊢ φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ∧ n ∈ ℕ ∧ z = ∑ * k = 1 n A → n ∈ ℕ
14 12 13 3 syl2anc ⊢ φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ∧ n ∈ ℕ ∧ z = ∑ * k = 1 n A → ∑ * k = 1 n A ≤ B
15 11 14 eqbrtrd ⊢ φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ∧ n ∈ ℕ ∧ z = ∑ * k = 1 n A → z ≤ B
16 eqid ⊢ n ∈ ℕ ⟼ ∑ * k = 1 n A = n ∈ ℕ ⟼ ∑ * k = 1 n A
17 esumex ⊢ ∑ * k = 1 n A ∈ V
18 16 17 elrnmpti ⊢ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ↔ ∃ n ∈ ℕ z = ∑ * k = 1 n A
19 18 bilani ⊢ φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A → ∃ n ∈ ℕ z = ∑ * k = 1 n A
20 10 15 19 r19.29af ⊢ φ ∧ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A → z ≤ B
21 20 ralrimiva ⊢ φ → ∀ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A z ≤ B
22 ovexd ⊢ φ ∧ n ∈ ℕ → 1 … n ∈ V
23 simpll ⊢ φ ∧ n ∈ ℕ ∧ k ∈ 1 … n → φ
24 fz1ssnn ⊢ 1 … n ⊆ ℕ
25 24 a1i ⊢ φ ∧ n ∈ ℕ → 1 … n ⊆ ℕ
26 25 sselda ⊢ φ ∧ n ∈ ℕ ∧ k ∈ 1 … n → k ∈ ℕ
27 23 26 2 syl2anc ⊢ φ ∧ n ∈ ℕ ∧ k ∈ 1 … n → A ∈ 0 +∞
28 27 ralrimiva ⊢ φ ∧ n ∈ ℕ → ∀ k ∈ 1 … n A ∈ 0 +∞
29 nfcv ⊢ Ⅎ _ k 1 … n
30 29 esumcl ⊢ 1 … n ∈ V ∧ ∀ k ∈ 1 … n A ∈ 0 +∞ → ∑ * k = 1 n A ∈ 0 +∞
31 22 28 30 syl2anc ⊢ φ ∧ n ∈ ℕ → ∑ * k = 1 n A ∈ 0 +∞
32 31 ralrimiva ⊢ φ → ∀ n ∈ ℕ ∑ * k = 1 n A ∈ 0 +∞
33 16 rnmptss ⊢ ∀ n ∈ ℕ ∑ * k = 1 n A ∈ 0 +∞ → ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ⊆ 0 +∞
34 32 33 syl ⊢ φ → ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ⊆ 0 +∞
35 iccssxr ⊢ 0 +∞ ⊆ ℝ *
36 34 35 sstrdi ⊢ φ → ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ⊆ ℝ *
37 35 1 sselid ⊢ φ → B ∈ ℝ *
38 supxrleub ⊢ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ⊆ ℝ * ∧ B ∈ ℝ * → sup ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ℝ * < ≤ B ↔ ∀ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A z ≤ B
39 36 37 38 syl2anc ⊢ φ → sup ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ℝ * < ≤ B ↔ ∀ z ∈ ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A z ≤ B
40 21 39 mpbird ⊢ φ → sup ran ⁡ n ∈ ℕ ⟼ ∑ * k = 1 n A ℝ * < ≤ B
41 4 40 eqbrtrd ⊢ φ → ∑ * k ∈ ℕ A ≤ B