Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  sge0iunmpt Structured version   Visualization version   GIF version

Theorem sge0iunmpt 47080
Description: Sum of nonnegative extended reals over a disjoint indexed union. (Contributed by Glauco Siliprandi, 17-Aug-2020.)
Hypotheses
Ref Expression
sge0iunmpt.a (𝜑𝐴𝑉)
sge0iunmpt.b ((𝜑𝑥𝐴) → 𝐵𝑊)
sge0iunmpt.dj (𝜑Disj 𝑥𝐴 𝐵)
sge0iunmpt.c ((𝜑𝑥𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
Assertion
Ref Expression
sge0iunmpt (𝜑 → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
Distinct variable groups:   𝐴,𝑘,𝑥   𝐵,𝑘   𝑥,𝐶   𝑥,𝑊   𝜑,𝑘,𝑥
Allowed substitution hints:   𝐵(𝑥)   𝐶(𝑘)   𝑉(𝑥,𝑘)   𝑊(𝑘)

Proof of Theorem sge0iunmpt
Dummy variables 𝑗 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nfv 1942 . . . 4 𝑥𝜑
2 nfcv 2923 . . . . . 6 𝑥Σ^
3 nfiu1 4991 . . . . . . 7 𝑥 𝑥𝐴 𝐵
4 nfcv 2923 . . . . . . 7 𝑥𝐶
53, 4nfmpt 5208 . . . . . 6 𝑥(𝑘 𝑥𝐴 𝐵𝐶)
62, 5nffv 6891 . . . . 5 𝑥^‘(𝑘 𝑥𝐴 𝐵𝐶))
7 nfmpt1 5209 . . . . . 6 𝑥(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))
82, 7nffv 6891 . . . . 5 𝑥^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
96, 8nfeq 2936 . . . 4 𝑥^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
10 sge0iunmpt.a . . . . . . . . . 10 (𝜑𝐴𝑉)
11 sge0iunmpt.b . . . . . . . . . . 11 ((𝜑𝑥𝐴) → 𝐵𝑊)
1211ralrimiva 3155 . . . . . . . . . 10 (𝜑 → ∀𝑥𝐴 𝐵𝑊)
13 iunexg 7959 . . . . . . . . . 10 ((𝐴𝑉 ∧ ∀𝑥𝐴 𝐵𝑊) → 𝑥𝐴 𝐵 ∈ V)
1410, 12, 13syl2anc 595 . . . . . . . . 9 (𝜑 𝑥𝐴 𝐵 ∈ V)
15 eliun 4959 . . . . . . . . . . . 12 (𝑘 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑘𝐵)
1615bilani 509 . . . . . . . . . . 11 ((𝜑𝑘 𝑥𝐴 𝐵) → ∃𝑥𝐴 𝑘𝐵)
17 nfcv 2923 . . . . . . . . . . . . . 14 𝑥𝑘
1817, 3nfel 2937 . . . . . . . . . . . . 13 𝑥 𝑘 𝑥𝐴 𝐵
191, 18nfan 1927 . . . . . . . . . . . 12 𝑥(𝜑𝑘 𝑥𝐴 𝐵)
204nfel1 2939 . . . . . . . . . . . 12 𝑥 𝐶 ∈ (0[,]+∞)
21 sge0iunmpt.c . . . . . . . . . . . . . 14 ((𝜑𝑥𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
22213exp 1135 . . . . . . . . . . . . 13 (𝜑 → (𝑥𝐴 → (𝑘𝐵𝐶 ∈ (0[,]+∞))))
2322adantr 485 . . . . . . . . . . . 12 ((𝜑𝑘 𝑥𝐴 𝐵) → (𝑥𝐴 → (𝑘𝐵𝐶 ∈ (0[,]+∞))))
2419, 20, 23rexlimd 3270 . . . . . . . . . . 11 ((𝜑𝑘 𝑥𝐴 𝐵) → (∃𝑥𝐴 𝑘𝐵𝐶 ∈ (0[,]+∞)))
2516, 24mpd 16 . . . . . . . . . 10 ((𝜑𝑘 𝑥𝐴 𝐵) → 𝐶 ∈ (0[,]+∞))
26 eqid 2761 . . . . . . . . . 10 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑘 𝑥𝐴 𝐵𝐶)
2725, 26fmptd 7109 . . . . . . . . 9 (𝜑 → (𝑘 𝑥𝐴 𝐵𝐶): 𝑥𝐴 𝐵⟶(0[,]+∞))
2814, 27sge0xrcl 47047 . . . . . . . 8 (𝜑 → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) ∈ ℝ*)
29283ad2ant1 1149 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) ∈ ℝ*)
30 id 23 . . . . . . . . . . 11 ((Σ^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘𝐵𝐶)) = +∞)
3130eqcomd 2767 . . . . . . . . . 10 ((Σ^‘(𝑘𝐵𝐶)) = +∞ → +∞ = (Σ^‘(𝑘𝐵𝐶)))
3231adantl 486 . . . . . . . . 9 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ = (Σ^‘(𝑘𝐵𝐶)))
33323adant1 1146 . . . . . . . 8 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ = (Σ^‘(𝑘𝐵𝐶)))
3414adantr 485 . . . . . . . . . 10 ((𝜑𝑥𝐴) → 𝑥𝐴 𝐵 ∈ V)
3525adantlr 727 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑘 𝑥𝐴 𝐵) → 𝐶 ∈ (0[,]+∞))
36 ssiun2 5011 . . . . . . . . . . 11 (𝑥𝐴𝐵 𝑥𝐴 𝐵)
3736adantl 486 . . . . . . . . . 10 ((𝜑𝑥𝐴) → 𝐵 𝑥𝐴 𝐵)
3834, 35, 37sge0lessmpt 47061 . . . . . . . . 9 ((𝜑𝑥𝐴) → (Σ^‘(𝑘𝐵𝐶)) ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
39383adant3 1148 . . . . . . . 8 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘𝐵𝐶)) ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
4033, 39eqbrtrd 5132 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
4129, 40xrgepnfd 45995 . . . . . 6 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = +∞)
42103ad2ant1 1149 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → 𝐴𝑉)
43 nfv 1942 . . . . . . . . . . . . 13 𝑥(𝜑𝑦𝐴)
44 nfcsb1v 3876 . . . . . . . . . . . . . 14 𝑥𝑦 / 𝑥𝐵
45 nfcsb1v 3876 . . . . . . . . . . . . . 14 𝑥𝑦 / 𝑥𝑊
4644, 45nfel 2937 . . . . . . . . . . . . 13 𝑥𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊
4743, 46nfim 1924 . . . . . . . . . . . 12 𝑥((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
48 eleq1w 2844 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑥𝐴𝑦𝐴))
4948anbi2d 641 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → ((𝜑𝑥𝐴) ↔ (𝜑𝑦𝐴)))
50 csbeq1a 3866 . . . . . . . . . . . . . 14 (𝑥 = 𝑦𝐵 = 𝑦 / 𝑥𝐵)
51 csbeq1a 3866 . . . . . . . . . . . . . 14 (𝑥 = 𝑦𝑊 = 𝑦 / 𝑥𝑊)
5250, 51eleq12d 2855 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝐵𝑊𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊))
5349, 52imbi12d 347 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → 𝐵𝑊) ↔ ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)))
5447, 53, 11chvarfv 2274 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
5554adantlr 727 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
5644, 4nfmpt 5208 . . . . . . . . . . . . . 14 𝑥(𝑘𝑦 / 𝑥𝐵𝐶)
57 nfcv 2923 . . . . . . . . . . . . . 14 𝑥(0[,]+∞)
5856, 44, 57nff 6701 . . . . . . . . . . . . 13 𝑥(𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞)
5943, 58nfim 1924 . . . . . . . . . . . 12 𝑥((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6050mpteq1d 5200 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑘𝐵𝐶) = (𝑘𝑦 / 𝑥𝐵𝐶))
6160, 50feq12d 6693 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → ((𝑘𝐵𝐶):𝐵⟶(0[,]+∞) ↔ (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞)))
6249, 61imbi12d 347 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → (𝑘𝐵𝐶):𝐵⟶(0[,]+∞)) ↔ ((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))))
6322imp31 422 . . . . . . . . . . . . 13 (((𝜑𝑥𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
64 eqid 2761 . . . . . . . . . . . . 13 (𝑘𝐵𝐶) = (𝑘𝐵𝐶)
6563, 64fmptd 7109 . . . . . . . . . . . 12 ((𝜑𝑥𝐴) → (𝑘𝐵𝐶):𝐵⟶(0[,]+∞))
6659, 62, 65chvarfv 2274 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6766adantlr 727 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6855, 67sge0cl 47043 . . . . . . . . 9 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)) ∈ (0[,]+∞))
69 nfcv 2923 . . . . . . . . . 10 𝑦^‘(𝑘𝐵𝐶))
702, 56nffv 6891 . . . . . . . . . 10 𝑥^‘(𝑘𝑦 / 𝑥𝐵𝐶))
7160fveq2d 6885 . . . . . . . . . 10 (𝑥 = 𝑦 → (Σ^‘(𝑘𝐵𝐶)) = (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)))
7269, 70, 71cbvmpt 5212 . . . . . . . . 9 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑦𝐴 ↦ (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)))
7368, 72fmptd 7109 . . . . . . . 8 ((𝜑𝑥𝐴) → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
74733adant3 1148 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
75 id 23 . . . . . . . . . . 11 (𝑥𝐴𝑥𝐴)
76 fvexd 6896 . . . . . . . . . . 11 (𝑥𝐴 → (Σ^‘(𝑘𝐵𝐶)) ∈ V)
77 eqid 2761 . . . . . . . . . . . 12 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))
7877elrnmpt1 5950 . . . . . . . . . . 11 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) ∈ V) → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
7975, 76, 78syl2anc 595 . . . . . . . . . 10 (𝑥𝐴 → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8079adantr 485 . . . . . . . . 9 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8132, 80eqeltrd 2861 . . . . . . . 8 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
82813adant1 1146 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8342, 74, 82sge0pnfval 47035 . . . . . 6 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = +∞)
8441, 83eqtr4d 2799 . . . . 5 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
85843exp 1135 . . . 4 (𝜑 → (𝑥𝐴 → ((Σ^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))))
861, 9, 85rexlimd 3270 . . 3 (𝜑 → (∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))))
8786imp 411 . 2 ((𝜑 ∧ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
88 simpl 487 . . 3 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → 𝜑)
89 ralnex 3089 . . . . 5 (∀𝑥𝐴 ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞)
90 df-ne 2957 . . . . . . 7 ((Σ^‘(𝑘𝐵𝐶)) ≠ +∞ ↔ ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞)
9190bicomi 227 . . . . . 6 (¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ (Σ^‘(𝑘𝐵𝐶)) ≠ +∞)
9291ralbii 3109 . . . . 5 (∀𝑥𝐴 ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9389, 92sylbb1 240 . . . 4 (¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞ → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9493adantl 486 . . 3 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9510adantr 485 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝐴𝑉)
96 nfcv 2923 . . . . . . . . 9 𝑥𝑊
9744, 96nfel 2937 . . . . . . . 8 𝑥𝑦 / 𝑥𝐵𝑊
9843, 97nfim 1924 . . . . . . 7 𝑥((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
9950eleq1d 2846 . . . . . . . 8 (𝑥 = 𝑦 → (𝐵𝑊𝑦 / 𝑥𝐵𝑊))
10049, 99imbi12d 347 . . . . . . 7 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → 𝐵𝑊) ↔ ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)))
10198, 100, 11chvarfv 2274 . . . . . 6 ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
102101adantlr 727 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
103 sge0iunmpt.dj . . . . . . 7 (𝜑Disj 𝑥𝐴 𝐵)
104 nfcv 2923 . . . . . . . 8 𝑦𝐵
105104, 44, 50cbvdisj 5085 . . . . . . 7 (Disj 𝑥𝐴 𝐵Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
106103, 105sylib 221 . . . . . 6 (𝜑Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
107106adantr 485 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
108 nfv 1942 . . . . . . . 8 𝑘(𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵)
109 nfcsb1v 3876 . . . . . . . . 9 𝑘𝑗 / 𝑘𝐶
110109nfel1 2939 . . . . . . . 8 𝑘𝑗 / 𝑘𝐶 ∈ (0[,]+∞)
111108, 110nfim 1924 . . . . . . 7 𝑘((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
112 eleq1w 2844 . . . . . . . . 9 (𝑘 = 𝑗 → (𝑘𝑦 / 𝑥𝐵𝑗𝑦 / 𝑥𝐵))
1131123anbi3d 1468 . . . . . . . 8 (𝑘 = 𝑗 → ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) ↔ (𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵)))
114 csbeq1a 3866 . . . . . . . . 9 (𝑘 = 𝑗𝐶 = 𝑗 / 𝑘𝐶)
115114eleq1d 2846 . . . . . . . 8 (𝑘 = 𝑗 → (𝐶 ∈ (0[,]+∞) ↔ 𝑗 / 𝑘𝐶 ∈ (0[,]+∞)))
116113, 115imbi12d 347 . . . . . . 7 (𝑘 = 𝑗 → (((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞)) ↔ ((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
117 nfv 1942 . . . . . . . . . 10 𝑥 𝑦𝐴
11817, 44nfel 2937 . . . . . . . . . 10 𝑥 𝑘𝑦 / 𝑥𝐵
1191, 117, 118nf3an 1929 . . . . . . . . 9 𝑥(𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵)
120119, 20nfim 1924 . . . . . . . 8 𝑥((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))
12150eleq2d 2847 . . . . . . . . . 10 (𝑥 = 𝑦 → (𝑘𝐵𝑘𝑦 / 𝑥𝐵))
12248, 1213anbi23d 1465 . . . . . . . . 9 (𝑥 = 𝑦 → ((𝜑𝑥𝐴𝑘𝐵) ↔ (𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵)))
123122imbi1d 344 . . . . . . . 8 (𝑥 = 𝑦 → (((𝜑𝑥𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞)) ↔ ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))))
124120, 123, 21chvarfv 2274 . . . . . . 7 ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))
125111, 116, 124chvarfv 2274 . . . . . 6 ((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
1261253adant1r 1194 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
127 simpr 489 . . . . . . . . 9 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → 𝑦𝐴)
128 simpl 487 . . . . . . . . 9 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
129 simpl 487 . . . . . . . . . 10 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝑦𝐴)
130 simpr 489 . . . . . . . . . 10 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
131 nfcv 2923 . . . . . . . . . . . . . 14 𝑥𝑗 / 𝑘𝐶
13244, 131nfmpt 5208 . . . . . . . . . . . . 13 𝑥(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
1332, 132nffv 6891 . . . . . . . . . . . 12 𝑥^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
134 nfcv 2923 . . . . . . . . . . . 12 𝑥+∞
135133, 134nfne 3059 . . . . . . . . . . 11 𝑥^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞
136 nfcv 2923 . . . . . . . . . . . . . . . 16 𝑗𝐶
137136, 109, 114cbvmpt 5212 . . . . . . . . . . . . . . 15 (𝑘𝑦 / 𝑥𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
138137a1i 11 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑘𝑦 / 𝑥𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
13960, 138eqtrd 2796 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝑘𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
140139fveq2d 6885 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (Σ^‘(𝑘𝐵𝐶)) = (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
141140neeq1d 3015 . . . . . . . . . . 11 (𝑥 = 𝑦 → ((Σ^‘(𝑘𝐵𝐶)) ≠ +∞ ↔ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞))
142135, 141rspc 3568 . . . . . . . . . 10 (𝑦𝐴 → (∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞))
143129, 130, 142sylc 66 . . . . . . . . 9 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞)
144127, 128, 143syl2anc 595 . . . . . . . 8 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞)
145144neneqd 2961 . . . . . . 7 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞)
146145adantll 726 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞)
1471253expa 1134 . . . . . . . . 9 (((𝜑𝑦𝐴) ∧ 𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
148 eqid 2761 . . . . . . . . 9 (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
149147, 148fmptd 7109 . . . . . . . 8 ((𝜑𝑦𝐴) → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
150149adantlr 727 . . . . . . 7 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
151102, 150sge0repnf 47048 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → ((Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ ↔ ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞))
152146, 151mpbird 260 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ)
153136, 109, 114cbvmpt 5212 . . . . . . . . 9 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑗 𝑥𝐴 𝐵𝑗 / 𝑘𝐶)
154104, 44, 50cbviun 4998 . . . . . . . . . 10 𝑥𝐴 𝐵 = 𝑦𝐴 𝑦 / 𝑥𝐵
155154mpteq1i 5201 . . . . . . . . 9 (𝑗 𝑥𝐴 𝐵𝑗 / 𝑘𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
156153, 155eqtri 2784 . . . . . . . 8 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
157156fveq2i 6884 . . . . . . 7 ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
158157, 28eqeltrrid 2866 . . . . . 6 (𝜑 → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ*)
159158adantr 485 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ*)
16069, 133, 140cbvmpt 5212 . . . . . . . 8 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
161160fveq2i 6884 . . . . . . 7 ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))))
16211, 65sge0cl 47043 . . . . . . . . 9 ((𝜑𝑥𝐴) → (Σ^‘(𝑘𝐵𝐶)) ∈ (0[,]+∞))
163162, 77fmptd 7109 . . . . . . . 8 (𝜑 → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
16410, 163sge0xrcl 47047 . . . . . . 7 (𝜑 → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) ∈ ℝ*)
165161, 164eqeltrrid 2866 . . . . . 6 (𝜑 → (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))) ∈ ℝ*)
166165adantr 485 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))) ∈ ℝ*)
167 eliun 4959 . . . . . . . . 9 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵 ↔ ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
168167bilani 509 . . . . . . . 8 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
169 nfv 1942 . . . . . . . . . 10 𝑦𝜑
170 nfcv 2923 . . . . . . . . . . 11 𝑦𝑗
171 nfiu1 4991 . . . . . . . . . . 11 𝑦 𝑦𝐴 𝑦 / 𝑥𝐵
172170, 171nfel 2937 . . . . . . . . . 10 𝑦 𝑗 𝑦𝐴 𝑦 / 𝑥𝐵
173169, 172nfan 1927 . . . . . . . . 9 𝑦(𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵)
174 nfv 1942 . . . . . . . . 9 𝑦𝑗 / 𝑘𝐶 ∈ (0[,]+∞)
175147exp31 424 . . . . . . . . . 10 (𝜑 → (𝑦𝐴 → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
176175adantr 485 . . . . . . . . 9 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → (𝑦𝐴 → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
177173, 174, 176rexlimd 3270 . . . . . . . 8 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → (∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞)))
178168, 177mpd 16 . . . . . . 7 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
179 eqid 2761 . . . . . . 7 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
180178, 179fmptd 7109 . . . . . 6 (𝜑 → (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶): 𝑦𝐴 𝑦 / 𝑥𝐵⟶(0[,]+∞))
181180adantr 485 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶): 𝑦𝐴 𝑦 / 𝑥𝐵⟶(0[,]+∞))
182154, 14eqeltrrid 2866 . . . . . 6 (𝜑 𝑦𝐴 𝑦 / 𝑥𝐵 ∈ V)
183182adantr 485 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝑦𝐴 𝑦 / 𝑥𝐵 ∈ V)
18495, 102, 107, 126, 152, 159, 166, 181, 183sge0iunmptlemre 47077 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))))
185157a1i 11 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
186161a1i 11 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))))
187184, 185, 1863eqtr4d 2806 . . 3 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
18888, 94, 187syl2anc 595 . 2 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
18987, 188pm2.61dan 824 1 (𝜑 → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 400  w3a 1101   = wceq 1568  wcel 2141  wne 2956  wral 3077  wrex 3087  Vcvv 3453  csb 3852  wss 3904   ciun 4955  Disj wdisj 5075   class class class wbr 5108  cmpt 5191  ran crn 5662  wf 6532  cfv 6536  (class class class)co 7410  cr 11098  0cc0 11099  +∞cpnf 11239  *cxr 11241  cle 11243  [,]cicc 13374  Σ^csumge0 47024
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-inf2 9609  ax-ac2 10446  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176  ax-pre-sup 11177
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-int 4912  df-iun 4957  df-disj 5076  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7862  df-1st 7985  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-er 8693  df-map 8825  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-sup 9401  df-oi 9471  df-card 9924  df-acn 9927  df-ac 10099  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-div 11871  df-nn 12233  df-2 12302  df-3 12303  df-n0 12504  df-z 12591  df-uz 12862  df-rp 13016  df-xadd 13137  df-ico 13377  df-icc 13378  df-fz 13535  df-fzo 13682  df-seq 14037  df-exp 14097  df-hash 14366  df-cj 15149  df-re 15150  df-im 15151  df-sqrt 15285  df-abs 15286  df-clim 15538  df-sum 15737  df-sumge0 47025
This theorem is referenced by:  sge0iun  47081  sge0xp  47091
  Copyright terms: Public domain W3C validator