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 46419
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 1914 . . . 4 𝑥𝜑
2 nfcv 2891 . . . . . 6 𝑥Σ^
3 nfiu1 4977 . . . . . . 7 𝑥 𝑥𝐴 𝐵
4 nfcv 2891 . . . . . . 7 𝑥𝐶
53, 4nfmpt 5190 . . . . . 6 𝑥(𝑘 𝑥𝐴 𝐵𝐶)
62, 5nffv 6832 . . . . 5 𝑥^‘(𝑘 𝑥𝐴 𝐵𝐶))
7 nfmpt1 5191 . . . . . 6 𝑥(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))
82, 7nffv 6832 . . . . 5 𝑥^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
96, 8nfeq 2905 . . . 4 𝑥^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
10 sge0iunmpt.a . . . . . . . . . 10 (𝜑𝐴𝑉)
11 sge0iunmpt.b . . . . . . . . . . 11 ((𝜑𝑥𝐴) → 𝐵𝑊)
1211ralrimiva 3121 . . . . . . . . . 10 (𝜑 → ∀𝑥𝐴 𝐵𝑊)
13 iunexg 7898 . . . . . . . . . 10 ((𝐴𝑉 ∧ ∀𝑥𝐴 𝐵𝑊) → 𝑥𝐴 𝐵 ∈ V)
1410, 12, 13syl2anc 584 . . . . . . . . 9 (𝜑 𝑥𝐴 𝐵 ∈ V)
15 eliun 4945 . . . . . . . . . . . . 13 (𝑘 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑘𝐵)
1615biimpi 216 . . . . . . . . . . . 12 (𝑘 𝑥𝐴 𝐵 → ∃𝑥𝐴 𝑘𝐵)
1716adantl 481 . . . . . . . . . . 11 ((𝜑𝑘 𝑥𝐴 𝐵) → ∃𝑥𝐴 𝑘𝐵)
18 nfcv 2891 . . . . . . . . . . . . . 14 𝑥𝑘
1918, 3nfel 2906 . . . . . . . . . . . . 13 𝑥 𝑘 𝑥𝐴 𝐵
201, 19nfan 1899 . . . . . . . . . . . 12 𝑥(𝜑𝑘 𝑥𝐴 𝐵)
214nfel1 2908 . . . . . . . . . . . 12 𝑥 𝐶 ∈ (0[,]+∞)
22 sge0iunmpt.c . . . . . . . . . . . . . 14 ((𝜑𝑥𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
23223exp 1119 . . . . . . . . . . . . 13 (𝜑 → (𝑥𝐴 → (𝑘𝐵𝐶 ∈ (0[,]+∞))))
2423adantr 480 . . . . . . . . . . . 12 ((𝜑𝑘 𝑥𝐴 𝐵) → (𝑥𝐴 → (𝑘𝐵𝐶 ∈ (0[,]+∞))))
2520, 21, 24rexlimd 3236 . . . . . . . . . . 11 ((𝜑𝑘 𝑥𝐴 𝐵) → (∃𝑥𝐴 𝑘𝐵𝐶 ∈ (0[,]+∞)))
2617, 25mpd 15 . . . . . . . . . 10 ((𝜑𝑘 𝑥𝐴 𝐵) → 𝐶 ∈ (0[,]+∞))
27 eqid 2729 . . . . . . . . . 10 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑘 𝑥𝐴 𝐵𝐶)
2826, 27fmptd 7048 . . . . . . . . 9 (𝜑 → (𝑘 𝑥𝐴 𝐵𝐶): 𝑥𝐴 𝐵⟶(0[,]+∞))
2914, 28sge0xrcl 46386 . . . . . . . 8 (𝜑 → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) ∈ ℝ*)
30293ad2ant1 1133 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) ∈ ℝ*)
31 id 22 . . . . . . . . . . 11 ((Σ^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘𝐵𝐶)) = +∞)
3231eqcomd 2735 . . . . . . . . . 10 ((Σ^‘(𝑘𝐵𝐶)) = +∞ → +∞ = (Σ^‘(𝑘𝐵𝐶)))
3332adantl 481 . . . . . . . . 9 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ = (Σ^‘(𝑘𝐵𝐶)))
34333adant1 1130 . . . . . . . 8 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ = (Σ^‘(𝑘𝐵𝐶)))
3514adantr 480 . . . . . . . . . 10 ((𝜑𝑥𝐴) → 𝑥𝐴 𝐵 ∈ V)
3626adantlr 715 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑘 𝑥𝐴 𝐵) → 𝐶 ∈ (0[,]+∞))
37 ssiun2 4996 . . . . . . . . . . 11 (𝑥𝐴𝐵 𝑥𝐴 𝐵)
3837adantl 481 . . . . . . . . . 10 ((𝜑𝑥𝐴) → 𝐵 𝑥𝐴 𝐵)
3935, 36, 38sge0lessmpt 46400 . . . . . . . . 9 ((𝜑𝑥𝐴) → (Σ^‘(𝑘𝐵𝐶)) ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
40393adant3 1132 . . . . . . . 8 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘𝐵𝐶)) ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
4134, 40eqbrtrd 5114 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ≤ (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)))
4230, 41xrgepnfd 45331 . . . . . 6 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = +∞)
43103ad2ant1 1133 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → 𝐴𝑉)
44 nfv 1914 . . . . . . . . . . . . 13 𝑥(𝜑𝑦𝐴)
45 nfcsb1v 3875 . . . . . . . . . . . . . 14 𝑥𝑦 / 𝑥𝐵
46 nfcsb1v 3875 . . . . . . . . . . . . . 14 𝑥𝑦 / 𝑥𝑊
4745, 46nfel 2906 . . . . . . . . . . . . 13 𝑥𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊
4844, 47nfim 1896 . . . . . . . . . . . 12 𝑥((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
49 eleq1w 2811 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑥𝐴𝑦𝐴))
5049anbi2d 630 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → ((𝜑𝑥𝐴) ↔ (𝜑𝑦𝐴)))
51 csbeq1a 3865 . . . . . . . . . . . . . 14 (𝑥 = 𝑦𝐵 = 𝑦 / 𝑥𝐵)
52 csbeq1a 3865 . . . . . . . . . . . . . 14 (𝑥 = 𝑦𝑊 = 𝑦 / 𝑥𝑊)
5351, 52eleq12d 2822 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝐵𝑊𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊))
5450, 53imbi12d 344 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → 𝐵𝑊) ↔ ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)))
5548, 54, 11chvarfv 2241 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
5655adantlr 715 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → 𝑦 / 𝑥𝐵𝑦 / 𝑥𝑊)
5745, 4nfmpt 5190 . . . . . . . . . . . . . 14 𝑥(𝑘𝑦 / 𝑥𝐵𝐶)
58 nfcv 2891 . . . . . . . . . . . . . 14 𝑥(0[,]+∞)
5957, 45, 58nff 6648 . . . . . . . . . . . . 13 𝑥(𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞)
6044, 59nfim 1896 . . . . . . . . . . . 12 𝑥((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6151mpteq1d 5182 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑘𝐵𝐶) = (𝑘𝑦 / 𝑥𝐵𝐶))
6261, 51feq12d 6640 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → ((𝑘𝐵𝐶):𝐵⟶(0[,]+∞) ↔ (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞)))
6350, 62imbi12d 344 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → (𝑘𝐵𝐶):𝐵⟶(0[,]+∞)) ↔ ((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))))
6423imp31 417 . . . . . . . . . . . . 13 (((𝜑𝑥𝐴) ∧ 𝑘𝐵) → 𝐶 ∈ (0[,]+∞))
65 eqid 2729 . . . . . . . . . . . . 13 (𝑘𝐵𝐶) = (𝑘𝐵𝐶)
6664, 65fmptd 7048 . . . . . . . . . . . 12 ((𝜑𝑥𝐴) → (𝑘𝐵𝐶):𝐵⟶(0[,]+∞))
6760, 63, 66chvarfv 2241 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6867adantlr 715 . . . . . . . . . 10 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → (𝑘𝑦 / 𝑥𝐵𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
6956, 68sge0cl 46382 . . . . . . . . 9 (((𝜑𝑥𝐴) ∧ 𝑦𝐴) → (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)) ∈ (0[,]+∞))
70 nfcv 2891 . . . . . . . . . 10 𝑦^‘(𝑘𝐵𝐶))
712, 57nffv 6832 . . . . . . . . . 10 𝑥^‘(𝑘𝑦 / 𝑥𝐵𝐶))
7261fveq2d 6826 . . . . . . . . . 10 (𝑥 = 𝑦 → (Σ^‘(𝑘𝐵𝐶)) = (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)))
7370, 71, 72cbvmpt 5194 . . . . . . . . 9 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑦𝐴 ↦ (Σ^‘(𝑘𝑦 / 𝑥𝐵𝐶)))
7469, 73fmptd 7048 . . . . . . . 8 ((𝜑𝑥𝐴) → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
75743adant3 1132 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
76 id 22 . . . . . . . . . . 11 (𝑥𝐴𝑥𝐴)
77 fvexd 6837 . . . . . . . . . . 11 (𝑥𝐴 → (Σ^‘(𝑘𝐵𝐶)) ∈ V)
78 eqid 2729 . . . . . . . . . . . 12 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))
7978elrnmpt1 5902 . . . . . . . . . . 11 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) ∈ V) → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8076, 77, 79syl2anc 584 . . . . . . . . . 10 (𝑥𝐴 → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8180adantr 480 . . . . . . . . 9 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘𝐵𝐶)) ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8233, 81eqeltrd 2828 . . . . . . . 8 ((𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
83823adant1 1130 . . . . . . 7 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → +∞ ∈ ran (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))
8443, 75, 83sge0pnfval 46374 . . . . . 6 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = +∞)
8542, 84eqtr4d 2767 . . . . 5 ((𝜑𝑥𝐴 ∧ (Σ^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
86853exp 1119 . . . 4 (𝜑 → (𝑥𝐴 → ((Σ^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))))
871, 9, 86rexlimd 3236 . . 3 (𝜑 → (∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞ → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))))))
8887imp 406 . 2 ((𝜑 ∧ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
89 simpl 482 . . 3 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → 𝜑)
90 ralnex 3055 . . . . 5 (∀𝑥𝐴 ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞)
91 df-ne 2926 . . . . . . 7 ((Σ^‘(𝑘𝐵𝐶)) ≠ +∞ ↔ ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞)
9291bicomi 224 . . . . . 6 (¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ (Σ^‘(𝑘𝐵𝐶)) ≠ +∞)
9392ralbii 3075 . . . . 5 (∀𝑥𝐴 ¬ (Σ^‘(𝑘𝐵𝐶)) = +∞ ↔ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9490, 93sylbb1 237 . . . 4 (¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞ → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9594adantl 481 . . 3 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
9610adantr 480 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝐴𝑉)
97 nfcv 2891 . . . . . . . . 9 𝑥𝑊
9845, 97nfel 2906 . . . . . . . 8 𝑥𝑦 / 𝑥𝐵𝑊
9944, 98nfim 1896 . . . . . . 7 𝑥((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
10051eleq1d 2813 . . . . . . . 8 (𝑥 = 𝑦 → (𝐵𝑊𝑦 / 𝑥𝐵𝑊))
10150, 100imbi12d 344 . . . . . . 7 (𝑥 = 𝑦 → (((𝜑𝑥𝐴) → 𝐵𝑊) ↔ ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)))
10299, 101, 11chvarfv 2241 . . . . . 6 ((𝜑𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
103102adantlr 715 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → 𝑦 / 𝑥𝐵𝑊)
104 sge0iunmpt.dj . . . . . . 7 (𝜑Disj 𝑥𝐴 𝐵)
105 nfcv 2891 . . . . . . . 8 𝑦𝐵
106105, 45, 51cbvdisj 5069 . . . . . . 7 (Disj 𝑥𝐴 𝐵Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
107104, 106sylib 218 . . . . . 6 (𝜑Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
108107adantr 480 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → Disj 𝑦𝐴 𝑦 / 𝑥𝐵)
109 nfv 1914 . . . . . . . 8 𝑘(𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵)
110 nfcsb1v 3875 . . . . . . . . 9 𝑘𝑗 / 𝑘𝐶
111110nfel1 2908 . . . . . . . 8 𝑘𝑗 / 𝑘𝐶 ∈ (0[,]+∞)
112109, 111nfim 1896 . . . . . . 7 𝑘((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
113 eleq1w 2811 . . . . . . . . 9 (𝑘 = 𝑗 → (𝑘𝑦 / 𝑥𝐵𝑗𝑦 / 𝑥𝐵))
1141133anbi3d 1444 . . . . . . . 8 (𝑘 = 𝑗 → ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) ↔ (𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵)))
115 csbeq1a 3865 . . . . . . . . 9 (𝑘 = 𝑗𝐶 = 𝑗 / 𝑘𝐶)
116115eleq1d 2813 . . . . . . . 8 (𝑘 = 𝑗 → (𝐶 ∈ (0[,]+∞) ↔ 𝑗 / 𝑘𝐶 ∈ (0[,]+∞)))
117114, 116imbi12d 344 . . . . . . 7 (𝑘 = 𝑗 → (((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞)) ↔ ((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
118 nfv 1914 . . . . . . . . . 10 𝑥 𝑦𝐴
11918, 45nfel 2906 . . . . . . . . . 10 𝑥 𝑘𝑦 / 𝑥𝐵
1201, 118, 119nf3an 1901 . . . . . . . . 9 𝑥(𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵)
121120, 21nfim 1896 . . . . . . . 8 𝑥((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))
12251eleq2d 2814 . . . . . . . . . 10 (𝑥 = 𝑦 → (𝑘𝐵𝑘𝑦 / 𝑥𝐵))
12349, 1223anbi23d 1441 . . . . . . . . 9 (𝑥 = 𝑦 → ((𝜑𝑥𝐴𝑘𝐵) ↔ (𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵)))
124123imbi1d 341 . . . . . . . 8 (𝑥 = 𝑦 → (((𝜑𝑥𝐴𝑘𝐵) → 𝐶 ∈ (0[,]+∞)) ↔ ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))))
125121, 124, 22chvarfv 2241 . . . . . . 7 ((𝜑𝑦𝐴𝑘𝑦 / 𝑥𝐵) → 𝐶 ∈ (0[,]+∞))
126112, 117, 125chvarfv 2241 . . . . . 6 ((𝜑𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
1271263adant1r 1178 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
128 simpr 484 . . . . . . . . 9 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → 𝑦𝐴)
129 simpl 482 . . . . . . . . 9 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
130 simpl 482 . . . . . . . . . 10 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝑦𝐴)
131 simpr 484 . . . . . . . . . 10 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞)
132 nfcv 2891 . . . . . . . . . . . . . 14 𝑥𝑗 / 𝑘𝐶
13345, 132nfmpt 5190 . . . . . . . . . . . . 13 𝑥(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
1342, 133nffv 6832 . . . . . . . . . . . 12 𝑥^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
135 nfcv 2891 . . . . . . . . . . . 12 𝑥+∞
136134, 135nfne 3026 . . . . . . . . . . 11 𝑥^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞
137 nfcv 2891 . . . . . . . . . . . . . . . 16 𝑗𝐶
138137, 110, 115cbvmpt 5194 . . . . . . . . . . . . . . 15 (𝑘𝑦 / 𝑥𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
139138a1i 11 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑘𝑦 / 𝑥𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
14061, 139eqtrd 2764 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → (𝑘𝐵𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
141140fveq2d 6826 . . . . . . . . . . . 12 (𝑥 = 𝑦 → (Σ^‘(𝑘𝐵𝐶)) = (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
142141neeq1d 2984 . . . . . . . . . . 11 (𝑥 = 𝑦 → ((Σ^‘(𝑘𝐵𝐶)) ≠ +∞ ↔ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞))
143136, 142rspc 3565 . . . . . . . . . 10 (𝑦𝐴 → (∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞))
144130, 131, 143sylc 65 . . . . . . . . 9 ((𝑦𝐴 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞)
145128, 129, 144syl2anc 584 . . . . . . . 8 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ≠ +∞)
146145neneqd 2930 . . . . . . 7 ((∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞ ∧ 𝑦𝐴) → ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞)
147146adantll 714 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞)
1481263expa 1118 . . . . . . . . 9 (((𝜑𝑦𝐴) ∧ 𝑗𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
149 eqid 2729 . . . . . . . . 9 (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶) = (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
150148, 149fmptd 7048 . . . . . . . 8 ((𝜑𝑦𝐴) → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
151150adantlr 715 . . . . . . 7 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶):𝑦 / 𝑥𝐵⟶(0[,]+∞))
152103, 151sge0repnf 46387 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → ((Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ ↔ ¬ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = +∞))
153147, 152mpbird 257 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) ∧ 𝑦𝐴) → (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ)
154137, 110, 115cbvmpt 5194 . . . . . . . . 9 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑗 𝑥𝐴 𝐵𝑗 / 𝑘𝐶)
155105, 45, 51cbviun 4985 . . . . . . . . . 10 𝑥𝐴 𝐵 = 𝑦𝐴 𝑦 / 𝑥𝐵
156155mpteq1i 5183 . . . . . . . . 9 (𝑗 𝑥𝐴 𝐵𝑗 / 𝑘𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
157154, 156eqtri 2752 . . . . . . . 8 (𝑘 𝑥𝐴 𝐵𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
158157fveq2i 6825 . . . . . . 7 ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))
159158, 29eqeltrrid 2833 . . . . . 6 (𝜑 → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ*)
160159adantr 480 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) ∈ ℝ*)
16170, 134, 141cbvmpt 5194 . . . . . . . 8 (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))) = (𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
162161fveq2i 6825 . . . . . . 7 ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶))))
16311, 66sge0cl 46382 . . . . . . . . 9 ((𝜑𝑥𝐴) → (Σ^‘(𝑘𝐵𝐶)) ∈ (0[,]+∞))
164163, 78fmptd 7048 . . . . . . . 8 (𝜑 → (𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶))):𝐴⟶(0[,]+∞))
16510, 164sge0xrcl 46386 . . . . . . 7 (𝜑 → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) ∈ ℝ*)
166162, 165eqeltrrid 2833 . . . . . 6 (𝜑 → (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))) ∈ ℝ*)
167166adantr 480 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))) ∈ ℝ*)
168 eliun 4945 . . . . . . . . . 10 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵 ↔ ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
169168biimpi 216 . . . . . . . . 9 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵 → ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
170169adantl 481 . . . . . . . 8 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → ∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵)
171 nfv 1914 . . . . . . . . . 10 𝑦𝜑
172 nfcv 2891 . . . . . . . . . . 11 𝑦𝑗
173 nfiu1 4977 . . . . . . . . . . 11 𝑦 𝑦𝐴 𝑦 / 𝑥𝐵
174172, 173nfel 2906 . . . . . . . . . 10 𝑦 𝑗 𝑦𝐴 𝑦 / 𝑥𝐵
175171, 174nfan 1899 . . . . . . . . 9 𝑦(𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵)
176 nfv 1914 . . . . . . . . 9 𝑦𝑗 / 𝑘𝐶 ∈ (0[,]+∞)
177148exp31 419 . . . . . . . . . 10 (𝜑 → (𝑦𝐴 → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
178177adantr 480 . . . . . . . . 9 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → (𝑦𝐴 → (𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞))))
179175, 176, 178rexlimd 3236 . . . . . . . 8 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → (∃𝑦𝐴 𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶 ∈ (0[,]+∞)))
180170, 179mpd 15 . . . . . . 7 ((𝜑𝑗 𝑦𝐴 𝑦 / 𝑥𝐵) → 𝑗 / 𝑘𝐶 ∈ (0[,]+∞))
181 eqid 2729 . . . . . . 7 (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶) = (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)
182180, 181fmptd 7048 . . . . . 6 (𝜑 → (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶): 𝑦𝐴 𝑦 / 𝑥𝐵⟶(0[,]+∞))
183182adantr 480 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶): 𝑦𝐴 𝑦 / 𝑥𝐵⟶(0[,]+∞))
184155, 14eqeltrrid 2833 . . . . . 6 (𝜑 𝑦𝐴 𝑦 / 𝑥𝐵 ∈ V)
185184adantr 480 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → 𝑦𝐴 𝑦 / 𝑥𝐵 ∈ V)
18696, 103, 108, 127, 153, 160, 167, 183, 185sge0iunmptlemre 46416 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))))
187158a1i 11 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑗 𝑦𝐴 𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))
188162a1i 11 . . . 4 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))) = (Σ^‘(𝑦𝐴 ↦ (Σ^‘(𝑗𝑦 / 𝑥𝐵𝑗 / 𝑘𝐶)))))
189186, 187, 1883eqtr4d 2774 . . 3 ((𝜑 ∧ ∀𝑥𝐴^‘(𝑘𝐵𝐶)) ≠ +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
19089, 95, 189syl2anc 584 . 2 ((𝜑 ∧ ¬ ∃𝑥𝐴^‘(𝑘𝐵𝐶)) = +∞) → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
19188, 190pm2.61dan 812 1 (𝜑 → (Σ^‘(𝑘 𝑥𝐴 𝐵𝐶)) = (Σ^‘(𝑥𝐴 ↦ (Σ^‘(𝑘𝐵𝐶)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1086   = wceq 1540  wcel 2109  wne 2925  wral 3044  wrex 3053  Vcvv 3436  csb 3851  wss 3903   ciun 4941  Disj wdisj 5059   class class class wbr 5092  cmpt 5173  ran crn 5620  wf 6478  cfv 6482  (class class class)co 7349  cr 11008  0cc0 11009  +∞cpnf 11146  *cxr 11148  cle 11150  [,]cicc 13251  Σ^csumge0 46363
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-inf2 9537  ax-ac2 10357  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086  ax-pre-sup 11087
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-int 4897  df-iun 4943  df-disj 5060  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-isom 6491  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-om 7800  df-1st 7924  df-2nd 7925  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-1o 8388  df-er 8625  df-map 8755  df-en 8873  df-dom 8874  df-sdom 8875  df-fin 8876  df-sup 9332  df-oi 9402  df-card 9835  df-acn 9838  df-ac 10010  df-pnf 11151  df-mnf 11152  df-xr 11153  df-ltxr 11154  df-le 11155  df-sub 11349  df-neg 11350  df-div 11778  df-nn 12129  df-2 12191  df-3 12192  df-n0 12385  df-z 12472  df-uz 12736  df-rp 12894  df-xadd 13015  df-ico 13254  df-icc 13255  df-fz 13411  df-fzo 13558  df-seq 13909  df-exp 13969  df-hash 14238  df-cj 15006  df-re 15007  df-im 15008  df-sqrt 15142  df-abs 15143  df-clim 15395  df-sum 15594  df-sumge0 46364
This theorem is referenced by:  sge0iun  46420  sge0xp  46430
  Copyright terms: Public domain W3C validator