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 43631
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 1922 . . . 4 𝑥𝜑
2 nfcv 2904 . . . . . 6 𝑥Σ^
3 nfiu1 4938 . . . . . . 7 𝑥 𝑥𝐴 𝐵
4 nfcv 2904 . . . . . . 7 𝑥𝐶
53, 4nfmpt 5152 . . . . . 6 𝑥(𝑘 𝑥𝐴 𝐵𝐶)
62, 5nffv 6727 . . . . 5 𝑥^‘(𝑘 𝑥𝐴 𝐵𝐶))
7 nfmpt1 5153 . . . . . 6 𝑥(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))
82, 7nffv 6727 . . . . 5 𝑥^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
96, 8nfeq 2917 . . . 4 𝑥^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
10 sge0iunmpt.a . . . . . . . . . 10 (𝜑𝐴𝑉)
11 sge0iunmpt.b . . . . . . . . . . 11 ((𝜑𝑥𝐴) → 𝐵𝑊)
1211ralrimiva 3105 . . . . . . . . . 10 (𝜑 → ∀𝑥𝐴 𝐵𝑊)
13 iunexg 7736 . . . . . . . . . 10 ((𝐴𝑉 ∧ ∀𝑥𝐴 𝐵𝑊) → 𝑥𝐴 𝐵 ∈ V)
1410, 12, 13syl2anc 587 . . . . . . . . 9 (𝜑 𝑥𝐴 𝐵 ∈ V)
15 eliun 4908 . . . . . . . . . . . . 13 (𝑘 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑘𝐵)
1615biimpi 219 . . . . . . . . . . . 12 (𝑘 𝑥𝐴 𝐵 → ∃𝑥𝐴 𝑘𝐵)
1716adantl 485 . . . . . . . . . . 11 ((𝜑𝑘 𝑥𝐴 𝐵) → ∃𝑥𝐴 𝑘𝐵)
18 nfcv 2904 . . . . . . . . . . . . . 14 𝑥𝑘
1918, 3nfel 2918 . . . . . . . . . . . . 13 𝑥 𝑘 𝑥𝐴 𝐵
201, 19nfan 1907 . . . . . . . . . . . 12 𝑥(𝜑𝑘 𝑥𝐴 𝐵)
214nfel1 2920 . . . . . . . . . . . 12 𝑥 𝐶 ∈ (0[,]+∞)
22 sge0iunmpt.c . . . . . . . . . . . . . 14 ((𝜑𝑥𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
23223exp 1121 . . . . . . . . . . . . 13 (𝜑 → (𝑥𝐴 → (𝑘𝐵𝐶 ∈ (0[,]+∞))))
2423adantr 484 . . . . . . . . . . . 12 ((𝜑𝑘 𝑥𝐴 𝐵) → (𝑥𝐴 → (𝑘𝐵𝐶 ∈ (0[,]+∞))))
2520, 21, 24rexlimd 3236 . . . . . . . . . . 11 ((𝜑𝑘 𝑥𝐴 𝐵) → (∃𝑥𝐴 𝑘𝐵𝐶 ∈ (0[,]+∞)))
2617, 25mpd 15 . . . . . . . . . 10 ((𝜑𝑘 𝑥𝐴 𝐵) → 𝐶 ∈ (0[,]+∞))
27 eqid 2737 . . . . . . . . . 10 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑘 𝑥𝐴 𝐵𝐶)
2826, 27fmptd 6931 . . . . . . . . 9 (𝜑 → (𝑘 𝑥𝐴 𝐵𝐶): 𝑥𝐴 𝐵⟶(0[,]+∞))
2914, 28sge0xrcl 43598 . . . . . . . 8 (𝜑 → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) ∈ ℝ*)
30293ad2ant1 1135 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) ∈ ℝ*)
31 id 22 . . . . . . . . . . 11 ((Σ^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘𝐵𝐶)) = +∞)
3231eqcomd 2743 . . . . . . . . . 10 ((Σ^‘(𝑘𝐵𝐶)) = +∞ → +∞ = (Σ^‘(𝑘𝐵𝐶)))
3332adantl 485 . . . . . . . . 9 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ = (Σ^‘(𝑘𝐵𝐶)))
34333adant1 1132 . . . . . . . 8 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ = (Σ^‘(𝑘𝐵𝐶)))
3514adantr 484 . . . . . . . . . 10 ((𝜑𝑥𝐴) → 𝑥𝐴 𝐵 ∈ V)
3626adantlr 715 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑘 𝑥𝐴 𝐵) → 𝐶 ∈ (0[,]+∞))
37 ssiun2 4956 . . . . . . . . . . 11 (𝑥𝐴𝐵 𝑥𝐴 𝐵)
3837adantl 485 . . . . . . . . . 10 ((𝜑𝑥𝐴) → 𝐵 𝑥𝐴 𝐵)
3935, 36, 38sge0lessmpt 43612 . . . . . . . . 9 ((𝜑𝑥𝐴) → (Σ^‘(𝑘𝐵𝐶)) ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
40393adant3 1134 . . . . . . . 8 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘𝐵𝐶)) ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
4134, 40eqbrtrd 5075 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
4230, 41xrgepnfd 42543 . . . . . 6 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = +∞)
43103ad2ant1 1135 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → 𝐴𝑉)
44 nfv 1922 . . . . . . . . . . . . 13 𝑥(𝜑𝑦𝐴)
45 nfcsb1v 3836 . . . . . . . . . . . . . 14 𝑥𝑦 / 𝑥𝐵
46 nfcsb1v 3836 . . . . . . . . . . . . . 14 𝑥𝑦 / 𝑥𝑊
4745, 46nfel 2918 . . . . . . . . . . . . 13 𝑥𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊
4844, 47nfim 1904 . . . . . . . . . . . 12 𝑥((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
49 eleq1w 2820 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑥𝐴𝑦𝐴))
5049anbi2d 632 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → ((𝜑𝑥𝐴) ↔ (𝜑𝑦𝐴)))
51 csbeq1a 3825 . . . . . . . . . . . . . 14 (𝑥 = 𝑦𝐵 = 𝑦 / 𝑥𝐵)
52 csbeq1a 3825 . . . . . . . . . . . . . 14 (𝑥 = 𝑦𝑊 = 𝑦 / 𝑥𝑊)
5351, 52eleq12d 2832 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝐵𝑊𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊))
5450, 53imbi12d 348 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → 𝐵𝑊) ↔ ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)))
5548, 54, 11chvarfv 2238 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
5655adantlr 715 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
5745, 4nfmpt 5152 . . . . . . . . . . . . . 14 𝑥(𝑘𝑦 / 𝑥𝐵𝐶)
58 nfcv 2904 . . . . . . . . . . . . . 14 𝑥(0[,]+∞)
5957, 45, 58nff 6541 . . . . . . . . . . . . 13 𝑥(𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞)
6044, 59nfim 1904 . . . . . . . . . . . 12 𝑥((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6151mpteq1d 5144 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑘𝐵𝐶) = (𝑘𝑦 / 𝑥𝐵𝐶))
6261, 51feq12d 6533 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → ((𝑘𝐵𝐶):𝐵⟶(0[,]+∞) ↔ (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞)))
6350, 62imbi12d 348 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → (𝑘𝐵𝐶):𝐵⟶(0[,]+∞)) ↔ ((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))))
6423imp31 421 . . . . . . . . . . . . 13 (((𝜑𝑥𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
65 eqid 2737 . . . . . . . . . . . . 13 (𝑘𝐵𝐶) = (𝑘𝐵𝐶)
6664, 65fmptd 6931 . . . . . . . . . . . 12 ((𝜑𝑥𝐴) → (𝑘𝐵𝐶):𝐵⟶(0[,]+∞))
6760, 63, 66chvarfv 2238 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6867adantlr 715 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6956, 68sge0cl 43594 . . . . . . . . 9 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)) ∈ (0[,]+∞))
70 nfcv 2904 . . . . . . . . . 10 𝑦^‘(𝑘𝐵𝐶))
712, 57nffv 6727 . . . . . . . . . 10 𝑥^‘(𝑘𝑦 / 𝑥𝐵𝐶))
7261fveq2d 6721 . . . . . . . . . 10 (𝑥 = 𝑦 → (Σ^‘(𝑘𝐵𝐶)) = (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)))
7370, 71, 72cbvmpt 5156 . . . . . . . . 9 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑦𝐴 ↦ (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)))
7469, 73fmptd 6931 . . . . . . . 8 ((𝜑𝑥𝐴) → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
75743adant3 1134 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
76 id 22 . . . . . . . . . . 11 (𝑥𝐴𝑥𝐴)
77 fvexd 6732 . . . . . . . . . . 11 (𝑥𝐴 → (Σ^‘(𝑘𝐵𝐶)) ∈ V)
78 eqid 2737 . . . . . . . . . . . 12 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))
7978elrnmpt1 5827 . . . . . . . . . . 11 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) ∈ V) → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8076, 77, 79syl2anc 587 . . . . . . . . . 10 (𝑥𝐴 → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8180adantr 484 . . . . . . . . 9 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8233, 81eqeltrd 2838 . . . . . . . 8 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
83823adant1 1132 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8443, 75, 83sge0pnfval 43586 . . . . . 6 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = +∞)
8542, 84eqtr4d 2780 . . . . 5 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
86853exp 1121 . . . 4 (𝜑 → (𝑥𝐴 → ((Σ^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))))
871, 9, 86rexlimd 3236 . . 3 (𝜑 → (∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))))
8887imp 410 . 2 ((𝜑 ∧ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
89 simpl 486 . . 3 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → 𝜑)
90 ralnex 3158 . . . . 5 (∀𝑥𝐴 ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞)
91 df-ne 2941 . . . . . . 7 ((Σ^‘(𝑘𝐵𝐶)) ≠ +∞ ↔ ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞)
9291bicomi 227 . . . . . 6 (¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ (Σ^‘(𝑘𝐵𝐶)) ≠ +∞)
9392ralbii 3088 . . . . 5 (∀𝑥𝐴 ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9490, 93sylbb1 240 . . . 4 (¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞ → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9594adantl 485 . . 3 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9610adantr 484 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝐴𝑉)
97 nfcv 2904 . . . . . . . . 9 𝑥𝑊
9845, 97nfel 2918 . . . . . . . 8 𝑥𝑦 / 𝑥𝐵𝑊
9944, 98nfim 1904 . . . . . . 7 𝑥((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
10051eleq1d 2822 . . . . . . . 8 (𝑥 = 𝑦 → (𝐵𝑊𝑦 / 𝑥𝐵𝑊))
10150, 100imbi12d 348 . . . . . . 7 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → 𝐵𝑊) ↔ ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)))
10299, 101, 11chvarfv 2238 . . . . . 6 ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
103102adantlr 715 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
104 sge0iunmpt.dj . . . . . . 7 (𝜑Disj 𝑥𝐴 𝐵)
105 nfcv 2904 . . . . . . . 8 𝑦𝐵
106105, 45, 51cbvdisj 5028 . . . . . . 7 (Disj 𝑥𝐴 𝐵Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
107104, 106sylib 221 . . . . . 6 (𝜑Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
108107adantr 484 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
109 nfv 1922 . . . . . . . 8 𝑘(𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵)
110 nfcsb1v 3836 . . . . . . . . 9 𝑘𝑗 / 𝑘𝐶
111110nfel1 2920 . . . . . . . 8 𝑘𝑗 / 𝑘𝐶 ∈ (0[,]+∞)
112109, 111nfim 1904 . . . . . . 7 𝑘((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
113 eleq1w 2820 . . . . . . . . 9 (𝑘 = 𝑗 → (𝑘𝑦 / 𝑥𝐵𝑗𝑦 / 𝑥𝐵))
1141133anbi3d 1444 . . . . . . . 8 (𝑘 = 𝑗 → ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) ↔ (𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵)))
115 csbeq1a 3825 . . . . . . . . 9 (𝑘 = 𝑗𝐶 = 𝑗 / 𝑘𝐶)
116115eleq1d 2822 . . . . . . . 8 (𝑘 = 𝑗 → (𝐶 ∈ (0[,]+∞) ↔ 𝑗 / 𝑘𝐶 ∈ (0[,]+∞)))
117114, 116imbi12d 348 . . . . . . 7 (𝑘 = 𝑗 → (((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞)) ↔ ((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
118 nfv 1922 . . . . . . . . . 10 𝑥 𝑦𝐴
11918, 45nfel 2918 . . . . . . . . . 10 𝑥 𝑘𝑦 / 𝑥𝐵
1201, 118, 119nf3an 1909 . . . . . . . . 9 𝑥(𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵)
121120, 21nfim 1904 . . . . . . . 8 𝑥((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))
12251eleq2d 2823 . . . . . . . . . 10 (𝑥 = 𝑦 → (𝑘𝐵𝑘𝑦 / 𝑥𝐵))
12349, 1223anbi23d 1441 . . . . . . . . 9 (𝑥 = 𝑦 → ((𝜑𝑥𝐴𝑘𝐵) ↔ (𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵)))
124123imbi1d 345 . . . . . . . 8 (𝑥 = 𝑦 → (((𝜑𝑥𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞)) ↔ ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))))
125121, 124, 22chvarfv 2238 . . . . . . 7 ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))
126112, 117, 125chvarfv 2238 . . . . . 6 ((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
1271263adant1r 1179 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
128 simpr 488 . . . . . . . . 9 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → 𝑦𝐴)
129 simpl 486 . . . . . . . . 9 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
130 simpl 486 . . . . . . . . . 10 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝑦𝐴)
131 simpr 488 . . . . . . . . . 10 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
132 nfcv 2904 . . . . . . . . . . . . . 14 𝑥𝑗 / 𝑘𝐶
13345, 132nfmpt 5152 . . . . . . . . . . . . 13 𝑥(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
1342, 133nffv 6727 . . . . . . . . . . . 12 𝑥^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
135 nfcv 2904 . . . . . . . . . . . 12 𝑥+∞
136134, 135nfne 3042 . . . . . . . . . . 11 𝑥^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞
137 nfcv 2904 . . . . . . . . . . . . . . . 16 𝑗𝐶
138137, 110, 115cbvmpt 5156 . . . . . . . . . . . . . . 15 (𝑘𝑦 / 𝑥𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
139138a1i 11 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑘𝑦 / 𝑥𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
14061, 139eqtrd 2777 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝑘𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
141140fveq2d 6721 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (Σ^‘(𝑘𝐵𝐶)) = (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
142141neeq1d 3000 . . . . . . . . . . 11 (𝑥 = 𝑦 → ((Σ^‘(𝑘𝐵𝐶)) ≠ +∞ ↔ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞))
143136, 142rspc 3525 . . . . . . . . . 10 (𝑦𝐴 → (∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞))
144130, 131, 143sylc 65 . . . . . . . . 9 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞)
145128, 129, 144syl2anc 587 . . . . . . . 8 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞)
146145neneqd 2945 . . . . . . 7 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞)
147146adantll 714 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞)
1481263expa 1120 . . . . . . . . 9 (((𝜑𝑦𝐴) ∧ 𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
149 eqid 2737 . . . . . . . . 9 (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
150148, 149fmptd 6931 . . . . . . . 8 ((𝜑𝑦𝐴) → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
151150adantlr 715 . . . . . . 7 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
152103, 151sge0repnf 43599 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → ((Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ ↔ ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞))
153147, 152mpbird 260 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ)
154137, 110, 115cbvmpt 5156 . . . . . . . . 9 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑗 𝑥𝐴 𝐵𝑗 / 𝑘𝐶)
155105, 45, 51cbviun 4945 . . . . . . . . . 10 𝑥𝐴 𝐵 = 𝑦𝐴 𝑦 / 𝑥𝐵
156155mpteq1i 5145 . . . . . . . . 9 (𝑗 𝑥𝐴 𝐵𝑗 / 𝑘𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
157154, 156eqtri 2765 . . . . . . . 8 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
158157fveq2i 6720 . . . . . . 7 ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
159158, 29eqeltrrid 2843 . . . . . 6 (𝜑 → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ*)
160159adantr 484 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ*)
16170, 134, 141cbvmpt 5156 . . . . . . . 8 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
162161fveq2i 6720 . . . . . . 7 ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))))
16311, 66sge0cl 43594 . . . . . . . . 9 ((𝜑𝑥𝐴) → (Σ^‘(𝑘𝐵𝐶)) ∈ (0[,]+∞))
164163, 78fmptd 6931 . . . . . . . 8 (𝜑 → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
16510, 164sge0xrcl 43598 . . . . . . 7 (𝜑 → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) ∈ ℝ*)
166162, 165eqeltrrid 2843 . . . . . 6 (𝜑 → (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))) ∈ ℝ*)
167166adantr 484 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))) ∈ ℝ*)
168 eliun 4908 . . . . . . . . . 10 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵 ↔ ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
169168biimpi 219 . . . . . . . . 9 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵 → ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
170169adantl 485 . . . . . . . 8 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
171 nfv 1922 . . . . . . . . . 10 𝑦𝜑
172 nfcv 2904 . . . . . . . . . . 11 𝑦𝑗
173 nfiu1 4938 . . . . . . . . . . 11 𝑦 𝑦𝐴 𝑦 / 𝑥𝐵
174172, 173nfel 2918 . . . . . . . . . 10 𝑦 𝑗 𝑦𝐴 𝑦 / 𝑥𝐵
175171, 174nfan 1907 . . . . . . . . 9 𝑦(𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵)
176 nfv 1922 . . . . . . . . 9 𝑦𝑗 / 𝑘𝐶 ∈ (0[,]+∞)
177148exp31 423 . . . . . . . . . 10 (𝜑 → (𝑦𝐴 → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
178177adantr 484 . . . . . . . . 9 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → (𝑦𝐴 → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
179175, 176, 178rexlimd 3236 . . . . . . . 8 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → (∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞)))
180170, 179mpd 15 . . . . . . 7 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
181 eqid 2737 . . . . . . 7 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
182180, 181fmptd 6931 . . . . . 6 (𝜑 → (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶): 𝑦𝐴 𝑦 / 𝑥𝐵⟶(0[,]+∞))
183182adantr 484 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶): 𝑦𝐴 𝑦 / 𝑥𝐵⟶(0[,]+∞))
184155, 14eqeltrrid 2843 . . . . . 6 (𝜑 𝑦𝐴 𝑦 / 𝑥𝐵 ∈ V)
185184adantr 484 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝑦𝐴 𝑦 / 𝑥𝐵 ∈ V)
18696, 103, 108, 127, 153, 160, 167, 183, 185sge0iunmptlemre 43628 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))))
187158a1i 11 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
188162a1i 11 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))))
189186, 187, 1883eqtr4d 2787 . . 3 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
19089, 95, 189syl2anc 587 . 2 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
19188, 190pm2.61dan 813 1 (𝜑 → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399  w3a 1089   = wceq 1543  wcel 2110  wne 2940  wral 3061  wrex 3062  Vcvv 3408  csb 3811  wss 3866   ciun 4904  Disj wdisj 5018   class class class wbr 5053  cmpt 5135  ran crn 5552  wf 6376  cfv 6380  (class class class)co 7213  cr 10728  0cc0 10729  +∞cpnf 10864  *cxr 10866  cle 10868  [,]cicc 12938  Σ^csumge0 43575
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-inf2 9256  ax-ac2 10077  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806  ax-pre-sup 10807
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-int 4860  df-iun 4906  df-disj 5019  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-se 5510  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-isom 6389  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-om 7645  df-1st 7761  df-2nd 7762  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-1o 8202  df-er 8391  df-map 8510  df-en 8627  df-dom 8628  df-sdom 8629  df-fin 8630  df-sup 9058  df-oi 9126  df-card 9555  df-acn 9558  df-ac 9730  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-div 11490  df-nn 11831  df-2 11893  df-3 11894  df-n0 12091  df-z 12177  df-uz 12439  df-rp 12587  df-xadd 12705  df-ico 12941  df-icc 12942  df-fz 13096  df-fzo 13239  df-seq 13575  df-exp 13636  df-hash 13897  df-cj 14662  df-re 14663  df-im 14664  df-sqrt 14798  df-abs 14799  df-clim 15049  df-sum 15250  df-sumge0 43576
This theorem is referenced by:  sge0iun  43632  sge0xp  43642
  Copyright terms: Public domain W3C validator