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 23332

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 3757	. . . . 5 ⊢ ((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = ((𝐴[,)𝐵) ∪ (𝐵[,)+∞))
2		rexr 10085	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℝ^*)
3	2	ad2antrr 762	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) ∧ 𝐴 < 𝐵) → 𝐴 ∈ ℝ^)
4		simplr 792	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) ∧ 𝐴 < 𝐵) → 𝐵 ∈ ℝ^)
5		pnfxr 10092	. . . . . . 7 ⊢ +∞ ∈ ℝ^*
6	5	a1i 11	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) ∧ 𝐴 < 𝐵) → +∞ ∈ ℝ^)
7		xrltle 11982	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → (𝐴 < 𝐵 → 𝐴 ≤ 𝐵))
8	2, 7	sylan 488	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐴 < 𝐵 → 𝐴 ≤ 𝐵))
9	8	imp 445	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → 𝐴 ≤ 𝐵)
10		pnfge 11964	. . . . . . 7 ⊢ (𝐵 ∈ ℝ^* → 𝐵 ≤ +∞)
11	4, 10	syl 17	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → 𝐵 ≤ +∞)
12		icoun 12296	. . . . . 6 ⊢ (((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) ∧ (𝐴 ≤ 𝐵 ∧ 𝐵 ≤ +∞)) → ((𝐴[,)𝐵) ∪ (𝐵[,)+∞)) = (𝐴[,)+∞))
13	3, 4, 6, 9, 11, 12	syl32anc 1334	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)𝐵) ∪ (𝐵[,)+∞)) = (𝐴[,)+∞))
14	1, 13	syl5eq 2668	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = (𝐴[,)+∞))
15		ssun1 3776	. . . . . 6 ⊢ (𝐵[,)+∞) ⊆ ((𝐵[,)+∞) ∪ (𝐴[,)𝐵))
16	15, 14	syl5sseq 3653	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵[,)+∞) ⊆ (𝐴[,)+∞))
17		incom 3805	. . . . . 6 ⊢ ((𝐵[,)+∞) ∩ (𝐴[,)𝐵)) = ((𝐴[,)𝐵) ∩ (𝐵[,)+∞))
18		icodisj 12297	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) → ((𝐴[,)𝐵) ∩ (𝐵[,)+∞)) = ∅)
19	5, 18	mp3an3 1413	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) ∩ (𝐵[,)+∞)) = ∅)
20	3, 4, 19	syl2anc 693	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)𝐵) ∩ (𝐵[,)+∞)) = ∅)
21	17, 20	syl5eq 2668	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐵[,)+∞) ∩ (𝐴[,)𝐵)) = ∅)
22		uneqdifeq 4057	. . . . 5 ⊢ (((𝐵[,)+∞) ⊆ (𝐴[,)+∞) ∧ ((𝐵[,)+∞) ∩ (𝐴[,)𝐵)) = ∅) → (((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = (𝐴[,)+∞) ↔ ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) = (𝐴[,)𝐵)))
23	16, 21, 22	syl2anc 693	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (((𝐵[,)+∞) ∪ (𝐴[,)𝐵)) = (𝐴[,)+∞) ↔ ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) = (𝐴[,)𝐵)))
24	14, 23	mpbid 222	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) = (𝐴[,)𝐵))
25		icombl1 23331	. . . . 5 ⊢ (𝐴 ∈ ℝ → (𝐴[,)+∞) ∈ dom vol)
26	25	ad2antrr 762	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐴[,)+∞) ∈ dom vol)
27		xrleloe 11977	. . . . . . . 8 ⊢ ((𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) → (𝐵 ≤ +∞ ↔ (𝐵 < +∞ ∨ 𝐵 = +∞)))
28	4, 6, 27	syl2anc 693	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 ≤ +∞ ↔ (𝐵 < +∞ ∨ 𝐵 = +∞)))
29	11, 28	mpbid 222	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 < +∞ ∨ 𝐵 = +∞))
30		simpr 477	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → 𝐴 < 𝐵)
31		xrre2 12001	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) ∧ (𝐴 < 𝐵 ∧ 𝐵 < +∞)) → 𝐵 ∈ ℝ)
32	31	expr 643	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 < +∞ → 𝐵 ∈ ℝ))
33	3, 4, 6, 30, 32	syl31anc 1329	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 < +∞ → 𝐵 ∈ ℝ))
34	33	orim1d 884	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐵 < +∞ ∨ 𝐵 = +∞) → (𝐵 ∈ ℝ ∨ 𝐵 = +∞)))
35	29, 34	mpd 15	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵 ∈ ℝ ∨ 𝐵 = +∞))
36		icombl1 23331	. . . . . 6 ⊢ (𝐵 ∈ ℝ → (𝐵[,)+∞) ∈ dom vol)
37		oveq1 6657	. . . . . . . 8 ⊢ (𝐵 = +∞ → (𝐵[,)+∞) = (+∞[,)+∞))
38		pnfge 11964	. . . . . . . . . 10 ⊢ (+∞ ∈ ℝ^* → +∞ ≤ +∞)
39	5, 38	ax-mp 5	. . . . . . . . 9 ⊢ +∞ ≤ +∞
40		ico0 12221	. . . . . . . . . 10 ⊢ ((+∞ ∈ ℝ^* ∧ +∞ ∈ ℝ^*) → ((+∞[,)+∞) = ∅ ↔ +∞ ≤ +∞))
41	5, 5, 40	mp2an 708	. . . . . . . . 9 ⊢ ((+∞[,)+∞) = ∅ ↔ +∞ ≤ +∞)
42	39, 41	mpbir 221	. . . . . . . 8 ⊢ (+∞[,)+∞) = ∅
43	37, 42	syl6eq 2672	. . . . . . 7 ⊢ (𝐵 = +∞ → (𝐵[,)+∞) = ∅)
44		0mbl 23307	. . . . . . 7 ⊢ ∅ ∈ dom vol
45	43, 44	syl6eqel 2709	. . . . . 6 ⊢ (𝐵 = +∞ → (𝐵[,)+∞) ∈ dom vol)
46	36, 45	jaoi 394	. . . . 5 ⊢ ((𝐵 ∈ ℝ ∨ 𝐵 = +∞) → (𝐵[,)+∞) ∈ dom vol)
47	35, 46	syl 17	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐵[,)+∞) ∈ dom vol)
48		difmbl 23311	. . . 4 ⊢ (((𝐴[,)+∞) ∈ dom vol ∧ (𝐵[,)+∞) ∈ dom vol) → ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) ∈ dom vol)
49	26, 47, 48	syl2anc 693	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → ((𝐴[,)+∞) ∖ (𝐵[,)+∞)) ∈ dom vol)
50	24, 49	eqeltrrd 2702	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ 𝐴 < 𝐵) → (𝐴[,)𝐵) ∈ dom vol)
51		ico0 12221	. . . . . 6 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) = ∅ ↔ 𝐵 ≤ 𝐴))
52	2, 51	sylan 488	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) = ∅ ↔ 𝐵 ≤ 𝐴))
53		simpr 477	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) → 𝐵 ∈ ℝ^)
54	2	adantr 481	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^) → 𝐴 ∈ ℝ^)
55		xrlenlt 10103	. . . . . 6 ⊢ ((𝐵 ∈ ℝ^* ∧ 𝐴 ∈ ℝ^*) → (𝐵 ≤ 𝐴 ↔ ¬ 𝐴 < 𝐵))
56	53, 54, 55	syl2anc 693	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐵 ≤ 𝐴 ↔ ¬ 𝐴 < 𝐵))
57	52, 56	bitrd 268	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → ((𝐴[,)𝐵) = ∅ ↔ ¬ 𝐴 < 𝐵))
58	57	biimpar 502	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ ¬ 𝐴 < 𝐵) → (𝐴[,)𝐵) = ∅)
59	58, 44	syl6eqel 2709	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) ∧ ¬ 𝐴 < 𝐵) → (𝐴[,)𝐵) ∈ dom vol)
60	50, 59	pm2.61dan 832	1 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ^*) → (𝐴[,)𝐵) ∈ dom vol)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 196 ∨ wo 383 ∧ wa 384 ∧ w3a 1037 = wceq 1483 ∈ wcel 1990 ∖ cdif 3571 ∪ cun 3572 ∩ cin 3573 ⊆ wss 3574 ∅c0 3915 class class class wbr 4653 dom cdm 5114 (class class class)co 6650 ℝcr 9935 +∞cpnf 10071 ℝ^*cxr 10073 < clt 10074 ≤ cle 10075 [,)cico 12177 volcvol 23232

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-inf2 8538 ax-cnex 9992 ax-resscn 9993 ax-1cn 9994 ax-icn 9995 ax-addcl 9996 ax-addrcl 9997 ax-mulcl 9998 ax-mulrcl 9999 ax-mulcom 10000 ax-addass 10001 ax-mulass 10002 ax-distr 10003 ax-i2m1 10004 ax-1ne0 10005 ax-1rid 10006 ax-rnegex 10007 ax-rrecex 10008 ax-cnre 10009 ax-pre-lttri 10010 ax-pre-lttrn 10011 ax-pre-ltadd 10012 ax-pre-mulgt0 10013 ax-pre-sup 10014

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-fal 1489 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-nel 2898 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-iun 4522 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-se 5074 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-of 6897 df-om 7066 df-1st 7168 df-2nd 7169 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-1o 7560 df-2o 7561 df-oadd 7564 df-er 7742 df-map 7859 df-pm 7860 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-sup 8348 df-inf 8349 df-oi 8415 df-card 8765 df-cda 8990 df-pnf 10076 df-mnf 10077 df-xr 10078 df-ltxr 10079 df-le 10080 df-sub 10268 df-neg 10269 df-div 10685 df-nn 11021 df-2 11079 df-3 11080 df-n0 11293 df-z 11378 df-uz 11688 df-q 11789 df-rp 11833 df-xadd 11947 df-ioo 12179 df-ico 12181 df-icc 12182 df-fz 12327 df-fzo 12466 df-fl 12593 df-seq 12802 df-exp 12861 df-hash 13118 df-cj 13839 df-re 13840 df-im 13841 df-sqrt 13975 df-abs 13976 df-clim 14219 df-rlim 14220 df-sum 14417 df-xmet 19739 df-met 19740 df-ovol 23233 df-vol 23234

This theorem is referenced by: ioombl 23333 volicoff 40212 voliooicof 40213 icoresmbl 40757 hoiprodcl 40761 hoiprodcl3 40794 hoidmvcl 40796 hsphoidmvle2 40799 hsphoidmvle 40800 hoidmv1lelem1 40805 hoidmv1lelem2 40806 hoidmv1lelem3 40807 hoidifhspdmvle 40834 volicorege0 40851 ovolval5lem1 40866

W3C validator