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

Theorem ovncvrrp 45952
Description: The Lebesgue outer measure of a subset of multidimensional real numbers can always be approximated by the total outer measure of a cover of half-open (multidimensional) intervals. (Contributed by Glauco Siliprandi, 11-Oct-2020.)
Hypotheses
Ref Expression
ovncvrrp.x (𝜑𝑋 ∈ Fin)
ovncvrrp.n0 (𝜑𝑋 ≠ ∅)
ovncvrrp.a (𝜑𝐴 ⊆ (ℝ ↑m 𝑋))
ovncvrrp.e (𝜑𝐸 ∈ ℝ+)
ovncvrrp.c 𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
ovncvrrp.l 𝐿 = ( ∈ ((ℝ × ℝ) ↑m 𝑋) ↦ ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)))
ovncvrrp.d 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)}))
Assertion
Ref Expression
ovncvrrp (𝜑 → ∃𝑖 𝑖 ∈ ((𝐷𝐴)‘𝐸))
Distinct variable groups:   𝐴,𝑎,𝑒,𝑖   𝐴,𝑙,𝑎,𝑖   𝐶,𝑒,𝑖   𝑒,𝐸,𝑖   𝐿,𝑎,𝑒   𝑋,𝑎,𝑒,𝑖,𝑗   ,𝑋,𝑘,𝑖,𝑗   𝑋,𝑙   𝑘,𝑎   𝑗,𝑙,𝑘   𝜑,𝑎,𝑒,𝑖,𝑗   𝜑,𝑘
Allowed substitution hints:   𝜑(,𝑙)   𝐴(,𝑗,𝑘)   𝐶(,𝑗,𝑘,𝑎,𝑙)   𝐷(𝑒,,𝑖,𝑗,𝑘,𝑎,𝑙)   𝐸(,𝑗,𝑘,𝑎,𝑙)   𝐿(,𝑖,𝑗,𝑘,𝑙)

