ismbfd - Metamath Proof Explorer

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

Theorem ismbfd 25625

Description: Deduction to prove measurability of a real function. The third hypothesis is not necessary, but the proof of this requires countable choice, so we derive this separately as ismbf3d 25640. (Contributed by Mario Carneiro, 18-Jun-2014.)

**Hypotheses**
Ref	Expression
ismbfd.1	⊢ (𝜑 → 𝐹:𝐴⟶ℝ)
ismbfd.2	⊢ ((𝜑 ∧ 𝑥 ∈ ℝ^*) → (^◡𝐹 “ (𝑥(,)+∞)) ∈ dom vol)
ismbfd.3	⊢ ((𝜑 ∧ 𝑥 ∈ ℝ^*) → (^◡𝐹 “ (-∞(,)𝑥)) ∈ dom vol)

**Assertion**
Ref	Expression
ismbfd	⊢ (𝜑 → 𝐹 ∈ MblFn)

Distinct variable groups: 𝑥,𝐹 𝜑,𝑥 Allowed substitution hint: 𝐴(𝑥)

Proof of Theorem ismbfd Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ioof 13392	. . . . 5 ⊢ (,):(ℝ^* × ℝ^*)⟶𝒫 ℝ
2		ffn 6656	. . . . 5 ⊢ ((,):(ℝ^* × ℝ^)⟶𝒫 ℝ → (,) Fn (ℝ^ × ℝ^*))
3		ovelrn 7533	. . . . 5 ⊢ ((,) Fn (ℝ^* × ℝ^) → (𝑧 ∈ ran (,) ↔ ∃𝑥 ∈ ℝ^ ∃𝑦 ∈ ℝ^* 𝑧 = (𝑥(,)𝑦)))
4	1, 2, 3	mp2b 10	. . . 4 ⊢ (𝑧 ∈ ran (,) ↔ ∃𝑥 ∈ ℝ^* ∃𝑦 ∈ ℝ^* 𝑧 = (𝑥(,)𝑦))
5		simprl 776	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^)) → 𝑥 ∈ ℝ^)
6		pnfxr 11191	. . . . . . . . . . . 12 ⊢ +∞ ∈ ℝ^*
7	6	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^)) → +∞ ∈ ℝ^)
8		mnfxr 11194	. . . . . . . . . . . 12 ⊢ -∞ ∈ ℝ^*
9	8	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^)) → -∞ ∈ ℝ^)
10		simprr 778	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^)) → 𝑦 ∈ ℝ^)
11		iooin 13324	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ℝ^* ∧ +∞ ∈ ℝ^) ∧ (-∞ ∈ ℝ^ ∧ 𝑦 ∈ ℝ^*)) → ((𝑥(,)+∞) ∩ (-∞(,)𝑦)) = (if(𝑥 ≤ -∞, -∞, 𝑥)(,)if(+∞ ≤ 𝑦, +∞, 𝑦)))
12	5, 7, 9, 10, 11	syl22anc 844	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → ((𝑥(,)+∞) ∩ (-∞(,)𝑦)) = (if(𝑥 ≤ -∞, -∞, 𝑥)(,)if(+∞ ≤ 𝑦, +∞, 𝑦)))
13		ifcl 4501	. . . . . . . . . . . . 13 ⊢ ((-∞ ∈ ℝ^* ∧ 𝑥 ∈ ℝ^) → if(𝑥 ≤ -∞, -∞, 𝑥) ∈ ℝ^)
14	8, 5, 13	sylancr 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^)) → if(𝑥 ≤ -∞, -∞, 𝑥) ∈ ℝ^)
15		mnfle 13078	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ ℝ^* → -∞ ≤ 𝑥)
16		xrleid 13094	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ ℝ^* → 𝑥 ≤ 𝑥)
17		breq1 5076	. . . . . . . . . . . . . . 15 ⊢ (-∞ = if(𝑥 ≤ -∞, -∞, 𝑥) → (-∞ ≤ 𝑥 ↔ if(𝑥 ≤ -∞, -∞, 𝑥) ≤ 𝑥))
18		breq1 5076	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = if(𝑥 ≤ -∞, -∞, 𝑥) → (𝑥 ≤ 𝑥 ↔ if(𝑥 ≤ -∞, -∞, 𝑥) ≤ 𝑥))
19	17, 18	ifboth 4495	. . . . . . . . . . . . . 14 ⊢ ((-∞ ≤ 𝑥 ∧ 𝑥 ≤ 𝑥) → if(𝑥 ≤ -∞, -∞, 𝑥) ≤ 𝑥)
20	15, 16, 19	syl2anc 590	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ ℝ^* → if(𝑥 ≤ -∞, -∞, 𝑥) ≤ 𝑥)
21	20	ad2antrl 734	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → if(𝑥 ≤ -∞, -∞, 𝑥) ≤ 𝑥)
22		xrmax1 13119	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ ℝ^* ∧ -∞ ∈ ℝ^*) → 𝑥 ≤ if(𝑥 ≤ -∞, -∞, 𝑥))
23	5, 8, 22	sylancl 592	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → 𝑥 ≤ if(𝑥 ≤ -∞, -∞, 𝑥))
24	14, 5, 21, 23	xrletrid 13098	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → if(𝑥 ≤ -∞, -∞, 𝑥) = 𝑥)
25		ifcl 4501	. . . . . . . . . . . . 13 ⊢ ((+∞ ∈ ℝ^* ∧ 𝑦 ∈ ℝ^) → if(+∞ ≤ 𝑦, +∞, 𝑦) ∈ ℝ^)
26	6, 10, 25	sylancr 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^)) → if(+∞ ≤ 𝑦, +∞, 𝑦) ∈ ℝ^)
27		xrmin2 13122	. . . . . . . . . . . . 13 ⊢ ((+∞ ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*) → if(+∞ ≤ 𝑦, +∞, 𝑦) ≤ 𝑦)
28	6, 10, 27	sylancr 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → if(+∞ ≤ 𝑦, +∞, 𝑦) ≤ 𝑦)
29		pnfge 13073	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ℝ^* → 𝑦 ≤ +∞)
30		xrleid 13094	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ℝ^* → 𝑦 ≤ 𝑦)
31		breq2 5077	. . . . . . . . . . . . . . 15 ⊢ (+∞ = if(+∞ ≤ 𝑦, +∞, 𝑦) → (𝑦 ≤ +∞ ↔ 𝑦 ≤ if(+∞ ≤ 𝑦, +∞, 𝑦)))
32		breq2 5077	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = if(+∞ ≤ 𝑦, +∞, 𝑦) → (𝑦 ≤ 𝑦 ↔ 𝑦 ≤ if(+∞ ≤ 𝑦, +∞, 𝑦)))
33	31, 32	ifboth 4495	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ≤ +∞ ∧ 𝑦 ≤ 𝑦) → 𝑦 ≤ if(+∞ ≤ 𝑦, +∞, 𝑦))
34	29, 30, 33	syl2anc 590	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ ℝ^* → 𝑦 ≤ if(+∞ ≤ 𝑦, +∞, 𝑦))
35	34	ad2antll 735	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → 𝑦 ≤ if(+∞ ≤ 𝑦, +∞, 𝑦))
36	26, 10, 28, 35	xrletrid 13098	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → if(+∞ ≤ 𝑦, +∞, 𝑦) = 𝑦)
37	24, 36	oveq12d 7375	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (if(𝑥 ≤ -∞, -∞, 𝑥)(,)if(+∞ ≤ 𝑦, +∞, 𝑦)) = (𝑥(,)𝑦))
38	12, 37	eqtrd 2774	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → ((𝑥(,)+∞) ∩ (-∞(,)𝑦)) = (𝑥(,)𝑦))
39	38	imaeq2d 6013	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (^◡𝐹 “ ((𝑥(,)+∞) ∩ (-∞(,)𝑦))) = (^◡𝐹 “ (𝑥(,)𝑦)))
40		ismbfd.1	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹:𝐴⟶ℝ)
41	40	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → 𝐹:𝐴⟶ℝ)
42	41	ffund 6660	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → Fun 𝐹)
43		inpreima 7006	. . . . . . . . 9 ⊢ (Fun 𝐹 → (^◡𝐹 “ ((𝑥(,)+∞) ∩ (-∞(,)𝑦))) = ((^◡𝐹 “ (𝑥(,)+∞)) ∩ (^◡𝐹 “ (-∞(,)𝑦))))
44	42, 43	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (^◡𝐹 “ ((𝑥(,)+∞) ∩ (-∞(,)𝑦))) = ((^◡𝐹 “ (𝑥(,)+∞)) ∩ (^◡𝐹 “ (-∞(,)𝑦))))
45	39, 44	eqtr3d 2776	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (^◡𝐹 “ (𝑥(,)𝑦)) = ((^◡𝐹 “ (𝑥(,)+∞)) ∩ (^◡𝐹 “ (-∞(,)𝑦))))
46		ismbfd.2	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ^*) → (^◡𝐹 “ (𝑥(,)+∞)) ∈ dom vol)
47	46	adantrr 723	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (^◡𝐹 “ (𝑥(,)+∞)) ∈ dom vol)
48		ismbfd.3	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ^*) → (^◡𝐹 “ (-∞(,)𝑥)) ∈ dom vol)
49	48	ralrimiva 3131	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ ℝ^* (^◡𝐹 “ (-∞(,)𝑥)) ∈ dom vol)
50		oveq2 7365	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → (-∞(,)𝑥) = (-∞(,)𝑦))
51	50	imaeq2d 6013	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → (^◡𝐹 “ (-∞(,)𝑥)) = (^◡𝐹 “ (-∞(,)𝑦)))
52	51	eleq1d 2824	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → ((^◡𝐹 “ (-∞(,)𝑥)) ∈ dom vol ↔ (^◡𝐹 “ (-∞(,)𝑦)) ∈ dom vol))
53	52	rspccva 3559	. . . . . . . . . 10 ⊢ ((∀𝑥 ∈ ℝ^* (^◡𝐹 “ (-∞(,)𝑥)) ∈ dom vol ∧ 𝑦 ∈ ℝ^*) → (^◡𝐹 “ (-∞(,)𝑦)) ∈ dom vol)
54	49, 53	sylan 586	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ^*) → (^◡𝐹 “ (-∞(,)𝑦)) ∈ dom vol)
55	54	adantrl 722	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (^◡𝐹 “ (-∞(,)𝑦)) ∈ dom vol)
56		inmbl 25528	. . . . . . . 8 ⊢ (((^◡𝐹 “ (𝑥(,)+∞)) ∈ dom vol ∧ (^◡𝐹 “ (-∞(,)𝑦)) ∈ dom vol) → ((^◡𝐹 “ (𝑥(,)+∞)) ∩ (^◡𝐹 “ (-∞(,)𝑦))) ∈ dom vol)
57	47, 55, 56	syl2anc 590	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → ((^◡𝐹 “ (𝑥(,)+∞)) ∩ (^◡𝐹 “ (-∞(,)𝑦))) ∈ dom vol)
58	45, 57	eqeltrd 2839	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (^◡𝐹 “ (𝑥(,)𝑦)) ∈ dom vol)
59		imaeq2 6009	. . . . . . 7 ⊢ (𝑧 = (𝑥(,)𝑦) → (^◡𝐹 “ 𝑧) = (^◡𝐹 “ (𝑥(,)𝑦)))
60	59	eleq1d 2824	. . . . . 6 ⊢ (𝑧 = (𝑥(,)𝑦) → ((^◡𝐹 “ 𝑧) ∈ dom vol ↔ (^◡𝐹 “ (𝑥(,)𝑦)) ∈ dom vol))
61	58, 60	syl5ibrcom 248	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ^* ∧ 𝑦 ∈ ℝ^*)) → (𝑧 = (𝑥(,)𝑦) → (^◡𝐹 “ 𝑧) ∈ dom vol))
62	61	rexlimdvva 3196	. . . 4 ⊢ (𝜑 → (∃𝑥 ∈ ℝ^* ∃𝑦 ∈ ℝ^* 𝑧 = (𝑥(,)𝑦) → (^◡𝐹 “ 𝑧) ∈ dom vol))
63	4, 62	biimtrid 243	. . 3 ⊢ (𝜑 → (𝑧 ∈ ran (,) → (^◡𝐹 “ 𝑧) ∈ dom vol))
64	63	ralrimiv 3130	. 2 ⊢ (𝜑 → ∀𝑧 ∈ ran (,)(^◡𝐹 “ 𝑧) ∈ dom vol)
65		ismbf 25614	. . 3 ⊢ (𝐹:𝐴⟶ℝ → (𝐹 ∈ MblFn ↔ ∀𝑧 ∈ ran (,)(^◡𝐹 “ 𝑧) ∈ dom vol))
66	40, 65	syl 17	. 2 ⊢ (𝜑 → (𝐹 ∈ MblFn ↔ ∀𝑧 ∈ ran (,)(^◡𝐹 “ 𝑧) ∈ dom vol))
67	64, 66	mpbird 258	1 ⊢ (𝜑 → 𝐹 ∈ MblFn)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 207 ∧ wa 396 = wceq 1547 ∈ wcel 2119 ∀wral 3053 ∃wrex 3063 ∩ cin 3882 ifcif 4455 𝒫 cpw 4530 class class class wbr 5073 × cxp 5617 ^◡ccnv 5618 dom cdm 5619 ran crn 5620 “ cima 5622 Fun wfun 6480 Fn wfn 6481 ⟶wf 6482 (class class class)co 7357 ℝcr 11029 +∞cpnf 11168 -∞cmnf 11169 ℝ^*cxr 11170 ≤ cle 11172 (,)cioo 13290 volcvol 25449 MblFncmbf 25600

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1802 ax-4 1816 ax-5 1917 ax-6 1974 ax-7 2015 ax-8 2121 ax-9 2129 ax-10 2152 ax-11 2168 ax-12 2189 ax-ext 2711 ax-rep 5200 ax-sep 5219 ax-nul 5229 ax-pow 5295 ax-pr 5363 ax-un 7679 ax-inf2 9554 ax-cnex 11086 ax-resscn 11087 ax-1cn 11088 ax-icn 11089 ax-addcl 11090 ax-addrcl 11091 ax-mulcl 11092 ax-mulrcl 11093 ax-mulcom 11094 ax-addass 11095 ax-mulass 11096 ax-distr 11097 ax-i2m1 11098 ax-1ne0 11099 ax-1rid 11100 ax-rnegex 11101 ax-rrecex 11102 ax-cnre 11103 ax-pre-lttri 11104 ax-pre-lttrn 11105 ax-pre-ltadd 11106 ax-pre-mulgt0 11107 ax-pre-sup 11108

