ovnhoi - Mathbox for Glauco Siliprandi

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

Theorem ovnhoi 45254

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 1918	. . . . 5 ⊢ Ⅎ𝑘𝜑
5		ovnhoi.a	. . . . . 6 ⊢ (𝜑 → 𝐴:𝑋⟶ℝ)
6	5	ffvelcdmda 7082	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐴‘𝑘) ∈ ℝ)
7		ovnhoi.b	. . . . . . 7 ⊢ (𝜑 → 𝐵:𝑋⟶ℝ)
8	7	ffvelcdmda 7082	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐵‘𝑘) ∈ ℝ)
9	8	rexrd 11260	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → (𝐵‘𝑘) ∈ ℝ^*)
10	4, 6, 9	hoissrrn2 45229	. . . 4 ⊢ (𝜑 → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) ⊆ (ℝ ↑_m 𝑋))
11	3, 10	eqsstrd 4019	. . 3 ⊢ (𝜑 → 𝐼 ⊆ (ℝ ↑_m 𝑋))
12	1, 11	ovnxrcl 45220	. 2 ⊢ (𝜑 → ((voln‘𝑋)‘𝐼) ∈ ℝ^)
13		icossxr 13405	. . 3 ⊢ (0[,)+∞) ⊆ ℝ^*
14		ovnhoi.l	. . . 4 ⊢ 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑_m 𝑥), 𝑏 ∈ (ℝ ↑_m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))))
15	14, 1, 5, 7	hoidmvcl 45233	. . 3 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ∈ (0[,)+∞))
16	13, 15	sselid 3979	. 2 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ∈ ℝ^*)
17		fveq2 6888	. . . . . . . 8 ⊢ (𝑋 = ∅ → (voln‘𝑋) = (voln‘∅))
18	17	fveq1d 6890	. . . . . . 7 ⊢ (𝑋 = ∅ → ((voln‘𝑋)‘𝐼) = ((voln‘∅)‘𝐼))
19	18	adantl 483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln‘𝑋)‘𝐼) = ((voln‘∅)‘𝐼))
20		ixpeq1 8898	. . . . . . . . . . 11 ⊢ (𝑋 = ∅ → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)))
21		ixp0x 8916	. . . . . . . . . . . 12 ⊢ X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅}
22	21	a1i 11	. . . . . . . . . . 11 ⊢ (𝑋 = ∅ → X𝑘 ∈ ∅ ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
23	20, 22	eqtrd 2773	. . . . . . . . . 10 ⊢ (𝑋 = ∅ → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
24	23	adantl 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)) = {∅})
25	2	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 = X𝑘 ∈ 𝑋 ((𝐴‘𝑘)[,)(𝐵‘𝑘)))
26		reex 11197	. . . . . . . . . . 11 ⊢ ℝ ∈ V
27		mapdm0 8832	. . . . . . . . . . 11 ⊢ (ℝ ∈ V → (ℝ ↑_m ∅) = {∅})
28	26, 27	ax-mp 5	. . . . . . . . . 10 ⊢ (ℝ ↑_m ∅) = {∅}
29	28	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (ℝ ↑_m ∅) = {∅})
30	24, 25, 29	3eqtr4d 2783	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 = (ℝ ↑_m ∅))
31		eqimss 4039	. . . . . . . 8 ⊢ (𝐼 = (ℝ ↑_m ∅) → 𝐼 ⊆ (ℝ ↑_m ∅))
32	30, 31	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐼 ⊆ (ℝ ↑_m ∅))
33	32	ovn0val 45201	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘∅)‘𝐼) = 0)
34	19, 33	eqtrd 2773	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = 0)
35		0red 11213	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 0 ∈ ℝ)
36	34, 35	eqeltrd 2834	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ∈ ℝ)
37		eqidd 2734	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 0 = 0)
38		fveq2 6888	. . . . . . . 8 ⊢ (𝑋 = ∅ → (𝐿‘𝑋) = (𝐿‘∅))
39	38	oveqd 7421	. . . . . . 7 ⊢ (𝑋 = ∅ → (𝐴(𝐿‘𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
40	39	adantl 483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = (𝐴(𝐿‘∅)𝐵))
41	5	adantr 482	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
42		simpr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝑋 = ∅)
43	42	feq2d 6700	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴:𝑋⟶ℝ ↔ 𝐴:∅⟶ℝ))
44	41, 43	mpbid 231	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐴:∅⟶ℝ)
45	7	adantr 482	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
46	42	feq2d 6700	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐵:𝑋⟶ℝ ↔ 𝐵:∅⟶ℝ))
47	45, 46	mpbid 231	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 = ∅) → 𝐵:∅⟶ℝ)
48	14, 44, 47	hoidmv0val 45234	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘∅)𝐵) = 0)
49	40, 48	eqtrd 2773	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = 0)
50	37, 34, 49	3eqtr4d 2783	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿‘𝑋)𝐵))
51	36, 50	eqled 11313	. . 3 ⊢ ((𝜑 ∧ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
52		eqid 2733	. . . . . 6 ⊢ {𝑧 ∈ ℝ^* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ^* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))}
53		eqeq1 2737	. . . . . . . . 9 ⊢ (𝑛 = 𝑗 → (𝑛 = 1 ↔ 𝑗 = 1))
54	53	ifbid 4550	. . . . . . . 8 ⊢ (𝑛 = 𝑗 → if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩) = if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩))
55	54	mpteq2dv 5249	. . . . . . 7 ⊢ (𝑛 = 𝑗 → (𝑘 ∈ 𝑋 ↦ if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)) = (𝑘 ∈ 𝑋 ↦ if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)))
56	55	cbvmptv 5260	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ if(𝑛 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩))) = (𝑗 ∈ ℕ ↦ (𝑘 ∈ 𝑋 ↦ if(𝑗 = 1, ⟨(𝐴‘𝑘), (𝐵‘𝑘)⟩, ⟨0, 0⟩)))
57	1, 5, 7, 2, 52, 56	ovnhoilem1 45252	. . . . 5 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
58	57	adantr 482	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
59	1	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ∈ Fin)
60		neqne 2949	. . . . . . 7 ⊢ (¬ 𝑋 = ∅ → 𝑋 ≠ ∅)
61	60	adantl 483	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝑋 ≠ ∅)
62	5	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐴:𝑋⟶ℝ)
63	7	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → 𝐵:𝑋⟶ℝ)
64	14, 59, 61, 62, 63	hoidmvn0val 45235	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))))
65	64	eqcomd 2739	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ∏𝑘 ∈ 𝑋 (vol‘((𝐴‘𝑘)[,)(𝐵‘𝑘))) = (𝐴(𝐿‘𝑋)𝐵))
66	58, 65	breqtrd 5173	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
67	51, 66	pm2.61dan 812	. 2 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) ≤ (𝐴(𝐿‘𝑋)𝐵))
68	49, 35	eqeltrd 2834	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ∈ ℝ)
69	50	eqcomd 2739	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) = ((voln*‘𝑋)‘𝐼))
70	68, 69	eqled 11313	. . 3 ⊢ ((𝜑 ∧ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
71		fveq1 6887	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑐 → (𝑎‘𝑘) = (𝑐‘𝑘))
72	71	fvoveq1d 7426	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑐 → (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))) = (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))))
73	72	prodeq2ad 44243	. . . . . . . . . 10 ⊢ (𝑎 = 𝑐 → ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))) = ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))))
74	73	ifeq2d 4547	. . . . . . . . 9 ⊢ (𝑎 = 𝑐 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘)))))
75		fveq1 6887	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑑 → (𝑏‘𝑘) = (𝑑‘𝑘))
76	75	oveq2d 7420	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑑 → ((𝑐‘𝑘)[,)(𝑏‘𝑘)) = ((𝑐‘𝑘)[,)(𝑑‘𝑘)))
77	76	fveq2d 6892	. . . . . . . . . . 11 ⊢ (𝑏 = 𝑑 → (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))) = (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
78	77	prodeq2ad 44243	. . . . . . . . . 10 ⊢ (𝑏 = 𝑑 → ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘))) = ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
79	78	ifeq2d 4547	. . . . . . . . 9 ⊢ (𝑏 = 𝑑 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑏‘𝑘)))) = if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))))
80	74, 79	cbvmpov 7499	. . . . . . . 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 7412	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → (ℝ ↑_m 𝑥) = (ℝ ↑_m 𝑦))
83		eqeq1 2737	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝑥 = ∅ ↔ 𝑦 = ∅))
84		prodeq1 15849	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))) = ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))
85	83, 84	ifbieq2d 4553	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))) = if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘)))))
86	82, 82, 85	mpoeq123dv 7479	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑐 ∈ (ℝ ↑_m 𝑥), 𝑑 ∈ (ℝ ↑_m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))) = (𝑐 ∈ (ℝ ↑_m 𝑦), 𝑑 ∈ (ℝ ↑_m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
87	81, 86	eqtrd 2773	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑎 ∈ (ℝ ↑_m 𝑥), 𝑏 ∈ (ℝ ↑_m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘))))) = (𝑐 ∈ (ℝ ↑_m 𝑦), 𝑑 ∈ (ℝ ↑_m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
88	87	cbvmptv 5260	. . . . 5 ⊢ (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑_m 𝑥), 𝑏 ∈ (ℝ ↑_m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘 ∈ 𝑥 (vol‘((𝑎‘𝑘)[,)(𝑏‘𝑘)))))) = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑_m 𝑦), 𝑑 ∈ (ℝ ↑_m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
89	14, 88	eqtri 2761	. . . 4 ⊢ 𝐿 = (𝑦 ∈ Fin ↦ (𝑐 ∈ (ℝ ↑_m 𝑦), 𝑑 ∈ (ℝ ↑_m 𝑦) ↦ if(𝑦 = ∅, 0, ∏𝑘 ∈ 𝑦 (vol‘((𝑐‘𝑘)[,)(𝑑‘𝑘))))))
90		eqeq1 2737	. . . . . . . 8 ⊢ (𝑤 = 𝑧 → (𝑤 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))))
91	90	anbi2d 630	. . . . . . 7 ⊢ (𝑤 = 𝑧 → ((𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))))
92	91	rexbidv 3179	. . . . . 6 ⊢ (𝑤 = 𝑧 → (∃ℎ ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ ∃ℎ ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))))
93		simpl 484	. . . . . . . . . . . . . . 15 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → ℎ = 𝑖)
94	93	fveq1d 6890	. . . . . . . . . . . . . 14 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → (ℎ‘𝑗) = (𝑖‘𝑗))
95	94	coeq2d 5860	. . . . . . . . . . . . 13 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → ([,) ∘ (ℎ‘𝑗)) = ([,) ∘ (𝑖‘𝑗)))
96	95	fveq1d 6890	. . . . . . . . . . . 12 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → (([,) ∘ (ℎ‘𝑗))‘𝑘) = (([,) ∘ (𝑖‘𝑗))‘𝑘))
97	96	ixpeq2dv 8903	. . . . . . . . . . 11 ⊢ ((ℎ = 𝑖 ∧ 𝑗 ∈ ℕ) → X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) = X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘))
98	97	iuneq2dv 5020	. . . . . . . . . 10 ⊢ (ℎ = 𝑖 → ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) = ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘))
99	98	sseq2d 4013	. . . . . . . . 9 ⊢ (ℎ = 𝑖 → (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ↔ 𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘)))
100		simpl 484	. . . . . . . . . . . . . . . . 17 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → ℎ = 𝑖)
101	100	fveq1d 6890	. . . . . . . . . . . . . . . 16 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (ℎ‘𝑗) = (𝑖‘𝑗))
102	101	coeq2d 5860	. . . . . . . . . . . . . . 15 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → ([,) ∘ (ℎ‘𝑗)) = ([,) ∘ (𝑖‘𝑗)))
103	102	fveq1d 6890	. . . . . . . . . . . . . 14 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (([,) ∘ (ℎ‘𝑗))‘𝑘) = (([,) ∘ (𝑖‘𝑗))‘𝑘))
104	103	fveq2d 6892	. . . . . . . . . . . . 13 ⊢ ((ℎ = 𝑖 ∧ 𝑘 ∈ 𝑋) → (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)) = (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))
105	104	prodeq2dv 15863	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑖 → ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)) = ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))
106	105	mpteq2dv 5249	. . . . . . . . . . 11 ⊢ (ℎ = 𝑖 → (𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))) = (𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘))))
107	106	fveq2d 6892	. . . . . . . . . 10 ⊢ (ℎ = 𝑖 → (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))
108	107	eqeq2d 2744	. . . . . . . . 9 ⊢ (ℎ = 𝑖 → (𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))) ↔ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘))))))
109	99, 108	anbi12d 632	. . . . . . . 8 ⊢ (ℎ = 𝑖 → ((𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘))))) ↔ (𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))))
110	109	cbvrexvw 3236	. . . . . . 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 3443	. . . 4 ⊢ {𝑤 ∈ ℝ^* ∣ ∃ℎ ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (ℎ‘𝑗))‘𝑘) ∧ 𝑤 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (ℎ‘𝑗))‘𝑘)))))} = {𝑧 ∈ ℝ^* ∣ ∃𝑖 ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ)(𝐼 ⊆ ∪ 𝑗 ∈ ℕ X𝑘 ∈ 𝑋 (([,) ∘ (𝑖‘𝑗))‘𝑘) ∧ 𝑧 = (Σ^{^}‘(𝑗 ∈ ℕ ↦ ∏𝑘 ∈ 𝑋 (vol‘(([,) ∘ (𝑖‘𝑗))‘𝑘)))))}
114		simpl 484	. . . . . . . . . 10 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → 𝑗 = 𝑛)
115	114	fveq2d 6892	. . . . . . . . 9 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (𝑖‘𝑗) = (𝑖‘𝑛))
116	115	fveq1d 6890	. . . . . . . 8 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → ((𝑖‘𝑗)‘𝑙) = ((𝑖‘𝑛)‘𝑙))
117	116	fveq2d 6892	. . . . . . 7 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (1^st ‘((𝑖‘𝑗)‘𝑙)) = (1^st ‘((𝑖‘𝑛)‘𝑙)))
118	117	mpteq2dva 5247	. . . . . 6 ⊢ (𝑗 = 𝑛 → (𝑙 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑗)‘𝑙))) = (𝑙 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑛)‘𝑙))))
119	118	cbvmptv 5260	. . . . 5 ⊢ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑛)‘𝑙))))
120	119	mpteq2i 5252	. . . 4 ⊢ (𝑖 ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (1^st ‘((𝑖‘𝑛)‘𝑙)))))
121	116	fveq2d 6892	. . . . . . 7 ⊢ ((𝑗 = 𝑛 ∧ 𝑙 ∈ 𝑋) → (2^nd ‘((𝑖‘𝑗)‘𝑙)) = (2^nd ‘((𝑖‘𝑛)‘𝑙)))
122	121	mpteq2dva 5247	. . . . . 6 ⊢ (𝑗 = 𝑛 → (𝑙 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑗)‘𝑙))) = (𝑙 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑛)‘𝑙))))
123	122	cbvmptv 5260	. . . . 5 ⊢ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑗)‘𝑙)))) = (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑛)‘𝑙))))
124	123	mpteq2i 5252	. . . 4 ⊢ (𝑖 ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ) ↦ (𝑗 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑗)‘𝑙))))) = (𝑖 ∈ (((ℝ × ℝ) ↑_m 𝑋) ↑_m ℕ) ↦ (𝑛 ∈ ℕ ↦ (𝑙 ∈ 𝑋 ↦ (2^nd ‘((𝑖‘𝑛)‘𝑙)))))
125	59, 61, 62, 63, 2, 89, 113, 120, 124	ovnhoilem2 45253	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑋 = ∅) → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
126	70, 125	pm2.61dan 812	. 2 ⊢ (𝜑 → (𝐴(𝐿‘𝑋)𝐵) ≤ ((voln*‘𝑋)‘𝐼))
127	12, 16, 67, 126	xrletrid 13130	1 ⊢ (𝜑 → ((voln*‘𝑋)‘𝐼) = (𝐴(𝐿‘𝑋)𝐵))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 397 = wceq 1542 ∈ wcel 2107 ≠ wne 2941 ∃wrex 3071 {crab 3433 Vcvv 3475 ⊆ wss 3947 ∅c0 4321 ifcif 4527 {csn 4627 ⟨cop 4633 ∪ ciun 4996 class class class wbr 5147 ↦ cmpt 5230 × cxp 5673 ∘ ccom 5679 ⟶wf 6536 ‘cfv 6540 (class class class)co 7404 ∈ cmpo 7406 1^st c1st 7968 2^nd c2nd 7969 ↑_m cmap 8816 Xcixp 8887 Fincfn 8935 ℝcr 11105 0cc0 11106 1c1 11107 +∞cpnf 11241 ℝ^*cxr 11243 ≤ cle 11245 ℕcn 12208 [,)cico 13322 ∏cprod 15845 volcvol 24962 Σ^{^}csumge0 45013 voln*covoln 45187

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7720 ax-inf2 9632 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183 ax-pre-sup 11184

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-se 5631 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7360 df-ov 7407 df-oprab 7408 df-mpo 7409 df-of 7665 df-om 7851 df-1st 7970 df-2nd 7971 df-frecs 8261 df-wrecs 8292 df-recs 8366 df-rdg 8405 df-1o 8461 df-2o 8462 df-er 8699 df-map 8818 df-pm 8819 df-ixp 8888 df-en 8936 df-dom 8937 df-sdom 8938 df-fin 8939 df-fi 9402 df-sup 9433 df-inf 9434 df-oi 9501 df-dju 9892 df-card 9930 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11442 df-neg 11443 df-div 11868 df-nn 12209 df-2 12271 df-3 12272 df-n0 12469 df-z 12555 df-uz 12819 df-q 12929 df-rp 12971 df-xneg 13088 df-xadd 13089 df-xmul 13090 df-ioo 13324 df-ico 13326 df-icc 13327 df-fz 13481 df-fzo 13624 df-fl 13753 df-seq 13963 df-exp 14024 df-hash 14287 df-cj 15042 df-re 15043 df-im 15044 df-sqrt 15178 df-abs 15179 df-clim 15428 df-rlim 15429 df-sum 15629 df-prod 15846 df-rest 17364 df-topgen 17385 df-psmet 20921 df-xmet 20922 df-met 20923 df-bl 20924 df-mopn 20925 df-top 22378 df-topon 22395 df-bases 22431 df-cmp 22873 df-ovol 24963 df-vol 24964 df-sumge0 45014 df-ovoln 45188

This theorem is referenced by: vonhoi 45318

W3C validator