Theorem ovnhoi 47358

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 1947	. . . . 5 ⊢ Ⅎ𝑘𝜑
5		ovnhoi.a	. . . . . 6 ⊢ (𝜑 → 𝐴:𝑋⟶ℝ)
6	5	ffvelcdmda 7086	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐴‘𝑘) ∈ ℝ)
7		ovnhoi.b	. . . . . . 7 ⊢ (𝜑 → 𝐵:𝑋⟶ℝ)
8	7	ffvelcdmda 7086	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐵‘𝑘) ∈ ℝ)
9	8	rexrd 11277	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐵‘𝑘) ∈ ℝ*)
10	4, 6, 9	hoissrrn2 47333	. . . 4 ⊢ (𝜑 → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) ⊆ (ℝ ↑m 𝑋))
11	3, 10	eqsstrd 3974	. . 3 ⊢ (𝜑 → 𝐼 ⊆ (ℝ ↑m 𝑋))
12	1, 11	ovnxrcl 47324	. 2 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ∈ ℝ*)
13		icossxr 13477	. . 3 ⊢ (0[,)+∞) ⊆ ℝ*
14		ovnhoi.l	. . . 4 ⊢ 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))))
15	14, 1, 5, 7	hoidmvcl 47337	. . 3 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ∈ (0[,)+∞))
16	13, 15	sselid 3938	. 2 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ∈ ℝ*)
17		fveq2 6888	. . . . . . . 8 ⊢ (𝑋 = ∅ → (voln*‘𝑋) = (voln*‘∅))
18	17	fveq1d 6890	. . . . . . 7 ⊢ (𝑋 = ∅ → ((voln*‘𝑋)‘𝐼) = ((voln*‘∅)‘𝐼))
19	18	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = ((voln*‘∅)‘𝐼))
20		ixpeq1 8915	. . . . . . . . . . 11 ⊢ (𝑋 = ∅ → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)))
21		ixp0x 8933	. . . . . . . . . . . 12 ⊢ X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅}
22	21	a1i 11	. . . . . . . . . . 11 ⊢ (𝑋 = ∅ → X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
23	20, 22	eqtrd 2801	. . . . . . . . . 10 ⊢ (𝑋 = ∅ → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
24	23	adantl 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
25	2	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 = X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)))
26		reex 11209	. . . . . . . . . . 11 ⊢ ℝ ∈ V
27		mapdm0 8848	. . . . . . . . . . 11 ⊢ (ℝ ∈ V → (ℝ ↑m ∅) = {∅})
28	26, 27	ax-mp 5	. . . . . . . . . 10 ⊢ (ℝ ↑m ∅) = {∅}
29	28	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (ℝ ↑m ∅) = {∅})
30	24, 25, 29	3eqtr4d 2811	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 = (ℝ ↑m ∅))
31		eqimss 3998	. . . . . . . 8 ⊢ (𝐼 = (ℝ ↑m ∅) → 𝐼 ⊆ (ℝ ↑m ∅))
32	30, 31	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 ⊆ (ℝ ↑m ∅))
33	32	ovn0val 47305	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘∅)‘𝐼) = 0)
34	19, 33	eqtrd 2801	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = 0)
35		0red 11229	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 0 ∈ ℝ)
36	34, 35	eqeltrd 2866	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ∈ ℝ)
37		eqidd 2767	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 0 = 0)
38		fveq2 6888	. . . . . . . 8 ⊢ (𝑋 = ∅ → (𝐿‘𝑋) = (𝐿‘∅))
39	38	oveqd 7440	. . . . . . 7 ⊢ (𝑋 = ∅ → (𝐴(𝐿‘𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
40	39	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
41	5	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
42		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝑋 = ∅)
43	42	feq2d 6696	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴:𝑋⟶ℝ ↔ 𝐴:∅⟶ℝ))
44	41, 43	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐴:∅⟶ℝ)
45	7	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
46	42	feq2d 6696	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐵:𝑋⟶ℝ ↔ 𝐵:∅⟶ℝ))
47	45, 46	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐵:∅⟶ℝ)
48	14, 44, 47	hoidmv0val 47338	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘∅)𝐵) = 0)
49	40, 48	eqtrd 2801	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = 0)
50	37, 34, 49	3eqtr4d 2811	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿‘𝑋)𝐵))
51	36, 50	eqled 11331	. . 3 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
52		eqid 2766	. . . . . 6 ⊢ {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))}
53		eqeq1 2770	. . . . . . . . 9 ⊢ (𝑛 = 𝑗 → (𝑛 = 1 ↔ 𝑗 = 1))
54	53	ifbid 4516	. . . . . . . 8 ⊢ (𝑛 = 𝑗 → if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩) = if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩))
55	54	mpteq2dv 5210	. . . . . . 7 ⊢ (𝑛 = 𝑗 → (𝑘 ∈ 𝑋 ↦ if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)) = (𝑘 ∈ 𝑋 ↦ if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)))
56	55	cbvmptv 5220	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩))) = (𝑗 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)))
57	1, 5, 7, 2, 52, 56	ovnhoilem1 47356	. . . . 5 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
58	57	adantr 486	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
59	1	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ∈ Fin)
60		neqne 2969	. . . . . . 7 ⊢ (¬ 𝑋 = ∅ → 𝑋 ≠ ∅)
61	60	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ≠ ∅)
62	5	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
63	7	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
64	14, 59, 61, 62, 63	hoidmvn0val 47339	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
65	64	eqcomd 2772	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))) = (𝐴(𝐿‘𝑋)𝐵))
66	58, 65	breqtrd 5142	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
67	51, 66	pm2.61dan 825	. 2 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
68	49, 35	eqeltrd 2866	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ∈ ℝ)
69	50	eqcomd 2772	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = ((voln*‘𝑋)‘𝐼))
70	68, 69	eqled 11331	. . 3 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
71		fveq1 6887	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑐 → (𝑎‘𝑘) = (𝑐‘𝑘))
72	71	fvoveq1d 7445	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑐 → (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))) = (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))))
73	72	prodeq2ad 46349	. . . . . . . . . 10 ⊢ (𝑎 = 𝑐 → ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))) = ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))))
74	73	ifeq2d 4513	. . . . . . . . 9 ⊢ (𝑎 = 𝑐 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘)))))
75		fveq1 6887	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑑 → (𝑏‘𝑘) = (𝑑‘𝑘))
76	75	oveq2d 7439	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑑 → ((𝑐‘𝑘)[,)(𝑏‘𝑘)) = ((𝑐‘𝑘)[,)(𝑑‘𝑘)))
77	76	fveq2d 6892	. . . . . . . . . . 11 ⊢ (𝑏 = 𝑑 → (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))) = (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
78	77	prodeq2ad 46349	. . . . . . . . . 10 ⊢ (𝑏 = 𝑑 → ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))) = ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
79	78	ifeq2d 4513	. . . . . . . . 9 ⊢ (𝑏 = 𝑑 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))))
80	74, 79	cbvmpov 7518	. . . . . . . 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 7431	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → (ℝ ↑m 𝑥) = (ℝ ↑m 𝑦))
83		eqeq1 2770	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝑥 = ∅ ↔ 𝑦 = ∅))
84		prodeq1 15987	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))) = ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
85	83, 84	ifbieq2d 4519	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))) = if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))))
86	82, 82, 85	mpoeq123dv 7498	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑐 ∈ (ℝ ↑m 𝑥), 𝑑 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
87	81, 86	eqtrd 2801	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))) = (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
88	87	cbvmptv 5220	. . . . 5 ⊢ (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘)))))) = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
89	14, 88	eqtri 2789	. . . 4 ⊢ 𝐿 = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑m 𝑦), 𝑑 ∈ (ℝ ↑m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
90		eqeq1 2770	. . . . . . . 8 ⊢ (𝑤 = 𝑧 → (𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))))
91	90	anbi2d 642	. . . . . . 7 ⊢ (𝑤 = 𝑧 → ((𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))))
92	91	rexbidv 3192	. . . . . 6 ⊢ (𝑤 = 𝑧 → (∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ ∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))))
93		simpl 488	. . . . . . . . . . . . . . 15 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → ℎ = 𝑖)
94	93	fveq1d 6890	. . . . . . . . . . . . . 14 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → (ℎ‘𝑗) = (𝑖‘𝑗))
95	94	coeq2d 5853	. . . . . . . . . . . . 13 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → ([,) ∘ (ℎ‘𝑗)) = ([,) ∘ (𝑖‘𝑗)))
96	95	fveq1d 6890	. . . . . . . . . . . 12 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → (([,) ∘ (ℎ‘𝑗))‘𝑘) = (([,) ∘ (𝑖‘𝑗))‘𝑘))
97	96	ixpeq2dv 8920	. . . . . . . . . . 11 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) = X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘))
98	97	iuneq2dv 4986	. . . . . . . . . 10 ⊢ (ℎ = 𝑖 → ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) = ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘))
99	98	sseq2d 3972	. . . . . . . . 9 ⊢ (ℎ = 𝑖 → (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ↔ 𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘)))
100		simpl 488	. . . . . . . . . . . . . . . . 17 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → ℎ = 𝑖)
101	100	fveq1d 6890	. . . . . . . . . . . . . . . 16 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (ℎ‘𝑗) = (𝑖‘𝑗))
102	101	coeq2d 5853	. . . . . . . . . . . . . . 15 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → ([,) ∘ (ℎ‘𝑗)) = ([,) ∘ (𝑖‘𝑗)))
103	102	fveq1d 6890	. . . . . . . . . . . . . 14 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (([,) ∘ (ℎ‘𝑗))‘𝑘) = (([,) ∘ (𝑖‘𝑗))‘𝑘))
104	103	fveq2d 6892	. . . . . . . . . . . . 13 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)) = (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))
105	104	prodeq2dv 16002	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑖 → ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)) = ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))
106	105	mpteq2dv 5210	. . . . . . . . . . 11 ⊢ (ℎ = 𝑖 → (𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))) = (𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘))))
107	106	fveq2d 6892	. . . . . . . . . 10 ⊢ (ℎ = 𝑖 → (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))
108	107	eqeq2d 2777	. . . . . . . . 9 ⊢ (ℎ = 𝑖 → (𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘))))))
109	99, 108	anbi12d 644	. . . . . . . 8 ⊢ (ℎ = 𝑖 → ((𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))))
110	109	cbvrexvw 3247	. . . . . . 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 282	. . . . 5 ⊢ (𝑤 = 𝑧 → (∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))))
113	112	cbvrabv 3429	. . . 4 ⊢ {𝑤 ∈ ℝ* ∣ ∃ℎ ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))}
114		simpl 488	. . . . . . . . . 10 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → 𝑗 = 𝑛)
115	114	fveq2d 6892	. . . . . . . . 9 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (𝑖‘𝑗) = (𝑖‘𝑛))
116	115	fveq1d 6890	. . . . . . . 8 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → ((𝑖‘𝑗)‘𝑙) = ((𝑖‘𝑛)‘𝑙))
117	116	fveq2d 6892	. . . . . . 7 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (1st ‘((𝑖‘𝑗)‘𝑙)) = (1st ‘((𝑖‘𝑛)‘𝑙)))
118	117	mpteq2dva 5209	. . . . . 6 ⊢ (𝑗 = 𝑛 → (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑗)‘𝑙))) = (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑛)‘𝑙))))
119	118	cbvmptv 5220	. . . . 5 ⊢ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑛)‘𝑙))))
120	119	mpteq2i 5212	. . . 4 ⊢ (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1st ‘((𝑖‘𝑛)‘𝑙)))))
121	116	fveq2d 6892	. . . . . . 7 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (2nd ‘((𝑖‘𝑗)‘𝑙)) = (2nd ‘((𝑖‘𝑛)‘𝑙)))
122	121	mpteq2dva 5209	. . . . . 6 ⊢ (𝑗 = 𝑛 → (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑗)‘𝑙))) = (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑛)‘𝑙))))
123	122	cbvmptv 5220	. . . . 5 ⊢ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑛)‘𝑙))))
124	123	mpteq2i 5212	. . . 4 ⊢ (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑m 𝑋) ↑m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2nd ‘((𝑖‘𝑛)‘𝑙)))))
125	59, 61, 62, 63, 2, 89, 113, 120, 124	ovnhoilem2 47357	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
126	70, 125	pm2.61dan 825	. 2 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
127	12, 16, 67, 126	xrletrid 13198	1 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿‘𝑋)𝐵))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146   ≠ wne 2961  ∃wrex 3092  {crab 3419  Vcvv 3458   ⊆ wss 3908  ∅c0 4289  ifcif 4492  {csn 4594  ⟨cop 4600  ∪ ciun 4961   class class class wbr 5114   ↦ cmpt 5197   × cxp 5664   ∘ ccom 5670  ⟶wf 6539  ‘cfv 6543  (class class class)co 7423   ∈ cmpo 7425  1^st c1st 7993  2^nd c2nd 7994   ↑_m cmap 8833  Xcixp 8904  Fincfn 8952  ℝcr 11117  0cc0 11118  1c1 11119  +∞cpnf 11258  ℝ^*cxr 11260   ≤ cle 11262  ℕcn 12251  [,)cico 13392  ∏cprod 15983  volcvol 25659  Σ^{^}csumge0 47117  voln*covoln 47291

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-inf2 9620  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195  ax-pre-sup 11196

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-int 4918  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-se 5620  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-of 7687  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-er 8703  df-map 8835  df-pm 8836  df-ixp 8905  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-fi 9381  df-sup 9412  df-inf 9413  df-oi 9482  df-dju 9906  df-card 9944  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-div 11890  df-nn 12252  df-2 12321  df-3 12322  df-n0 12523  df-z 12610  df-uz 12881  df-q 12991  df-rp 13035  df-xneg 13155  df-xadd 13156  df-xmul 13157  df-ioo 13394  df-ico 13396  df-icc 13397  df-fz 13554  df-fzo 13702  df-fl 13845  df-seq 14058  df-exp 14118  df-hash 14387  df-cj 15176  df-re 15177  df-im 15178  df-sqrt 15312  df-abs 15313  df-clim 15565  df-rlim 15566  df-sum 15764  df-prod 15984  df-rest 17500  df-topgen 17521  df-psmet 21551  df-xmet 21552  df-met 21553  df-bl 21554  df-mopn 21555  df-top 23088  df-topon 23105  df-bases 23140  df-cmp 23581  df-ovol 25660  df-vol 25661  df-sumge0 47118  df-ovoln 47292

This theorem is used by:  vonhoi  47422