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

Theorem ovolunlem1 25425
Description: Lemma for ovolun 25427. (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 494 . . . 4 (𝜑𝐴 ⊆ ℝ)
3 ovolun.b . . . . 5 (𝜑 → (𝐵 ⊆ ℝ ∧ (vol*‘𝐵) ∈ ℝ))
43simpld 494 . . . 4 (𝜑𝐵 ⊆ ℝ)
52, 4unssd 4139 . . 3 (𝜑 → (𝐴𝐵) ⊆ ℝ)
6 ovolun.g1 . . . . . . . . . . . 12 (𝜑𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
7 elovolmlem 25402 . . . . . . . . . . . 12 (𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
86, 7sylib 218 . . . . . . . . . . 11 (𝜑𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
98adantr 480 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ) → 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
109ffvelcdmda 7017 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ (𝑛 / 2) ∈ ℕ) → (𝐺‘(𝑛 / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
11 nneo 12557 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1211adantl 481 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ℕ) → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1312con2bid 354 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → (((𝑛 + 1) / 2) ∈ ℕ ↔ ¬ (𝑛 / 2) ∈ ℕ))
1413biimpar 477 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → ((𝑛 + 1) / 2) ∈ ℕ)
15 ovolun.f1 . . . . . . . . . . . . 13 (𝜑𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
16 elovolmlem 25402 . . . . . . . . . . . . 13 (𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1715, 16sylib 218 . . . . . . . . . . . 12 (𝜑𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1817adantr 480 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1918ffvelcdmda 7017 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ((𝑛 + 1) / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2014, 19syldan 591 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2110, 20ifclda 4508 . . . . . . . 8 ((𝜑𝑛 ∈ ℕ) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) ∈ ( ≤ ∩ (ℝ × ℝ)))
22 ovolun.h . . . . . . . 8 𝐻 = (𝑛 ∈ ℕ ↦ if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))))
2321, 22fmptd 7047 . . . . . . 7 (𝜑𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
24 eqid 2731 . . . . . . . 8 ((abs ∘ − ) ∘ 𝐻) = ((abs ∘ − ) ∘ 𝐻)
25 ovolun.u . . . . . . . 8 𝑈 = seq1( + , ((abs ∘ − ) ∘ 𝐻))
2624, 25ovolsf 25400 . . . . . . 7 (𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) → 𝑈:ℕ⟶(0[,)+∞))
2723, 26syl 17 . . . . . 6 (𝜑𝑈:ℕ⟶(0[,)+∞))
28 rge0ssre 13356 . . . . . 6 (0[,)+∞) ⊆ ℝ
29 fss 6667 . . . . . 6 ((𝑈:ℕ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ ℝ) → 𝑈:ℕ⟶ℝ)
3027, 28, 29sylancl 586 . . . . 5 (𝜑𝑈:ℕ⟶ℝ)
3130frnd 6659 . . . 4 (𝜑 → ran 𝑈 ⊆ ℝ)
32 1nn 12136 . . . . . . 7 1 ∈ ℕ
33 1z 12502 . . . . . . . . . 10 1 ∈ ℤ
34 seqfn 13920 . . . . . . . . . 10 (1 ∈ ℤ → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3533, 34mp1i 13 . . . . . . . . 9 (𝜑 → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3625fneq1i 6578 . . . . . . . . . 10 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ)
37 nnuz 12775 . . . . . . . . . . 11 ℕ = (ℤ‘1)
3837fneq2i 6579 . . . . . . . . . 10 (seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3936, 38bitri 275 . . . . . . . . 9 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
4035, 39sylibr 234 . . . . . . . 8 (𝜑𝑈 Fn ℕ)
4140fndmd 6586 . . . . . . 7 (𝜑 → dom 𝑈 = ℕ)
4232, 41eleqtrrid 2838 . . . . . 6 (𝜑 → 1 ∈ dom 𝑈)
4342ne0d 4289 . . . . 5 (𝜑 → dom 𝑈 ≠ ∅)
44 dm0rn0 5863 . . . . . 6 (dom 𝑈 = ∅ ↔ ran 𝑈 = ∅)
4544necon3bii 2980 . . . . 5 (dom 𝑈 ≠ ∅ ↔ ran 𝑈 ≠ ∅)
4643, 45sylib 218 . . . 4 (𝜑 → ran 𝑈 ≠ ∅)
471simprd 495 . . . . . . . 8 (𝜑 → (vol*‘𝐴) ∈ ℝ)
483simprd 495 . . . . . . . 8 (𝜑 → (vol*‘𝐵) ∈ ℝ)
4947, 48readdcld 11141 . . . . . . 7 (𝜑 → ((vol*‘𝐴) + (vol*‘𝐵)) ∈ ℝ)
50 ovolun.c . . . . . . . 8 (𝜑𝐶 ∈ ℝ+)
5150rpred 12934 . . . . . . 7 (𝜑𝐶 ∈ ℝ)
5249, 51readdcld 11141 . . . . . 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 25424 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ) → (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
6059ralrimiva 3124 . . . . . . 7 (𝜑 → ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
61 breq1 5092 . . . . . . . . 9 (𝑧 = (𝑈𝑘) → (𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6261ralrn 7021 . . . . . . . 8 (𝑈 Fn ℕ → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6340, 62syl 17 . . . . . . 7 (𝜑 → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6460, 63mpbird 257 . . . . . 6 (𝜑 → ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
65 brralrspcev 5149 . . . . . 6 (((((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ ∧ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)) → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
6652, 64, 65syl2anc 584 . . . . 5 (𝜑 → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
67 ressxr 11156 . . . . . . 7 ℝ ⊆ ℝ*
6831, 67sstrdi 3942 . . . . . 6 (𝜑 → ran 𝑈 ⊆ ℝ*)
69 supxrbnd2 13221 . . . . . 6 (ran 𝑈 ⊆ ℝ* → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7068, 69syl 17 . . . . 5 (𝜑 → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7166, 70mpbid 232 . . . 4 (𝜑 → sup(ran 𝑈, ℝ*, < ) < +∞)
72 supxrbnd 13227 . . . 4 ((ran 𝑈 ⊆ ℝ ∧ ran 𝑈 ≠ ∅ ∧ sup(ran 𝑈, ℝ*, < ) < +∞) → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
7331, 46, 71, 72syl3anc 1373 . . 3 (𝜑 → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
74 nncn 12133 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ → 𝑚 ∈ ℂ)
7574adantl 481 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℂ)
76 1cnd 11107 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 1 ∈ ℂ)
77752timesd 12364 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) = (𝑚 + 𝑚))
7877oveq1d 7361 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = ((𝑚 + 𝑚) − 1))
7975, 75, 76, 78assraddsubd 11531 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = (𝑚 + (𝑚 − 1)))
80 simpr 484 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℕ)
81 nnm1nn0 12422 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ → (𝑚 − 1) ∈ ℕ0)
82 nnnn0addcl 12411 . . . . . . . . . . . . 13 ((𝑚 ∈ ℕ ∧ (𝑚 − 1) ∈ ℕ0) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8380, 81, 82syl2anc2 585 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8479, 83eqeltrd 2831 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) ∈ ℕ)
85 oveq1 7353 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 / 2) = (((2 · 𝑚) − 1) / 2))
8685eleq1d 2816 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → ((𝑛 / 2) ∈ ℕ ↔ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
8785fveq2d 6826 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐺‘(𝑛 / 2)) = (𝐺‘(((2 · 𝑚) − 1) / 2)))
88 oveq1 7353 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 + 1) = (((2 · 𝑚) − 1) + 1))
8988fvoveq1d 7368 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
9086, 87, 89ifbieq12d 4501 . . . . . . . . . . . . . 14 (𝑛 = ((2 · 𝑚) − 1) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
91 fvex 6835 . . . . . . . . . . . . . . 15 (𝐺‘(((2 · 𝑚) − 1) / 2)) ∈ V
92 fvex 6835 . . . . . . . . . . . . . . 15 (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) ∈ V
9391, 92ifex 4523 . . . . . . . . . . . . . 14 if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) ∈ V
9490, 22, 93fvmpt 6929 . . . . . . . . . . . . 13 (((2 · 𝑚) − 1) ∈ ℕ → (𝐻‘((2 · 𝑚) − 1)) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
9584, 94syl 17 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐻‘((2 · 𝑚) − 1)) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
96 2nn 12198 . . . . . . . . . . . . . . . . . . . 20 2 ∈ ℕ
97 nnmulcl 12149 . . . . . . . . . . . . . . . . . . . 20 ((2 ∈ ℕ ∧ 𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9896, 80, 97sylancr 587 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9998nncnd 12141 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℂ)
100 ax-1cn 11064 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
101 npcan 11369 . . . . . . . . . . . . . . . . . 18 (((2 · 𝑚) ∈ ℂ ∧ 1 ∈ ℂ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
10299, 100, 101sylancl 586 . . . . . . . . . . . . . . . . 17 ((𝜑𝑚 ∈ ℕ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
103102oveq1d 7361 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = ((2 · 𝑚) / 2))
104 2cn 12200 . . . . . . . . . . . . . . . . . 18 2 ∈ ℂ
105 2ne0 12229 . . . . . . . . . . . . . . . . . 18 2 ≠ 0
106 divcan3 11802 . . . . . . . . . . . . . . . . . 18 ((𝑚 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → ((2 · 𝑚) / 2) = 𝑚)
107104, 105, 106mp3an23 1455 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℂ → ((2 · 𝑚) / 2) = 𝑚)
10875, 107syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) = 𝑚)
109103, 108eqtrd 2766 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = 𝑚)
110109, 80eqeltrd 2831 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ)
111 nneo 12557 . . . . . . . . . . . . . . . 16 (((2 · 𝑚) − 1) ∈ ℕ → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
11284, 111syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
113112con2bid 354 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ ↔ ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
114110, 113mpbid 232 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ)
115114iffalsed 4483 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
116109fveq2d 6826 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) = (𝐹𝑚))
11795, 115, 1163eqtrd 2770 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚))
118 fveqeq2 6831 . . . . . . . . . . . 12 (𝑘 = ((2 · 𝑚) − 1) → ((𝐻𝑘) = (𝐹𝑚) ↔ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)))
119118rspcev 3572 . . . . . . . . . . 11 ((((2 · 𝑚) − 1) ∈ ℕ ∧ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
12084, 117, 119syl2anc 584 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
121 fveq2 6822 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐹𝑚)))
122121breq1d 5099 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐹𝑚)) < 𝑧))
123 fveq2 6822 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐹𝑚)))
124123breq2d 5101 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐹𝑚))))
125122, 124anbi12d 632 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐹𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
126125biimprcd 250 . . . . . . . . . . 11 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
127126reximdv 3147 . . . . . . . . . 10 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
128120, 127syl5com 31 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
129128rexlimdva 3133 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
130129ralimdv 3146 . . . . . . 7 (𝜑 → (∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
131 ovolfioo 25395 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
1322, 17, 131syl2anc 584 . . . . . . 7 (𝜑 → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
133 ovolfioo 25395 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐴 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
1342, 23, 133syl2anc 584 . . . . . . 7 (𝜑 → (𝐴 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
135130, 132, 1343imtr4d 294 . . . . . 6 (𝜑 → (𝐴 ran ((,) ∘ 𝐹) → 𝐴 ran ((,) ∘ 𝐻)))
13655, 135mpd 15 . . . . 5 (𝜑𝐴 ran ((,) ∘ 𝐻))
137 oveq1 7353 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 / 2) = ((2 · 𝑚) / 2))
138137eleq1d 2816 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → ((𝑛 / 2) ∈ ℕ ↔ ((2 · 𝑚) / 2) ∈ ℕ))
139137fveq2d 6826 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐺‘(𝑛 / 2)) = (𝐺‘((2 · 𝑚) / 2)))
140 oveq1 7353 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 + 1) = ((2 · 𝑚) + 1))
141140fvoveq1d 7368 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘(((2 · 𝑚) + 1) / 2)))
142138, 139, 141ifbieq12d 4501 . . . . . . . . . . . . . 14 (𝑛 = (2 · 𝑚) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
143 fvex 6835 . . . . . . . . . . . . . . 15 (𝐺‘((2 · 𝑚) / 2)) ∈ V
144 fvex 6835 . . . . . . . . . . . . . . 15 (𝐹‘(((2 · 𝑚) + 1) / 2)) ∈ V
145143, 144ifex 4523 . . . . . . . . . . . . . 14 if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) ∈ V
146142, 22, 145fvmpt 6929 . . . . . . . . . . . . 13 ((2 · 𝑚) ∈ ℕ → (𝐻‘(2 · 𝑚)) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
14798, 146syl 17 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐻‘(2 · 𝑚)) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
148108, 80eqeltrd 2831 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) ∈ ℕ)
149148iftrued 4480 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) = (𝐺‘((2 · 𝑚) / 2)))
150108fveq2d 6826 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐺‘((2 · 𝑚) / 2)) = (𝐺𝑚))
151147, 149, 1503eqtrd 2770 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘(2 · 𝑚)) = (𝐺𝑚))
152 fveqeq2 6831 . . . . . . . . . . . 12 (𝑘 = (2 · 𝑚) → ((𝐻𝑘) = (𝐺𝑚) ↔ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)))
153152rspcev 3572 . . . . . . . . . . 11 (((2 · 𝑚) ∈ ℕ ∧ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
15498, 151, 153syl2anc 584 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
155 fveq2 6822 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐺𝑚)))
156155breq1d 5099 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐺𝑚)) < 𝑧))
157 fveq2 6822 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐺𝑚)))
158157breq2d 5101 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐺𝑚))))
159156, 158anbi12d 632 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐺𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
160159biimprcd 250 . . . . . . . . . . 11 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
161160reximdv 3147 . . . . . . . . . 10 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
162154, 161syl5com 31 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
163162rexlimdva 3133 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
164163ralimdv 3146 . . . . . . 7 (𝜑 → (∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
165 ovolfioo 25395 . . . . . . . 8 ((𝐵 ⊆ ℝ ∧ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
1664, 8, 165syl2anc 584 . . . . . . 7 (𝜑 → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
167 ovolfioo 25395 . . . . . . . 8 ((𝐵 ⊆ ℝ ∧ 𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐵 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
1684, 23, 167syl2anc 584 . . . . . . 7 (𝜑 → (𝐵 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
169164, 166, 1683imtr4d 294 . . . . . 6 (𝜑 → (𝐵 ran ((,) ∘ 𝐺) → 𝐵 ran ((,) ∘ 𝐻)))
17057, 169mpd 15 . . . . 5 (𝜑𝐵 ran ((,) ∘ 𝐻))
171136, 170unssd 4139 . . . 4 (𝜑 → (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻))
17225ovollb 25407 . . . 4 ((𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) ∧ (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻)) → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
17323, 171, 172syl2anc 584 . . 3 (𝜑 → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
174 ovollecl 25411 . . 3 (((𝐴𝐵) ⊆ ℝ ∧ sup(ran 𝑈, ℝ*, < ) ∈ ℝ ∧ (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < )) → (vol*‘(𝐴𝐵)) ∈ ℝ)
1755, 73, 173, 174syl3anc 1373 . 2 (𝜑 → (vol*‘(𝐴𝐵)) ∈ ℝ)
17652rexrd 11162 . . . 4 (𝜑 → (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ*)
177 supxrleub 13225 . . . 4 ((ran 𝑈 ⊆ ℝ* ∧ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ*) → (sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
17868, 176, 177syl2anc 584 . . 3 (𝜑 → (sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
17964, 178mpbird 257 . 2 (𝜑 → sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
180175, 73, 52, 173, 179letrd 11270 1 (𝜑 → (vol*‘(𝐴𝐵)) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1541  wcel 2111  wne 2928  wral 3047  wrex 3056  cun 3895  cin 3896  wss 3897  c0 4280  ifcif 4472   cuni 4856   class class class wbr 5089  cmpt 5170   × cxp 5612  dom cdm 5614  ran crn 5615  ccom 5618   Fn wfn 6476  wf 6477  cfv 6481  (class class class)co 7346  1st c1st 7919  2nd c2nd 7920  m cmap 8750  supcsup 9324  cc 11004  cr 11005  0cc0 11006  1c1 11007   + caddc 11009   · cmul 11011  +∞cpnf 11143  *cxr 11145   < clt 11146  cle 11147  cmin 11344   / cdiv 11774  cn 12125  2c2 12180  0cn0 12381  cz 12468  cuz 12732  +crp 12890  (,)cioo 13245  [,)cico 13247  seqcseq 13908  abscabs 15141  vol*covol 25390
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 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-sep 5232  ax-nul 5242  ax-pow 5301  ax-pr 5368  ax-un 7668  ax-cnex 11062  ax-resscn 11063  ax-1cn 11064  ax-icn 11065  ax-addcl 11066  ax-addrcl 11067  ax-mulcl 11068  ax-mulrcl 11069  ax-mulcom 11070  ax-addass 11071  ax-mulass 11072  ax-distr 11073  ax-i2m1 11074  ax-1ne0 11075  ax-1rid 11076  ax-rnegex 11077  ax-rrecex 11078  ax-cnre 11079  ax-pre-lttri 11080  ax-pre-lttrn 11081  ax-pre-ltadd 11082  ax-pre-mulgt0 11083  ax-pre-sup 11084
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-nel 3033  df-ral 3048  df-rex 3057  df-rmo 3346  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3737  df-csb 3846  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-pss 3917  df-nul 4281  df-if 4473  df-pw 4549  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-iun 4941  df-br 5090  df-opab 5152  df-mpt 5171  df-tr 5197  df-id 5509  df-eprel 5514  df-po 5522  df-so 5523  df-fr 5567  df-we 5569  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6248  df-ord 6309  df-on 6310  df-lim 6311  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-riota 7303  df-ov 7349  df-oprab 7350  df-mpo 7351  df-om 7797  df-1st 7921  df-2nd 7922  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-rdg 8329  df-er 8622  df-map 8752  df-en 8870  df-dom 8871  df-sdom 8872  df-sup 9326  df-inf 9327  df-pnf 11148  df-mnf 11149  df-xr 11150  df-ltxr 11151  df-le 11152  df-sub 11346  df-neg 11347  df-div 11775  df-nn 12126  df-2 12188  df-3 12189  df-n0 12382  df-z 12469  df-uz 12733  df-rp 12891  df-ioo 13249  df-ico 13251  df-fz 13408  df-fl 13696  df-seq 13909  df-exp 13969  df-cj 15006  df-re 15007  df-im 15008  df-sqrt 15142  df-abs 15143  df-ovol 25392
This theorem is referenced by:  ovolunlem2  25426
  Copyright terms: Public domain W3C validator