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

Theorem unmbl 24140
Description: A union of measurable sets is measurable. (Contributed by Mario Carneiro, 18-Mar-2014.)
Assertion
Ref Expression
unmbl ((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) → (𝐴𝐵) ∈ dom vol)

Proof of Theorem unmbl
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 mblss 24134 . . . 4 (𝐴 ∈ dom vol → 𝐴 ⊆ ℝ)
2 mblss 24134 . . . 4 (𝐵 ∈ dom vol → 𝐵 ⊆ ℝ)
31, 2anim12i 614 . . 3 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) → (𝐴 ⊆ ℝ ∧ 𝐵 ⊆ ℝ))
4 unss 4162 . . 3 ((𝐴 ⊆ ℝ ∧ 𝐵 ⊆ ℝ) ↔ (𝐴𝐵) ⊆ ℝ)
53, 4sylib 220 . 2 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) → (𝐴𝐵) ⊆ ℝ)
6 elpwi 4550 . . . 4 (𝑥 ∈ 𝒫 ℝ → 𝑥 ⊆ ℝ)
7 inss1 4207 . . . . . . . . 9 (𝑥 ∩ (𝐴𝐵)) ⊆ 𝑥
8 ovolsscl 24089 . . . . . . . . 9 (((𝑥 ∩ (𝐴𝐵)) ⊆ 𝑥𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥 ∩ (𝐴𝐵))) ∈ ℝ)
97, 8mp3an1 1444 . . . . . . . 8 ((𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥 ∩ (𝐴𝐵))) ∈ ℝ)
109adantl 484 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥 ∩ (𝐴𝐵))) ∈ ℝ)
11 inss1 4207 . . . . . . . . . 10 (𝑥𝐴) ⊆ 𝑥
12 ovolsscl 24089 . . . . . . . . . 10 (((𝑥𝐴) ⊆ 𝑥𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥𝐴)) ∈ ℝ)
1311, 12mp3an1 1444 . . . . . . . . 9 ((𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥𝐴)) ∈ ℝ)
1413adantl 484 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥𝐴)) ∈ ℝ)
15 inss1 4207 . . . . . . . . 9 ((𝑥𝐴) ∩ 𝐵) ⊆ (𝑥𝐴)
16 difss 4110 . . . . . . . . . 10 (𝑥𝐴) ⊆ 𝑥
17 simprl 769 . . . . . . . . . 10 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → 𝑥 ⊆ ℝ)
1816, 17sstrid 3980 . . . . . . . . 9 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (𝑥𝐴) ⊆ ℝ)
19 ovolsscl 24089 . . . . . . . . . . 11 (((𝑥𝐴) ⊆ 𝑥𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥𝐴)) ∈ ℝ)
2016, 19mp3an1 1444 . . . . . . . . . 10 ((𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥𝐴)) ∈ ℝ)
2120adantl 484 . . . . . . . . 9 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥𝐴)) ∈ ℝ)
22 ovolsscl 24089 . . . . . . . . 9 ((((𝑥𝐴) ∩ 𝐵) ⊆ (𝑥𝐴) ∧ (𝑥𝐴) ⊆ ℝ ∧ (vol*‘(𝑥𝐴)) ∈ ℝ) → (vol*‘((𝑥𝐴) ∩ 𝐵)) ∈ ℝ)
2315, 18, 21, 22mp3an2i 1462 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘((𝑥𝐴) ∩ 𝐵)) ∈ ℝ)
2414, 23readdcld 10672 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → ((vol*‘(𝑥𝐴)) + (vol*‘((𝑥𝐴) ∩ 𝐵))) ∈ ℝ)
25 difss 4110 . . . . . . . . 9 (𝑥 ∖ (𝐴𝐵)) ⊆ 𝑥
26 ovolsscl 24089 . . . . . . . . 9 (((𝑥 ∖ (𝐴𝐵)) ⊆ 𝑥𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥 ∖ (𝐴𝐵))) ∈ ℝ)
2725, 26mp3an1 1444 . . . . . . . 8 ((𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘(𝑥 ∖ (𝐴𝐵))) ∈ ℝ)
2827adantl 484 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥 ∖ (𝐴𝐵))) ∈ ℝ)
29 incom 4180 . . . . . . . . . . . 12 ((𝑥𝐴) ∩ 𝐵) = (𝐵 ∩ (𝑥𝐴))
30 indifcom 4251 . . . . . . . . . . . 12 (𝐵 ∩ (𝑥𝐴)) = (𝑥 ∩ (𝐵𝐴))
3129, 30eqtri 2846 . . . . . . . . . . 11 ((𝑥𝐴) ∩ 𝐵) = (𝑥 ∩ (𝐵𝐴))
3231uneq2i 4138 . . . . . . . . . 10 ((𝑥𝐴) ∪ ((𝑥𝐴) ∩ 𝐵)) = ((𝑥𝐴) ∪ (𝑥 ∩ (𝐵𝐴)))
33 indi 4252 . . . . . . . . . 10 (𝑥 ∩ (𝐴 ∪ (𝐵𝐴))) = ((𝑥𝐴) ∪ (𝑥 ∩ (𝐵𝐴)))
34 undif2 4427 . . . . . . . . . . 11 (𝐴 ∪ (𝐵𝐴)) = (𝐴𝐵)
3534ineq2i 4188 . . . . . . . . . 10 (𝑥 ∩ (𝐴 ∪ (𝐵𝐴))) = (𝑥 ∩ (𝐴𝐵))
3632, 33, 353eqtr2ri 2853 . . . . . . . . 9 (𝑥 ∩ (𝐴𝐵)) = ((𝑥𝐴) ∪ ((𝑥𝐴) ∩ 𝐵))
3736fveq2i 6675 . . . . . . . 8 (vol*‘(𝑥 ∩ (𝐴𝐵))) = (vol*‘((𝑥𝐴) ∪ ((𝑥𝐴) ∩ 𝐵)))
3811, 17sstrid 3980 . . . . . . . . 9 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (𝑥𝐴) ⊆ ℝ)
3915, 18sstrid 3980 . . . . . . . . 9 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → ((𝑥𝐴) ∩ 𝐵) ⊆ ℝ)
40 ovolun 24102 . . . . . . . . 9 ((((𝑥𝐴) ⊆ ℝ ∧ (vol*‘(𝑥𝐴)) ∈ ℝ) ∧ (((𝑥𝐴) ∩ 𝐵) ⊆ ℝ ∧ (vol*‘((𝑥𝐴) ∩ 𝐵)) ∈ ℝ)) → (vol*‘((𝑥𝐴) ∪ ((𝑥𝐴) ∩ 𝐵))) ≤ ((vol*‘(𝑥𝐴)) + (vol*‘((𝑥𝐴) ∩ 𝐵))))
4138, 14, 39, 23, 40syl22anc 836 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘((𝑥𝐴) ∪ ((𝑥𝐴) ∩ 𝐵))) ≤ ((vol*‘(𝑥𝐴)) + (vol*‘((𝑥𝐴) ∩ 𝐵))))
4237, 41eqbrtrid 5103 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥 ∩ (𝐴𝐵))) ≤ ((vol*‘(𝑥𝐴)) + (vol*‘((𝑥𝐴) ∩ 𝐵))))
4310, 24, 28, 42leadd1dd 11256 . . . . . 6 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → ((vol*‘(𝑥 ∩ (𝐴𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) ≤ (((vol*‘(𝑥𝐴)) + (vol*‘((𝑥𝐴) ∩ 𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))))
44 simplr 767 . . . . . . . . . 10 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → 𝐵 ∈ dom vol)
45 mblsplit 24135 . . . . . . . . . 10 ((𝐵 ∈ dom vol ∧ (𝑥𝐴) ⊆ ℝ ∧ (vol*‘(𝑥𝐴)) ∈ ℝ) → (vol*‘(𝑥𝐴)) = ((vol*‘((𝑥𝐴) ∩ 𝐵)) + (vol*‘((𝑥𝐴) ∖ 𝐵))))
4644, 18, 21, 45syl3anc 1367 . . . . . . . . 9 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥𝐴)) = ((vol*‘((𝑥𝐴) ∩ 𝐵)) + (vol*‘((𝑥𝐴) ∖ 𝐵))))
47 difun1 4266 . . . . . . . . . . 11 (𝑥 ∖ (𝐴𝐵)) = ((𝑥𝐴) ∖ 𝐵)
4847fveq2i 6675 . . . . . . . . . 10 (vol*‘(𝑥 ∖ (𝐴𝐵))) = (vol*‘((𝑥𝐴) ∖ 𝐵))
4948oveq2i 7169 . . . . . . . . 9 ((vol*‘((𝑥𝐴) ∩ 𝐵)) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) = ((vol*‘((𝑥𝐴) ∩ 𝐵)) + (vol*‘((𝑥𝐴) ∖ 𝐵)))
5046, 49syl6eqr 2876 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥𝐴)) = ((vol*‘((𝑥𝐴) ∩ 𝐵)) + (vol*‘(𝑥 ∖ (𝐴𝐵)))))
5150oveq2d 7174 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → ((vol*‘(𝑥𝐴)) + (vol*‘(𝑥𝐴))) = ((vol*‘(𝑥𝐴)) + ((vol*‘((𝑥𝐴) ∩ 𝐵)) + (vol*‘(𝑥 ∖ (𝐴𝐵))))))
52 simpll 765 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → 𝐴 ∈ dom vol)
53 simprr 771 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘𝑥) ∈ ℝ)
54 mblsplit 24135 . . . . . . . 8 ((𝐴 ∈ dom vol ∧ 𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ) → (vol*‘𝑥) = ((vol*‘(𝑥𝐴)) + (vol*‘(𝑥𝐴))))
5552, 17, 53, 54syl3anc 1367 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘𝑥) = ((vol*‘(𝑥𝐴)) + (vol*‘(𝑥𝐴))))
5614recnd 10671 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥𝐴)) ∈ ℂ)
5723recnd 10671 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘((𝑥𝐴) ∩ 𝐵)) ∈ ℂ)
5828recnd 10671 . . . . . . . 8 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘(𝑥 ∖ (𝐴𝐵))) ∈ ℂ)
5956, 57, 58addassd 10665 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (((vol*‘(𝑥𝐴)) + (vol*‘((𝑥𝐴) ∩ 𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) = ((vol*‘(𝑥𝐴)) + ((vol*‘((𝑥𝐴) ∩ 𝐵)) + (vol*‘(𝑥 ∖ (𝐴𝐵))))))
6051, 55, 593eqtr4d 2868 . . . . . 6 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → (vol*‘𝑥) = (((vol*‘(𝑥𝐴)) + (vol*‘((𝑥𝐴) ∩ 𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))))
6143, 60breqtrrd 5096 . . . . 5 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ (𝑥 ⊆ ℝ ∧ (vol*‘𝑥) ∈ ℝ)) → ((vol*‘(𝑥 ∩ (𝐴𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) ≤ (vol*‘𝑥))
6261expr 459 . . . 4 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ 𝑥 ⊆ ℝ) → ((vol*‘𝑥) ∈ ℝ → ((vol*‘(𝑥 ∩ (𝐴𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) ≤ (vol*‘𝑥)))
636, 62sylan2 594 . . 3 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) ∧ 𝑥 ∈ 𝒫 ℝ) → ((vol*‘𝑥) ∈ ℝ → ((vol*‘(𝑥 ∩ (𝐴𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) ≤ (vol*‘𝑥)))
6463ralrimiva 3184 . 2 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) → ∀𝑥 ∈ 𝒫 ℝ((vol*‘𝑥) ∈ ℝ → ((vol*‘(𝑥 ∩ (𝐴𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) ≤ (vol*‘𝑥)))
65 ismbl2 24130 . 2 ((𝐴𝐵) ∈ dom vol ↔ ((𝐴𝐵) ⊆ ℝ ∧ ∀𝑥 ∈ 𝒫 ℝ((vol*‘𝑥) ∈ ℝ → ((vol*‘(𝑥 ∩ (𝐴𝐵))) + (vol*‘(𝑥 ∖ (𝐴𝐵)))) ≤ (vol*‘𝑥))))
665, 64, 65sylanbrc 585 1 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ dom vol) → (𝐴𝐵) ∈ dom vol)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 398   = wceq 1537  wcel 2114  wral 3140  cdif 3935  cun 3936  cin 3937  wss 3938  𝒫 cpw 4541   class class class wbr 5068  dom cdm 5557  cfv 6357  (class class class)co 7158  cr 10538   + caddc 10542  cle 10678  vol*covol 24065  volcvol 24066
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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-pre-sup 10617
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-1st 7691  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-er 8291  df-map 8410  df-en 8512  df-dom 8513  df-sdom 8514  df-sup 8908  df-inf 8909  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-n0 11901  df-z 11985  df-uz 12247  df-q 12352  df-rp 12393  df-ioo 12745  df-ico 12747  df-icc 12748  df-fz 12896  df-fl 13165  df-seq 13373  df-exp 13433  df-cj 14460  df-re 14461  df-im 14462  df-sqrt 14596  df-abs 14597  df-ovol 24067  df-vol 24068
This theorem is referenced by:  inmbl  24145  finiunmbl  24147  volun  24148  voliunlem1  24153  icombl1  24166  iccmbl  24169  uniiccmbl  24193  mbfimaicc  24234  mbfeqalem2  24245  mbfres2  24248  mbfmax  24252  itgss3  24417  ismblfin  34935  mbfposadd  34941  cnambfre  34942  itg2addnclem2  34946  iblabsnclem  34957  ftc1anclem1  34969  ftc1anclem5  34973  iocmbl  39826
  Copyright terms: Public domain W3C validator