This theorem depends on definitions: df-bi 208 df-an 397 df-or 854 df-3or 1093 df-3an 1094 df-tru 1550 df-fal 1560 df-ex 1787 df-nf 1791 df-sb 2074 df-mo 2543 df-eu 2573 df-clab 2718 df-cleq 2731 df-clel 2814 df-nfc 2888 df-ne 2935 df-nel 3039 df-ral 3054 df-rex 3064 df-rmo 3344 df-reu 3345 df-rab 3392 df-v 3433 df-sbc 3724 df-csb 3832 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3903 df-nul 4263 df-if 4456 df-pw 4532 df-sn 4557 df-pr 4559 df-op 4563 df-uni 4840 df-int 4879 df-iun 4924 df-br 5074 df-opab 5136 df-mpt 5155 df-tr 5181 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6253 df-ord 6314 df-on 6315 df-lim 6316 df-suc 6317 df-iota 6442 df-fun 6488 df-fn 6489 df-f 6490 df-f1 6491 df-fo 6492 df-f1o 6493 df-fv 6494 df-isom 6495 df-riota 7314 df-ov 7360 df-oprab 7361 df-mpo 7362 df-of 7621 df-om 7808 df-1st 7932 df-2nd 7933 df-frecs 8222 df-wrecs 8253 df-recs 8302 df-rdg 8340 df-1o 8396 df-2o 8397 df-er 8634 df-map 8766 df-pm 8767 df-en 8885 df-dom 8886 df-sdom 8887 df-fin 8888 df-sup 9346 df-inf 9347 df-oi 9416 df-dju 9817 df-card 9855 df-pnf 11173 df-mnf 11174 df-xr 11175 df-ltxr 11176 df-le 11177 df-sub 11371 df-neg 11372 df-div 11800 df-nn 12167 df-2 12236 df-3 12237 df-n0 12430 df-z 12517 df-uz 12781 df-q 12891 df-rp 12935 df-xadd 13056 df-ioo 13294 df-ico 13296 df-icc 13297 df-fz 13454 df-fzo 13601 df-fl 13743 df-seq 13956 df-exp 14016 df-hash 14285 df-cj 15053 df-re 15054 df-im 15055 df-sqrt 15189 df-abs 15190 df-clim 15442 df-sum 15641 df-xmet 21341 df-met 21342 df-ovol 25450 df-vol 25451 df-mbf 25605

This theorem is referenced by: ismbf2d 25626 mbfmax 25635

W3C validator