icombl - Metamath Proof Explorer

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

Theorem icombl 25521

Description: A closed-below, open-above real interval is measurable. (Contributed by Mario Carneiro, 16-Jun-2014.)

**Assertion**
Ref	Expression
icombl	⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐴[,)𝐵) ∈ dom vol)

**Proof of Theorem icombl**
Step	Hyp	Ref	Expression
1		uncom 4110	. . . . 5 ⊢ ((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = ((𝐴[,)𝐵) ∪ (𝐵[,)+∞))
2		rexr 11178	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℝ^*)
3	2	ad2antrr 726	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) ∧ 𝐴 < 𝐵) → 𝐴 ∈ ℝ^)
4		simplr 768	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) ∧ 𝐴 < 𝐵) → 𝐵 ∈ ℝ^)
5		pnfxr 11186	. . . . . . 7 ⊢ +∞ ∈ ℝ^*
6	5	a1i 11	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) ∧ 𝐴 < 𝐵) → +∞ ∈ ℝ^)
7		xrltle 13063	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → (𝐴 < 𝐵 → 𝐴 ≤ 𝐵))
8	2, 7	sylan 580	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐴 < 𝐵 → 𝐴 ≤ 𝐵))
9	8	imp 406	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → 𝐴 ≤ 𝐵)
10		pnfge 13044	. . . . . . 7 ⊢ (𝐵 ∈ ℝ^* → 𝐵 ≤ +∞)
11	4, 10	syl 17	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → 𝐵 ≤ +∞)
12		icoun 13391	. . . . . 6 ⊢ (((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) ∧ (𝐴 ≤ 𝐵 ∧ 𝐵 ≤ +∞)) → ((𝐴[,)𝐵) ∪ (𝐵[,)+∞)) = (𝐴[,)+∞))
13	3, 4, 6, 9, 11, 12	syl32anc 1380	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)𝐵) ∪ (𝐵[,)+∞)) = (𝐴[,)+∞))
14	1, 13	eqtrid 2783	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = (𝐴[,)+∞))
15		ssun1 4130	. . . . . 6 ⊢ (𝐵[,)+∞) ⊆ ((𝐵[,)+∞) ∪ (𝐴[,)𝐵))
16	15, 14	sseqtrid 3976	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵[,)+∞) ⊆ (𝐴[,)+∞))
17		incom 4161	. . . . . 6 ⊢ ((𝐵[,)+∞) ∩ (𝐴[,)𝐵)) = ((𝐴[,)𝐵) ∩ (𝐵[,)+∞))
18		icodisj 13392	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) → ((𝐴[,)𝐵) ∩ (𝐵[,)+∞)) = ∅)
19	5, 18	mp3an3 1452	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) ∩ (𝐵[,)+∞)) = ∅)
20	3, 4, 19	syl2anc 584	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)𝐵) ∩ (𝐵[,)+∞)) = ∅)
21	17, 20	eqtrid 2783	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐵[,)+∞) ∩ (𝐴[,)𝐵)) = ∅)
22		uneqdifeq 4445	. . . . 5 ⊢ (((𝐵[,)+∞) ⊆ (𝐴[,)+∞) ∧ ((𝐵[,)+∞) ∩ (𝐴[,)𝐵)) = ∅) → (((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = (𝐴[,)+∞) ↔ ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) = (𝐴[,)𝐵)))
23	16, 21, 22	syl2anc 584	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = (𝐴[,)+∞) ↔ ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) = (𝐴[,)𝐵)))
24	14, 23	mpbid 232	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) = (𝐴[,)𝐵))
25		icombl1 25520	. . . . 5 ⊢ (𝐴 ∈ ℝ → (𝐴[,)+∞) ∈ dom vol)
26	25	ad2antrr 726	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐴[,)+∞) ∈ dom vol)
27		xrleloe 13058	. . . . . . . 8 ⊢ ((𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) → (𝐵 ≤ +∞ ↔ (𝐵 < +∞ ∨ 𝐵 = +∞)))
28	4, 6, 27	syl2anc 584	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 ≤ +∞ ↔ (𝐵 < +∞ ∨ 𝐵 = +∞)))
29	11, 28	mpbid 232	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 < +∞ ∨ 𝐵 = +∞))
30		simpr 484	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → 𝐴 < 𝐵)
31		xrre2 13085	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) ∧ (𝐴 < 𝐵 ∧ 𝐵 < +∞)) → 𝐵 ∈ ℝ)
32	31	expr 456	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 < +∞ → 𝐵 ∈ ℝ))
33	3, 4, 6, 30, 32	syl31anc 1375	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 < +∞ → 𝐵 ∈ ℝ))
34	33	orim1d 967	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐵 < +∞ ∨ 𝐵 = +∞) → (𝐵 ∈ ℝ ∨ 𝐵 = +∞)))
35	29, 34	mpd 15	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 ∈ ℝ ∨ 𝐵 = +∞))
36		icombl1 25520	. . . . . 6 ⊢ (𝐵 ∈ ℝ → (𝐵[,)+∞) ∈ dom vol)
37		oveq1 7365	. . . . . . . 8 ⊢ (𝐵 = +∞ → (𝐵[,)+∞) = (+∞[,)+∞))
38		pnfge 13044	. . . . . . . . . 10 ⊢ (+∞ ∈ ℝ^* → +∞ ≤ +∞)
39	5, 38	ax-mp 5	. . . . . . . . 9 ⊢ +∞ ≤ +∞
40		ico0 13307	. . . . . . . . . 10 ⊢ ((+∞ ∈ ℝ^* ∧ +∞ ∈ ℝ^*) → ((+∞[,)+∞) = ∅ ↔ +∞ ≤ +∞))
41	5, 5, 40	mp2an 692	. . . . . . . . 9 ⊢ ((+∞[,)+∞) = ∅ ↔ +∞ ≤ +∞)
42	39, 41	mpbir 231	. . . . . . . 8 ⊢ (+∞[,)+∞) = ∅
43	37, 42	eqtrdi 2787	. . . . . . 7 ⊢ (𝐵 = +∞ → (𝐵[,)+∞) = ∅)
44		0mbl 25496	. . . . . . 7 ⊢ ∅ ∈ dom vol
45	43, 44	eqeltrdi 2844	. . . . . 6 ⊢ (𝐵 = +∞ → (𝐵[,)+∞) ∈ dom vol)
46	36, 45	jaoi 857	. . . . 5 ⊢ ((𝐵 ∈ ℝ ∨ 𝐵 = +∞) → (𝐵[,)+∞) ∈ dom vol)
47	35, 46	syl 17	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵[,)+∞) ∈ dom vol)
48		difmbl 25500	. . . 4 ⊢ (((𝐴[,)+∞) ∈ dom vol ∧ (𝐵[,)+∞) ∈ dom vol) → ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) ∈ dom vol)
49	26, 47, 48	syl2anc 584	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) ∈ dom vol)
50	24, 49	eqeltrrd 2837	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐴[,)𝐵) ∈ dom vol)
51		ico0 13307	. . . . . 6 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) = ∅ ↔ 𝐵 ≤ 𝐴))
52	2, 51	sylan 580	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) = ∅ ↔ 𝐵 ≤ 𝐴))
53		simpr 484	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) → 𝐵 ∈ ℝ^)
54	2	adantr 480	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) → 𝐴 ∈ ℝ^)
55	53, 54	xrlenltd 11198	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐵 ≤ 𝐴 ↔ ¬ 𝐴 < 𝐵))
56	52, 55	bitrd 279	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) = ∅ ↔ ¬ 𝐴 < 𝐵))
57	56	biimpar 477	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ ¬ 𝐴 < 𝐵) → (𝐴[,)𝐵) = ∅)
58	57, 44	eqeltrdi 2844	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ ¬ 𝐴 < 𝐵) → (𝐴[,)𝐵) ∈ dom vol)
59	50, 58	pm2.61dan 812	1 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐴[,)𝐵) ∈ dom vol)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 ∖ cdif 3898 ∪ cun 3899 ∩ cin 3900 ⊆ wss 3901 ∅c0 4285 class class class wbr 5098 dom cdm 5624 (class class class)co 7358 ℝcr 11025 +∞cpnf 11163 ℝ^*cxr 11165 < clt 11166 ≤ cle 11167 [,)cico 13263 volcvol 25420

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2184 ax-ext 2708 ax-rep 5224 ax-sep 5241 ax-nul 5251 ax-pow 5310 ax-pr 5377 ax-un 7680 ax-inf2 9550 ax-cnex 11082 ax-resscn 11083 ax-1cn 11084 ax-icn 11085 ax-addcl 11086 ax-addrcl 11087 ax-mulcl 11088 ax-mulrcl 11089 ax-mulcom 11090 ax-addass 11091 ax-mulass 11092 ax-distr 11093 ax-i2m1 11094 ax-1ne0 11095 ax-1rid 11096 ax-rnegex 11097 ax-rrecex 11098 ax-cnre 11099 ax-pre-lttri 11100 ax-pre-lttrn 11101 ax-pre-ltadd 11102 ax-pre-mulgt0 11103 ax-pre-sup 11104

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 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 3061 df-rmo 3350 df-reu 3351 df-rab 3400 df-v 3442 df-sbc 3741 df-csb 3850 df-dif 3904 df-un 3906 df-in 3908 df-ss 3918 df-pss 3921 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4581 df-pr 4583 df-op 4587 df-uni 4864 df-int 4903 df-iun 4948 df-br 5099 df-opab 5161 df-mpt 5180 df-tr 5206 df-id 5519 df-eprel 5524 df-po 5532 df-so 5533 df-fr 5577 df-se 5578 df-we 5579 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-isom 6501 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-of 7622 df-om 7809 df-1st 7933 df-2nd 7934 df-frecs 8223 df-wrecs 8254 df-recs 8303 df-rdg 8341 df-1o 8397 df-2o 8398 df-er 8635 df-map 8765 df-pm 8766 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-sup 9345 df-inf 9346 df-oi 9415 df-dju 9813 df-card 9851 df-pnf 11168 df-mnf 11169 df-xr 11170 df-ltxr 11171 df-le 11172 df-sub 11366 df-neg 11367 df-div 11795 df-nn 12146 df-2 12208 df-3 12209 df-n0 12402 df-z 12489 df-uz 12752 df-q 12862 df-rp 12906 df-xadd 13027 df-ioo 13265 df-ico 13267 df-icc 13268 df-fz 13424 df-fzo 13571 df-fl 13712 df-seq 13925 df-exp 13985 df-hash 14254 df-cj 15022 df-re 15023 df-im 15024 df-sqrt 15158 df-abs 15159 df-clim 15411 df-rlim 15412 df-sum 15610 df-xmet 21302 df-met 21303 df-ovol 25421 df-vol 25422

This theorem is referenced by: ioombl 25522 volicoff 46239 voliooicof 46240 icoresmbl 46787 hoiprodcl 46791 hoiprodcl3 46824 hoidmvcl 46826 hsphoidmvle2 46829 hsphoidmvle 46830 hoidmv1lelem1 46835 hoidmv1lelem2 46836 hoidmv1lelem3 46837 hoidifhspdmvle 46864 volicorege0 46881 ovolval5lem1 46896

W3C validator