volivth - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > volivth		Structured version Visualization version GIF version

Theorem volivth 23772

Description: The Intermediate Value Theorem for the Lebesgue volume function. For any positive 𝐵 ≤ (vol‘𝐴), there is a measurable subset of 𝐴 whose volume is 𝐵. (Contributed by Mario Carneiro, 30-Aug-2014.)

**Assertion**
Ref	Expression
volivth	⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))

Distinct variable groups: 𝑥,𝐴 𝑥,𝐵

Proof of Theorem volivth Dummy variables 𝑢 𝑛 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpll 785	. . . 4 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → 𝐴 ∈ dom vol)
2		mnfxr 10413	. . . . . 6 ⊢ -∞ ∈ ℝ^*
3	2	a1i 11	. . . . 5 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → -∞ ∈ ℝ^*)
4		iccssxr 12543	. . . . . . 7 ⊢ (0[,](vol‘𝐴)) ⊆ ℝ^*
5		simpr 479	. . . . . . 7 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → 𝐵 ∈ (0[,](vol‘𝐴)))
6	4, 5	sseldi 3824	. . . . . 6 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → 𝐵 ∈ ℝ^*)
7	6	adantr 474	. . . . 5 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → 𝐵 ∈ ℝ^*)
8		iccssxr 12543	. . . . . . . 8 ⊢ (0[,]+∞) ⊆ ℝ^*
9		volf 23694	. . . . . . . . 9 ⊢ vol:dom vol⟶(0[,]+∞)
10	9	ffvelrni 6606	. . . . . . . 8 ⊢ (𝐴 ∈ dom vol → (vol‘𝐴) ∈ (0[,]+∞))
11	8, 10	sseldi 3824	. . . . . . 7 ⊢ (𝐴 ∈ dom vol → (vol‘𝐴) ∈ ℝ^*)
12	11	adantr 474	. . . . . 6 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → (vol‘𝐴) ∈ ℝ^*)
13	12	adantr 474	. . . . 5 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → (vol‘𝐴) ∈ ℝ^*)
14		0xr 10402	. . . . . . . . . 10 ⊢ 0 ∈ ℝ^*
15		elicc1 12506	. . . . . . . . . 10 ⊢ ((0 ∈ ℝ^* ∧ (vol‘𝐴) ∈ ℝ^) → (𝐵 ∈ (0[,](vol‘𝐴)) ↔ (𝐵 ∈ ℝ^ ∧ 0 ≤ 𝐵 ∧ 𝐵 ≤ (vol‘𝐴))))
16	14, 12, 15	sylancr 583	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → (𝐵 ∈ (0[,](vol‘𝐴)) ↔ (𝐵 ∈ ℝ^* ∧ 0 ≤ 𝐵 ∧ 𝐵 ≤ (vol‘𝐴))))
17	5, 16	mpbid 224	. . . . . . . 8 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → (𝐵 ∈ ℝ^* ∧ 0 ≤ 𝐵 ∧ 𝐵 ≤ (vol‘𝐴)))
18	17	simp2d 1179	. . . . . . 7 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → 0 ≤ 𝐵)
19	18	adantr 474	. . . . . 6 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → 0 ≤ 𝐵)
20		mnflt0 12244	. . . . . . . 8 ⊢ -∞ < 0
21		xrltletr 12275	. . . . . . . 8 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → ((-∞ < 0 ∧ 0 ≤ 𝐵) → -∞ < 𝐵))
22	20, 21	mpani 689	. . . . . . 7 ⊢ ((-∞ ∈ ℝ^* ∧ 0 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → (0 ≤ 𝐵 → -∞ < 𝐵))
23	2, 14, 22	mp3an12 1581	. . . . . 6 ⊢ (𝐵 ∈ ℝ^* → (0 ≤ 𝐵 → -∞ < 𝐵))
24	7, 19, 23	sylc 65	. . . . 5 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → -∞ < 𝐵)
25		simpr 479	. . . . 5 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → 𝐵 < (vol‘𝐴))
26		xrre2 12288	. . . . 5 ⊢ (((-∞ ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (vol‘𝐴) ∈ ℝ^*) ∧ (-∞ < 𝐵 ∧ 𝐵 < (vol‘𝐴))) → 𝐵 ∈ ℝ)
27	3, 7, 13, 24, 25, 26	syl32anc 1503	. . . 4 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → 𝐵 ∈ ℝ)
28		volsup2 23770	. . . 4 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ ∧ 𝐵 < (vol‘𝐴)) → ∃𝑛 ∈ ℕ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
29	1, 27, 25, 28	syl3anc 1496	. . 3 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → ∃𝑛 ∈ ℕ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
30		nnre 11357	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℝ)
31	30	ad2antrl 721	. . . . . 6 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 𝑛 ∈ ℝ)
32	31	renegcld 10780	. . . . 5 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → -𝑛 ∈ ℝ)
33	27	adantr 474	. . . . 5 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 𝐵 ∈ ℝ)
34		0red 10359	. . . . . 6 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 0 ∈ ℝ)
35		nngt0 11382	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → 0 < 𝑛)
36	35	ad2antrl 721	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 0 < 𝑛)
37	31	lt0neg2d 10921	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (0 < 𝑛 ↔ -𝑛 < 0))
38	36, 37	mpbid 224	. . . . . 6 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → -𝑛 < 0)
39	32, 34, 31, 38, 36	lttrd 10516	. . . . 5 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → -𝑛 < 𝑛)
40		iccssre 12542	. . . . . 6 ⊢ ((-𝑛 ∈ ℝ ∧ 𝑛 ∈ ℝ) → (-𝑛[,]𝑛) ⊆ ℝ)
41	32, 31, 40	syl2anc 581	. . . . 5 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (-𝑛[,]𝑛) ⊆ ℝ)
42		ax-resscn 10308	. . . . . . 7 ⊢ ℝ ⊆ ℂ
43		ssid 3847	. . . . . . 7 ⊢ ℂ ⊆ ℂ
44		cncfss 23071	. . . . . . 7 ⊢ ((ℝ ⊆ ℂ ∧ ℂ ⊆ ℂ) → (ℝ–cn→ℝ) ⊆ (ℝ–cn→ℂ))
45	42, 43, 44	mp2an 685	. . . . . 6 ⊢ (ℝ–cn→ℝ) ⊆ (ℝ–cn→ℂ)
46	1	adantr 474	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 𝐴 ∈ dom vol)
47		eqid 2824	. . . . . . . 8 ⊢ (𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦)))) = (𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))
48	47	volcn 23771	. . . . . . 7 ⊢ ((𝐴 ∈ dom vol ∧ -𝑛 ∈ ℝ) → (𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦)))) ∈ (ℝ–cn→ℝ))
49	46, 32, 48	syl2anc 581	. . . . . 6 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦)))) ∈ (ℝ–cn→ℝ))
50	45, 49	sseldi 3824	. . . . 5 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦)))) ∈ (ℝ–cn→ℂ))
51	41	sselda 3826	. . . . . 6 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑢 ∈ (-𝑛[,]𝑛)) → 𝑢 ∈ ℝ)
52		cncff 23065	. . . . . . . 8 ⊢ ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦)))) ∈ (ℝ–cn→ℝ) → (𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦)))):ℝ⟶ℝ)
53	49, 52	syl 17	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦)))):ℝ⟶ℝ)
54	53	ffvelrnda 6607	. . . . . 6 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑢 ∈ ℝ) → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑢) ∈ ℝ)
55	51, 54	syldan 587	. . . . 5 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑢 ∈ (-𝑛[,]𝑛)) → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑢) ∈ ℝ)
56		oveq2 6912	. . . . . . . . . . . 12 ⊢ (𝑦 = -𝑛 → (-𝑛[,]𝑦) = (-𝑛[,]-𝑛))
57	56	ineq2d 4040	. . . . . . . . . . 11 ⊢ (𝑦 = -𝑛 → (𝐴 ∩ (-𝑛[,]𝑦)) = (𝐴 ∩ (-𝑛[,]-𝑛)))
58	57	fveq2d 6436	. . . . . . . . . 10 ⊢ (𝑦 = -𝑛 → (vol‘(𝐴 ∩ (-𝑛[,]𝑦))) = (vol‘(𝐴 ∩ (-𝑛[,]-𝑛))))
59		fvex 6445	. . . . . . . . . 10 ⊢ (vol‘(𝐴 ∩ (-𝑛[,]-𝑛))) ∈ V
60	58, 47, 59	fvmpt 6528	. . . . . . . . 9 ⊢ (-𝑛 ∈ ℝ → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘-𝑛) = (vol‘(𝐴 ∩ (-𝑛[,]-𝑛))))
61	32, 60	syl 17	. . . . . . . 8 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘-𝑛) = (vol‘(𝐴 ∩ (-𝑛[,]-𝑛))))
62		inss2 4057	. . . . . . . . . . . 12 ⊢ (𝐴 ∩ (-𝑛[,]-𝑛)) ⊆ (-𝑛[,]-𝑛)
63	32	rexrd 10405	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → -𝑛 ∈ ℝ^*)
64		iccid 12507	. . . . . . . . . . . . 13 ⊢ (-𝑛 ∈ ℝ^* → (-𝑛[,]-𝑛) = {-𝑛})
65	63, 64	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (-𝑛[,]-𝑛) = {-𝑛})
66	62, 65	syl5sseq 3877	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (𝐴 ∩ (-𝑛[,]-𝑛)) ⊆ {-𝑛})
67	32	snssd 4557	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → {-𝑛} ⊆ ℝ)
68	66, 67	sstrd 3836	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (𝐴 ∩ (-𝑛[,]-𝑛)) ⊆ ℝ)
69		ovolsn 23660	. . . . . . . . . . . 12 ⊢ (-𝑛 ∈ ℝ → (vol*‘{-𝑛}) = 0)
70	32, 69	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (vol*‘{-𝑛}) = 0)
71		ovolssnul 23652	. . . . . . . . . . 11 ⊢ (((𝐴 ∩ (-𝑛[,]-𝑛)) ⊆ {-𝑛} ∧ {-𝑛} ⊆ ℝ ∧ (vol‘{-𝑛}) = 0) → (vol‘(𝐴 ∩ (-𝑛[,]-𝑛))) = 0)
72	66, 67, 70, 71	syl3anc 1496	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (vol*‘(𝐴 ∩ (-𝑛[,]-𝑛))) = 0)
73		nulmbl 23700	. . . . . . . . . 10 ⊢ (((𝐴 ∩ (-𝑛[,]-𝑛)) ⊆ ℝ ∧ (vol*‘(𝐴 ∩ (-𝑛[,]-𝑛))) = 0) → (𝐴 ∩ (-𝑛[,]-𝑛)) ∈ dom vol)
74	68, 72, 73	syl2anc 581	. . . . . . . . 9 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (𝐴 ∩ (-𝑛[,]-𝑛)) ∈ dom vol)
75		mblvol 23695	. . . . . . . . 9 ⊢ ((𝐴 ∩ (-𝑛[,]-𝑛)) ∈ dom vol → (vol‘(𝐴 ∩ (-𝑛[,]-𝑛))) = (vol*‘(𝐴 ∩ (-𝑛[,]-𝑛))))
76	74, 75	syl 17	. . . . . . . 8 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (vol‘(𝐴 ∩ (-𝑛[,]-𝑛))) = (vol*‘(𝐴 ∩ (-𝑛[,]-𝑛))))
77	61, 76, 72	3eqtrd 2864	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘-𝑛) = 0)
78	19	adantr 474	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 0 ≤ 𝐵)
79	77, 78	eqbrtrd 4894	. . . . . 6 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘-𝑛) ≤ 𝐵)
80	7	adantr 474	. . . . . . . 8 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 𝐵 ∈ ℝ^*)
81		iccmbl 23731	. . . . . . . . . . 11 ⊢ ((-𝑛 ∈ ℝ ∧ 𝑛 ∈ ℝ) → (-𝑛[,]𝑛) ∈ dom vol)
82	32, 31, 81	syl2anc 581	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (-𝑛[,]𝑛) ∈ dom vol)
83		inmbl 23707	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom vol ∧ (-𝑛[,]𝑛) ∈ dom vol) → (𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol)
84	46, 82, 83	syl2anc 581	. . . . . . . . 9 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol)
85	9	ffvelrni 6606	. . . . . . . . . 10 ⊢ ((𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol → (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ (0[,]+∞))
86	8, 85	sseldi 3824	. . . . . . . . 9 ⊢ ((𝐴 ∩ (-𝑛[,]𝑛)) ∈ dom vol → (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ ℝ^*)
87	84, 86	syl 17	. . . . . . . 8 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ ℝ^*)
88		simprr 791	. . . . . . . 8 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
89	80, 87, 88	xrltled 12268	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 𝐵 ≤ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
90		oveq2 6912	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑛 → (-𝑛[,]𝑦) = (-𝑛[,]𝑛))
91	90	ineq2d 4040	. . . . . . . . . 10 ⊢ (𝑦 = 𝑛 → (𝐴 ∩ (-𝑛[,]𝑦)) = (𝐴 ∩ (-𝑛[,]𝑛)))
92	91	fveq2d 6436	. . . . . . . . 9 ⊢ (𝑦 = 𝑛 → (vol‘(𝐴 ∩ (-𝑛[,]𝑦))) = (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
93		fvex 6445	. . . . . . . . 9 ⊢ (vol‘(𝐴 ∩ (-𝑛[,]𝑛))) ∈ V
94	92, 47, 93	fvmpt 6528	. . . . . . . 8 ⊢ (𝑛 ∈ ℝ → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑛) = (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
95	31, 94	syl 17	. . . . . . 7 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑛) = (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))
96	89, 95	breqtrrd 4900	. . . . . 6 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → 𝐵 ≤ ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑛))
97	79, 96	jca 509	. . . . 5 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘-𝑛) ≤ 𝐵 ∧ 𝐵 ≤ ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑛)))
98	32, 31, 33, 39, 41, 50, 55, 97	ivthle 23621	. . . 4 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → ∃𝑧 ∈ (-𝑛[,]𝑛)((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑧) = 𝐵)
99	41	sselda 3826	. . . . . . . 8 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑧 ∈ (-𝑛[,]𝑛)) → 𝑧 ∈ ℝ)
100		oveq2 6912	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑧 → (-𝑛[,]𝑦) = (-𝑛[,]𝑧))
101	100	ineq2d 4040	. . . . . . . . . 10 ⊢ (𝑦 = 𝑧 → (𝐴 ∩ (-𝑛[,]𝑦)) = (𝐴 ∩ (-𝑛[,]𝑧)))
102	101	fveq2d 6436	. . . . . . . . 9 ⊢ (𝑦 = 𝑧 → (vol‘(𝐴 ∩ (-𝑛[,]𝑦))) = (vol‘(𝐴 ∩ (-𝑛[,]𝑧))))
103		fvex 6445	. . . . . . . . 9 ⊢ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) ∈ V
104	102, 47, 103	fvmpt 6528	. . . . . . . 8 ⊢ (𝑧 ∈ ℝ → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑧) = (vol‘(𝐴 ∩ (-𝑛[,]𝑧))))
105	99, 104	syl 17	. . . . . . 7 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑧 ∈ (-𝑛[,]𝑛)) → ((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑧) = (vol‘(𝐴 ∩ (-𝑛[,]𝑧))))
106	105	eqeq1d 2826	. . . . . 6 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑧 ∈ (-𝑛[,]𝑛)) → (((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑧) = 𝐵 ↔ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵))
107	46	adantr 474	. . . . . . . . 9 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → 𝐴 ∈ dom vol)
108	32	adantr 474	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → -𝑛 ∈ ℝ)
109	99	adantrr 710	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → 𝑧 ∈ ℝ)
110		iccmbl 23731	. . . . . . . . . 10 ⊢ ((-𝑛 ∈ ℝ ∧ 𝑧 ∈ ℝ) → (-𝑛[,]𝑧) ∈ dom vol)
111	108, 109, 110	syl2anc 581	. . . . . . . . 9 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → (-𝑛[,]𝑧) ∈ dom vol)
112		inmbl 23707	. . . . . . . . 9 ⊢ ((𝐴 ∈ dom vol ∧ (-𝑛[,]𝑧) ∈ dom vol) → (𝐴 ∩ (-𝑛[,]𝑧)) ∈ dom vol)
113	107, 111, 112	syl2anc 581	. . . . . . . 8 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → (𝐴 ∩ (-𝑛[,]𝑧)) ∈ dom vol)
114		inss1 4056	. . . . . . . . 9 ⊢ (𝐴 ∩ (-𝑛[,]𝑧)) ⊆ 𝐴
115	114	a1i 11	. . . . . . . 8 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → (𝐴 ∩ (-𝑛[,]𝑧)) ⊆ 𝐴)
116		simprr 791	. . . . . . . 8 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)
117		sseq1 3850	. . . . . . . . . 10 ⊢ (𝑥 = (𝐴 ∩ (-𝑛[,]𝑧)) → (𝑥 ⊆ 𝐴 ↔ (𝐴 ∩ (-𝑛[,]𝑧)) ⊆ 𝐴))
118		fveqeq2 6441	. . . . . . . . . 10 ⊢ (𝑥 = (𝐴 ∩ (-𝑛[,]𝑧)) → ((vol‘𝑥) = 𝐵 ↔ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵))
119	117, 118	anbi12d 626	. . . . . . . . 9 ⊢ (𝑥 = (𝐴 ∩ (-𝑛[,]𝑧)) → ((𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵) ↔ ((𝐴 ∩ (-𝑛[,]𝑧)) ⊆ 𝐴 ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)))
120	119	rspcev 3525	. . . . . . . 8 ⊢ (((𝐴 ∩ (-𝑛[,]𝑧)) ∈ dom vol ∧ ((𝐴 ∩ (-𝑛[,]𝑧)) ⊆ 𝐴 ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))
121	113, 115, 116, 120	syl12anc 872	. . . . . . 7 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ (𝑧 ∈ (-𝑛[,]𝑛) ∧ (vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵)) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))
122	121	expr 450	. . . . . 6 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑧 ∈ (-𝑛[,]𝑛)) → ((vol‘(𝐴 ∩ (-𝑛[,]𝑧))) = 𝐵 → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵)))
123	106, 122	sylbid 232	. . . . 5 ⊢ (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) ∧ 𝑧 ∈ (-𝑛[,]𝑛)) → (((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑧) = 𝐵 → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵)))
124	123	rexlimdva 3239	. . . 4 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → (∃𝑧 ∈ (-𝑛[,]𝑛)((𝑦 ∈ ℝ ↦ (vol‘(𝐴 ∩ (-𝑛[,]𝑦))))‘𝑧) = 𝐵 → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵)))
125	98, 124	mpd 15	. . 3 ⊢ ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) ∧ (𝑛 ∈ ℕ ∧ 𝐵 < (vol‘(𝐴 ∩ (-𝑛[,]𝑛))))) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))
126	29, 125	rexlimddv 3244	. 2 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 < (vol‘𝐴)) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))
127		simpll 785	. . 3 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 = (vol‘𝐴)) → 𝐴 ∈ dom vol)
128		ssid 3847	. . . 4 ⊢ 𝐴 ⊆ 𝐴
129	128	a1i 11	. . 3 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 = (vol‘𝐴)) → 𝐴 ⊆ 𝐴)
130		simpr 479	. . . 4 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 = (vol‘𝐴)) → 𝐵 = (vol‘𝐴))
131	130	eqcomd 2830	. . 3 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 = (vol‘𝐴)) → (vol‘𝐴) = 𝐵)
132		sseq1 3850	. . . . 5 ⊢ (𝑥 = 𝐴 → (𝑥 ⊆ 𝐴 ↔ 𝐴 ⊆ 𝐴))
133		fveqeq2 6441	. . . . 5 ⊢ (𝑥 = 𝐴 → ((vol‘𝑥) = 𝐵 ↔ (vol‘𝐴) = 𝐵))
134	132, 133	anbi12d 626	. . . 4 ⊢ (𝑥 = 𝐴 → ((𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵) ↔ (𝐴 ⊆ 𝐴 ∧ (vol‘𝐴) = 𝐵)))
135	134	rspcev 3525	. . 3 ⊢ ((𝐴 ∈ dom vol ∧ (𝐴 ⊆ 𝐴 ∧ (vol‘𝐴) = 𝐵)) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))
136	127, 129, 131, 135	syl12anc 872	. 2 ⊢ (((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) ∧ 𝐵 = (vol‘𝐴)) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))
137	17	simp3d 1180	. . 3 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → 𝐵 ≤ (vol‘𝐴))
138		xrleloe 12262	. . . 4 ⊢ ((𝐵 ∈ ℝ^* ∧ (vol‘𝐴) ∈ ℝ^*) → (𝐵 ≤ (vol‘𝐴) ↔ (𝐵 < (vol‘𝐴) ∨ 𝐵 = (vol‘𝐴))))
139	6, 12, 138	syl2anc 581	. . 3 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → (𝐵 ≤ (vol‘𝐴) ↔ (𝐵 < (vol‘𝐴) ∨ 𝐵 = (vol‘𝐴))))
140	137, 139	mpbid 224	. 2 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → (𝐵 < (vol‘𝐴) ∨ 𝐵 = (vol‘𝐴)))
141	126, 136, 140	mpjaodan 988	1 ⊢ ((𝐴 ∈ dom vol ∧ 𝐵 ∈ (0[,](vol‘𝐴))) → ∃𝑥 ∈ dom vol(𝑥 ⊆ 𝐴 ∧ (vol‘𝑥) = 𝐵))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 198 ∧ wa 386 ∨ wo 880 ∧ w3a 1113 = wceq 1658 ∈ wcel 2166 ∃wrex 3117 ∩ cin 3796 ⊆ wss 3797 {csn 4396 class class class wbr 4872 ↦ cmpt 4951 dom cdm 5341 ⟶wf 6118 ‘cfv 6122 (class class class)co 6904 ℂcc 10249 ℝcr 10250 0cc0 10251 +∞cpnf 10387 -∞cmnf 10388 ℝ^*cxr 10389 < clt 10390 ≤ cle 10391 -cneg 10585 ℕcn 11349 [,]cicc 12465 –cn→ccncf 23048 vol*covol 23627 volcvol 23628

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1896 ax-4 1910 ax-5 2011 ax-6 2077 ax-7 2114 ax-8 2168 ax-9 2175 ax-10 2194 ax-11 2209 ax-12 2222 ax-13 2390 ax-ext 2802 ax-rep 4993 ax-sep 5004 ax-nul 5012 ax-pow 5064 ax-pr 5126 ax-un 7208 ax-inf2 8814 ax-cc 9571 ax-cnex 10307 ax-resscn 10308 ax-1cn 10309 ax-icn 10310 ax-addcl 10311 ax-addrcl 10312 ax-mulcl 10313 ax-mulrcl 10314 ax-mulcom 10315 ax-addass 10316 ax-mulass 10317 ax-distr 10318 ax-i2m1 10319 ax-1ne0 10320 ax-1rid 10321 ax-rnegex 10322 ax-rrecex 10323 ax-cnre 10324 ax-pre-lttri 10325 ax-pre-lttrn 10326 ax-pre-ltadd 10327 ax-pre-mulgt0 10328 ax-pre-sup 10329

This theorem depends on definitions: df-bi 199 df-an 387 df-or 881 df-3or 1114 df-3an 1115 df-tru 1662 df-fal 1672 df-ex 1881 df-nf 1885 df-sb 2070 df-mo 2604 df-eu 2639 df-clab 2811 df-cleq 2817 df-clel 2820 df-nfc 2957 df-ne 2999 df-nel 3102 df-ral 3121 df-rex 3122 df-reu 3123 df-rmo 3124 df-rab 3125 df-v 3415 df-sbc 3662 df-csb 3757 df-dif 3800 df-un 3802 df-in 3804 df-ss 3811 df-pss 3813 df-nul 4144 df-if 4306 df-pw 4379 df-sn 4397 df-pr 4399 df-tp 4401 df-op 4403 df-uni 4658 df-int 4697 df-iun 4741 df-disj 4841 df-br 4873 df-opab 4935 df-mpt 4952 df-tr 4975 df-id 5249 df-eprel 5254 df-po 5262 df-so 5263 df-fr 5300 df-se 5301 df-we 5302 df-xp 5347 df-rel 5348 df-cnv 5349 df-co 5350 df-dm 5351 df-rn 5352 df-res 5353 df-ima 5354 df-pred 5919 df-ord 5965 df-on 5966 df-lim 5967 df-suc 5968 df-iota 6085 df-fun 6124 df-fn 6125 df-f 6126 df-f1 6127 df-fo 6128 df-f1o 6129 df-fv 6130 df-isom 6131 df-riota 6865 df-ov 6907 df-oprab 6908 df-mpt2 6909 df-of 7156 df-om 7326 df-1st 7427 df-2nd 7428 df-wrecs 7671 df-recs 7733 df-rdg 7771 df-1o 7825 df-2o 7826 df-oadd 7829 df-er 8008 df-map 8123 df-pm 8124 df-en 8222 df-dom 8223 df-sdom 8224 df-fin 8225 df-fi 8585 df-sup 8616 df-inf 8617 df-oi 8683 df-card 9077 df-cda 9304 df-pnf 10392 df-mnf 10393 df-xr 10394 df-ltxr 10395 df-le 10396 df-sub 10586 df-neg 10587 df-div 11009 df-nn 11350 df-2 11413 df-3 11414 df-n0 11618 df-z 11704 df-uz 11968 df-q 12071 df-rp 12112 df-xneg 12231 df-xadd 12232 df-xmul 12233 df-ioo 12466 df-ico 12468 df-icc 12469 df-fz 12619 df-fzo 12760 df-fl 12887 df-seq 13095 df-exp 13154 df-hash 13410 df-cj 14215 df-re 14216 df-im 14217 df-sqrt 14351 df-abs 14352 df-clim 14595 df-rlim 14596 df-sum 14793 df-rest 16435 df-topgen 16456 df-psmet 20097 df-xmet 20098 df-met 20099 df-bl 20100 df-mopn 20101 df-top 21068 df-topon 21085 df-bases 21120 df-cmp 21560 df-cncf 23050 df-ovol 23629 df-vol 23630

This theorem is referenced by: itg2const2 23906

W3C validator