Step | Hyp | Ref
| Expression |
1 | | omssubaddlem.m |
. . . . . 6
⊢ (𝜑 → (𝑀‘𝐴) ∈ ℝ) |
2 | | omssubaddlem.e |
. . . . . . 7
⊢ (𝜑 → 𝐸 ∈
ℝ+) |
3 | 2 | rpred 12270 |
. . . . . 6
⊢ (𝜑 → 𝐸 ∈ ℝ) |
4 | 1, 3 | readdcld 10505 |
. . . . 5
⊢ (𝜑 → ((𝑀‘𝐴) + 𝐸) ∈ ℝ) |
5 | 4 | rexrd 10526 |
. . . 4
⊢ (𝜑 → ((𝑀‘𝐴) + 𝐸) ∈
ℝ*) |
6 | | oms.o |
. . . . . . . . 9
⊢ (𝜑 → 𝑄 ∈ 𝑉) |
7 | | oms.r |
. . . . . . . . 9
⊢ (𝜑 → 𝑅:𝑄⟶(0[,]+∞)) |
8 | | omsf 31127 |
. . . . . . . . 9
⊢ ((𝑄 ∈ 𝑉 ∧ 𝑅:𝑄⟶(0[,]+∞)) →
(toOMeas‘𝑅):𝒫
∪ dom 𝑅⟶(0[,]+∞)) |
9 | 6, 7, 8 | syl2anc 584 |
. . . . . . . 8
⊢ (𝜑 → (toOMeas‘𝑅):𝒫 ∪ dom 𝑅⟶(0[,]+∞)) |
10 | | oms.m |
. . . . . . . . 9
⊢ 𝑀 = (toOMeas‘𝑅) |
11 | 10 | feq1i 6365 |
. . . . . . . 8
⊢ (𝑀:𝒫 ∪ dom 𝑅⟶(0[,]+∞) ↔
(toOMeas‘𝑅):𝒫
∪ dom 𝑅⟶(0[,]+∞)) |
12 | 9, 11 | sylibr 235 |
. . . . . . 7
⊢ (𝜑 → 𝑀:𝒫 ∪ dom
𝑅⟶(0[,]+∞)) |
13 | | omssubaddlem.a |
. . . . . . . . 9
⊢ (𝜑 → 𝐴 ⊆ ∪ 𝑄) |
14 | 7 | fdmd 6383 |
. . . . . . . . . 10
⊢ (𝜑 → dom 𝑅 = 𝑄) |
15 | 14 | unieqd 4749 |
. . . . . . . . 9
⊢ (𝜑 → ∪ dom 𝑅 = ∪ 𝑄) |
16 | 13, 15 | sseqtr4d 3924 |
. . . . . . . 8
⊢ (𝜑 → 𝐴 ⊆ ∪ dom
𝑅) |
17 | | uniexg 7316 |
. . . . . . . . . . 11
⊢ (𝑄 ∈ 𝑉 → ∪ 𝑄 ∈ V) |
18 | 6, 17 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → ∪ 𝑄
∈ V) |
19 | 13, 18 | jca 512 |
. . . . . . . . 9
⊢ (𝜑 → (𝐴 ⊆ ∪ 𝑄 ∧ ∪ 𝑄
∈ V)) |
20 | | ssexg 5111 |
. . . . . . . . 9
⊢ ((𝐴 ⊆ ∪ 𝑄
∧ ∪ 𝑄 ∈ V) → 𝐴 ∈ V) |
21 | | elpwg 4455 |
. . . . . . . . 9
⊢ (𝐴 ∈ V → (𝐴 ∈ 𝒫 ∪ dom 𝑅 ↔ 𝐴 ⊆ ∪ dom
𝑅)) |
22 | 19, 20, 21 | 3syl 18 |
. . . . . . . 8
⊢ (𝜑 → (𝐴 ∈ 𝒫 ∪ dom 𝑅 ↔ 𝐴 ⊆ ∪ dom
𝑅)) |
23 | 16, 22 | mpbird 258 |
. . . . . . 7
⊢ (𝜑 → 𝐴 ∈ 𝒫 ∪ dom 𝑅) |
24 | 12, 23 | ffvelrnd 6708 |
. . . . . 6
⊢ (𝜑 → (𝑀‘𝐴) ∈ (0[,]+∞)) |
25 | | elxrge0 12684 |
. . . . . . 7
⊢ ((𝑀‘𝐴) ∈ (0[,]+∞) ↔ ((𝑀‘𝐴) ∈ ℝ* ∧ 0 ≤
(𝑀‘𝐴))) |
26 | 25 | simprbi 497 |
. . . . . 6
⊢ ((𝑀‘𝐴) ∈ (0[,]+∞) → 0 ≤ (𝑀‘𝐴)) |
27 | 24, 26 | syl 17 |
. . . . 5
⊢ (𝜑 → 0 ≤ (𝑀‘𝐴)) |
28 | 2 | rpge0d 12274 |
. . . . 5
⊢ (𝜑 → 0 ≤ 𝐸) |
29 | 1, 3, 27, 28 | addge0d 11053 |
. . . 4
⊢ (𝜑 → 0 ≤ ((𝑀‘𝐴) + 𝐸)) |
30 | | elxrge0 12684 |
. . . 4
⊢ (((𝑀‘𝐴) + 𝐸) ∈ (0[,]+∞) ↔ (((𝑀‘𝐴) + 𝐸) ∈ ℝ* ∧ 0 ≤
((𝑀‘𝐴) + 𝐸))) |
31 | 5, 29, 30 | sylanbrc 583 |
. . 3
⊢ (𝜑 → ((𝑀‘𝐴) + 𝐸) ∈ (0[,]+∞)) |
32 | 10 | fveq1i 6531 |
. . . . 5
⊢ (𝑀‘𝐴) = ((toOMeas‘𝑅)‘𝐴) |
33 | | omsfval 31125 |
. . . . . 6
⊢ ((𝑄 ∈ 𝑉 ∧ 𝑅:𝑄⟶(0[,]+∞) ∧ 𝐴 ⊆ ∪ 𝑄)
→ ((toOMeas‘𝑅)‘𝐴) = inf(ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)), (0[,]+∞), < )) |
34 | 6, 7, 13, 33 | syl3anc 1362 |
. . . . 5
⊢ (𝜑 → ((toOMeas‘𝑅)‘𝐴) = inf(ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)), (0[,]+∞), < )) |
35 | 32, 34 | syl5req 2842 |
. . . 4
⊢ (𝜑 → inf(ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)), (0[,]+∞), < ) = (𝑀‘𝐴)) |
36 | 1, 2 | ltaddrpd 12303 |
. . . 4
⊢ (𝜑 → (𝑀‘𝐴) < ((𝑀‘𝐴) + 𝐸)) |
37 | 35, 36 | eqbrtrd 4978 |
. . 3
⊢ (𝜑 → inf(ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)), (0[,]+∞), < ) < ((𝑀‘𝐴) + 𝐸)) |
38 | | iccssxr 12658 |
. . . . . 6
⊢
(0[,]+∞) ⊆ ℝ* |
39 | | xrltso 12373 |
. . . . . 6
⊢ < Or
ℝ* |
40 | | soss 5373 |
. . . . . 6
⊢
((0[,]+∞) ⊆ ℝ* → ( < Or
ℝ* → < Or (0[,]+∞))) |
41 | 38, 39, 40 | mp2 9 |
. . . . 5
⊢ < Or
(0[,]+∞) |
42 | 41 | a1i 11 |
. . . 4
⊢ (𝜑 → < Or
(0[,]+∞)) |
43 | | omscl 31126 |
. . . . . 6
⊢ ((𝑄 ∈ 𝑉 ∧ 𝑅:𝑄⟶(0[,]+∞) ∧ 𝐴 ∈ 𝒫 ∪ dom 𝑅) → ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ⊆ (0[,]+∞)) |
44 | 6, 7, 23, 43 | syl3anc 1362 |
. . . . 5
⊢ (𝜑 → ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ⊆ (0[,]+∞)) |
45 | | xrge0infss 30145 |
. . . . 5
⊢ (ran
(𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ⊆ (0[,]+∞) → ∃𝑒 ∈
(0[,]+∞)(∀𝑡
∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ¬ 𝑡 < 𝑒 ∧ ∀𝑡 ∈ (0[,]+∞)(𝑒 < 𝑡 → ∃𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤))𝑢 < 𝑡))) |
46 | 44, 45 | syl 17 |
. . . 4
⊢ (𝜑 → ∃𝑒 ∈ (0[,]+∞)(∀𝑡 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ¬ 𝑡 < 𝑒 ∧ ∀𝑡 ∈ (0[,]+∞)(𝑒 < 𝑡 → ∃𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤))𝑢 < 𝑡))) |
47 | 42, 46 | infglb 8790 |
. . 3
⊢ (𝜑 → ((((𝑀‘𝐴) + 𝐸) ∈ (0[,]+∞) ∧ inf(ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)), (0[,]+∞), < ) < ((𝑀‘𝐴) + 𝐸)) → ∃𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤))𝑢 < ((𝑀‘𝐴) + 𝐸))) |
48 | 31, 37, 47 | mp2and 695 |
. 2
⊢ (𝜑 → ∃𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤))𝑢 < ((𝑀‘𝐴) + 𝐸)) |
49 | | eqid 2793 |
. . . . . . . 8
⊢ (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) = (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) |
50 | | esumex 30861 |
. . . . . . . 8
⊢
Σ*𝑤
∈ 𝑥(𝑅‘𝑤) ∈ V |
51 | 49, 50 | elrnmpti 5706 |
. . . . . . 7
⊢ (𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ↔ ∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)}𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤)) |
52 | 51 | anbi1i 623 |
. . . . . 6
⊢ ((𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) ↔ (∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)}𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸))) |
53 | | r19.41v 3305 |
. . . . . 6
⊢
(∃𝑥 ∈
{𝑧 ∈ 𝒫 dom
𝑅 ∣ (𝐴 ⊆ ∪ 𝑧
∧ 𝑧 ≼ ω)}
(𝑢 =
Σ*𝑤 ∈
𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) ↔ (∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)}𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸))) |
54 | 52, 53 | bitr4i 279 |
. . . . 5
⊢ ((𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) ↔ ∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} (𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸))) |
55 | 54 | exbii 1827 |
. . . 4
⊢
(∃𝑢(𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) ↔ ∃𝑢∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} (𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸))) |
56 | | df-rex 3109 |
. . . 4
⊢
(∃𝑢 ∈ ran
(𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤))𝑢 < ((𝑀‘𝐴) + 𝐸) ↔ ∃𝑢(𝑢 ∈ ran (𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤)) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸))) |
57 | | rexcom4 3211 |
. . . 4
⊢
(∃𝑥 ∈
{𝑧 ∈ 𝒫 dom
𝑅 ∣ (𝐴 ⊆ ∪ 𝑧
∧ 𝑧 ≼
ω)}∃𝑢(𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) ↔ ∃𝑢∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} (𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸))) |
58 | 55, 56, 57 | 3bitr4i 304 |
. . 3
⊢
(∃𝑢 ∈ ran
(𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤))𝑢 < ((𝑀‘𝐴) + 𝐸) ↔ ∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)}∃𝑢(𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸))) |
59 | | breq1 4959 |
. . . . . 6
⊢ (𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) → (𝑢 < ((𝑀‘𝐴) + 𝐸) ↔ Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) < ((𝑀‘𝐴) + 𝐸))) |
60 | 59 | biimpa 477 |
. . . . 5
⊢ ((𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) → Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) < ((𝑀‘𝐴) + 𝐸)) |
61 | 60 | exlimiv 1906 |
. . . 4
⊢
(∃𝑢(𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) → Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) < ((𝑀‘𝐴) + 𝐸)) |
62 | 61 | reximi 3205 |
. . 3
⊢
(∃𝑥 ∈
{𝑧 ∈ 𝒫 dom
𝑅 ∣ (𝐴 ⊆ ∪ 𝑧
∧ 𝑧 ≼
ω)}∃𝑢(𝑢 = Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) ∧ 𝑢 < ((𝑀‘𝐴) + 𝐸)) → ∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)}Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) < ((𝑀‘𝐴) + 𝐸)) |
63 | 58, 62 | sylbi 218 |
. 2
⊢
(∃𝑢 ∈ ran
(𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)} ↦
Σ*𝑤 ∈
𝑥(𝑅‘𝑤))𝑢 < ((𝑀‘𝐴) + 𝐸) → ∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)}Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) < ((𝑀‘𝐴) + 𝐸)) |
64 | 48, 63 | syl 17 |
1
⊢ (𝜑 → ∃𝑥 ∈ {𝑧 ∈ 𝒫 dom 𝑅 ∣ (𝐴 ⊆ ∪ 𝑧 ∧ 𝑧 ≼ ω)}Σ*𝑤 ∈ 𝑥(𝑅‘𝑤) < ((𝑀‘𝐴) + 𝐸)) |