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 43203
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 2798 . . . 4 {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}
61, 2, 3, 4, 5ovnlerp 43201 . . 3 (𝜑 → ∃𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
7 simp1 1133 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝜑)
8 simp3 1135 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
9 rabid 3331 . . . . . . . . . 10 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ↔ (𝑧 ∈ ℝ* ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
109biimpi 219 . . . . . . . . 9 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → (𝑧 ∈ ℝ* ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
1110simprd 499 . . . . . . . 8 (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
1211adantr 484 . . . . . . 7 ((𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
13123adant1 1127 . . . . . 6 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
14 nfv 1915 . . . . . . . 8 𝑖(𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
15 nfe1 2151 . . . . . . . 8 𝑖𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
16 simp1l 1194 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝜑)
17 simp2 1134 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ))
18 simp3l 1198 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
19 id 22 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
20 fveq1 6644 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑖 → (𝑙𝑗) = (𝑖𝑗))
2120coeq2d 5697 . . . . . . . . . . . . . . . . . . . 20 (𝑙 = 𝑖 → ([,) ∘ (𝑙𝑗)) = ([,) ∘ (𝑖𝑗)))
2221fveq1d 6647 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑖 → (([,) ∘ (𝑙𝑗))‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
2322ixpeq2dv 8460 . . . . . . . . . . . . . . . . . 18 (𝑙 = 𝑖X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) = X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
2423iuneq2d 4910 . . . . . . . . . . . . . . . . 17 (𝑙 = 𝑖 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) = 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
2524sseq2d 3947 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑖 → (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) ↔ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
2625elrab 3628 . . . . . . . . . . . . . . 15 (𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ↔ (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
2719, 26sylibr 237 . . . . . . . . . . . . . 14 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
28273adant1 1127 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
29 ovncvrrp.c . . . . . . . . . . . . . . . 16 𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
30 sseq1 3940 . . . . . . . . . . . . . . . . 17 (𝑎 = 𝐴 → (𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘) ↔ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)))
3130rabbidv 3427 . . . . . . . . . . . . . . . 16 (𝑎 = 𝐴 → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
32 ovexd 7170 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (ℝ ↑m 𝑋) ∈ V)
3332, 3ssexd 5192 . . . . . . . . . . . . . . . . . 18 (𝜑𝐴 ∈ V)
34 elpwg 4500 . . . . . . . . . . . . . . . . . 18 (𝐴 ∈ V → (𝐴 ∈ 𝒫 (ℝ ↑m 𝑋) ↔ 𝐴 ⊆ (ℝ ↑m 𝑋)))
3533, 34syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 ∈ 𝒫 (ℝ ↑m 𝑋) ↔ 𝐴 ⊆ (ℝ ↑m 𝑋)))
363, 35mpbird 260 . . . . . . . . . . . . . . . 16 (𝜑𝐴 ∈ 𝒫 (ℝ ↑m 𝑋))
37 ovex 7168 . . . . . . . . . . . . . . . . . 18 (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∈ V
3837rabex 5199 . . . . . . . . . . . . . . . . 17 {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ∈ V
3938a1i 11 . . . . . . . . . . . . . . . 16 (𝜑 → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} ∈ V)
4029, 31, 36, 39fvmptd3 6768 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶𝐴) = {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
4140eqcomd 2804 . . . . . . . . . . . . . 14 (𝜑 → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = (𝐶𝐴))
42413ad2ant1 1130 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)} = (𝐶𝐴))
4328, 42eleqtrd 2892 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)) → 𝑖 ∈ (𝐶𝐴))
4416, 17, 18, 43syl3anc 1368 . . . . . . . . . . 11 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → 𝑖 ∈ (𝐶𝐴))
45 ovncvrrp.l . . . . . . . . . . . . . . . . . . . 20 𝐿 = ( ∈ ((ℝ × ℝ) ↑m 𝑋) ↦ ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)))
46 coeq2 5693 . . . . . . . . . . . . . . . . . . . . . . 23 ( = (𝑖𝑗) → ([,) ∘ ) = ([,) ∘ (𝑖𝑗)))
4746fveq1d 6647 . . . . . . . . . . . . . . . . . . . . . 22 ( = (𝑖𝑗) → (([,) ∘ )‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
4847fveq2d 6649 . . . . . . . . . . . . . . . . . . . . 21 ( = (𝑖𝑗) → (vol‘(([,) ∘ )‘𝑘)) = (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
4948prodeq2ad 42234 . . . . . . . . . . . . . . . . . . . 20 ( = (𝑖𝑗) → ∏𝑘𝑋 (vol‘(([,) ∘ )‘𝑘)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
50 elmapi 8411 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → 𝑖:ℕ⟶((ℝ × ℝ) ↑m 𝑋))
5150adantr 484 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → 𝑖:ℕ⟶((ℝ × ℝ) ↑m 𝑋))
52 simpr 488 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℕ)
5351, 52ffvelrnd 6829 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → (𝑖𝑗) ∈ ((ℝ × ℝ) ↑m 𝑋))
54 prodex 15253 . . . . . . . . . . . . . . . . . . . . 21 𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)) ∈ V
5554a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)) ∈ V)
5645, 49, 53, 55fvmptd3 6768 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑗 ∈ ℕ) → (𝐿‘(𝑖𝑗)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
5756mpteq2dva 5125 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → (𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗))) = (𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))
5857fveq2d 6649 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
5958adantr 484 . . . . . . . . . . . . . . . 16 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
60 id 22 . . . . . . . . . . . . . . . . . 18 (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) → 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
6160eqcomd 2804 . . . . . . . . . . . . . . . . 17 (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) = 𝑧)
6261adantl 485 . . . . . . . . . . . . . . . 16 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) = 𝑧)
6359, 62eqtrd 2833 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = 𝑧)
64633adant1 1127 . . . . . . . . . . . . . 14 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) = 𝑧)
65 simp1 1133 . . . . . . . . . . . . . 14 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
6664, 65eqbrtrd 5052 . . . . . . . . . . . . 13 ((𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
67663adant1l 1173 . . . . . . . . . . . 12 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
68673adant3l 1177 . . . . . . . . . . 11 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
6944, 68jca 515 . . . . . . . . . 10 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
706919.8ad 2179 . . . . . . . . 9 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ 𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∧ (𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
71703exp 1116 . . . . . . . 8 ((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) → ((𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))))
7214, 15, 71rexlimd 3276 . . . . . . 7 ((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → (∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))))
7372imp 410 . . . . . 6 (((𝜑𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ∧ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
747, 8, 13, 73syl21anc 836 . . . . 5 ((𝜑𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} ∧ 𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
75743exp 1116 . . . 4 (𝜑 → (𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} → (𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))))
7675rexlimdv 3242 . . 3 (𝜑 → (∃𝑧 ∈ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐴 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}𝑧 ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸) → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))))
776, 76mpd 15 . 2 (𝜑 → ∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
78 rabid 3331 . . . . . . . 8 (𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ↔ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
7978bicomi 227 . . . . . . 7 ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) ↔ 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
8079biimpi 219 . . . . . 6 ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
8180adantl 485 . . . . 5 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝑖 ∈ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
82 ovncvrrp.d . . . . . . . . 9 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)}))
83 nfcv 2955 . . . . . . . . . 10 𝑏(𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)})
84 nfcv 2955 . . . . . . . . . . 11 𝑎+
85 nfv 1915 . . . . . . . . . . . 12 𝑎^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)
86 nfmpt1 5128 . . . . . . . . . . . . . 14 𝑎(𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ∣ 𝑎 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑙𝑗))‘𝑘)})
8729, 86nfcxfr 2953 . . . . . . . . . . . . 13 𝑎𝐶
88 nfcv 2955 . . . . . . . . . . . . 13 𝑎𝑏
8987, 88nffv 6655 . . . . . . . . . . . 12 𝑎(𝐶𝑏)
9085, 89nfrabw 3338 . . . . . . . . . . 11 𝑎{𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}
9184, 90nfmpt 5127 . . . . . . . . . 10 𝑎(𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)})
92 fveq2 6645 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝐶𝑎) = (𝐶𝑏))
9392eleq2d 2875 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → (𝑖 ∈ (𝐶𝑎) ↔ 𝑖 ∈ (𝐶𝑏)))
94 fveq2 6645 . . . . . . . . . . . . . . 15 (𝑎 = 𝑏 → ((voln*‘𝑋)‘𝑎) = ((voln*‘𝑋)‘𝑏))
9594oveq1d 7150 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (((voln*‘𝑋)‘𝑎) +𝑒 𝑒) = (((voln*‘𝑋)‘𝑏) +𝑒 𝑒))
9695breq2d 5042 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)))
9793, 96anbi12d 633 . . . . . . . . . . . 12 (𝑎 = 𝑏 → ((𝑖 ∈ (𝐶𝑎) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)) ↔ (𝑖 ∈ (𝐶𝑏) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒))))
9897rabbidva2 3423 . . . . . . . . . . 11 (𝑎 = 𝑏 → {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)})
9998mpteq2dv 5126 . . . . . . . . . 10 (𝑎 = 𝑏 → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)}) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
10083, 91, 99cbvmpt 5131 . . . . . . . . 9 (𝑎 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑎) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +𝑒 𝑒)})) = (𝑏 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
10182, 100eqtri 2821 . . . . . . . 8 𝐷 = (𝑏 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}))
102 fveq2 6645 . . . . . . . . . . . 12 (𝑏 = 𝐴 → (𝐶𝑏) = (𝐶𝐴))
103102eleq2d 2875 . . . . . . . . . . 11 (𝑏 = 𝐴 → (𝑖 ∈ (𝐶𝑏) ↔ 𝑖 ∈ (𝐶𝐴)))
104 fveq2 6645 . . . . . . . . . . . . 13 (𝑏 = 𝐴 → ((voln*‘𝑋)‘𝑏) = ((voln*‘𝑋)‘𝐴))
105104oveq1d 7150 . . . . . . . . . . . 12 (𝑏 = 𝐴 → (((voln*‘𝑋)‘𝑏) +𝑒 𝑒) = (((voln*‘𝑋)‘𝐴) +𝑒 𝑒))
106105breq2d 5042 . . . . . . . . . . 11 (𝑏 = 𝐴 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)))
107103, 106anbi12d 633 . . . . . . . . . 10 (𝑏 = 𝐴 → ((𝑖 ∈ (𝐶𝑏) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)) ↔ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒))))
108107rabbidva2 3423 . . . . . . . . 9 (𝑏 = 𝐴 → {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)})
109108mpteq2dv 5126 . . . . . . . 8 (𝑏 = 𝐴 → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝑏) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝑏) +𝑒 𝑒)}) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}))
11036adantr 484 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝐴 ∈ 𝒫 (ℝ ↑m 𝑋))
111 rpex 41978 . . . . . . . . . 10 + ∈ V
112111mptex 6963 . . . . . . . . 9 (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}) ∈ V
113112a1i 11 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}) ∈ V)
114101, 109, 110, 113fvmptd3 6768 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → (𝐷𝐴) = (𝑒 ∈ ℝ+ ↦ {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)}))
115 oveq2 7143 . . . . . . . . . 10 (𝑒 = 𝐸 → (((voln*‘𝑋)‘𝐴) +𝑒 𝑒) = (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))
116115breq2d 5042 . . . . . . . . 9 (𝑒 = 𝐸 → ((Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒) ↔ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)))
117116rabbidv 3427 . . . . . . . 8 (𝑒 = 𝐸 → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
118117adantl 485 . . . . . . 7 (((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) ∧ 𝑒 = 𝐸) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝑒)} = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
1194adantr 484 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝐸 ∈ ℝ+)
120 fvex 6658 . . . . . . . . 9 (𝐶𝐴) ∈ V
121120rabex 5199 . . . . . . . 8 {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ∈ V
122121a1i 11 . . . . . . 7 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} ∈ V)
123114, 118, 119, 122fvmptd 6752 . . . . . 6 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → ((𝐷𝐴)‘𝐸) = {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)})
124123eqcomd 2804 . . . . 5 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → {𝑖 ∈ (𝐶𝐴) ∣ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)} = ((𝐷𝐴)‘𝐸))
12581, 124eleqtrd 2892 . . . 4 ((𝜑 ∧ (𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸))) → 𝑖 ∈ ((𝐷𝐴)‘𝐸))
126125ex 416 . . 3 (𝜑 → ((𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → 𝑖 ∈ ((𝐷𝐴)‘𝐸)))
127126eximdv 1918 . 2 (𝜑 → (∃𝑖(𝑖 ∈ (𝐶𝐴) ∧ (Σ^‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖𝑗)))) ≤ (((voln*‘𝑋)‘𝐴) +𝑒 𝐸)) → ∃𝑖 𝑖 ∈ ((𝐷𝐴)‘𝐸)))
12877, 127mpd 15 1 (𝜑 → ∃𝑖 𝑖 ∈ ((𝐷𝐴)‘𝐸))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  w3a 1084   = wceq 1538  wex 1781  wcel 2111  wne 2987  wrex 3107  {crab 3110  Vcvv 3441  wss 3881  c0 4243  𝒫 cpw 4497   ciun 4881   class class class wbr 5030  cmpt 5110   × cxp 5517  ccom 5523  wf 6320  cfv 6324  (class class class)co 7135  m cmap 8389  Xcixp 8444  Fincfn 8492  cr 10525  *cxr 10663  cle 10665  cn 11625  +crp 12377   +𝑒 cxad 12493  [,)cico 12728  cprod 15251  volcvol 24067  Σ^csumge0 43001  voln*covoln 43175
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-inf2 9088  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603  ax-pre-sup 10604  ax-addf 10605  ax-mulf 10606
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isom 6333  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-of 7389  df-om 7561  df-1st 7671  df-2nd 7672  df-tpos 7875  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-1o 8085  df-2o 8086  df-oadd 8089  df-er 8272  df-map 8391  df-pm 8392  df-ixp 8445  df-en 8493  df-dom 8494  df-sdom 8495  df-fin 8496  df-fi 8859  df-sup 8890  df-inf 8891  df-oi 8958  df-dju 9314  df-card 9352  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-div 11287  df-nn 11626  df-2 11688  df-3 11689  df-4 11690  df-5 11691  df-6 11692  df-7 11693  df-8 11694  df-9 11695  df-n0 11886  df-z 11970  df-dec 12087  df-uz 12232  df-q 12337  df-rp 12378  df-xneg 12495  df-xadd 12496  df-xmul 12497  df-ioo 12730  df-ico 12732  df-icc 12733  df-fz 12886  df-fzo 13029  df-fl 13157  df-seq 13365  df-exp 13426  df-hash 13687  df-cj 14450  df-re 14451  df-im 14452  df-sqrt 14586  df-abs 14587  df-clim 14837  df-rlim 14838  df-sum 15035  df-prod 15252  df-struct 16477  df-ndx 16478  df-slot 16479  df-base 16481  df-sets 16482  df-ress 16483  df-plusg 16570  df-mulr 16571  df-starv 16572  df-tset 16576  df-ple 16577  df-ds 16579  df-unif 16580  df-rest 16688  df-0g 16707  df-topgen 16709  df-mgm 17844  df-sgrp 17893  df-mnd 17904  df-grp 18098  df-minusg 18099  df-subg 18268  df-cmn 18900  df-abl 18901  df-mgp 19233  df-ur 19245  df-ring 19292  df-cring 19293  df-oppr 19369  df-dvdsr 19387  df-unit 19388  df-invr 19418  df-dvr 19429  df-drng 19497  df-psmet 20083  df-xmet 20084  df-met 20085  df-bl 20086  df-mopn 20087  df-cnfld 20092  df-top 21499  df-topon 21516  df-bases 21551  df-cmp 21992  df-ovol 24068  df-vol 24069  df-sumge0 43002  df-ovoln 43176
This theorem is referenced by:  ovnsubaddlem2  43210  hspmbllem3  43267
  Copyright terms: Public domain W3C validator