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

Theorem ovnhoi 46559
Description: The Lebesgue outer measure of a multidimensional half-open interval is its dimensional volume (the product of its length in each dimension, when the dimension is nonzero). Proposition 115D (b) of [Fremlin1] p. 30. (Contributed by Glauco Siliprandi, 21-Nov-2020.)
Hypotheses
Ref Expression
ovnhoi.x (𝜑𝑋 ∈ Fin)
ovnhoi.a (𝜑𝐴:𝑋⟶ℝ)
ovnhoi.b (𝜑𝐵:𝑋⟶ℝ)
ovnhoi.c 𝐼 = X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘))
ovnhoi.l 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))))
Assertion
Ref Expression
ovnhoi (𝜑 → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿𝑋)𝐵))
Distinct variable groups:   𝐴,𝑎,𝑏,𝑘   𝐵,𝑎,𝑏,𝑘   𝑋,𝑎,𝑏,𝑘,𝑥   𝜑,𝑎,𝑏,𝑘,𝑥
Allowed substitution hints:   𝐴(𝑥)   𝐵(𝑥)   𝐼(𝑥,𝑘,𝑎,𝑏)   𝐿(𝑥,𝑘,𝑎,𝑏)

Proof of Theorem ovnhoi
Dummy variables 𝑐 𝑑 𝑖 𝑗 𝑛 𝑧 𝑦 𝑤 𝑙 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ovnhoi.x . . 3 (𝜑𝑋 ∈ Fin)
2 ovnhoi.c . . . . 5 𝐼 = X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘))
32a1i 11 . . . 4 (𝜑𝐼 = X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘)))
4 nfv 1912 . . . . 5 𝑘𝜑
5 ovnhoi.a . . . . . 6 (𝜑𝐴:𝑋⟶ℝ)
65ffvelcdmda 7104 . . . . 5 ((𝜑𝑘𝑋) → (𝐴𝑘) ∈ ℝ)
7 ovnhoi.b . . . . . . 7 (𝜑𝐵:𝑋⟶ℝ)
87ffvelcdmda 7104 . . . . . 6 ((𝜑𝑘𝑋) → (𝐵𝑘) ∈ ℝ)
98rexrd 11309 . . . . 5 ((𝜑𝑘𝑋) → (𝐵𝑘) ∈ ℝ*)
104, 6, 9hoissrrn2 46534 . . . 4 (𝜑X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘)) ⊆ (ℝ ↑m 𝑋))
113, 10eqsstrd 4034 . . 3 (𝜑𝐼 ⊆ (ℝ ↑m 𝑋))
121, 11ovnxrcl 46525 . 2 (𝜑 → ((voln*‘𝑋)‘𝐼) ∈ ℝ*)
13 icossxr 13469 . . 3 (0[,)+∞) ⊆ ℝ*
14 ovnhoi.l . . . 4 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))))
1514, 1, 5, 7hoidmvcl 46538 . . 3 (𝜑 → (𝐴(𝐿𝑋)𝐵) ∈ (0[,)+∞))
1613, 15sselid 3993 . 2 (𝜑 → (𝐴(𝐿𝑋)𝐵) ∈ ℝ*)
17 fveq2 6907 . . . . . . . 8 (𝑋 = ∅ → (voln*‘𝑋) = (voln*‘∅))
1817fveq1d 6909 . . . . . . 7 (𝑋 = ∅ → ((voln*‘𝑋)‘𝐼) = ((voln*‘∅)‘𝐼))
1918adantl 481 . . . . . 6 ((𝜑𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = ((voln*‘∅)‘𝐼))
20 ixpeq1 8947 . . . . . . . . . . 11 (𝑋 = ∅ → X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘)) = X𝑘 ∈ ∅ ((𝐴𝑘)[,)(𝐵𝑘)))
21 ixp0x 8965 . . . . . . . . . . . 12 X𝑘 ∈ ∅ ((𝐴𝑘)[,)(𝐵𝑘)) = {∅}
2221a1i 11 . . . . . . . . . . 11 (𝑋 = ∅ → X𝑘 ∈ ∅ ((𝐴𝑘)[,)(𝐵𝑘)) = {∅})
2320, 22eqtrd 2775 . . . . . . . . . 10 (𝑋 = ∅ → X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘)) = {∅})
2423adantl 481 . . . . . . . . 9 ((𝜑𝑋 = ∅) → X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘)) = {∅})
252a1i 11 . . . . . . . . 9 ((𝜑𝑋 = ∅) → 𝐼 = X𝑘𝑋 ((𝐴𝑘)[,)(𝐵𝑘)))
26 reex 11244 . . . . . . . . . . 11 ℝ ∈ V
27 mapdm0 8881 . . . . . . . . . . 11 (ℝ ∈ V → (ℝ ↑m ∅) = {∅})
2826, 27ax-mp 5 . . . . . . . . . 10 (ℝ ↑m ∅) = {∅}
2928a1i 11 . . . . . . . . 9 ((𝜑𝑋 = ∅) → (ℝ ↑m ∅) = {∅})
3024, 25, 293eqtr4d 2785 . . . . . . . 8 ((𝜑𝑋 = ∅) → 𝐼 = (ℝ ↑m ∅))
31 eqimss 4054 . . . . . . . 8 (𝐼 = (ℝ ↑m ∅) → 𝐼 ⊆ (ℝ ↑m ∅))
3230, 31syl 17 . . . . . . 7 ((𝜑𝑋 = ∅) → 𝐼 ⊆ (ℝ ↑m ∅))
3332ovn0val 46506 . . . . . 6 ((𝜑𝑋 = ∅) → ((voln*‘∅)‘𝐼) = 0)
3419, 33eqtrd 2775 . . . . 5 ((𝜑𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = 0)
35 0red 11262 . . . . 5 ((𝜑𝑋 = ∅) → 0 ∈ ℝ)
3634, 35eqeltrd 2839 . . . 4 ((𝜑𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ∈ ℝ)
37 eqidd 2736 . . . . 5 ((𝜑𝑋 = ∅) → 0 = 0)
38 fveq2 6907 . . . . . . . 8 (𝑋 = ∅ → (𝐿𝑋) = (𝐿‘∅))
3938oveqd 7448 . . . . . . 7 (𝑋 = ∅ → (𝐴(𝐿𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
4039adantl 481 . . . . . 6 ((𝜑𝑋 = ∅) → (𝐴(𝐿𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
415adantr 480 . . . . . . . 8 ((𝜑𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
42 simpr 484 . . . . . . . . 9 ((𝜑𝑋 = ∅) → 𝑋 = ∅)
4342feq2d 6723 . . . . . . . 8 ((𝜑𝑋 = ∅) → (𝐴:𝑋⟶ℝ ↔ 𝐴:∅⟶ℝ))
4441, 43mpbid 232 . . . . . . 7 ((𝜑𝑋 = ∅) → 𝐴:∅⟶ℝ)
457adantr 480 . . . . . . . 8 ((𝜑𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
4642feq2d 6723 . . . . . . . 8 ((𝜑𝑋 = ∅) → (𝐵:𝑋⟶ℝ ↔ 𝐵:∅⟶ℝ))
4745, 46mpbid 232 . . . . . . 7 ((𝜑𝑋 = ∅) → 𝐵:∅⟶ℝ)
4814, 44, 47hoidmv0val 46539 . . . . . 6 ((𝜑𝑋 = ∅) → (𝐴(𝐿‘∅)𝐵) = 0)
4940, 48eqtrd 2775 . . . . 5 ((𝜑𝑋 = ∅) → (𝐴(𝐿𝑋)𝐵) = 0)
5037, 34, 493eqtr4d 2785 . . . 4 ((𝜑𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿𝑋)𝐵))
5136, 50eqled 11362 . . 3 ((𝜑𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿𝑋)𝐵))
52 eqid 2735 . . . . . 6 {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}
53 eqeq1 2739 . . . . . . . . 9 (𝑛 = 𝑗 → (𝑛 = 1 ↔ 𝑗 = 1))
5453ifbid 4554 . . . . . . . 8 (𝑛 = 𝑗 → if(𝑛 = 1, ⟨(𝐴𝑘), (𝐵𝑘)⟩, ⟨0, 0⟩) = if(𝑗 = 1, ⟨(𝐴𝑘), (𝐵𝑘)⟩, ⟨0, 0⟩))
5554mpteq2dv 5250 . . . . . . 7 (𝑛 = 𝑗 → (𝑘𝑋 ↦ if(𝑛 = 1, ⟨(𝐴𝑘), (𝐵𝑘)⟩, ⟨0, 0⟩)) = (𝑘𝑋 ↦ if(𝑗 = 1, ⟨(𝐴𝑘), (𝐵𝑘)⟩, ⟨0, 0⟩)))
5655cbvmptv 5261 . . . . . 6 (𝑛 ∈ ℕ ↦ (𝑘𝑋 ↦ if(𝑛 = 1, ⟨(𝐴𝑘), (𝐵𝑘)⟩, ⟨0, 0⟩))) = (𝑗 ∈ ℕ ↦ (𝑘𝑋 ↦ if(𝑗 = 1, ⟨(𝐴𝑘), (𝐵𝑘)⟩, ⟨0, 0⟩)))
571, 5, 7, 2, 52, 56ovnhoilem1 46557 . . . . 5 (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
5857adantr 480 . . . 4 ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
591adantr 480 . . . . . 6 ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ∈ Fin)
60 neqne 2946 . . . . . . 7 𝑋 = ∅ → 𝑋 ≠ ∅)
6160adantl 481 . . . . . 6 ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ≠ ∅)
625adantr 480 . . . . . 6 ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
637adantr 480 . . . . . 6 ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
6414, 59, 61, 62, 63hoidmvn0val 46540 . . . . 5 ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿𝑋)𝐵) = ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
6564eqcomd 2741 . . . 4 ((𝜑 ∧ ¬ 𝑋 = ∅) → ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(𝐵𝑘))) = (𝐴(𝐿𝑋)𝐵))
6658, 65breqtrd 5174 . . 3 ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿𝑋)𝐵))
6751, 66pm2.61dan 813 . 2 (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿𝑋)𝐵))
6849, 35eqeltrd 2839 . . . 4 ((𝜑𝑋 = ∅) → (𝐴(𝐿𝑋)𝐵) ∈ ℝ)
6950eqcomd 2741 . . . 4 ((𝜑𝑋 = ∅) → (𝐴(𝐿𝑋)𝐵) = ((voln*‘𝑋)‘𝐼))
7068, 69eqled 11362 . . 3 ((𝜑𝑋 = ∅) → (𝐴(𝐿𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
71 fveq1 6906 . . . . . . . . . . . 12 (𝑎 = 𝑐 → (𝑎𝑘) = (𝑐𝑘))
7271fvoveq1d 7453 . . . . . . . . . . 11 (𝑎 = 𝑐 → (vol‘((𝑎𝑘)[,)(𝑏𝑘))) = (vol‘((𝑐𝑘)[,)(𝑏𝑘))))
7372prodeq2ad 45548 . . . . . . . . . 10 (𝑎 = 𝑐 → ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))) = ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑏𝑘))))
7473ifeq2d 4551 . . . . . . . . 9 (𝑎 = 𝑐 → if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑏𝑘)))))
75 fveq1 6906 . . . . . . . . . . . . 13 (𝑏 = 𝑑 → (𝑏𝑘) = (𝑑𝑘))
7675oveq2d 7447 . . . . . . . . . . . 12 (𝑏 = 𝑑 → ((𝑐𝑘)[,)(𝑏𝑘)) = ((𝑐𝑘)[,)(𝑑𝑘)))
7776fveq2d 6911 . . . . . . . . . . 11 (𝑏 = 𝑑 → (vol‘((𝑐𝑘)[,)(𝑏𝑘))) = (vol‘((𝑐𝑘)[,)(𝑑𝑘))))
7877prodeq2ad 45548 . . . . . . . . . 10 (𝑏 = 𝑑 → ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑏𝑘))) = ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))
7978ifeq2d 4551 . . . . . . . . 9 (𝑏 = 𝑑 → if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑏𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑑𝑘)))))
8074, 79cbvmpov 7528 . . . . . . . 8 (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑥), 𝑑 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑑𝑘)))))
8180a1i 11 . . . . . . 7 (𝑥 = 𝑦 → (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑥), 𝑑 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))))
82 oveq2 7439 . . . . . . . 8 (𝑥 = 𝑦 → (ℝ ↑m 𝑥) = (ℝ ↑m 𝑦))
83 eqeq1 2739 . . . . . . . . 9 (𝑥 = 𝑦 → (𝑥 = ∅ ↔ 𝑦 = ∅))
84 prodeq1 15940 . . . . . . . . 9 (𝑥 = 𝑦 → ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑑𝑘))) = ∏𝑘𝑦 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))
8583, 84ifbieq2d 4557 . . . . . . . 8 (𝑥 = 𝑦 → if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑑𝑘)))) = if(𝑦 = ∅, 0, ∏𝑘𝑦 (vol‘((𝑐𝑘)[,)(𝑑𝑘)))))
8682, 82, 85mpoeq123dv 7508 . . . . . . 7 (𝑥 = 𝑦 → (𝑐 ∈ (ℝ ↑m 𝑥), 𝑑 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘𝑦 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))))
8781, 86eqtrd 2775 . . . . . 6 (𝑥 = 𝑦 → (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘𝑦 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))))
8887cbvmptv 5261 . . . . 5 (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘)))))) = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘𝑦 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))))
8914, 88eqtri 2763 . . . 4 𝐿 = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘𝑦 (vol‘((𝑐𝑘)[,)(𝑑𝑘))))))
90 eqeq1 2739 . . . . . . . 8 (𝑤 = 𝑧 → (𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))))))
9190anbi2d 630 . . . . . . 7 (𝑤 = 𝑧 → ((𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))))) ↔ (𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘)))))))
9291rexbidv 3177 . . . . . 6 (𝑤 = 𝑧 → (∃ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))))) ↔ ∃ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘)))))))
93 simpl 482 . . . . . . . . . . . . . . 15 (( = 𝑖𝑗 ∈ ℕ) → = 𝑖)
9493fveq1d 6909 . . . . . . . . . . . . . 14 (( = 𝑖𝑗 ∈ ℕ) → (𝑗) = (𝑖𝑗))
9594coeq2d 5876 . . . . . . . . . . . . 13 (( = 𝑖𝑗 ∈ ℕ) → ([,) ∘ (𝑗)) = ([,) ∘ (𝑖𝑗)))
9695fveq1d 6909 . . . . . . . . . . . 12 (( = 𝑖𝑗 ∈ ℕ) → (([,) ∘ (𝑗))‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
9796ixpeq2dv 8952 . . . . . . . . . . 11 (( = 𝑖𝑗 ∈ ℕ) → X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) = X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
9897iuneq2dv 5021 . . . . . . . . . 10 ( = 𝑖 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) = 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘))
9998sseq2d 4028 . . . . . . . . 9 ( = 𝑖 → (𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ↔ 𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘)))
100 simpl 482 . . . . . . . . . . . . . . . . 17 (( = 𝑖𝑘𝑋) → = 𝑖)
101100fveq1d 6909 . . . . . . . . . . . . . . . 16 (( = 𝑖𝑘𝑋) → (𝑗) = (𝑖𝑗))
102101coeq2d 5876 . . . . . . . . . . . . . . 15 (( = 𝑖𝑘𝑋) → ([,) ∘ (𝑗)) = ([,) ∘ (𝑖𝑗)))
103102fveq1d 6909 . . . . . . . . . . . . . 14 (( = 𝑖𝑘𝑋) → (([,) ∘ (𝑗))‘𝑘) = (([,) ∘ (𝑖𝑗))‘𝑘))
104103fveq2d 6911 . . . . . . . . . . . . 13 (( = 𝑖𝑘𝑋) → (vol‘(([,) ∘ (𝑗))‘𝑘)) = (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
105104prodeq2dv 15955 . . . . . . . . . . . 12 ( = 𝑖 → ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘)) = ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))
106105mpteq2dv 5250 . . . . . . . . . . 11 ( = 𝑖 → (𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))) = (𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))
107106fveq2d 6911 . . . . . . . . . 10 ( = 𝑖 → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))
108107eqeq2d 2746 . . . . . . . . 9 ( = 𝑖 → (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
10999, 108anbi12d 632 . . . . . . . 8 ( = 𝑖 → ((𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))))) ↔ (𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
110109cbvrexvw 3236 . . . . . . 7 (∃ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘))))))
111110a1i 11 . . . . . 6 (𝑤 = 𝑧 → (∃ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
11292, 111bitrd 279 . . . . 5 (𝑤 = 𝑧 → (∃ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))))
113112cbvrabv 3444 . . . 4 {𝑤 ∈ ℝ* ∣ ∃ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 𝑗 ∈ ℕ X𝑘𝑋 (([,) ∘ (𝑖𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘𝑋 (vol‘(([,) ∘ (𝑖𝑗))‘𝑘)))))}
114 simpl 482 . . . . . . . . . 10 ((𝑗 = 𝑛𝑙𝑋) → 𝑗 = 𝑛)
115114fveq2d 6911 . . . . . . . . 9 ((𝑗 = 𝑛𝑙𝑋) → (𝑖𝑗) = (𝑖𝑛))
116115fveq1d 6909 . . . . . . . 8 ((𝑗 = 𝑛𝑙𝑋) → ((𝑖𝑗)‘𝑙) = ((𝑖𝑛)‘𝑙))
117116fveq2d 6911 . . . . . . 7 ((𝑗 = 𝑛𝑙𝑋) → (1st ‘((𝑖𝑗)‘𝑙)) = (1st ‘((𝑖𝑛)‘𝑙)))
118117mpteq2dva 5248 . . . . . 6 (𝑗 = 𝑛 → (𝑙𝑋 ↦ (1st ‘((𝑖𝑗)‘𝑙))) = (𝑙𝑋 ↦ (1st ‘((𝑖𝑛)‘𝑙))))
119118cbvmptv 5261 . . . . 5 (𝑗 ∈ ℕ ↦ (𝑙𝑋 ↦ (1st ‘((𝑖𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙𝑋 ↦ (1st ‘((𝑖𝑛)‘𝑙))))
120119mpteq2i 5253 . . . 4 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙𝑋 ↦ (1st ‘((𝑖𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙𝑋 ↦ (1st ‘((𝑖𝑛)‘𝑙)))))
121116fveq2d 6911 . . . . . . 7 ((𝑗 = 𝑛𝑙𝑋) → (2nd ‘((𝑖𝑗)‘𝑙)) = (2nd ‘((𝑖𝑛)‘𝑙)))
122121mpteq2dva 5248 . . . . . 6 (𝑗 = 𝑛 → (𝑙𝑋 ↦ (2nd ‘((𝑖𝑗)‘𝑙))) = (𝑙𝑋 ↦ (2nd ‘((𝑖𝑛)‘𝑙))))
123122cbvmptv 5261 . . . . 5 (𝑗 ∈ ℕ ↦ (𝑙𝑋 ↦ (2nd ‘((𝑖𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙𝑋 ↦ (2nd ‘((𝑖𝑛)‘𝑙))))
124123mpteq2i 5253 . . . 4 (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙𝑋 ↦ (2nd ‘((𝑖𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙𝑋 ↦ (2nd ‘((𝑖𝑛)‘𝑙)))))
12559, 61, 62, 63, 2, 89, 113, 120, 124ovnhoilem2 46558 . . 3 ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
12670, 125pm2.61dan 813 . 2 (𝜑 → (𝐴(𝐿𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
12712, 16, 67, 126xrletrid 13194 1 (𝜑 → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿𝑋)𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1537  wcel 2106  wne 2938  wrex 3068  {crab 3433  Vcvv 3478  wss 3963  c0 4339  ifcif 4531  {csn 4631  cop 4637   ciun 4996   class class class wbr 5148  cmpt 5231   × cxp 5687  ccom 5693  wf 6559  cfv 6563  (class class class)co 7431  cmpo 7433  1st c1st 8011  2nd c2nd 8012  m cmap 8865  Xcixp 8936  Fincfn 8984  cr 11152  0cc0 11153  1c1 11154  +∞cpnf 11290  *cxr 11292  cle 11294  cn 12264  [,)cico 13386  cprod 15936  volcvol 25512  Σ^csumge0 46318  voln*covoln 46492
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-rep 5285  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754  ax-inf2 9679  ax-cnex 11209  ax-resscn 11210  ax-1cn 11211  ax-icn 11212  ax-addcl 11213  ax-addrcl 11214  ax-mulcl 11215  ax-mulrcl 11216  ax-mulcom 11217  ax-addass 11218  ax-mulass 11219  ax-distr 11220  ax-i2m1 11221  ax-1ne0 11222  ax-1rid 11223  ax-rnegex 11224  ax-rrecex 11225  ax-cnre 11226  ax-pre-lttri 11227  ax-pre-lttrn 11228  ax-pre-ltadd 11229  ax-pre-mulgt0 11230  ax-pre-sup 11231
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3378  df-reu 3379  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-int 4952  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5583  df-eprel 5589  df-po 5597  df-so 5598  df-fr 5641  df-se 5642  df-we 5643  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-pred 6323  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fo 6569  df-f1o 6570  df-fv 6571  df-isom 6572  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-of 7697  df-om 7888  df-1st 8013  df-2nd 8014  df-frecs 8305  df-wrecs 8336  df-recs 8410  df-rdg 8449  df-1o 8505  df-2o 8506  df-er 8744  df-map 8867  df-pm 8868  df-ixp 8937  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-fi 9449  df-sup 9480  df-inf 9481  df-oi 9548  df-dju 9939  df-card 9977  df-pnf 11295  df-mnf 11296  df-xr 11297  df-ltxr 11298  df-le 11299  df-sub 11492  df-neg 11493  df-div 11919  df-nn 12265  df-2 12327  df-3 12328  df-n0 12525  df-z 12612  df-uz 12877  df-q 12989  df-rp 13033  df-xneg 13152  df-xadd 13153  df-xmul 13154  df-ioo 13388  df-ico 13390  df-icc 13391  df-fz 13545  df-fzo 13692  df-fl 13829  df-seq 14040  df-exp 14100  df-hash 14367  df-cj 15135  df-re 15136  df-im 15137  df-sqrt 15271  df-abs 15272  df-clim 15521  df-rlim 15522  df-sum 15720  df-prod 15937  df-rest 17469  df-topgen 17490  df-psmet 21374  df-xmet 21375  df-met 21376  df-bl 21377  df-mopn 21378  df-top 22916  df-topon 22933  df-bases 22969  df-cmp 23411  df-ovol 25513  df-vol 25514  df-sumge0 46319  df-ovoln 46493
This theorem is referenced by:  vonhoi  46623
  Copyright terms: Public domain W3C validator