Proof of Theorem ovncvrrp
Dummy variables 𝑏 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ovncvrrp.x . . . 4 (𝜑𝑋 ∈ Fin)
2 ovncvrrp.n0 . . . 4 (𝜑𝑋 ≠ ∅)
3 ovncvrrp.a . . . 4 (𝜑𝐴 ⊆ (ℝ ↑m 𝑋))
4 ovncvrrp.e . . . 4 (𝜑𝐸 ∈ ℝ+)
5 eqid 2728 . . . 4 {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}
61, 2, 3, 4, 5ovnlerp 45950 . . 3 (𝜑 → ∃𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
7 simp1 1134 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝜑)
8 simp3 1136 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
9 rabid 3449 . . . . . . . . . 10 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ↔ (𝑧 ∈ ℝ* ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
109biimpi 215 . . . . . . . . 9 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → (𝑧 ∈ ℝ* ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
1110simprd 495 . . . . . . . 8 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
1211adantr 480 . . . . . . 7 ((𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
13123adant1 1128 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
14 nfv 1910 . . . . . . . 8 𝑖(𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
15 nfe1 2140 . . . . . . . 8 𝑖𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
16 simp1l 1195 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝜑)
17 simp2 1135 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ))
18 simp3l 1199 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
19 id 22 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
20 fveq1 6896 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑖 → (𝑙𝑗) = (𝑖𝑗))
2120coeq2d 5865 . . . . . . . . . . . . . . . . . . . 20 (𝑙 = 𝑖 → ([,) ∘ (𝑙𝑗)) = ([,) ∘ (𝑖𝑗)))
2221fveq1d 6899 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑖 → (([,) ∘ (𝑙𝑗))‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
2322ixpeq2dv 8932 . . . . . . . . . . . . . . . . . 18 (𝑙 = 𝑖X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) = X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
2423iuneq2d 5025 . . . . . . . . . . . . . . . . 17 (𝑙 = 𝑖 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) = 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
2524sseq2d 4012 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑖 → (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) ↔ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
2625elrab 3682 . . . . . . . . . . . . . . 15 (𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ↔ (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
2719, 26sylibr 233 . . . . . . . . . . . . . 14 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
28273adant1 1128 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
29 ovncvrrp.c . . . . . . . . . . . . . . . 16 𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
30 sseq1 4005 . . . . . . . . . . . . . . . . 17 (𝑎 = 𝐴 → (𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) ↔ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)))
3130rabbidv 3437 . . . . . . . . . . . . . . . 16 (𝑎 = 𝐴 → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
32 ovexd 7455 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (ℝ ↑m 𝑋) ∈ V)
3332, 3ssexd 5324 . . . . . . . . . . . . . . . . . 18 (𝜑𝐴 ∈ V)
34 elpwg 4606 . . . . . . . . . . . . . . . . . 18 (𝐴 ∈ V → (𝐴 ∈ 𝒫 (ℝ ↑m 𝑋) ↔ 𝐴 ⊆ (ℝ ↑m 𝑋)))
3533, 34syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 ∈ 𝒫 (ℝ ↑m 𝑋) ↔ 𝐴 ⊆ (ℝ ↑m 𝑋)))
363, 35mpbird 257 . . . . . . . . . . . . . . . 16 (𝜑𝐴 ∈ 𝒫 (ℝ ↑m 𝑋))
37 ovex 7453 . . . . . . . . . . . . . . . . . 18 (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∈ V
3837rabex 5334 . . . . . . . . . . . . . . . . 17 {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ∈ V
3938a1i 11 . . . . . . . . . . . . . . . 16 (𝜑 → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ∈ V)
4029, 31, 36, 39fvmptd3 7028 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶𝐴) = {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
4140eqcomd 2734 . . . . . . . . . . . . . 14 (𝜑 → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = (𝐶𝐴))
42413ad2ant1 1131 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = (𝐶𝐴))
4328, 42eleqtrd 2831 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ (𝐶𝐴))
4416, 17, 18, 43syl3anc 1369 . . . . . . . . . . 11 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝑖 ∈ (𝐶𝐴))
45 ovncvrrp.l . . . . . . . . . . . . . . . . . . . 20 𝐿 = ( ∈ ((ℝ × ℝ) ↑m 𝑋) ↦ ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)))
46 coeq2 5861 . . . . . . . . . . . . . . . . . . . . . . 23 ( = (𝑖𝑗) → ([,) ∘ ) = ([,) ∘ (𝑖𝑗)))
4746fveq1d 6899 . . . . . . . . . . . . . . . . . . . . . 22 ( = (𝑖𝑗) → (([,) ∘ )‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
4847fveq2d 6901 . . . . . . . . . . . . . . . . . . . . 21 ( = (𝑖𝑗) → (vol‘(([,) ∘ )‘𝑘)) = (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
4948prodeq2ad 44980 . . . . . . . . . . . . . . . . . . . 20 ( = (𝑖𝑗) → ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
50 elmapi 8868 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → 𝑖:ℕ⟶((ℝ × ℝ) ↑m 𝑋))
5150adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → 𝑖:ℕ⟶((ℝ × ℝ) ↑m 𝑋))
52 simpr 484 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℕ)
5351, 52ffvelcdmd 7095 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → (𝑖𝑗) ∈ ((ℝ × ℝ) ↑m 𝑋))
54 prodex 15884 . . . . . . . . . . . . . . . . . . . . 21 𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)) ∈ V
5554a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)) ∈ V)
5645, 49, 53, 55fvmptd3 7028 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → (𝐿‘(𝑖𝑗)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
5756mpteq2dva 5248 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → (𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗))) = (𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))
5857fveq2d 6901 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
5958adantr 480 . . . . . . . . . . . . . . . 16 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
60 id 22 . . . . . . . . . . . . . . . . . 18 (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) → 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
6160eqcomd 2734 . . . . . . . . . . . . . . . . 17 (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) = 𝑧)
6261adantl 481 . . . . . . . . . . . . . . . 16 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) = 𝑧)
6359, 62eqtrd 2768 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = 𝑧)
64633adant1 1128 . . . . . . . . . . . . . 14 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = 𝑧)
65 simp1 1134 . . . . . . . . . . . . . 14 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
6664, 65eqbrtrd 5170 . . . . . . . . . . . . 13 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
67663adant1l 1174 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
68673adant3l 1178 . . . . . . . . . . 11 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
6944, 68jca 511 . . . . . . . . . 10 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
706919.8ad 2171 . . . . . . . . 9 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
71703exp 1117 . . . . . . . 8 ((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → ((𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))))
7214, 15, 71rexlimd 3260 . . . . . . 7 ((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → (∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))))
7372imp 406 . . . . . 6 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
747, 8, 13, 73syl21anc 837 . . . . 5 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
75743exp 1117 . . . 4 (𝜑 → (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → (𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))))
7675rexlimdv 3150 . . 3 (𝜑 → (∃𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))))
776, 76mpd 15 . 2 (𝜑 → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
78 rabid 3449 . . . . . . . 8 (𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ↔ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
7978bicomi 223 . . . . . . 7 ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ↔ 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
8079biimpi 215 . . . . . 6 ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
8180adantl 481 . . . . 5 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
82 ovncvrrp.d . . . . . . . . 9 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)}))
83 nfcv 2899 . . . . . . . . . 10 𝑏(𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)})
84 nfcv 2899 . . . . . . . . . . 11 𝑎+
85 nfv 1910 . . . . . . . . . . . 12 𝑎^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)
86 nfmpt1 5256 . . . . . . . . . . . . . 14 𝑎(𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
8729, 86nfcxfr 2897 . . . . . . . . . . . . 13 𝑎𝐶
88 nfcv 2899 . . . . . . . . . . . . 13 𝑎𝑏
8987, 88nffv 6907 . . . . . . . . . . . 12 𝑎(𝐶𝑏)
9085, 89nfrabw 3465 . . . . . . . . . . 11 𝑎{𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}
9184, 90nfmpt 5255 . . . . . . . . . 10 𝑎(𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)})
92 fveq2 6897 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝐶𝑎) = (𝐶𝑏))
9392eleq2d 2815 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → (𝑖 ∈ (𝐶𝑎) ↔ 𝑖 ∈ (𝐶𝑏)))
94 fveq2 6897 . . . . . . . . . . . . . . 15 (𝑎 = 𝑏 → ((voln*‘𝑋)‘𝑎) = ((voln*‘𝑋)‘𝑏))
9594oveq1d 7435 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (((voln*‘𝑋)‘𝑎) +𝑒 𝑒) = (((voln*‘𝑋)‘𝑏) +𝑒 𝑒))
9695breq2d 5160 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)))
9793, 96anbi12d 631 . . . . . . . . . . . 12 (𝑎 = 𝑏 → ((𝑖 ∈ (𝐶𝑎) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)) ↔ (𝑖 ∈ (𝐶𝑏) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒))))
9897rabbidva2 3431 . . . . . . . . . . 11 (𝑎 = 𝑏 → {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)})
9998mpteq2dv 5250 . . . . . . . . . 10 (𝑎 = 𝑏 → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)}) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
10083, 91, 99cbvmpt 5259 . . . . . . . . 9 (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)})) = (𝑏 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
10182, 100eqtri 2756 . . . . . . . 8 𝐷 = (𝑏 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
102 fveq2 6897 . . . . . . . . . . . 12 (𝑏 = 𝐴 → (𝐶𝑏) = (𝐶𝐴))
103102eleq2d 2815 . . . . . . . . . . 11 (𝑏 = 𝐴 → (𝑖 ∈ (𝐶𝑏) ↔ 𝑖 ∈ (𝐶𝐴)))
104 fveq2 6897 . . . . . . . . . . . . 13 (𝑏 = 𝐴 → ((voln*‘𝑋)‘𝑏) = ((voln*‘𝑋)‘𝐴))
105104oveq1d 7435 . . . . . . . . . . . 12 (𝑏 = 𝐴 → (((voln*‘𝑋)‘𝑏) +𝑒 𝑒) = (((voln*‘𝑋)‘𝐴) +𝑒 𝑒))
106105breq2d 5160 . . . . . . . . . . 11 (𝑏 = 𝐴 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)))
107103, 106anbi12d 631 . . . . . . . . . 10 (𝑏 = 𝐴 → ((𝑖 ∈ (𝐶𝑏) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)) ↔ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒))))
108107rabbidva2 3431 . . . . . . . . 9 (𝑏 = 𝐴 → {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)})
109108mpteq2dv 5250 . . . . . . . 8 (𝑏 = 𝐴 → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}))
11036adantr 480 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝐴 ∈ 𝒫 (ℝ ↑m 𝑋))
111 rpex 44728 . . . . . . . . . 10 + ∈ V
112111mptex 7235 . . . . . . . . 9 (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}) ∈ V
113112a1i 11 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}) ∈ V)
114101, 109, 110, 113fvmptd3 7028 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → (𝐷𝐴) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}))
115 oveq2 7428 . . . . . . . . . 10 (𝑒 = 𝐸 → (((voln*‘𝑋)‘𝐴) +𝑒 𝑒) = (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
116115breq2d 5160 . . . . . . . . 9 (𝑒 = 𝐸 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
117116rabbidv 3437 . . . . . . . 8 (𝑒 = 𝐸 → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
118117adantl 481 . . . . . . 7 (((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) ∧ 𝑒 = 𝐸) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
1194adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝐸 ∈ ℝ+)
120 fvex 6910 . . . . . . . . 9 (𝐶𝐴) ∈ V
121120rabex 5334 . . . . . . . 8 {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ∈ V
122121a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ∈ V)
123114, 118, 119, 122fvmptd 7012 . . . . . 6 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → ((𝐷𝐴)‘𝐸) = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
124123eqcomd 2734 . . . . 5 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} = ((𝐷𝐴)‘𝐸))
12581, 124eleqtrd 2831 . . . 4 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝑖 ∈ ((𝐷𝐴)‘𝐸))
126125ex 412 . . 3 (𝜑 → ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑖 ∈ ((𝐷𝐴)‘𝐸)))
127126eximdv 1913 . 2 (𝜑 → (∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 𝑖 ∈ ((𝐷𝐴)‘𝐸)))
12877, 127mpd 15 1 (𝜑 → ∃𝑖 𝑖 ∈ ((𝐷𝐴)‘𝐸))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395  w3a 1085   = wceq 1534  wex 1774  wcel 2099  wne 2937  wrex 3067  {crab 3429  Vcvv 3471  wss 3947  c0 4323  𝒫 cpw 4603   ciun 4996   class class class wbr 5148  cmpt 5231   × cxp 5676  ccom 5682  wf 6544  cfv 6548  (class class class)co 7420  m cmap 8845  Xcixp 8916  Fincfn 8964  cr 11138  *cxr 11278  cle 11280  cn 12243  +crp 13007   +𝑒 cxad 13123  [,)cico 13359  cprod 15882  volcvol 25405  Σ^csumge0 45750  voln*covoln 45924
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5365  ax-pr 5429  ax-un 7740  ax-inf2 9665  ax-cnex 11195  ax-resscn 11196  ax-1cn 11197  ax-icn 11198  ax-addcl 11199  ax-addrcl 11200  ax-mulcl 11201  ax-mulrcl 11202  ax-mulcom 11203  ax-addass 11204  ax-mulass 11205  ax-distr 11206  ax-i2m1 11207  ax-1ne0 11208  ax-1rid 11209  ax-rnegex 11210  ax-rrecex 11211  ax-cnre 11212  ax-pre-lttri 11213  ax-pre-lttrn 11214  ax-pre-ltadd 11215  ax-pre-mulgt0 11216  ax-pre-sup 11217  ax-addf 11218  ax-mulf 11219
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3373  df-reu 3374  df-rab 3430  df-v 3473  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-tp 4634  df-op 4636  df-uni 4909  df-int 4950  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-se 5634  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6305  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6500  df-fun 6550  df-fn 6551  df-f 6552  df-f1 6553  df-fo 6554  df-f1o 6555  df-fv 6556  df-isom 6557  df-riota 7376  df-ov 7423  df-oprab 7424  df-mpo 7425  df-of 7685  df-om 7871  df-1st 7993  df-2nd 7994  df-tpos 8232  df-frecs 8287  df-wrecs 8318  df-recs 8392  df-rdg 8431  df-1o 8487  df-2o 8488  df-er 8725  df-map 8847  df-pm 8848  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-fi 9435  df-sup 9466  df-inf 9467  df-oi 9534  df-dju 9925  df-card 9963  df-pnf 11281  df-mnf 11282  df-xr 11283  df-ltxr 11284  df-le 11285  df-sub 11477  df-neg 11478  df-div 11903  df-nn 12244  df-2 12306  df-3 12307  df-4 12308  df-5 12309  df-6 12310  df-7 12311  df-8 12312  df-9 12313  df-n0 12504  df-z 12590  df-dec 12709  df-uz 12854  df-q 12964  df-rp 13008  df-xneg 13125  df-xadd 13126  df-xmul 13127  df-ioo 13361  df-ico 13363  df-icc 13364  df-fz 13518  df-fzo 13661  df-fl 13790  df-seq 14000  df-exp 14060  df-hash 14323  df-cj 15079  df-re 15080  df-im 15081  df-sqrt 15215  df-abs 15216  df-clim 15465  df-rlim 15466  df-sum 15666  df-prod 15883  df-struct 17116  df-sets 17133  df-slot 17151  df-ndx 17163  df-base 17181  df-ress 17210  df-plusg 17246  df-mulr 17247  df-starv 17248  df-tset 17252  df-ple 17253  df-ds 17255  df-unif 17256  df-rest 17404  df-0g 17423  df-topgen 17425  df-mgm 18600  df-sgrp 18679  df-mnd 18695  df-grp 18893  df-minusg 18894  df-subg 19078  df-cmn 19737  df-abl 19738  df-mgp 20075  df-rng 20093  df-ur 20122  df-ring 20175  df-cring 20176  df-oppr 20273  df-dvdsr 20296  df-unit 20297  df-invr 20327  df-dvr 20340  df-drng 20626  df-psmet 21271  df-xmet 21272  df-met 21273  df-bl 21274  df-mopn 21275  df-cnfld 21280  df-top 22809  df-topon 22826  df-bases 22862  df-cmp 23304  df-ovol 25406  df-vol 25407  df-sumge0 45751  df-ovoln 45925
This theorem is referenced by:  ovnsubaddlem2  45959  hspmbllem3  46016
  Copyright terms: Public domain W3C validator