Theorem ovnhoi 47031

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.

Step	Hyp	Ref	Expression
1		ovnhoi.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ Fin)
2		ovnhoi.c	. . . . 5 ⊢ 𝐼 = X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘))
3	2	a1i 11	. . . 4 ⊢ (𝜑 → 𝐼 = X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)))
4		nfv 1916	. . . . 5 ⊢ Ⅎ𝑘𝜑
5		ovnhoi.a	. . . . . 6 ⊢ (𝜑 → 𝐴:𝑋⟶ℝ)
6	5	ffvelcdmda 7036	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐴‘𝑘) ∈ ℝ)
7		ovnhoi.b	. . . . . . 7 ⊢ (𝜑 → 𝐵:𝑋⟶ℝ)
8	7	ffvelcdmda 7036	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐵‘𝑘) ∈ ℝ)
9	8	rexrd 11195	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐵‘𝑘) ∈ ℝ*)
10	4, 6, 9	hoissrrn2 47006	. . . 4 ⊢ (𝜑 → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) ⊆ (ℝ ↑m 𝑋))
11	3, 10	eqsstrd 3956	. . 3 ⊢ (𝜑 → 𝐼 ⊆ (ℝ ↑m 𝑋))
12	1, 11	ovnxrcl 46997	. 2 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ∈ ℝ*)
13		icossxr 13385	. . 3 ⊢ (0[,)+∞) ⊆ ℝ*
14		ovnhoi.l	. . . 4 ⊢ 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))))
15	14, 1, 5, 7	hoidmvcl 47010	. . 3 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ∈ (0[,)+∞))
16	13, 15	sselid 3919	. 2 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ∈ ℝ*)
17		fveq2 6840	. . . . . . . 8 ⊢ (𝑋 = ∅ → (voln*‘𝑋) = (voln*‘∅))
18	17	fveq1d 6842	. . . . . . 7 ⊢ (𝑋 = ∅ → ((voln*‘𝑋)‘𝐼) = ((voln*‘∅)‘𝐼))
19	18	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = ((voln*‘∅)‘𝐼))
20		ixpeq1 8856	. . . . . . . . . . 11 ⊢ (𝑋 = ∅ → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)))
21		ixp0x 8874	. . . . . . . . . . . 12 ⊢ X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅}
22	21	a1i 11	. . . . . . . . . . 11 ⊢ (𝑋 = ∅ → X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
23	20, 22	eqtrd 2771	. . . . . . . . . 10 ⊢ (𝑋 = ∅ → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
24	23	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
25	2	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 = X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)))
26		reex 11129	. . . . . . . . . . 11 ⊢ ℝ ∈ V
27		mapdm0 8789	. . . . . . . . . . 11 ⊢ (ℝ ∈ V → (ℝ ↑m ∅) = {∅})
28	26, 27	ax-mp 5	. . . . . . . . . 10 ⊢ (ℝ ↑m ∅) = {∅}
29	28	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (ℝ ↑m ∅) = {∅})
30	24, 25, 29	3eqtr4d 2781	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 = (ℝ ↑m ∅))
31		eqimss 3980	. . . . . . . 8 ⊢ (𝐼 = (ℝ ↑m ∅) → 𝐼 ⊆ (ℝ ↑m ∅))
32	30, 31	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 ⊆ (ℝ ↑m ∅))
33	32	ovn0val 46978	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘∅)‘𝐼) = 0)
34	19, 33	eqtrd 2771	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = 0)
35		0red 11147	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 0 ∈ ℝ)
36	34, 35	eqeltrd 2836	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ∈ ℝ)
37		eqidd 2737	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 0 = 0)
38		fveq2 6840	. . . . . . . 8 ⊢ (𝑋 = ∅ → (𝐿‘𝑋) = (𝐿‘∅))
39	38	oveqd 7384	. . . . . . 7 ⊢ (𝑋 = ∅ → (𝐴(𝐿‘𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
40	39	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
41	5	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
42		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝑋 = ∅)
43	42	feq2d 6652	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴:𝑋⟶ℝ ↔ 𝐴:∅⟶ℝ))
44	41, 43	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐴:∅⟶ℝ)
45	7	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
46	42	feq2d 6652	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐵:𝑋⟶ℝ ↔ 𝐵:∅⟶ℝ))
47	45, 46	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐵:∅⟶ℝ)
48	14, 44, 47	hoidmv0val 47011	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘∅)𝐵) = 0)
49	40, 48	eqtrd 2771	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = 0)
50	37, 34, 49	3eqtr4d 2781	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿‘𝑋)𝐵))
51	36, 50	eqled 11249	. . 3 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
52		eqid 2736	. . . . . 6 ⊢ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))}
53		eqeq1 2740	. . . . . . . . 9 ⊢ (𝑛 = 𝑗 → (𝑛 = 1 ↔ 𝑗 = 1))
54	53	ifbid 4490	. . . . . . . 8 ⊢ (𝑛 = 𝑗 → if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩) = if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩))
55	54	mpteq2dv 5179	. . . . . . 7 ⊢ (𝑛 = 𝑗 → (𝑘 ∈ 𝑋 ↦ if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)) = (𝑘 ∈ 𝑋 ↦ if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)))
56	55	cbvmptv 5189	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩))) = (𝑗 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)))
57	1, 5, 7, 2, 52, 56	ovnhoilem1 47029	. . . . 5 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
58	57	adantr 480	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
59	1	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ∈ Fin)
60		neqne 2940	. . . . . . 7 ⊢ (¬ 𝑋 = ∅ → 𝑋 ≠ ∅)
61	60	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ≠ ∅)
62	5	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
63	7	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
64	14, 59, 61, 62, 63	hoidmvn0val 47012	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
65	64	eqcomd 2742	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))) = (𝐴(𝐿‘𝑋)𝐵))
66	58, 65	breqtrd 5111	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
67	51, 66	pm2.61dan 813	. 2 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
68	49, 35	eqeltrd 2836	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ∈ ℝ)
69	50	eqcomd 2742	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = ((voln*‘𝑋)‘𝐼))
70	68, 69	eqled 11249	. . 3 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
71		fveq1 6839	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑐 → (𝑎‘𝑘) = (𝑐‘𝑘))
72	71	fvoveq1d 7389	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑐 → (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))) = (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))))
73	72	prodeq2ad 46022	. . . . . . . . . 10 ⊢ (𝑎 = 𝑐 → ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))) = ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))))
74	73	ifeq2d 4487	. . . . . . . . 9 ⊢ (𝑎 = 𝑐 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘)))))
75		fveq1 6839	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑑 → (𝑏‘𝑘) = (𝑑‘𝑘))
76	75	oveq2d 7383	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑑 → ((𝑐‘𝑘)[,)(𝑏‘𝑘)) = ((𝑐‘𝑘)[,)(𝑑‘𝑘)))
77	76	fveq2d 6844	. . . . . . . . . . 11 ⊢ (𝑏 = 𝑑 → (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))) = (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
78	77	prodeq2ad 46022	. . . . . . . . . 10 ⊢ (𝑏 = 𝑑 → ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))) = ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
79	78	ifeq2d 4487	. . . . . . . . 9 ⊢ (𝑏 = 𝑑 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))))
80	74, 79	cbvmpov 7462	. . . . . . . 8 ⊢ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑥), 𝑑 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))))
81	80	a1i 11	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑥), 𝑑 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
82		oveq2 7375	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → (ℝ ↑m 𝑥) = (ℝ ↑m 𝑦))
83		eqeq1 2740	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝑥 = ∅ ↔ 𝑦 = ∅))
84		prodeq1 15872	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))) = ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
85	83, 84	ifbieq2d 4493	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))) = if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))))
86	82, 82, 85	mpoeq123dv 7442	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑐 ∈ (ℝ ↑m 𝑥), 𝑑 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
87	81, 86	eqtrd 2771	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
88	87	cbvmptv 5189	. . . . 5 ⊢ (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘)))))) = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
89	14, 88	eqtri 2759	. . . 4 ⊢ 𝐿 = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
90		eqeq1 2740	. . . . . . . 8 ⊢ (𝑤 = 𝑧 → (𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))))
91	90	anbi2d 631	. . . . . . 7 ⊢ (𝑤 = 𝑧 → ((𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))))
92	91	rexbidv 3161	. . . . . 6 ⊢ (𝑤 = 𝑧 → (∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ ∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))))
93		simpl 482	. . . . . . . . . . . . . . 15 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → ℎ = 𝑖)
94	93	fveq1d 6842	. . . . . . . . . . . . . 14 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → (ℎ‘𝑗) = (𝑖‘𝑗))
95	94	coeq2d 5817	. . . . . . . . . . . . 13 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → ([,) ∘ (ℎ‘𝑗)) = ([,) ∘ (𝑖‘𝑗)))
96	95	fveq1d 6842	. . . . . . . . . . . 12 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → (([,) ∘ (ℎ‘𝑗))‘𝑘) = (([,) ∘ (𝑖‘𝑗))‘𝑘))
97	96	ixpeq2dv 8861	. . . . . . . . . . 11 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) = X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘))
98	97	iuneq2dv 4958	. . . . . . . . . 10 ⊢ (ℎ = 𝑖 → ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) = ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘))
99	98	sseq2d 3954	. . . . . . . . 9 ⊢ (ℎ = 𝑖 → (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ↔ 𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘)))
100		simpl 482	. . . . . . . . . . . . . . . . 17 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → ℎ = 𝑖)
101	100	fveq1d 6842	. . . . . . . . . . . . . . . 16 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (ℎ‘𝑗) = (𝑖‘𝑗))
102	101	coeq2d 5817	. . . . . . . . . . . . . . 15 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → ([,) ∘ (ℎ‘𝑗)) = ([,) ∘ (𝑖‘𝑗)))
103	102	fveq1d 6842	. . . . . . . . . . . . . 14 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (([,) ∘ (ℎ‘𝑗))‘𝑘) = (([,) ∘ (𝑖‘𝑗))‘𝑘))
104	103	fveq2d 6844	. . . . . . . . . . . . 13 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)) = (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))
105	104	prodeq2dv 15887	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑖 → ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)) = ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))
106	105	mpteq2dv 5179	. . . . . . . . . . 11 ⊢ (ℎ = 𝑖 → (𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))) = (𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘))))
107	106	fveq2d 6844	. . . . . . . . . 10 ⊢ (ℎ = 𝑖 → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))
108	107	eqeq2d 2747	. . . . . . . . 9 ⊢ (ℎ = 𝑖 → (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘))))))
109	99, 108	anbi12d 633	. . . . . . . 8 ⊢ (ℎ = 𝑖 → ((𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))))
110	109	cbvrexvw 3216	. . . . . . 7 ⊢ (∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘))))))
111	110	a1i 11	. . . . . 6 ⊢ (𝑤 = 𝑧 → (∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))))
112	92, 111	bitrd 279	. . . . 5 ⊢ (𝑤 = 𝑧 → (∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))))
113	112	cbvrabv 3399	. . . 4 ⊢ {𝑤 ∈ ℝ* ∣ ∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))}
114		simpl 482	. . . . . . . . . 10 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → 𝑗 = 𝑛)
115	114	fveq2d 6844	. . . . . . . . 9 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (𝑖‘𝑗) = (𝑖‘𝑛))
116	115	fveq1d 6842	. . . . . . . 8 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → ((𝑖‘𝑗)‘𝑙) = ((𝑖‘𝑛)‘𝑙))
117	116	fveq2d 6844	. . . . . . 7 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (1st ‘((𝑖‘𝑗)‘𝑙)) = (1st ‘((𝑖‘𝑛)‘𝑙)))
118	117	mpteq2dva 5178	. . . . . 6 ⊢ (𝑗 = 𝑛 → (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑗)‘𝑙))) = (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑛)‘𝑙))))
119	118	cbvmptv 5189	. . . . 5 ⊢ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑛)‘𝑙))))
120	119	mpteq2i 5181	. . . 4 ⊢ (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑛)‘𝑙)))))
121	116	fveq2d 6844	. . . . . . 7 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (2nd ‘((𝑖‘𝑗)‘𝑙)) = (2nd ‘((𝑖‘𝑛)‘𝑙)))
122	121	mpteq2dva 5178	. . . . . 6 ⊢ (𝑗 = 𝑛 → (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑗)‘𝑙))) = (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑛)‘𝑙))))
123	122	cbvmptv 5189	. . . . 5 ⊢ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑛)‘𝑙))))
124	123	mpteq2i 5181	. . . 4 ⊢ (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑛)‘𝑙)))))
125	59, 61, 62, 63, 2, 89, 113, 120, 124	ovnhoilem2 47030	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
126	70, 125	pm2.61dan 813	. 2 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
127	12, 16, 67, 126	xrletrid 13106	1 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿‘𝑋)𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114   ≠ wne 2932  ∃wrex 3061  {crab 3389  Vcvv 3429   ⊆ wss 3889  ∅c0 4273  ifcif 4466  {csn 4567  ⟨cop 4573  ∪ ciun 4933   class class class wbr 5085   ↦ cmpt 5166   × cxp 5629   ∘ ccom 5635  ⟶wf 6494  ‘cfv 6498  (class class class)co 7367   ∈ cmpo 7369  1^st c1st 7940  2^nd c2nd 7941   ↑_m cmap 8773  Xcixp 8845  Fincfn 8893  ℝcr 11037  0cc0 11038  1c1 11039  +∞cpnf 11176  ℝ^*cxr 11178   ≤ cle 11180  ℕcn 12174  [,)cico 13300  ∏cprod 15868  volcvol 25430  Σ^{^}csumge0 46790  voln*covoln 46964

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689  ax-inf2 9562  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3062  df-rmo 3342  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-int 4890  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-isom 6507  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-of 7631  df-om 7818  df-1st 7942  df-2nd 7943  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405  df-2o 8406  df-er 8643  df-map 8775  df-pm 8776  df-ixp 8846  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-fi 9324  df-sup 9355  df-inf 9356  df-oi 9425  df-dju 9825  df-card 9863  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-div 11808  df-nn 12175  df-2 12244  df-3 12245  df-n0 12438  df-z 12525  df-uz 12789  df-q 12899  df-rp 12943  df-xneg 13063  df-xadd 13064  df-xmul 13065  df-ioo 13302  df-ico 13304  df-icc 13305  df-fz 13462  df-fzo 13609  df-fl 13751  df-seq 13964  df-exp 14024  df-hash 14293  df-cj 15061  df-re 15062  df-im 15063  df-sqrt 15197  df-abs 15198  df-clim 15450  df-rlim 15451  df-sum 15649  df-prod 15869  df-rest 17385  df-topgen 17406  df-psmet 21344  df-xmet 21345  df-met 21346  df-bl 21347  df-mopn 21348  df-top 22859  df-topon 22876  df-bases 22911  df-cmp 23352  df-ovol 25431  df-vol 25432  df-sumge0 46791  df-ovoln 46965

This theorem is referenced by:  vonhoi  47095