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

Theorem ovolunlem1 25667
Description: Lemma for ovolun 25669. (Contributed by Mario Carneiro, 12-Jun-2014.)
Hypotheses
Ref Expression
ovolun.a (𝜑 → (𝐴 ⊆ ℝ ∧ (vol*‘𝐴) ∈ ℝ))
ovolun.b (𝜑 → (𝐵 ⊆ ℝ ∧ (vol*‘𝐵) ∈ ℝ))
ovolun.c (𝜑𝐶 ∈ ℝ+)
ovolun.s 𝑆 = seq1( + , ((abs ∘ − ) ∘ 𝐹))
ovolun.t 𝑇 = seq1( + , ((abs ∘ − ) ∘ 𝐺))
ovolun.u 𝑈 = seq1( + , ((abs ∘ − ) ∘ 𝐻))
ovolun.f1 (𝜑𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
ovolun.f2 (𝜑𝐴 ran ((,) ∘ 𝐹))
ovolun.f3 (𝜑 → sup(ran 𝑆, ℝ*, < ) ≤ ((vol*‘𝐴) + (𝐶 / 2)))
ovolun.g1 (𝜑𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
ovolun.g2 (𝜑𝐵 ran ((,) ∘ 𝐺))
ovolun.g3 (𝜑 → sup(ran 𝑇, ℝ*, < ) ≤ ((vol*‘𝐵) + (𝐶 / 2)))
ovolun.h 𝐻 = (𝑛 ∈ ℕ ↦ if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))))
Assertion
Ref Expression
ovolunlem1 (𝜑 → (vol*‘(𝐴𝐵)) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
Distinct variable groups:   𝐶,𝑛   𝑛,𝐹   𝐴,𝑛   𝐵,𝑛   𝑛,𝐺   𝜑,𝑛
Allowed substitution hints:   𝑆(𝑛)   𝑇(𝑛)   𝑈(𝑛)   𝐻(𝑛)

Proof of Theorem ovolunlem1
Dummy variables 𝑘 𝑧 𝑚 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ovolun.a . . . . 5 (𝜑 → (𝐴 ⊆ ℝ ∧ (vol*‘𝐴) ∈ ℝ))
21simpld 499 . . . 4 (𝜑𝐴 ⊆ ℝ)
3 ovolun.b . . . . 5 (𝜑 → (𝐵 ⊆ ℝ ∧ (vol*‘𝐵) ∈ ℝ))
43simpld 499 . . . 4 (𝜑𝐵 ⊆ ℝ)
52, 4unssd 4144 . . 3 (𝜑 → (𝐴𝐵) ⊆ ℝ)
6 ovolun.g1 . . . . . . . . . . . 12 (𝜑𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
7 elovolmlem 25644 . . . . . . . . . . . 12 (𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
86, 7sylib 221 . . . . . . . . . . 11 (𝜑𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
98adantr 485 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ) → 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
109ffvelcdmda 7079 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ (𝑛 / 2) ∈ ℕ) → (𝐺‘(𝑛 / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
11 nneo 12686 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1211adantl 486 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ℕ) → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1312con2bid 357 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → (((𝑛 + 1) / 2) ∈ ℕ ↔ ¬ (𝑛 / 2) ∈ ℕ))
1413biimpar 482 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → ((𝑛 + 1) / 2) ∈ ℕ)
15 ovolun.f1 . . . . . . . . . . . . 13 (𝜑𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
16 elovolmlem 25644 . . . . . . . . . . . . 13 (𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1715, 16sylib 221 . . . . . . . . . . . 12 (𝜑𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1817adantr 485 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1918ffvelcdmda 7079 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ((𝑛 + 1) / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2014, 19syldan 602 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2110, 20ifclda 4522 . . . . . . . 8 ((𝜑𝑛 ∈ ℕ) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) ∈ ( ≤ ∩ (ℝ × ℝ)))
22 ovolun.h . . . . . . . 8 𝐻 = (𝑛 ∈ ℕ ↦ if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))))
2321, 22fmptd 7109 . . . . . . 7 (𝜑𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
24 eqid 2762 . . . . . . . 8 ((abs ∘ − ) ∘ 𝐻) = ((abs ∘ − ) ∘ 𝐻)
25 ovolun.u . . . . . . . 8 𝑈 = seq1( + , ((abs ∘ − ) ∘ 𝐻))
2624, 25ovolsf 25642 . . . . . . 7 (𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) → 𝑈:ℕ⟶(0[,)+∞))
2723, 26syl 18 . . . . . 6 (𝜑𝑈:ℕ⟶(0[,)+∞))
28 rge0ssre 13489 . . . . . 6 (0[,)+∞) ⊆ ℝ
29 fss 6722 . . . . . 6 ((𝑈:ℕ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ ℝ) → 𝑈:ℕ⟶ℝ)
3027, 28, 29sylancl 597 . . . . 5 (𝜑𝑈:ℕ⟶ℝ)
3130frnd 6714 . . . 4 (𝜑 → ran 𝑈 ⊆ ℝ)
32 1nn 12250 . . . . . . 7 1 ∈ ℕ
33 1z 12630 . . . . . . . . . 10 1 ∈ ℤ
34 seqfn 14056 . . . . . . . . . 10 (1 ∈ ℤ → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3533, 34mp1i 14 . . . . . . . . 9 (𝜑 → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3625fneq1i 6632 . . . . . . . . . 10 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ)
37 nnuz 12907 . . . . . . . . . . 11 ℕ = (ℤ‘1)
3837fneq2i 6633 . . . . . . . . . 10 (seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3936, 38bitri 278 . . . . . . . . 9 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
4035, 39sylibr 237 . . . . . . . 8 (𝜑𝑈 Fn ℕ)
4140fndmd 6640 . . . . . . 7 (𝜑 → dom 𝑈 = ℕ)
4232, 41eleqtrrid 2869 . . . . . 6 (𝜑 → 1 ∈ dom 𝑈)
4342ne0d 4294 . . . . 5 (𝜑 → dom 𝑈 ≠ ∅)
44 dm0rn0 5913 . . . . . 6 (dom 𝑈 = ∅ ↔ ran 𝑈 = ∅)
4544necon3bii 3009 . . . . 5 (dom 𝑈 ≠ ∅ ↔ ran 𝑈 ≠ ∅)
4643, 45sylib 221 . . . 4 (𝜑 → ran 𝑈 ≠ ∅)
471simprd 500 . . . . . . . 8 (𝜑 → (vol*‘𝐴) ∈ ℝ)
483simprd 500 . . . . . . . 8 (𝜑 → (vol*‘𝐵) ∈ ℝ)
4947, 48readdcld 11244 . . . . . . 7 (𝜑 → ((vol*‘𝐴) + (vol*‘𝐵)) ∈ ℝ)
50 ovolun.c . . . . . . . 8 (𝜑𝐶 ∈ ℝ+)
5150rpred 13066 . . . . . . 7 (𝜑𝐶 ∈ ℝ)
5249, 51readdcld 11244 . . . . . 6 (𝜑 → (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ)
53 ovolun.s . . . . . . . . 9 𝑆 = seq1( + , ((abs ∘ − ) ∘ 𝐹))
54 ovolun.t . . . . . . . . 9 𝑇 = seq1( + , ((abs ∘ − ) ∘ 𝐺))
55 ovolun.f2 . . . . . . . . 9 (𝜑𝐴 ran ((,) ∘ 𝐹))
56 ovolun.f3 . . . . . . . . 9 (𝜑 → sup(ran 𝑆, ℝ*, < ) ≤ ((vol*‘𝐴) + (𝐶 / 2)))
57 ovolun.g2 . . . . . . . . 9 (𝜑𝐵 ran ((,) ∘ 𝐺))
58 ovolun.g3 . . . . . . . . 9 (𝜑 → sup(ran 𝑇, ℝ*, < ) ≤ ((vol*‘𝐵) + (𝐶 / 2)))
591, 3, 50, 53, 54, 25, 15, 55, 56, 6, 57, 58, 22ovolunlem1a 25666 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ) → (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
6059ralrimiva 3156 . . . . . . 7 (𝜑 → ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
61 breq1 5111 . . . . . . . . 9 (𝑧 = (𝑈𝑘) → (𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6261ralrn 7083 . . . . . . . 8 (𝑈 Fn ℕ → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6340, 62syl 18 . . . . . . 7 (𝜑 → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6460, 63mpbird 260 . . . . . 6 (𝜑 → ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
65 brralrspcev 5170 . . . . . 6 (((((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ ∧ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)) → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
6652, 64, 65syl2anc 595 . . . . 5 (𝜑 → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
67 ressxr 11259 . . . . . . 7 ℝ ⊆ ℝ*
6831, 67sstrdi 3948 . . . . . 6 (𝜑 → ran 𝑈 ⊆ ℝ*)
69 supxrbnd2 13354 . . . . . 6 (ran 𝑈 ⊆ ℝ* → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7068, 69syl 18 . . . . 5 (𝜑 → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7166, 70mpbid 235 . . . 4 (𝜑 → sup(ran 𝑈, ℝ*, < ) < +∞)
72 supxrbnd 13360 . . . 4 ((ran 𝑈 ⊆ ℝ ∧ ran 𝑈 ≠ ∅ ∧ sup(ran 𝑈, ℝ*, < ) < +∞) → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
7331, 46, 71, 72syl3anc 1397 . . 3 (𝜑 → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
74 nncn 12247 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ → 𝑚 ∈ ℂ)
7574adantl 486 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℂ)
76 1cnd 11208 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 1 ∈ ℂ)
77752timesd 12493 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) = (𝑚 + 𝑚))
7877oveq1d 7427 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = ((𝑚 + 𝑚) − 1))
7975, 75, 76, 78assraddsubd 11634 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = (𝑚 + (𝑚 − 1)))
80 simpr 489 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℕ)
81 nnm1nn0 12551 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ → (𝑚 − 1) ∈ ℕ0)
82 nnnn0addcl 12540 . . . . . . . . . . . . 13 ((𝑚 ∈ ℕ ∧ (𝑚 − 1) ∈ ℕ0) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8380, 81, 82syl2anc2 596 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8479, 83eqeltrd 2862 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) ∈ ℕ)
85 oveq1 7419 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 / 2) = (((2 · 𝑚) − 1) / 2))
8685eleq1d 2847 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → ((𝑛 / 2) ∈ ℕ ↔ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
8785fveq2d 6885 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐺‘(𝑛 / 2)) = (𝐺‘(((2 · 𝑚) − 1) / 2)))
88 oveq1 7419 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 + 1) = (((2 · 𝑚) − 1) + 1))
8988fvoveq1d 7434 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
9086, 87, 89ifbieq12d 4515 . . . . . . . . . . . . . 14 (𝑛 = ((2 · 𝑚) − 1) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
91 fvex 6894 . . . . . . . . . . . . . . 15 (𝐺‘(((2 · 𝑚) − 1) / 2)) ∈ V
92 fvex 6894 . . . . . . . . . . . . . . 15 (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) ∈ V
9391, 92ifex 4537 . . . . . . . . . . . . . 14 if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) ∈ V
9490, 22, 93fvmpt 6989 . . . . . . . . . . . . 13 (((2 · 𝑚) − 1) ∈ ℕ → (𝐻‘((2 · 𝑚) − 1)) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
9584, 94syl 18 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐻‘((2 · 𝑚) − 1)) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
96 2nn 12320 . . . . . . . . . . . . . . . . . . . 20 2 ∈ ℕ
97 nnmulcl 12263 . . . . . . . . . . . . . . . . . . . 20 ((2 ∈ ℕ ∧ 𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9896, 80, 97sylancr 598 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9998nncnd 12255 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℂ)
100 ax-1cn 11164 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
101 npcan 11472 . . . . . . . . . . . . . . . . . 18 (((2 · 𝑚) ∈ ℂ ∧ 1 ∈ ℂ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
10299, 100, 101sylancl 597 . . . . . . . . . . . . . . . . 17 ((𝜑𝑚 ∈ ℕ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
103102oveq1d 7427 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = ((2 · 𝑚) / 2))
104 2cn 12322 . . . . . . . . . . . . . . . . . 18 2 ∈ ℂ
105 2ne0 12353 . . . . . . . . . . . . . . . . . 18 2 ≠ 0
106 divcan3 11904 . . . . . . . . . . . . . . . . . 18 ((𝑚 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → ((2 · 𝑚) / 2) = 𝑚)
107104, 105, 106mp3an23 1481 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℂ → ((2 · 𝑚) / 2) = 𝑚)
10875, 107syl 18 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) = 𝑚)
109103, 108eqtrd 2797 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = 𝑚)
110109, 80eqeltrd 2862 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ)
111 nneo 12686 . . . . . . . . . . . . . . . 16 (((2 · 𝑚) − 1) ∈ ℕ → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
11284, 111syl 18 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
113112con2bid 357 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ ↔ ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
114110, 113mpbid 235 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ)
115114iffalsed 4497 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
116109fveq2d 6885 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) = (𝐹𝑚))
11795, 115, 1163eqtrd 2801 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚))
118 fveqeq2 6890 . . . . . . . . . . . 12 (𝑘 = ((2 · 𝑚) − 1) → ((𝐻𝑘) = (𝐹𝑚) ↔ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)))
119118rspcev 3580 . . . . . . . . . . 11 ((((2 · 𝑚) − 1) ∈ ℕ ∧ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
12084, 117, 119syl2anc 595 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
121 fveq2 6881 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐹𝑚)))
122121breq1d 5118 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐹𝑚)) < 𝑧))
123 fveq2 6881 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐹𝑚)))
124123breq2d 5120 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐹𝑚))))
125122, 124anbi12d 643 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐹𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
126125biimprcd 253 . . . . . . . . . . 11 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
127126reximdv 3179 . . . . . . . . . 10 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
128120, 127syl5com 32 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
129128rexlimdva 3165 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
130129ralimdv 3178 . . . . . . 7 (𝜑 → (∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
131 ovolfioo 25637 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
1322, 17, 131syl2anc 595 . . . . . . 7 (𝜑 → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
133 ovolfioo 25637 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐴 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
1342, 23, 133syl2anc 595 . . . . . . 7 (𝜑 → (𝐴 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
135130, 132, 1343imtr4d 297 . . . . . 6 (𝜑 → (𝐴 ran ((,) ∘ 𝐹) → 𝐴 ran ((,) ∘ 𝐻)))
13655, 135mpd 16 . . . . 5 (𝜑𝐴 ran ((,) ∘ 𝐻))
137 oveq1 7419 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 / 2) = ((2 · 𝑚) / 2))
138137eleq1d 2847 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → ((𝑛 / 2) ∈ ℕ ↔ ((2 · 𝑚) / 2) ∈ ℕ))
139137fveq2d 6885 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐺‘(𝑛 / 2)) = (𝐺‘((2 · 𝑚) / 2)))
140 oveq1 7419 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 + 1) = ((2 · 𝑚) + 1))
141140fvoveq1d 7434 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘(((2 · 𝑚) + 1) / 2)))
142138, 139, 141ifbieq12d 4515 . . . . . . . . . . . . . 14 (𝑛 = (2 · 𝑚) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
143 fvex 6894 . . . . . . . . . . . . . . 15 (𝐺‘((2 · 𝑚) / 2)) ∈ V
144 fvex 6894 . . . . . . . . . . . . . . 15 (𝐹‘(((2 · 𝑚) + 1) / 2)) ∈ V
145143, 144ifex 4537 . . . . . . . . . . . . . 14 if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) ∈ V
146142, 22, 145fvmpt 6989 . . . . . . . . . . . . 13 ((2 · 𝑚) ∈ ℕ → (𝐻‘(2 · 𝑚)) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
14798, 146syl 18 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐻‘(2 · 𝑚)) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
148108, 80eqeltrd 2862 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) ∈ ℕ)
149148iftrued 4494 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) = (𝐺‘((2 · 𝑚) / 2)))
150108fveq2d 6885 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐺‘((2 · 𝑚) / 2)) = (𝐺𝑚))
151147, 149, 1503eqtrd 2801 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘(2 · 𝑚)) = (𝐺𝑚))
152 fveqeq2 6890 . . . . . . . . . . . 12 (𝑘 = (2 · 𝑚) → ((𝐻𝑘) = (𝐺𝑚) ↔ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)))
153152rspcev 3580 . . . . . . . . . . 11 (((2 · 𝑚) ∈ ℕ ∧ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
15498, 151, 153syl2anc 595 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
155 fveq2 6881 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐺𝑚)))
156155breq1d 5118 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐺𝑚)) < 𝑧))
157 fveq2 6881 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐺𝑚)))
158157breq2d 5120 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐺𝑚))))
159156, 158anbi12d 643 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐺𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
160159biimprcd 253 . . . . . . . . . . 11 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
161160reximdv 3179 . . . . . . . . . 10 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
162154, 161syl5com 32 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
163162rexlimdva 3165 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
164163ralimdv 3178 . . . . . . 7 (𝜑 → (∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
165 ovolfioo 25637 . . . . . . . 8 ((𝐵 ⊆ ℝ ∧ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
1664, 8, 165syl2anc 595 . . . . . . 7 (𝜑 → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
167 ovolfioo 25637 . . . . . . . 8 ((𝐵 ⊆ ℝ ∧ 𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐵 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
1684, 23, 167syl2anc 595 . . . . . . 7 (𝜑 → (𝐵 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
169164, 166, 1683imtr4d 297 . . . . . 6 (𝜑 → (𝐵 ran ((,) ∘ 𝐺) → 𝐵 ran ((,) ∘ 𝐻)))
17057, 169mpd 16 . . . . 5 (𝜑𝐵 ran ((,) ∘ 𝐻))
171136, 170unssd 4144 . . . 4 (𝜑 → (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻))
17225ovollb 25649 . . . 4 ((𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) ∧ (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻)) → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
17323, 171, 172syl2anc 595 . . 3 (𝜑 → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
174 ovollecl 25653 . . 3 (((𝐴𝐵) ⊆ ℝ ∧ sup(ran 𝑈, ℝ*, < ) ∈ ℝ ∧ (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < )) → (vol*‘(𝐴𝐵)) ∈ ℝ)
1755, 73, 173, 174syl3anc 1397 . 2 (𝜑 → (vol*‘(𝐴𝐵)) ∈ ℝ)
17652rexrd 11265 . . . 4 (𝜑 → (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ*)
177 supxrleub 13358 . . . 4 ((ran 𝑈 ⊆ ℝ* ∧ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ*) → (sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
17868, 176, 177syl2anc 595 . . 3 (𝜑 → (sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
17964, 178mpbird 260 . 2 (𝜑 → sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
180175, 73, 52, 173, 179letrd 11373 1 (𝜑 → (vol*‘(𝐴𝐵)) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 400   = wceq 1569  wcel 2142  wne 2957  wral 3078  wrex 3088  cun 3902  cin 3903  wss 3904  c0 4285  ifcif 4486   cuni 4871   class class class wbr 5108  cmpt 5191   × cxp 5658  dom cdm 5660  ran crn 5661  ccom 5664   Fn wfn 6531  wf 6532  cfv 6536  (class class class)co 7412  1st c1st 7982  2nd c2nd 7983  m cmap 8822  supcsup 9398  cc 11104  cr 11105  0cc0 11106  1c1 11107   + caddc 11109   · cmul 11111  +∞cpnf 11246  *cxr 11248   < clt 11249  cle 11250  cmin 11447   / cdiv 11877  cn 12239  2c2 12301  0cn0 12510  cz 12597  cuz 12868  +crp 13022  (,)cioo 13378  [,)cico 13380  seqcseq 14044  abscabs 15292  vol*covol 25632
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1824  ax-4 1838  ax-5 1939  ax-6 1996  ax-7 2037  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5256  ax-nul 5268  ax-pow 5335  ax-pr 5403  ax-un 7734  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1103  df-3an 1104  df-tru 1572  df-fal 1582  df-ex 1809  df-nf 1813  df-sb 2096  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3456  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5555  df-eprel 5560  df-po 5568  df-so 5569  df-fr 5613  df-we 5615  df-xp 5666  df-rel 5667  df-cnv 5668  df-co 5669  df-dm 5670  df-rn 5671  df-res 5672  df-ima 5673  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7861  df-1st 7984  df-2nd 7985  df-frecs 8276  df-wrecs 8307  df-recs 8356  df-rdg 8395  df-er 8692  df-map 8824  df-en 8942  df-dom 8943  df-sdom 8944  df-sup 9400  df-inf 9401  df-pnf 11251  df-mnf 11252  df-xr 11253  df-ltxr 11254  df-le 11255  df-sub 11449  df-neg 11450  df-div 11878  df-nn 12240  df-2 12309  df-3 12310  df-n0 12511  df-z 12598  df-uz 12869  df-rp 13023  df-ioo 13382  df-ico 13384  df-fz 13542  df-fl 13832  df-seq 14045  df-exp 14105  df-cj 15157  df-re 15158  df-im 15159  df-sqrt 15293  df-abs 15294  df-ovol 25634
This theorem is used by:  ovolunlem2  25668
  Copyright terms: Public domain W3C validator