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

Theorem ovnval 45810
Description: Value of the Lebesgue outer measure for a given finite dimension. (Contributed by Glauco Siliprandi, 11-Oct-2020.)
Hypothesis
Ref Expression
ovnval.1 (𝜑𝑋 ∈ Fin)
Assertion
Ref Expression
ovnval (𝜑 → (voln*‘𝑋) = (𝑦 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ if(𝑋 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))))
Distinct variable group:   𝑖,𝑋,𝑗,𝑘,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑦,𝑧,𝑖,𝑗,𝑘)

Proof of Theorem ovnval
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 df-ovoln 45806 . 2 voln* = (𝑥 ∈ Fin ↦ (𝑦 ∈ 𝒫 (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑥) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))))
2 oveq2 7412 . . . 4 (𝑥 = 𝑋 → (ℝ ↑m 𝑥) = (ℝ ↑m 𝑋))
32pweqd 4614 . . 3 (𝑥 = 𝑋 → 𝒫 (ℝ ↑m 𝑥) = 𝒫 (ℝ ↑m 𝑋))
4 eqeq1 2730 . . . 4 (𝑥 = 𝑋 → (𝑥 = ∅ ↔ 𝑋 = ∅))
5 oveq2 7412 . . . . . . . 8 (𝑥 = 𝑋 → ((ℝ × ℝ) ↑m 𝑥) = ((ℝ × ℝ) ↑m 𝑋))
65oveq1d 7419 . . . . . . 7 (𝑥 = 𝑋 → (((ℝ × ℝ) ↑m 𝑥) ↑m ℕ) = (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ))
7 ixpeq1 8901 . . . . . . . . . 10 (𝑥 = 𝑋X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) = X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
87iuneq2d 5019 . . . . . . . . 9 (𝑥 = 𝑋 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) = 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
98sseq2d 4009 . . . . . . . 8 (𝑥 = 𝑋 → (𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ↔ 𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
10 simpl 482 . . . . . . . . . . . 12 ((𝑥 = 𝑋𝑗 ∈ ℕ) → 𝑥 = 𝑋)
1110prodeq1d 15869 . . . . . . . . . . 11 ((𝑥 = 𝑋𝑗 ∈ ℕ) → ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
1211mpteq2dva 5241 . . . . . . . . . 10 (𝑥 = 𝑋 → (𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))) = (𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))
1312fveq2d 6888 . . . . . . . . 9 (𝑥 = 𝑋 → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
1413eqeq2d 2737 . . . . . . . 8 (𝑥 = 𝑋 → (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
159, 14anbi12d 630 . . . . . . 7 (𝑥 = 𝑋 → ((𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) ↔ (𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
166, 15rexeqbidv 3337 . . . . . 6 (𝑥 = 𝑋 → (∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑥) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
1716rabbidv 3434 . . . . 5 (𝑥 = 𝑋 → {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑥) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))})
1817infeq1d 9471 . . . 4 (𝑥 = 𝑋 → inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑥) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ) = inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))
194, 18ifbieq2d 4549 . . 3 (𝑥 = 𝑋 → if(𝑥 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑥) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < )) = if(𝑋 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < )))
203, 19mpteq12dv 5232 . 2 (𝑥 = 𝑋 → (𝑦 ∈ 𝒫 (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑥) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑥 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑥 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))) = (𝑦 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ if(𝑋 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))))
21 ovnval.1 . 2 (𝜑𝑋 ∈ Fin)
22 ovex 7437 . . . . 5 (ℝ ↑m 𝑋) ∈ V
2322pwex 5371 . . . 4 𝒫 (ℝ ↑m 𝑋) ∈ V
2423mptex 7219 . . 3 (𝑦 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ if(𝑋 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))) ∈ V
2524a1i 11 . 2 (𝜑 → (𝑦 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ if(𝑋 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))) ∈ V)
261, 20, 21, 25fvmptd3 7014 1 (𝜑 → (voln*‘𝑋) = (𝑦 ∈ 𝒫 (ℝ ↑m 𝑋) ↦ if(𝑋 = ∅, 0, inf({𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝑦 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}, ℝ*, < ))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1533  wcel 2098  wrex 3064  {crab 3426  Vcvv 3468  wss 3943  c0 4317  ifcif 4523  𝒫 cpw 4597   ciun 4990  cmpt 5224   × cxp 5667  ccom 5673  cfv 6536  (class class class)co 7404  m cmap 8819  Xcixp 8890  Fincfn 8938  infcinf 9435  cr 11108  0cc0 11109  *cxr 11248   < clt 11249  cn 12213  [,)cico 13329  cprod 15853  volcvol 25343  Σ^csumge0 45631  voln*covoln 45805
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-ral 3056  df-rex 3065  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-nul 4318  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4903  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-id 5567  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6293  df-iota 6488  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7407  df-oprab 7408  df-mpo 7409  df-frecs 8264  df-wrecs 8295  df-recs 8369  df-rdg 8408  df-ixp 8891  df-sup 9436  df-inf 9437  df-seq 13970  df-prod 15854  df-ovoln 45806
This theorem is referenced by:  ovnval2  45814  ovnf  45832
  Copyright terms: Public domain W3C validator