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

Theorem nulmbl2 24066
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 12383 . . . . 5 1 ∈ ℝ+
21ne0ii 4302 . . . 4 + ≠ ∅
3 r19.2z 4438 . . . 4 ((ℝ+ ≠ ∅ ∧ ∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → ∃𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))
42, 3mpan 686 . . 3 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ∃𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))
5 simprl 767 . . . . . 6 ((𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → 𝐴𝑦)
6 mblss 24061 . . . . . . 7 (𝑦 ∈ dom vol → 𝑦 ⊆ ℝ)
76adantr 481 . . . . . 6 ((𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → 𝑦 ⊆ ℝ)
85, 7sstrd 3976 . . . . 5 ((𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥)) → 𝐴 ⊆ ℝ)
98rexlimiva 3281 . . . 4 (∃𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ⊆ ℝ)
109rexlimivw 3282 . . 3 (∃𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ⊆ ℝ)
114, 10syl 17 . 2 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ⊆ ℝ)
12 inss1 4204 . . . . . . . . . . . 12 (𝑧𝐴) ⊆ 𝑧
13 elpwi 4549 . . . . . . . . . . . . 13 (𝑧 ∈ 𝒫 ℝ → 𝑧 ⊆ ℝ)
1413adantr 481 . . . . . . . . . . . 12 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → 𝑧 ⊆ ℝ)
15 simpr 485 . . . . . . . . . . . 12 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘𝑧) ∈ ℝ)
16 ovolsscl 24016 . . . . . . . . . . . 12 (((𝑧𝐴) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
1712, 14, 15, 16mp3an2i 1457 . . . . . . . . . . 11 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
18 difssd 4108 . . . . . . . . . . . 12 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (𝑧𝐴) ⊆ 𝑧)
19 ovolsscl 24016 . . . . . . . . . . . 12 (((𝑧𝐴) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
2018, 14, 15, 19syl3anc 1363 . . . . . . . . . . 11 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝐴)) ∈ ℝ)
2117, 20readdcld 10659 . . . . . . . . . 10 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ)
2221ad2antrr 722 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ)
2315ad2antrr 722 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑧) ∈ ℝ)
24 difssd 4108 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑦𝐴) ⊆ 𝑦)
257adantl 482 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑦 ⊆ ℝ)
26 rpre 12387 . . . . . . . . . . . . 13 (𝑥 ∈ ℝ+𝑥 ∈ ℝ)
2726ad2antlr 723 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑥 ∈ ℝ)
28 simprrr 778 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑦) ≤ 𝑥)
29 ovollecl 24013 . . . . . . . . . . . 12 ((𝑦 ⊆ ℝ ∧ 𝑥 ∈ ℝ ∧ (vol*‘𝑦) ≤ 𝑥) → (vol*‘𝑦) ∈ ℝ)
3025, 27, 28, 29syl3anc 1363 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑦) ∈ ℝ)
31 ovolsscl 24016 . . . . . . . . . . 11 (((𝑦𝐴) ⊆ 𝑦𝑦 ⊆ ℝ ∧ (vol*‘𝑦) ∈ ℝ) → (vol*‘(𝑦𝐴)) ∈ ℝ)
3224, 25, 30, 31syl3anc 1363 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ∈ ℝ)
3323, 32readdcld 10659 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) ∈ ℝ)
3423, 27readdcld 10659 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + 𝑥) ∈ ℝ)
3517ad2antrr 722 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ∈ ℝ)
3620ad2antrr 722 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ∈ ℝ)
37 inss1 4204 . . . . . . . . . . . 12 (𝑧𝑦) ⊆ 𝑧
3814ad2antrr 722 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑧 ⊆ ℝ)
39 ovolsscl 24016 . . . . . . . . . . . 12 (((𝑧𝑦) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝑦)) ∈ ℝ)
4037, 38, 23, 39mp3an2i 1457 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℝ)
41 difssd 4108 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝑦) ⊆ 𝑧)
42 ovolsscl 24016 . . . . . . . . . . . . 13 (((𝑧𝑦) ⊆ 𝑧𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘(𝑧𝑦)) ∈ ℝ)
4341, 38, 23, 42syl3anc 1363 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℝ)
4443, 32readdcld 10659 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))) ∈ ℝ)
45 simprrl 777 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝐴𝑦)
46 sslin 4210 . . . . . . . . . . . . 13 (𝐴𝑦 → (𝑧𝐴) ⊆ (𝑧𝑦))
4745, 46syl 17 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝐴) ⊆ (𝑧𝑦))
4837, 38sstrid 3977 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝑦) ⊆ ℝ)
49 ovolss 24015 . . . . . . . . . . . 12 (((𝑧𝐴) ⊆ (𝑧𝑦) ∧ (𝑧𝑦) ⊆ ℝ) → (vol*‘(𝑧𝐴)) ≤ (vol*‘(𝑧𝑦)))
5047, 48, 49syl2anc 584 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ≤ (vol*‘(𝑧𝑦)))
5138ssdifssd 4118 . . . . . . . . . . . . . 14 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝑦) ⊆ ℝ)
5225ssdifssd 4118 . . . . . . . . . . . . . 14 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑦𝐴) ⊆ ℝ)
5351, 52unssd 4161 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((𝑧𝑦) ∪ (𝑦𝐴)) ⊆ ℝ)
54 ovolun 24029 . . . . . . . . . . . . . 14 ((((𝑧𝑦) ⊆ ℝ ∧ (vol*‘(𝑧𝑦)) ∈ ℝ) ∧ ((𝑦𝐴) ⊆ ℝ ∧ (vol*‘(𝑦𝐴)) ∈ ℝ)) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))))
5551, 43, 52, 32, 54syl22anc 834 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))))
56 ovollecl 24013 . . . . . . . . . . . . 13 ((((𝑧𝑦) ∪ (𝑦𝐴)) ⊆ ℝ ∧ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))) ∈ ℝ ∧ (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ∈ ℝ)
5753, 44, 55, 56syl3anc 1363 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))) ∈ ℝ)
58 ssun1 4147 . . . . . . . . . . . . . . . . 17 𝑧 ⊆ (𝑧𝑦)
59 undif1 4422 . . . . . . . . . . . . . . . . 17 ((𝑧𝑦) ∪ 𝑦) = (𝑧𝑦)
6058, 59sseqtrri 4003 . . . . . . . . . . . . . . . 16 𝑧 ⊆ ((𝑧𝑦) ∪ 𝑦)
61 ssdif 4115 . . . . . . . . . . . . . . . 16 (𝑧 ⊆ ((𝑧𝑦) ∪ 𝑦) → (𝑧𝐴) ⊆ (((𝑧𝑦) ∪ 𝑦) ∖ 𝐴))
6260, 61ax-mp 5 . . . . . . . . . . . . . . 15 (𝑧𝐴) ⊆ (((𝑧𝑦) ∪ 𝑦) ∖ 𝐴)
63 difundir 4256 . . . . . . . . . . . . . . 15 (((𝑧𝑦) ∪ 𝑦) ∖ 𝐴) = (((𝑧𝑦) ∖ 𝐴) ∪ (𝑦𝐴))
6462, 63sseqtri 4002 . . . . . . . . . . . . . 14 (𝑧𝐴) ⊆ (((𝑧𝑦) ∖ 𝐴) ∪ (𝑦𝐴))
65 difun1 4263 . . . . . . . . . . . . . . . 16 (𝑧 ∖ (𝑦𝐴)) = ((𝑧𝑦) ∖ 𝐴)
66 ssequn2 4158 . . . . . . . . . . . . . . . . . 18 (𝐴𝑦 ↔ (𝑦𝐴) = 𝑦)
6745, 66sylib 219 . . . . . . . . . . . . . . . . 17 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑦𝐴) = 𝑦)
6867difeq2d 4098 . . . . . . . . . . . . . . . 16 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧 ∖ (𝑦𝐴)) = (𝑧𝑦))
6965, 68syl5eqr 2870 . . . . . . . . . . . . . . 15 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((𝑧𝑦) ∖ 𝐴) = (𝑧𝑦))
7069uneq1d 4137 . . . . . . . . . . . . . 14 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (((𝑧𝑦) ∖ 𝐴) ∪ (𝑦𝐴)) = ((𝑧𝑦) ∪ (𝑦𝐴)))
7164, 70sseqtrid 4018 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (𝑧𝐴) ⊆ ((𝑧𝑦) ∪ (𝑦𝐴)))
72 ovolss 24015 . . . . . . . . . . . . 13 (((𝑧𝐴) ⊆ ((𝑧𝑦) ∪ (𝑦𝐴)) ∧ ((𝑧𝑦) ∪ (𝑦𝐴)) ⊆ ℝ) → (vol*‘(𝑧𝐴)) ≤ (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))))
7371, 53, 72syl2anc 584 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ≤ (vol*‘((𝑧𝑦) ∪ (𝑦𝐴))))
7436, 57, 44, 73, 55letrd 10786 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝐴)) ≤ ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴))))
7535, 36, 40, 44, 50, 74le2addd 11248 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘(𝑧𝑦)) + ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))))
76 simprl 767 . . . . . . . . . . . . 13 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → 𝑦 ∈ dom vol)
77 mblsplit 24062 . . . . . . . . . . . . 13 ((𝑦 ∈ dom vol ∧ 𝑧 ⊆ ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (vol*‘𝑧) = ((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))))
7876, 38, 23, 77syl3anc 1363 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘𝑧) = ((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))))
7978oveq1d 7160 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) = (((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))) + (vol*‘(𝑦𝐴))))
8040recnd 10658 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℂ)
8143recnd 10658 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑧𝑦)) ∈ ℂ)
8232recnd 10658 . . . . . . . . . . . 12 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ∈ ℂ)
8380, 81, 82addassd 10652 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (((vol*‘(𝑧𝑦)) + (vol*‘(𝑧𝑦))) + (vol*‘(𝑦𝐴))) = ((vol*‘(𝑧𝑦)) + ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))))
8479, 83eqtrd 2856 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) = ((vol*‘(𝑧𝑦)) + ((vol*‘(𝑧𝑦)) + (vol*‘(𝑦𝐴)))))
8575, 84breqtrrd 5086 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + (vol*‘(𝑦𝐴))))
86 difss 4107 . . . . . . . . . . . 12 (𝑦𝐴) ⊆ 𝑦
87 ovolss 24015 . . . . . . . . . . . 12 (((𝑦𝐴) ⊆ 𝑦𝑦 ⊆ ℝ) → (vol*‘(𝑦𝐴)) ≤ (vol*‘𝑦))
8886, 25, 87sylancr 587 . . . . . . . . . . 11 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ≤ (vol*‘𝑦))
8932, 30, 27, 88, 28letrd 10786 . . . . . . . . . 10 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → (vol*‘(𝑦𝐴)) ≤ 𝑥)
9032, 27, 23, 89leadd2dd 11244 . . . . . . . . 9 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘𝑧) + (vol*‘(𝑦𝐴))) ≤ ((vol*‘𝑧) + 𝑥))
9122, 33, 34, 85, 90letrd 10786 . . . . . . . 8 ((((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) ∧ (𝑦 ∈ dom vol ∧ (𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥))) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥))
9291rexlimdvaa 3285 . . . . . . 7 (((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) ∧ 𝑥 ∈ ℝ+) → (∃𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
9392ralimdva 3177 . . . . . 6 ((𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ) → (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
9493impcom 408 . . . . 5 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥))
9521adantl 482 . . . . . . 7 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ)
9695rexrd 10680 . . . . . 6 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ*)
97 simprr 769 . . . . . 6 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → (vol*‘𝑧) ∈ ℝ)
98 xralrple 12588 . . . . . 6 ((((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ∈ ℝ* ∧ (vol*‘𝑧) ∈ ℝ) → (((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧) ↔ ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
9996, 97, 98syl2anc 584 . . . . 5 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → (((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧) ↔ ∀𝑥 ∈ ℝ+ ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ ((vol*‘𝑧) + 𝑥)))
10094, 99mpbird 258 . . . 4 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ (𝑧 ∈ 𝒫 ℝ ∧ (vol*‘𝑧) ∈ ℝ)) → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧))
101100expr 457 . . 3 ((∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) ∧ 𝑧 ∈ 𝒫 ℝ) → ((vol*‘𝑧) ∈ ℝ → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧)))
102101ralrimiva 3182 . 2 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → ∀𝑧 ∈ 𝒫 ℝ((vol*‘𝑧) ∈ ℝ → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧)))
103 ismbl2 24057 . 2 (𝐴 ∈ dom vol ↔ (𝐴 ⊆ ℝ ∧ ∀𝑧 ∈ 𝒫 ℝ((vol*‘𝑧) ∈ ℝ → ((vol*‘(𝑧𝐴)) + (vol*‘(𝑧𝐴))) ≤ (vol*‘𝑧))))
10411, 102, 103sylanbrc 583 1 (∀𝑥 ∈ ℝ+𝑦 ∈ dom vol(𝐴𝑦 ∧ (vol*‘𝑦) ≤ 𝑥) → 𝐴 ∈ dom vol)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396   = wceq 1528  wcel 2105  wne 3016  wral 3138  wrex 3139  cdif 3932  cun 3933  cin 3934  wss 3935  c0 4290  𝒫 cpw 4537   class class class wbr 5058  dom cdm 5549  cfv 6349  (class class class)co 7145  cr 10525  1c1 10527   + caddc 10529  *cxr 10663  cle 10665  +crp 12379  vol*covol 23992  volcvol 23993
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2793  ax-sep 5195  ax-nul 5202  ax-pow 5258  ax-pr 5321  ax-un 7450  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603  ax-pre-sup 10604
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-3or 1080  df-3an 1081  df-tru 1531  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3497  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4833  df-iun 4914  df-br 5059  df-opab 5121  df-mpt 5139  df-tr 5165  df-id 5454  df-eprel 5459  df-po 5468  df-so 5469  df-fr 5508  df-we 5510  df-xp 5555  df-rel 5556  df-cnv 5557  df-co 5558  df-dm 5559  df-rn 5560  df-res 5561  df-ima 5562  df-pred 6142  df-ord 6188  df-on 6189  df-lim 6190  df-suc 6191  df-iota 6308  df-fun 6351  df-fn 6352  df-f 6353  df-f1 6354  df-fo 6355  df-f1o 6356  df-fv 6357  df-riota 7103  df-ov 7148  df-oprab 7149  df-mpo 7150  df-om 7569  df-1st 7680  df-2nd 7681  df-wrecs 7938  df-recs 7999  df-rdg 8037  df-er 8279  df-map 8398  df-en 8499  df-dom 8500  df-sdom 8501  df-sup 8895  df-inf 8896  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-div 11287  df-nn 11628  df-2 11689  df-3 11690  df-n0 11887  df-z 11971  df-uz 12233  df-q 12338  df-rp 12380  df-ioo 12732  df-ico 12734  df-icc 12735  df-fz 12883  df-fl 13152  df-seq 13360  df-exp 13420  df-cj 14448  df-re 14449  df-im 14450  df-sqrt 14584  df-abs 14585  df-ovol 23994  df-vol 23995
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator