hspmbllem3 - Mathbox for Glauco Siliprandi

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

Theorem hspmbllem3 40842

Description: Any half-space of the n-dimensional Real numbers is Lebesgue measurable. Lemma 115F of [Fremlin1] p. 31. This proof handles the non-trivial cases (nonzero dimension and finite outer measure) (Contributed by Glauco Siliprandi, 24-Dec-2020.)

**Hypotheses**
Ref	Expression
hspmbllem3.h	⊢ 𝐻 = (𝑥 ∈ Fin ↦ (𝑙 ∈ 𝑥, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑥 if(𝑘 = 𝑙, (-∞(,)𝑦), ℝ)))
hspmbllem3.x	⊢ (𝜑 → 𝑋 ∈ Fin)
hspmbllem3.i	⊢ (𝜑 → 𝐾 ∈ 𝑋)
hspmbllem3.y	⊢ (𝜑 → 𝑌 ∈ ℝ)
hspmbllem3.a	⊢ (𝜑 → ((voln*‘𝑋)‘𝐴) ∈ ℝ)
hspmbllem3.s	⊢ (𝜑 → 𝐴 ⊆ (ℝ ↑_𝑚 𝑋))
hspmbllem3.c	⊢ 𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑_𝑚 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑_𝑚 𝑋) ↑_𝑚 ℕ) ∣ 𝑎 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑙‘𝑗))‘𝑘)})
hspmbllem3.l	⊢ 𝐿 = (ℎ ∈ ((ℝ × ℝ) ↑_𝑚 𝑋) ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ ℎ)‘𝑘)))
hspmbllem3.d	⊢ 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑_𝑚 𝑋) ↦ (𝑟 ∈ ℝ⁺ ↦ {𝑖 ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +_𝑒 𝑟)}))
hspmbllem3.10	⊢ 𝐵 = (𝑗 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑗)‘𝑘))))
hspmbllem3.11	⊢ 𝑇 = (𝑗 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑗)‘𝑘))))

**Assertion**
Ref	Expression
hspmbllem3	⊢ (𝜑 → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) +_𝑒 ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ ((voln*‘𝑋)‘𝐴))

Distinct variable groups: 𝑥,𝑘 𝐴,𝑎,ℎ,𝑖,𝑗,𝑘,𝑙,𝑥,𝑦 𝐴,𝑟,𝑎,ℎ,𝑖,𝑗 𝐵,𝑎,ℎ,𝑘,𝑙 𝐶,𝑎,ℎ,𝑖,𝑟 𝐷,𝑎,ℎ,𝑗,𝑘,𝑙,𝑥,𝑦 𝐷,𝑟 𝑖,𝐻,𝑗,𝑘 𝐾,𝑎,ℎ,𝑖,𝑗,𝑘,𝑙,𝑥,𝑦 𝐿,𝑎,ℎ,𝑖,𝑟 𝑇,𝑎,ℎ,𝑗,𝑘,𝑙 𝑋,𝑎,ℎ,𝑖,𝑗,𝑘,𝑙,𝑥,𝑦 𝑋,𝑟 𝑌,𝑎,ℎ,𝑖,𝑗,𝑘,𝑙,𝑥,𝑦 𝜑,𝑎,ℎ,𝑖,𝑗,𝑘,𝑙,𝑥,𝑦 𝜑,𝑟 Allowed substitution hints: 𝐵(𝑥,𝑦,𝑖,𝑗,𝑟) 𝐶(𝑥,𝑦,𝑗,𝑘,𝑙) 𝐷(𝑖) 𝑇(𝑥,𝑦,𝑖,𝑟) 𝐻(𝑥,𝑦,ℎ,𝑟,𝑎,𝑙) 𝐾(𝑟) 𝐿(𝑥,𝑦,𝑗,𝑘,𝑙) 𝑌(𝑟)

Proof of Theorem hspmbllem3 Dummy variables 𝑏 𝑐 𝑒 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		hspmbllem3.a	. . . 4 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐴) ∈ ℝ)
2		hspmbllem3.x	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ Fin)
3		inss1 3833	. . . . . 6 ⊢ (𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌)) ⊆ 𝐴
4		hspmbllem3.s	. . . . . 6 ⊢ (𝜑 → 𝐴 ⊆ (ℝ ↑_𝑚 𝑋))
5	3, 4	syl5ss 3614	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌)) ⊆ (ℝ ↑_𝑚 𝑋))
6	2, 5	ovncl 40781	. . . 4 ⊢ (𝜑 → ((voln*‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) ∈ (0[,]+∞))
7	3	a1i 11	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌)) ⊆ 𝐴)
8	2, 7, 4	ovnssle 40775	. . . 4 ⊢ (𝜑 → ((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) ≤ ((voln‘𝑋)‘𝐴))
9	1, 6, 8	ge0lere 39759	. . 3 ⊢ (𝜑 → ((voln*‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) ∈ ℝ)
10	4	ssdifssd 3748	. . . . 5 ⊢ (𝜑 → (𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)) ⊆ (ℝ ↑_𝑚 𝑋))
11	2, 10	ovncl 40781	. . . 4 ⊢ (𝜑 → ((voln*‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌))) ∈ (0[,]+∞))
12		difssd 3738	. . . . 5 ⊢ (𝜑 → (𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)) ⊆ 𝐴)
13	2, 12, 4	ovnssle 40775	. . . 4 ⊢ (𝜑 → ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌))) ≤ ((voln‘𝑋)‘𝐴))
14	1, 11, 13	ge0lere 39759	. . 3 ⊢ (𝜑 → ((voln*‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌))) ∈ ℝ)
15		rexadd 12063	. . 3 ⊢ ((((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) ∈ ℝ ∧ ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌))) ∈ ℝ) → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) +_𝑒 ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) = (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))))
16	9, 14, 15	syl2anc 693	. 2 ⊢ (𝜑 → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) +_𝑒 ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) = (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))))
17	2	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → 𝑋 ∈ Fin)
18		hspmbllem3.i	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ 𝑋)
19		ne0i 3921	. . . . . . . 8 ⊢ (𝐾 ∈ 𝑋 → 𝑋 ≠ ∅)
20	18, 19	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑋 ≠ ∅)
21	20	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → 𝑋 ≠ ∅)
22	4	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → 𝐴 ⊆ (ℝ ↑_𝑚 𝑋))
23		simpr 477	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → 𝑒 ∈ ℝ⁺)
24		hspmbllem3.c	. . . . . 6 ⊢ 𝐶 = (𝑎 ∈ 𝒫 (ℝ ↑_𝑚 𝑋) ↦ {𝑙 ∈ (((ℝ × ℝ) ↑_𝑚 𝑋) ↑_𝑚 ℕ) ∣ 𝑎 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑙‘𝑗))‘𝑘)})
25		hspmbllem3.l	. . . . . 6 ⊢ 𝐿 = (ℎ ∈ ((ℝ × ℝ) ↑_𝑚 𝑋) ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ ℎ)‘𝑘)))
26		hspmbllem3.d	. . . . . 6 ⊢ 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑_𝑚 𝑋) ↦ (𝑟 ∈ ℝ⁺ ↦ {𝑖 ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +_𝑒 𝑟)}))
27	17, 21, 22, 23, 24, 25, 26	ovncvrrp 40778	. . . . 5 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → ∃𝑖 𝑖 ∈ ((𝐷‘𝐴)‘𝑒))
28		hspmbllem3.h	. . . . . . . 8 ⊢ 𝐻 = (𝑥 ∈ Fin ↦ (𝑙 ∈ 𝑥, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑥 if(𝑘 = 𝑙, (-∞(,)𝑦), ℝ)))
29	17	adantr 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝑋 ∈ Fin)
30	18	ad2antrr 762	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝐾 ∈ 𝑋)
31		hspmbllem3.y	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ ℝ)
32	31	ad2antrr 762	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝑌 ∈ ℝ)
33	23	adantr 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝑒 ∈ ℝ⁺)
34	22	adantr 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝐴 ⊆ (ℝ ↑_𝑚 𝑋))
35		fveq1 6190	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑖 = ℎ → (𝑖‘𝑗) = (ℎ‘𝑗))
36	35	fveq2d 6195	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 = ℎ → (𝐿‘(𝑖‘𝑗)) = (𝐿‘(ℎ‘𝑗)))
37	36	mpteq2dv 4745	. . . . . . . . . . . . . . . . 17 ⊢ (𝑖 = ℎ → (𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗))) = (𝑗 ∈ ℕ ↦ (𝐿‘(ℎ‘𝑗))))
38	37	fveq2d 6195	. . . . . . . . . . . . . . . 16 ⊢ (𝑖 = ℎ → (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗)))) = (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(ℎ‘𝑗)))))
39	38	breq1d 4663	. . . . . . . . . . . . . . 15 ⊢ (𝑖 = ℎ → ((Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟) ↔ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(ℎ‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟)))
40	39	cbvrabv 3199	. . . . . . . . . . . . . 14 ⊢ {𝑖 ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟)} = {ℎ ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(ℎ‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟)}
41	40	mpteq2i 4741	. . . . . . . . . . . . 13 ⊢ (𝑟 ∈ ℝ⁺ ↦ {𝑖 ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟)}) = (𝑟 ∈ ℝ⁺ ↦ {ℎ ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(ℎ‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟)})
42	41	mpteq2i 4741	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ 𝒫 (ℝ ↑_𝑚 𝑋) ↦ (𝑟 ∈ ℝ⁺ ↦ {𝑖 ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(𝑖‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟)})) = (𝑎 ∈ 𝒫 (ℝ ↑_𝑚 𝑋) ↦ (𝑟 ∈ ℝ⁺ ↦ {ℎ ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(ℎ‘𝑗)))) ≤ (((voln‘𝑋)‘𝑎) +_𝑒 𝑟)}))
43	26, 42	eqtri 2644	. . . . . . . . . . 11 ⊢ 𝐷 = (𝑎 ∈ 𝒫 (ℝ ↑_𝑚 𝑋) ↦ (𝑟 ∈ ℝ⁺ ↦ {ℎ ∈ (𝐶‘𝑎) ∣ (Σ^{^}‘(𝑗 ∈ ℕ ↦ (𝐿‘(ℎ‘𝑗)))) ≤ (((voln*‘𝑋)‘𝑎) +_𝑒 𝑟)}))
44		simpr 477	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝑖 ∈ ((𝐷‘𝐴)‘𝑒))
45		hspmbllem3.10	. . . . . . . . . . 11 ⊢ 𝐵 = (𝑗 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑗)‘𝑘))))
46		hspmbllem3.11	. . . . . . . . . . 11 ⊢ 𝑇 = (𝑗 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑗)‘𝑘))))
47	29, 34, 33, 24, 25, 43, 44, 45, 46	ovncvr2 40825	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → (((𝐵:ℕ⟶(ℝ ↑_𝑚 𝑋) ∧ 𝑇:ℕ⟶(ℝ ↑_𝑚 𝑋)) ∧ 𝐴 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (((𝐵‘𝑗)‘𝑘)[,)((𝑇‘𝑗)‘𝑘))) ∧ (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(((𝐵‘𝑗)‘𝑘)[,)((𝑇‘𝑗)‘𝑘))))) ≤ (((voln*‘𝑋)‘𝐴) +_𝑒 𝑒)))
48	47	simplld 791	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → (𝐵:ℕ⟶(ℝ ↑_𝑚 𝑋) ∧ 𝑇:ℕ⟶(ℝ ↑_𝑚 𝑋)))
49	48	simpld 475	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝐵:ℕ⟶(ℝ ↑_𝑚 𝑋))
50	48	simprd 479	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝑇:ℕ⟶(ℝ ↑_𝑚 𝑋))
51	47	simplrd 793	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → 𝐴 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (((𝐵‘𝑗)‘𝑘)[,)((𝑇‘𝑗)‘𝑘)))
52	47	simprd 479	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(((𝐵‘𝑗)‘𝑘)[,)((𝑇‘𝑗)‘𝑘))))) ≤ (((voln*‘𝑋)‘𝐴) +_𝑒 𝑒))
53	1	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → ((voln*‘𝑋)‘𝐴) ∈ ℝ)
54	23	rpred 11872	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → 𝑒 ∈ ℝ)
55	53, 54	rexaddd 12065	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → (((voln‘𝑋)‘𝐴) +_𝑒 𝑒) = (((voln‘𝑋)‘𝐴) + 𝑒))
56	55	adantr 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → (((voln‘𝑋)‘𝐴) +_𝑒 𝑒) = (((voln‘𝑋)‘𝐴) + 𝑒))
57	52, 56	breqtrd 4679	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(((𝐵‘𝑗)‘𝑘)[,)((𝑇‘𝑗)‘𝑘))))) ≤ (((voln*‘𝑋)‘𝐴) + 𝑒))
58	1	ad2antrr 762	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → ((voln*‘𝑋)‘𝐴) ∈ ℝ)
59	9	ad2antrr 762	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → ((voln*‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) ∈ ℝ)
60	14	ad2antrr 762	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → ((voln*‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌))) ∈ ℝ)
61		eqid 2622	. . . . . . . 8 ⊢ (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑_𝑚 𝑥), 𝑏 ∈ (ℝ ↑_𝑚 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘)))))) = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑_𝑚 𝑥), 𝑏 ∈ (ℝ ↑_𝑚 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))))
62		eqid 2622	. . . . . . . 8 ⊢ (𝑦 ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑_𝑚 𝑋) ↦ (ℎ ∈ 𝑋 ↦ if(ℎ ∈ (𝑋 ∖ {𝐾}), (𝑐‘ℎ), if((𝑐‘ℎ) ≤ 𝑦, (𝑐‘ℎ), 𝑦))))) = (𝑦 ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑_𝑚 𝑋) ↦ (ℎ ∈ 𝑋 ↦ if(ℎ ∈ (𝑋 ∖ {𝐾}), (𝑐‘ℎ), if((𝑐‘ℎ) ≤ 𝑦, (𝑐‘ℎ), 𝑦)))))
63		eqid 2622	. . . . . . . 8 ⊢ (𝑥 ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑_𝑚 𝑋) ↦ (ℎ ∈ 𝑋 ↦ if(ℎ = 𝐾, if(𝑥 ≤ (𝑐‘ℎ), (𝑐‘ℎ), 𝑥), (𝑐‘ℎ))))) = (𝑥 ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑_𝑚 𝑋) ↦ (ℎ ∈ 𝑋 ↦ if(ℎ = 𝐾, if(𝑥 ≤ (𝑐‘ℎ), (𝑐‘ℎ), 𝑥), (𝑐‘ℎ)))))
64	28, 29, 30, 32, 33, 49, 50, 51, 57, 58, 59, 60, 61, 62, 63	hspmbllem2 40841	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑒 ∈ ℝ⁺) ∧ 𝑖 ∈ ((𝐷‘𝐴)‘𝑒)) → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ (((voln*‘𝑋)‘𝐴) + 𝑒))
65	64	ex 450	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → (𝑖 ∈ ((𝐷‘𝐴)‘𝑒) → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ (((voln*‘𝑋)‘𝐴) + 𝑒)))
66	65	exlimdv 1861	. . . . 5 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → (∃𝑖 𝑖 ∈ ((𝐷‘𝐴)‘𝑒) → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ (((voln*‘𝑋)‘𝐴) + 𝑒)))
67	27, 66	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑒 ∈ ℝ⁺) → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ (((voln*‘𝑋)‘𝐴) + 𝑒))
68	67	ralrimiva 2966	. . 3 ⊢ (𝜑 → ∀𝑒 ∈ ℝ⁺ (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ (((voln*‘𝑋)‘𝐴) + 𝑒))
69	9, 14	readdcld 10069	. . . 4 ⊢ (𝜑 → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ∈ ℝ)
70		alrple 12037	. . . 4 ⊢ (((((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ∈ ℝ ∧ ((voln‘𝑋)‘𝐴) ∈ ℝ) → ((((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ ((voln‘𝑋)‘𝐴) ↔ ∀𝑒 ∈ ℝ⁺ (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ (((voln*‘𝑋)‘𝐴) + 𝑒)))
71	69, 1, 70	syl2anc 693	. . 3 ⊢ (𝜑 → ((((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ ((voln‘𝑋)‘𝐴) ↔ ∀𝑒 ∈ ℝ⁺ (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ (((voln‘𝑋)‘𝐴) + 𝑒)))
72	68, 71	mpbird 247	. 2 ⊢ (𝜑 → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) + ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ ((voln*‘𝑋)‘𝐴))
73	16, 72	eqbrtrd 4675	1 ⊢ (𝜑 → (((voln‘𝑋)‘(𝐴 ∩ (𝐾(𝐻‘𝑋)𝑌))) +_𝑒 ((voln‘𝑋)‘(𝐴 ∖ (𝐾(𝐻‘𝑋)𝑌)))) ≤ ((voln*‘𝑋)‘𝐴))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 196 ∧ wa 384 = wceq 1483 ∃wex 1704 ∈ wcel 1990 ≠ wne 2794 ∀wral 2912 {crab 2916 ∖ cdif 3571 ∩ cin 3573 ⊆ wss 3574 ∅c0 3915 ifcif 4086 𝒫 cpw 4158 {csn 4177 ∪ ciun 4520 class class class wbr 4653 ↦ cmpt 4729 × cxp 5112 ∘ ccom 5118 ⟶wf 5884 ‘cfv 5888 (class class class)co 6650 ↦ cmpt2 6652 1^st c1st 7166 2^nd c2nd 7167 ↑_𝑚 cmap 7857 Xcixp 7908 Fincfn 7955 ℝcr 9935 0cc0 9936 + caddc 9939 -∞cmnf 10072 ≤ cle 10075 ℕcn 11020 ℝ⁺crp 11832 +_𝑒 cxad 11944 (,)cioo 12175 [,)cico 12177 ∏cprod 14635 volcvol 23232 Σ^{^}csumge0 40579 voln*covoln 40750

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-inf2 8538 ax-cnex 9992 ax-resscn 9993 ax-1cn 9994 ax-icn 9995 ax-addcl 9996 ax-addrcl 9997 ax-mulcl 9998 ax-mulrcl 9999 ax-mulcom 10000 ax-addass 10001 ax-mulass 10002 ax-distr 10003 ax-i2m1 10004 ax-1ne0 10005 ax-1rid 10006 ax-rnegex 10007 ax-rrecex 10008 ax-cnre 10009 ax-pre-lttri 10010 ax-pre-lttrn 10011 ax-pre-ltadd 10012 ax-pre-mulgt0 10013 ax-pre-sup 10014 ax-addf 10015 ax-mulf 10016

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-fal 1489 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-nel 2898 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-iun 4522 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-se 5074 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-of 6897 df-om 7066 df-1st 7168 df-2nd 7169 df-tpos 7352 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-1o 7560 df-2o 7561 df-oadd 7564 df-er 7742 df-map 7859 df-pm 7860 df-ixp 7909 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-fi 8317 df-sup 8348 df-inf 8349 df-oi 8415 df-card 8765 df-cda 8990 df-pnf 10076 df-mnf 10077 df-xr 10078 df-ltxr 10079 df-le 10080 df-sub 10268 df-neg 10269 df-div 10685 df-nn 11021 df-2 11079 df-3 11080 df-4 11081 df-5 11082 df-6 11083 df-7 11084 df-8 11085 df-9 11086 df-n0 11293 df-z 11378 df-dec 11494 df-uz 11688 df-q 11789 df-rp 11833 df-xneg 11946 df-xadd 11947 df-xmul 11948 df-ioo 12179 df-ico 12181 df-icc 12182 df-fz 12327 df-fzo 12466 df-fl 12593 df-seq 12802 df-exp 12861 df-hash 13118 df-cj 13839 df-re 13840 df-im 13841 df-sqrt 13975 df-abs 13976 df-clim 14219 df-rlim 14220 df-sum 14417 df-prod 14636 df-struct 15859 df-ndx 15860 df-slot 15861 df-base 15863 df-sets 15864 df-ress 15865 df-plusg 15954 df-mulr 15955 df-starv 15956 df-tset 15960 df-ple 15961 df-ds 15964 df-unif 15965 df-rest 16083 df-0g 16102 df-topgen 16104 df-mgm 17242 df-sgrp 17284 df-mnd 17295 df-grp 17425 df-minusg 17426 df-subg 17591 df-cmn 18195 df-abl 18196 df-mgp 18490 df-ur 18502 df-ring 18549 df-cring 18550 df-oppr 18623 df-dvdsr 18641 df-unit 18642 df-invr 18672 df-dvr 18683 df-drng 18749 df-psmet 19738 df-xmet 19739 df-met 19740 df-bl 19741 df-mopn 19742 df-cnfld 19747 df-top 20699 df-topon 20716 df-bases 20750 df-cmp 21190 df-ovol 23233 df-vol 23234 df-sumge0 40580 df-ovoln 40751

This theorem is referenced by: hspmbl 40843

W3C validator