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 40101
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 (𝜑𝐴 ⊆ (ℝ ↑𝑚 𝑋))
ovncvrrp.e (𝜑𝐸 ∈ ℝ+)
ovncvrrp.c 𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
ovncvrrp.l 𝐿 = ( ∈ ((ℝ × ℝ) ↑𝑚 𝑋) ↦ ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)))
ovncvrrp.d 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((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 (𝜑𝐴 ⊆ (ℝ ↑𝑚 𝑋))
4 ovncvrrp.e . . . 4 (𝜑𝐸 ∈ ℝ+)
5 eqid 2621 . . . 4 {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}
61, 2, 3, 4, 5ovnlerp 40099 . . 3 (𝜑 → ∃𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
7 simp1 1059 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝜑)
8 simp3 1061 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
9 rabid 3106 . . . . . . . . . 10 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ↔ (𝑧 ∈ ℝ* ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
109biimpi 206 . . . . . . . . 9 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → (𝑧 ∈ ℝ* ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
1110simprd 479 . . . . . . . 8 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
1211adantr 481 . . . . . . 7 ((𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
13123adant1 1077 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
14 nfv 1840 . . . . . . . 8 𝑖(𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
15 nfe1 2024 . . . . . . . 8 𝑖𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
16 simp1l 1083 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝜑)
17 simp2 1060 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ))
18 simp3l 1087 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
19 id 22 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → (𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
20 fveq1 6149 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑖 → (𝑙𝑗) = (𝑖𝑗))
2120coeq2d 5246 . . . . . . . . . . . . . . . . . . . 20 (𝑙 = 𝑖 → ([,) ∘ (𝑙𝑗)) = ([,) ∘ (𝑖𝑗)))
2221fveq1d 6152 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑖 → (([,) ∘ (𝑙𝑗))‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
2322ixpeq2dv 7871 . . . . . . . . . . . . . . . . . 18 (𝑙 = 𝑖X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) = X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
2423iuneq2d 4515 . . . . . . . . . . . . . . . . 17 (𝑙 = 𝑖 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) = 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
2524sseq2d 3614 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑖 → (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) ↔ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
2625elrab 3347 . . . . . . . . . . . . . . 15 (𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ↔ (𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
2719, 26sylibr 224 . . . . . . . . . . . . . 14 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
28273adant1 1077 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
29 ovncvrrp.c . . . . . . . . . . . . . . . . 17 𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
3029a1i 11 . . . . . . . . . . . . . . . 16 (𝜑𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)}))
31 sseq1 3607 . . . . . . . . . . . . . . . . . 18 (𝑎 = 𝐴 → (𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) ↔ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)))
3231rabbidv 3177 . . . . . . . . . . . . . . . . 17 (𝑎 = 𝐴 → {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
3332adantl 482 . . . . . . . . . . . . . . . 16 ((𝜑𝑎 = 𝐴) → {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
34 ovex 6635 . . . . . . . . . . . . . . . . . . . 20 (ℝ ↑𝑚 𝑋) ∈ V
3534a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (ℝ ↑𝑚 𝑋) ∈ V)
3635, 3ssexd 4767 . . . . . . . . . . . . . . . . . 18 (𝜑𝐴 ∈ V)
37 elpwg 4140 . . . . . . . . . . . . . . . . . 18 (𝐴 ∈ V → (𝐴 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↔ 𝐴 ⊆ (ℝ ↑𝑚 𝑋)))
3836, 37syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↔ 𝐴 ⊆ (ℝ ↑𝑚 𝑋)))
393, 38mpbird 247 . . . . . . . . . . . . . . . 16 (𝜑𝐴 ∈ 𝒫 (ℝ ↑𝑚 𝑋))
40 ovex 6635 . . . . . . . . . . . . . . . . . 18 (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∈ V
4140rabex 4775 . . . . . . . . . . . . . . . . 17 {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ∈ V
4241a1i 11 . . . . . . . . . . . . . . . 16 (𝜑 → {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ∈ V)
4330, 33, 39, 42fvmptd 6247 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶𝐴) = {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
4443eqcomd 2627 . . . . . . . . . . . . . 14 (𝜑 → {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = (𝐶𝐴))
45443ad2ant1 1080 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = (𝐶𝐴))
4628, 45eleqtrd 2700 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ (𝐶𝐴))
4716, 17, 18, 46syl3anc 1323 . . . . . . . . . . 11 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝑖 ∈ (𝐶𝐴))
48 ovncvrrp.l . . . . . . . . . . . . . . . . . . . . 21 𝐿 = ( ∈ ((ℝ × ℝ) ↑𝑚 𝑋) ↦ ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)))
4948a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑗 ∈ ℕ) → 𝐿 = ( ∈ ((ℝ × ℝ) ↑𝑚 𝑋) ↦ ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘))))
50 coeq2 5242 . . . . . . . . . . . . . . . . . . . . . . . 24 ( = (𝑖𝑗) → ([,) ∘ ) = ([,) ∘ (𝑖𝑗)))
5150fveq1d 6152 . . . . . . . . . . . . . . . . . . . . . . 23 ( = (𝑖𝑗) → (([,) ∘ )‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
5251fveq2d 6154 . . . . . . . . . . . . . . . . . . . . . 22 ( = (𝑖𝑗) → (vol‘(([,) ∘ )‘𝑘)) = (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
5352prodeq2ad 39246 . . . . . . . . . . . . . . . . . . . . 21 ( = (𝑖𝑗) → ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
5453adantl 482 . . . . . . . . . . . . . . . . . . . 20 (((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑗 ∈ ℕ) ∧ = (𝑖𝑗)) → ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
55 elmapi 7826 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) → 𝑖:ℕ⟶((ℝ × ℝ) ↑𝑚 𝑋))
5655adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑗 ∈ ℕ) → 𝑖:ℕ⟶((ℝ × ℝ) ↑𝑚 𝑋))
57 simpr 477 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℕ)
5856, 57ffvelrnd 6318 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑗 ∈ ℕ) → (𝑖𝑗) ∈ ((ℝ × ℝ) ↑𝑚 𝑋))
59 prodex 14565 . . . . . . . . . . . . . . . . . . . . 21 𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)) ∈ V
6059a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑗 ∈ ℕ) → ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)) ∈ V)
6149, 54, 58, 60fvmptd 6247 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑗 ∈ ℕ) → (𝐿‘(𝑖𝑗)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
6261mpteq2dva 4706 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) → (𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗))) = (𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))
6362fveq2d 6154 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
6463adantr 481 . . . . . . . . . . . . . . . 16 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
65 id 22 . . . . . . . . . . . . . . . . . 18 (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) → 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
6665eqcomd 2627 . . . . . . . . . . . . . . . . 17 (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) = 𝑧)
6766adantl 482 . . . . . . . . . . . . . . . 16 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) = 𝑧)
6864, 67eqtrd 2655 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = 𝑧)
69683adant1 1077 . . . . . . . . . . . . . 14 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = 𝑧)
70 simp1 1059 . . . . . . . . . . . . . 14 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
7169, 70eqbrtrd 4637 . . . . . . . . . . . . 13 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
72713adant1l 1315 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
73723adant3l 1319 . . . . . . . . . . 11 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
7447, 73jca 554 . . . . . . . . . 10 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
75 19.8a 2049 . . . . . . . . . 10 ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
7674, 75syl 17 . . . . . . . . 9 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
77763exp 1261 . . . . . . . 8 ((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → (𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) → ((𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))))
7814, 15, 77rexlimd 3019 . . . . . . 7 ((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → (∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))))
7978imp 445 . . . . . 6 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
807, 8, 13, 79syl21anc 1322 . . . . 5 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
81803exp 1261 . . . 4 (𝜑 → (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → (𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))))
8281rexlimdv 3023 . . 3 (𝜑 → (∃𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))))
836, 82mpd 15 . 2 (𝜑 → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
84 rabid 3106 . . . . . . . 8 (𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ↔ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
8584bicomi 214 . . . . . . 7 ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ↔ 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
8685biimpi 206 . . . . . 6 ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
8786adantl 482 . . . . 5 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
88 ovncvrrp.d . . . . . . . . . 10 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)}))
89 nfcv 2761 . . . . . . . . . . 11 𝑏(𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)})
90 nfcv 2761 . . . . . . . . . . . 12 𝑎+
91 nfv 1840 . . . . . . . . . . . . 13 𝑎^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)
92 nfmpt1 4709 . . . . . . . . . . . . . . 15 𝑎(𝑎 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑𝑚 𝑋) ↑𝑚 ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
9329, 92nfcxfr 2759 . . . . . . . . . . . . . 14 𝑎𝐶
94 nfcv 2761 . . . . . . . . . . . . . 14 𝑎𝑏
9593, 94nffv 6157 . . . . . . . . . . . . 13 𝑎(𝐶𝑏)
9691, 95nfrab 3112 . . . . . . . . . . . 12 𝑎{𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}
9790, 96nfmpt 4708 . . . . . . . . . . 11 𝑎(𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)})
98 fveq2 6150 . . . . . . . . . . . . . . 15 (𝑎 = 𝑏 → (𝐶𝑎) = (𝐶𝑏))
9998eleq2d 2684 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝑖 ∈ (𝐶𝑎) ↔ 𝑖 ∈ (𝐶𝑏)))
100 fveq2 6150 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑏 → ((voln*‘𝑋)‘𝑎) = ((voln*‘𝑋)‘𝑏))
101100oveq1d 6622 . . . . . . . . . . . . . . 15 (𝑎 = 𝑏 → (((voln*‘𝑋)‘𝑎) +𝑒 𝑒) = (((voln*‘𝑋)‘𝑏) +𝑒 𝑒))
102101breq2d 4627 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)))
10399, 102anbi12d 746 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → ((𝑖 ∈ (𝐶𝑎) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)) ↔ (𝑖 ∈ (𝐶𝑏) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒))))
104103rabbidva2 3174 . . . . . . . . . . . 12 (𝑎 = 𝑏 → {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)})
105104mpteq2dv 4707 . . . . . . . . . . 11 (𝑎 = 𝑏 → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)}) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
10689, 97, 105cbvmpt 4711 . . . . . . . . . 10 (𝑎 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)})) = (𝑏 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
10788, 106eqtri 2643 . . . . . . . . 9 𝐷 = (𝑏 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
108107a1i 11 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝐷 = (𝑏 ∈ 𝒫 (ℝ ↑𝑚 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)})))
109 fveq2 6150 . . . . . . . . . . . . 13 (𝑏 = 𝐴 → (𝐶𝑏) = (𝐶𝐴))
110109eleq2d 2684 . . . . . . . . . . . 12 (𝑏 = 𝐴 → (𝑖 ∈ (𝐶𝑏) ↔ 𝑖 ∈ (𝐶𝐴)))
111 fveq2 6150 . . . . . . . . . . . . . 14 (𝑏 = 𝐴 → ((voln*‘𝑋)‘𝑏) = ((voln*‘𝑋)‘𝐴))
112111oveq1d 6622 . . . . . . . . . . . . 13 (𝑏 = 𝐴 → (((voln*‘𝑋)‘𝑏) +𝑒 𝑒) = (((voln*‘𝑋)‘𝐴) +𝑒 𝑒))
113112breq2d 4627 . . . . . . . . . . . 12 (𝑏 = 𝐴 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)))
114110, 113anbi12d 746 . . . . . . . . . . 11 (𝑏 = 𝐴 → ((𝑖 ∈ (𝐶𝑏) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)) ↔ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒))))
115114rabbidva2 3174 . . . . . . . . . 10 (𝑏 = 𝐴 → {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)})
116115mpteq2dv 4707 . . . . . . . . 9 (𝑏 = 𝐴 → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}))
117116adantl 482 . . . . . . . 8 (((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) ∧ 𝑏 = 𝐴) → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}))
11839adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝐴 ∈ 𝒫 (ℝ ↑𝑚 𝑋))
119 rpex 39044 . . . . . . . . . 10 + ∈ V
120119mptex 6443 . . . . . . . . 9 (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}) ∈ V
121120a1i 11 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}) ∈ V)
122108, 117, 118, 121fvmptd 6247 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → (𝐷𝐴) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}))
123 oveq2 6615 . . . . . . . . . 10 (𝑒 = 𝐸 → (((voln*‘𝑋)‘𝐴) +𝑒 𝑒) = (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
124123breq2d 4627 . . . . . . . . 9 (𝑒 = 𝐸 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
125124rabbidv 3177 . . . . . . . 8 (𝑒 = 𝐸 → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
126125adantl 482 . . . . . . 7 (((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) ∧ 𝑒 = 𝐸) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
1274adantr 481 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝐸 ∈ ℝ+)
128 fvex 6160 . . . . . . . . 9 (𝐶𝐴) ∈ V
129128rabex 4775 . . . . . . . 8 {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ∈ V
130129a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ∈ V)
131122, 126, 127, 130fvmptd 6247 . . . . . 6 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → ((𝐷𝐴)‘𝐸) = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
132131eqcomd 2627 . . . . 5 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} = ((𝐷𝐴)‘𝐸))
13387, 132eleqtrd 2700 . . . 4 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝑖 ∈ ((𝐷𝐴)‘𝐸))
134133ex 450 . . 3 (𝜑 → ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑖 ∈ ((𝐷𝐴)‘𝐸)))
135134eximdv 1843 . 2 (𝜑 → (∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 𝑖 ∈ ((𝐷𝐴)‘𝐸)))
13683, 135mpd 15 1 (𝜑 → ∃𝑖 𝑖 ∈ ((𝐷𝐴)‘𝐸))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3a 1036   = wceq 1480  wex 1701  wcel 1987  wne 2790  wrex 2908  {crab 2911  Vcvv 3186  wss 3556  c0 3893  𝒫 cpw 4132   ciun 4487   class class class wbr 4615  cmpt 4675   × cxp 5074  ccom 5080  wf 5845  cfv 5849  (class class class)co 6607  𝑚 cmap 7805  Xcixp 7855  Fincfn 7902  cr 9882  *cxr 10020  cle 10022  cn 10967  +crp 11779   +𝑒 cxad 11891  [,)cico 12122  cprod 14563  volcvol 23145  Σ^csumge0 39902  voln*covoln 40073
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4733  ax-sep 4743  ax-nul 4751  ax-pow 4805  ax-pr 4869  ax-un 6905  ax-inf2 8485  ax-cnex 9939  ax-resscn 9940  ax-1cn 9941  ax-icn 9942  ax-addcl 9943  ax-addrcl 9944  ax-mulcl 9945  ax-mulrcl 9946  ax-mulcom 9947  ax-addass 9948  ax-mulass 9949  ax-distr 9950  ax-i2m1 9951  ax-1ne0 9952  ax-1rid 9953  ax-rnegex 9954  ax-rrecex 9955  ax-cnre 9956  ax-pre-lttri 9957  ax-pre-lttrn 9958  ax-pre-ltadd 9959  ax-pre-mulgt0 9960  ax-pre-sup 9961  ax-addf 9962  ax-mulf 9963
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-fal 1486  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3188  df-sbc 3419  df-csb 3516  df-dif 3559  df-un 3561  df-in 3563  df-ss 3570  df-pss 3572  df-nul 3894  df-if 4061  df-pw 4134  df-sn 4151  df-pr 4153  df-tp 4155  df-op 4157  df-uni 4405  df-int 4443  df-iun 4489  df-br 4616  df-opab 4676  df-mpt 4677  df-tr 4715  df-eprel 4987  df-id 4991  df-po 4997  df-so 4998  df-fr 5035  df-se 5036  df-we 5037  df-xp 5082  df-rel 5083  df-cnv 5084  df-co 5085  df-dm 5086  df-rn 5087  df-res 5088  df-ima 5089  df-pred 5641  df-ord 5687  df-on 5688  df-lim 5689  df-suc 5690  df-iota 5812  df-fun 5851  df-fn 5852  df-f 5853  df-f1 5854  df-fo 5855  df-f1o 5856  df-fv 5857  df-isom 5858  df-riota 6568  df-ov 6610  df-oprab 6611  df-mpt2 6612  df-of 6853  df-om 7016  df-1st 7116  df-2nd 7117  df-tpos 7300  df-wrecs 7355  df-recs 7416  df-rdg 7454  df-1o 7508  df-2o 7509  df-oadd 7512  df-er 7690  df-map 7807  df-pm 7808  df-ixp 7856  df-en 7903  df-dom 7904  df-sdom 7905  df-fin 7906  df-fi 8264  df-sup 8295  df-inf 8296  df-oi 8362  df-card 8712  df-cda 8937  df-pnf 10023  df-mnf 10024  df-xr 10025  df-ltxr 10026  df-le 10027  df-sub 10215  df-neg 10216  df-div 10632  df-nn 10968  df-2 11026  df-3 11027  df-4 11028  df-5 11029  df-6 11030  df-7 11031  df-8 11032  df-9 11033  df-n0 11240  df-z 11325  df-dec 11441  df-uz 11635  df-q 11736  df-rp 11780  df-xneg 11893  df-xadd 11894  df-xmul 11895  df-ioo 12124  df-ico 12126  df-icc 12127  df-fz 12272  df-fzo 12410  df-fl 12536  df-seq 12745  df-exp 12804  df-hash 13061  df-cj 13776  df-re 13777  df-im 13778  df-sqrt 13912  df-abs 13913  df-clim 14156  df-rlim 14157  df-sum 14354  df-prod 14564  df-struct 15786  df-ndx 15787  df-slot 15788  df-base 15789  df-sets 15790  df-ress 15791  df-plusg 15878  df-mulr 15879  df-starv 15880  df-tset 15884  df-ple 15885  df-ds 15888  df-unif 15889  df-rest 16007  df-0g 16026  df-topgen 16028  df-mgm 17166  df-sgrp 17208  df-mnd 17219  df-grp 17349  df-minusg 17350  df-subg 17515  df-cmn 18119  df-abl 18120  df-mgp 18414  df-ur 18426  df-ring 18473  df-cring 18474  df-oppr 18547  df-dvdsr 18565  df-unit 18566  df-invr 18596  df-dvr 18607  df-drng 18673  df-psmet 19660  df-xmet 19661  df-met 19662  df-bl 19663  df-mopn 19664  df-cnfld 19669  df-top 20621  df-topon 20638  df-bases 20664  df-cmp 21103  df-ovol 23146  df-vol 23147  df-sumge0 39903  df-ovoln 40074
This theorem is referenced by:  ovnsubaddlem2  40108  hspmbllem3  40165
  Copyright terms: Public domain W3C validator