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

Theorem nulmbl2 23350
Description: A set of outer measure zero is measurable. The term "outer measure zero" here is slightly different from "nullset/negligible set"; a nullset has vol*(𝐴) = 0 while "outer measure zero" means that for any 𝑥 there is a 𝑦 containing 𝐴 with volume less than 𝑥. Assuming AC, these notions are equivalent (because the intersection of all such 𝑦 is a nullset) but in ZF this is a strictly weaker notion. Proposition 563Gb of [Fremlin5] p. 193. (Contributed by Mario Carneiro, 19-Mar-2015.)
Assertion
Ref Expression
nulmbl2 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ∈ dom vol)
Distinct variable group:   𝑥,𝑦,𝐴

Proof of Theorem nulmbl2
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 1rp 11874 . . . . 5 1 ∈ ℝ+
21ne0ii 3956 . . . 4 + ≠ ∅
3 r19.2z 4093 . . . 4 ((ℝ+ ≠ ∅ ∧ ∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → ∃𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))
42, 3mpan 706 . . 3 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ∃𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))
5 simprl 809 . . . . . 6 ((𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → 𝐴𝑦)
6 mblss 23345 . . . . . . 7 (𝑦 ∈ dom vol → 𝑦 ⊆ ℝ)
76adantr 480 . . . . . 6 ((𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → 𝑦 ⊆ ℝ)
85, 7sstrd 3646 . . . . 5 ((𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → 𝐴 ⊆ ℝ)
98rexlimiva 3057 . . . 4 (∃𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ⊆ ℝ)
109rexlimivw 3058 . . 3 (∃𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ⊆ ℝ)
114, 10syl 17 . 2 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ⊆ ℝ)
12 inss1 3866 . . . . . . . . . . . . 13 (𝑧𝐴) ⊆ 𝑧
1312a1i 11 . . . . . . . . . . . 12 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (𝑧𝐴) ⊆ 𝑧)
14 elpwi 4201 . . . . . . . . . . . . 13 (𝑧 ∈ 𝒫 ℝ → 𝑧 ⊆ ℝ)
1514adantr 480 . . . . . . . . . . . 12 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → 𝑧 ⊆ ℝ)
16 simpr 476 . . . . . . . . . . . 12 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘𝑧) ∈ ℝ)
17 ovolsscl 23300 . . . . . . . . . . . 12 (((𝑧𝐴) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
1813, 15, 16, 17syl3anc 1366 . . . . . . . . . . 11 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
19 difssd 3771 . . . . . . . . . . . 12 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (𝑧𝐴) ⊆ 𝑧)
20 ovolsscl 23300 . . . . . . . . . . . 12 (((𝑧𝐴) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
2119, 15, 16, 20syl3anc 1366 . . . . . . . . . . 11 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
2218, 21readdcld 10107 . . . . . . . . . 10 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ)
2322ad2antrr 762 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ)
2416ad2antrr 762 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑧) ∈ ℝ)
25 difssd 3771 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑦𝐴) ⊆ 𝑦)
267adantl 481 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑦 ⊆ ℝ)
27 rpre 11877 . . . . . . . . . . . . 13 (𝑥 ∈ ℝ+𝑥 ∈ ℝ)
2827ad2antlr 763 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑥 ∈ ℝ)
29 simprrr 822 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑦) ≤ 𝑥)
30 ovollecl 23297 . . . . . . . . . . . 12 ((𝑦 ⊆ ℝ ∧ 𝑥 ∈ ℝ ∧ (vol*‘𝑦) ≤ 𝑥) → (vol*‘𝑦) ∈ ℝ)
3126, 28, 29, 30syl3anc 1366 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑦) ∈ ℝ)
32 ovolsscl 23300 . . . . . . . . . . 11 (((𝑦𝐴) ⊆ 𝑦𝑦 ⊆ ℝ ∧ (vol*‘𝑦) ∈ ℝ) → (vol*‘(𝑦𝐴)) ∈ ℝ)
3325, 26, 31, 32syl3anc 1366 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ∈ ℝ)
3424, 33readdcld 10107 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) ∈ ℝ)
3524, 28readdcld 10107 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + 𝑥) ∈ ℝ)
3618ad2antrr 762 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ∈ ℝ)
3721ad2antrr 762 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ∈ ℝ)
38 inss1 3866 . . . . . . . . . . . . 13 (𝑧𝑦) ⊆ 𝑧
3938a1i 11 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝑦) ⊆ 𝑧)
4015ad2antrr 762 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑧 ⊆ ℝ)
41 ovolsscl 23300 . . . . . . . . . . . 12 (((𝑧𝑦) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝑦)) ∈ ℝ)
4239, 40, 24, 41syl3anc 1366 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℝ)
43 difssd 3771 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝑦) ⊆ 𝑧)
44 ovolsscl 23300 . . . . . . . . . . . . 13 (((𝑧𝑦) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝑦)) ∈ ℝ)
4543, 40, 24, 44syl3anc 1366 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℝ)
4645, 33readdcld 10107 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))) ∈ ℝ)
47 simprrl 821 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝐴𝑦)
48 sslin 3872 . . . . . . . . . . . . 13 (𝐴𝑦 → (𝑧𝐴) ⊆ (𝑧𝑦))
4947, 48syl 17 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝐴) ⊆ (𝑧𝑦))
5038, 40syl5ss 3647 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝑦) ⊆ ℝ)
51 ovolss 23299 . . . . . . . . . . . 12 (((𝑧𝐴) ⊆ (𝑧𝑦) ∧ (𝑧𝑦) ⊆ ℝ) → (vol*‘(𝑧𝐴)) ≤ (vol*‘(𝑧𝑦)))
5249, 50, 51syl2anc 694 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ≤ (vol*‘(𝑧𝑦)))
5340ssdifssd 3781 . . . . . . . . . . . . . 14 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝑦) ⊆ ℝ)
5426ssdifssd 3781 . . . . . . . . . . . . . 14 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑦𝐴) ⊆ ℝ)
5553, 54unssd 3822 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((𝑧𝑦) ∪ (𝑦𝐴)) ⊆ ℝ)
56 ovolun 23313 . . . . . . . . . . . . . 14 ((((𝑧𝑦) ⊆ ℝ ∧ (vol*‘(𝑧𝑦)) ∈ ℝ) ∧ ((𝑦𝐴) ⊆ ℝ ∧ (vol*‘(𝑦𝐴)) ∈ ℝ)) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))))
5753, 45, 54, 33, 56syl22anc 1367 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))))
58 ovollecl 23297 . . . . . . . . . . . . 13 ((((𝑧𝑦) ∪ (𝑦𝐴)) ⊆ ℝ ∧ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))) ∈ ℝ ∧ (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ∈ ℝ)
5955, 46, 57, 58syl3anc 1366 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ∈ ℝ)
60 ssun1 3809 . . . . . . . . . . . . . . . . 17 𝑧 ⊆ (𝑧𝑦)
61 undif1 4076 . . . . . . . . . . . . . . . . 17 ((𝑧𝑦) ∪ 𝑦) = (𝑧𝑦)
6260, 61sseqtr4i 3671 . . . . . . . . . . . . . . . 16 𝑧 ⊆ ((𝑧𝑦) ∪ 𝑦)
63 ssdif 3778 . . . . . . . . . . . . . . . 16 (𝑧 ⊆ ((𝑧𝑦) ∪ 𝑦) → (𝑧𝐴) ⊆ (((𝑧𝑦) ∪ 𝑦) ∖ 𝐴))
6462, 63ax-mp 5 . . . . . . . . . . . . . . 15 (𝑧𝐴) ⊆ (((𝑧𝑦) ∪ 𝑦) ∖ 𝐴)
65 difundir 3913 . . . . . . . . . . . . . . 15 (((𝑧𝑦) ∪ 𝑦) ∖ 𝐴) = (((𝑧𝑦) ∖ 𝐴) ∪ (𝑦𝐴))
6664, 65sseqtri 3670 . . . . . . . . . . . . . 14 (𝑧𝐴) ⊆ (((𝑧𝑦) ∖ 𝐴) ∪ (𝑦𝐴))
67 difun1 3920 . . . . . . . . . . . . . . . 16 (𝑧 ∖ (𝑦𝐴)) = ((𝑧𝑦) ∖ 𝐴)
68 ssequn2 3819 . . . . . . . . . . . . . . . . . 18 (𝐴𝑦 ↔ (𝑦𝐴) = 𝑦)
6947, 68sylib 208 . . . . . . . . . . . . . . . . 17 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑦𝐴) = 𝑦)
7069difeq2d 3761 . . . . . . . . . . . . . . . 16 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧 ∖ (𝑦𝐴)) = (𝑧𝑦))
7167, 70syl5eqr 2699 . . . . . . . . . . . . . . 15 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((𝑧𝑦) ∖ 𝐴) = (𝑧𝑦))
7271uneq1d 3799 . . . . . . . . . . . . . 14 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (((𝑧𝑦) ∖ 𝐴) ∪ (𝑦𝐴)) = ((𝑧𝑦) ∪ (𝑦𝐴)))
7366, 72syl5sseq 3686 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝐴) ⊆ ((𝑧𝑦) ∪ (𝑦𝐴)))
74 ovolss 23299 . . . . . . . . . . . . 13 (((𝑧𝐴) ⊆ ((𝑧𝑦) ∪ (𝑦𝐴)) ∧ ((𝑧𝑦) ∪ (𝑦𝐴)) ⊆ ℝ) → (vol*‘(𝑧𝐴)) ≤ (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))))
7573, 55, 74syl2anc 694 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ≤ (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))))
7637, 59, 46, 75, 57letrd 10232 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))))
7736, 37, 42, 46, 52, 76le2addd 10684 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘(𝑧𝑦)) + ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))))
78 simprl 809 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑦 ∈ dom vol)
79 mblsplit 23346 . . . . . . . . . . . . 13 ((𝑦 ∈ dom vol ∧ 𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘𝑧) = ((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))))
8078, 40, 24, 79syl3anc 1366 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑧) = ((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))))
8180oveq1d 6705 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) = (((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))) + (vol*‘(𝑦𝐴))))
8242recnd 10106 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℂ)
8345recnd 10106 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℂ)
8433recnd 10106 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ∈ ℂ)
8582, 83, 84addassd 10100 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))) + (vol*‘(𝑦𝐴))) = ((vol*‘(𝑧𝑦)) + ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))))
8681, 85eqtrd 2685 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) = ((vol*‘(𝑧𝑦)) + ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))))
8777, 86breqtrrd 4713 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + (vol*‘(𝑦𝐴))))
88 difss 3770 . . . . . . . . . . . 12 (𝑦𝐴) ⊆ 𝑦
89 ovolss 23299 . . . . . . . . . . . 12 (((𝑦𝐴) ⊆ 𝑦𝑦 ⊆ ℝ) → (vol*‘(𝑦𝐴)) ≤ (vol*‘𝑦))
9088, 26, 89sylancr 696 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ≤ (vol*‘𝑦))
9133, 31, 28, 90, 29letrd 10232 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ≤ 𝑥)
9233, 28, 24, 91leadd2dd 10680 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) ≤ ((vol*‘𝑧) + 𝑥))
9323, 34, 35, 87, 92letrd 10232 . . . . . . . 8 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥))
9493rexlimdvaa 3061 . . . . . . 7 (((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → (∃𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
9594ralimdva 2991 . . . . . 6 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
9695impcom 445 . . . . 5 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥))
9722adantl 481 . . . . . . 7 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ)
9897rexrd 10127 . . . . . 6 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ*)
99 simprr 811 . . . . . 6 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → (vol*‘𝑧) ∈ ℝ)
100 xralrple 12074 . . . . . 6 ((((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ* ∧ (vol*‘𝑧) ∈ ℝ) → (((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧) ↔ ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
10198, 99, 100syl2anc 694 . . . . 5 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → (((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧) ↔ ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
10296, 101mpbird 247 . . . 4 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧))
103102expr 642 . . 3 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ 𝑧 ∈ 𝒫 ℝ) → ((vol*‘𝑧) ∈ ℝ → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧)))
104103ralrimiva 2995 . 2 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ∀𝑧 ∈ 𝒫 ℝ((vol*‘𝑧) ∈ ℝ → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧)))
105 ismbl2 23341 . 2 (𝐴 ∈ dom vol ↔ (𝐴 ⊆ ℝ ∧ ∀𝑧 ∈ 𝒫 ℝ((vol*‘𝑧) ∈ ℝ → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧))))
10611, 104, 105sylanbrc 699 1 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ∈ dom vol)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383   = wceq 1523  wcel 2030  wne 2823  wral 2941  wrex 2942  cdif 3604  cun 3605  cin 3606  wss 3607  c0 3948  𝒫 cpw 4191   class class class wbr 4685  dom cdm 5143  cfv 5926  (class class class)co 6690  cr 9973  1c1 9975   + caddc 9977  *cxr 10111  cle 10113  +crp 11870  vol*covol 23277  volcvol 23278
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051  ax-pre-sup 10052
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-om 7108  df-1st 7210  df-2nd 7211  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-er 7787  df-map 7901  df-en 7998  df-dom 7999  df-sdom 8000  df-sup 8389  df-inf 8390  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-div 10723  df-nn 11059  df-2 11117  df-3 11118  df-n0 11331  df-z 11416  df-uz 11726  df-q 11827  df-rp 11871  df-ioo 12217  df-ico 12219  df-icc 12220  df-fz 12365  df-fl 12633  df-seq 12842  df-exp 12901  df-cj 13883  df-re 13884  df-im 13885  df-sqrt 14019  df-abs 14020  df-ovol 23279  df-vol 23280
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator