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

Theorem ovolunlem1 24670
Description: Lemma for ovolun 24672. (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 495 . . . 4 (𝜑𝐴 ⊆ ℝ)
3 ovolun.b . . . . 5 (𝜑 → (𝐵 ⊆ ℝ ∧ (vol*‘𝐵) ∈ ℝ))
43simpld 495 . . . 4 (𝜑𝐵 ⊆ ℝ)
52, 4unssd 4121 . . 3 (𝜑 → (𝐴𝐵) ⊆ ℝ)
6 ovolun.g1 . . . . . . . . . . . 12 (𝜑𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
7 elovolmlem 24647 . . . . . . . . . . . 12 (𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
86, 7sylib 217 . . . . . . . . . . 11 (𝜑𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
98adantr 481 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ) → 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
109ffvelrnda 6970 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ (𝑛 / 2) ∈ ℕ) → (𝐺‘(𝑛 / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
11 nneo 12413 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1211adantl 482 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ℕ) → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1312con2bid 355 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → (((𝑛 + 1) / 2) ∈ ℕ ↔ ¬ (𝑛 / 2) ∈ ℕ))
1413biimpar 478 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → ((𝑛 + 1) / 2) ∈ ℕ)
15 ovolun.f1 . . . . . . . . . . . . 13 (𝜑𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
16 elovolmlem 24647 . . . . . . . . . . . . 13 (𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1715, 16sylib 217 . . . . . . . . . . . 12 (𝜑𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1817adantr 481 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1918ffvelrnda 6970 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ((𝑛 + 1) / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2014, 19syldan 591 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2110, 20ifclda 4495 . . . . . . . 8 ((𝜑𝑛 ∈ ℕ) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) ∈ ( ≤ ∩ (ℝ × ℝ)))
22 ovolun.h . . . . . . . 8 𝐻 = (𝑛 ∈ ℕ ↦ if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))))
2321, 22fmptd 6997 . . . . . . 7 (𝜑𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
24 eqid 2739 . . . . . . . 8 ((abs ∘ − ) ∘ 𝐻) = ((abs ∘ − ) ∘ 𝐻)
25 ovolun.u . . . . . . . 8 𝑈 = seq1( + , ((abs ∘ − ) ∘ 𝐻))
2624, 25ovolsf 24645 . . . . . . 7 (𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) → 𝑈:ℕ⟶(0[,)+∞))
2723, 26syl 17 . . . . . 6 (𝜑𝑈:ℕ⟶(0[,)+∞))
28 rge0ssre 13197 . . . . . 6 (0[,)+∞) ⊆ ℝ
29 fss 6626 . . . . . 6 ((𝑈:ℕ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ ℝ) → 𝑈:ℕ⟶ℝ)
3027, 28, 29sylancl 586 . . . . 5 (𝜑𝑈:ℕ⟶ℝ)
3130frnd 6617 . . . 4 (𝜑 → ran 𝑈 ⊆ ℝ)
32 1nn 11993 . . . . . . 7 1 ∈ ℕ
33 1z 12359 . . . . . . . . . 10 1 ∈ ℤ
34 seqfn 13742 . . . . . . . . . 10 (1 ∈ ℤ → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3533, 34mp1i 13 . . . . . . . . 9 (𝜑 → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3625fneq1i 6539 . . . . . . . . . 10 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ)
37 nnuz 12630 . . . . . . . . . . 11 ℕ = (ℤ‘1)
3837fneq2i 6540 . . . . . . . . . 10 (seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3936, 38bitri 274 . . . . . . . . 9 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
4035, 39sylibr 233 . . . . . . . 8 (𝜑𝑈 Fn ℕ)
4140fndmd 6547 . . . . . . 7 (𝜑 → dom 𝑈 = ℕ)
4232, 41eleqtrrid 2847 . . . . . 6 (𝜑 → 1 ∈ dom 𝑈)
4342ne0d 4270 . . . . 5 (𝜑 → dom 𝑈 ≠ ∅)
44 dm0rn0 5837 . . . . . 6 (dom 𝑈 = ∅ ↔ ran 𝑈 = ∅)
4544necon3bii 2997 . . . . 5 (dom 𝑈 ≠ ∅ ↔ ran 𝑈 ≠ ∅)
4643, 45sylib 217 . . . 4 (𝜑 → ran 𝑈 ≠ ∅)
471simprd 496 . . . . . . . 8 (𝜑 → (vol*‘𝐴) ∈ ℝ)
483simprd 496 . . . . . . . 8 (𝜑 → (vol*‘𝐵) ∈ ℝ)
4947, 48readdcld 11013 . . . . . . 7 (𝜑 → ((vol*‘𝐴) + (vol*‘𝐵)) ∈ ℝ)
50 ovolun.c . . . . . . . 8 (𝜑𝐶 ∈ ℝ+)
5150rpred 12781 . . . . . . 7 (𝜑𝐶 ∈ ℝ)
5249, 51readdcld 11013 . . . . . 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 24669 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ) → (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
6059ralrimiva 3104 . . . . . . 7 (𝜑 → ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
61 breq1 5078 . . . . . . . . 9 (𝑧 = (𝑈𝑘) → (𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6261ralrn 6973 . . . . . . . 8 (𝑈 Fn ℕ → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6340, 62syl 17 . . . . . . 7 (𝜑 → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6460, 63mpbird 256 . . . . . 6 (𝜑 → ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
65 brralrspcev 5135 . . . . . 6 (((((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ ∧ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)) → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
6652, 64, 65syl2anc 584 . . . . 5 (𝜑 → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
67 ressxr 11028 . . . . . . 7 ℝ ⊆ ℝ*
6831, 67sstrdi 3934 . . . . . 6 (𝜑 → ran 𝑈 ⊆ ℝ*)
69 supxrbnd2 13065 . . . . . 6 (ran 𝑈 ⊆ ℝ* → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7068, 69syl 17 . . . . 5 (𝜑 → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7166, 70mpbid 231 . . . 4 (𝜑 → sup(ran 𝑈, ℝ*, < ) < +∞)
72 supxrbnd 13071 . . . 4 ((ran 𝑈 ⊆ ℝ ∧ ran 𝑈 ≠ ∅ ∧ sup(ran 𝑈, ℝ*, < ) < +∞) → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
7331, 46, 71, 72syl3anc 1370 . . 3 (𝜑 → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
74 nncn 11990 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ → 𝑚 ∈ ℂ)
7574adantl 482 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℂ)
76 1cnd 10979 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 1 ∈ ℂ)
77752timesd 12225 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) = (𝑚 + 𝑚))
7877oveq1d 7299 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = ((𝑚 + 𝑚) − 1))
7975, 75, 76, 78assraddsubd 11398 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = (𝑚 + (𝑚 − 1)))
80 simpr 485 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℕ)
81 nnm1nn0 12283 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ → (𝑚 − 1) ∈ ℕ0)
82 nnnn0addcl 12272 . . . . . . . . . . . . 13 ((𝑚 ∈ ℕ ∧ (𝑚 − 1) ∈ ℕ0) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8380, 81, 82syl2anc2 585 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8479, 83eqeltrd 2840 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) ∈ ℕ)
85 oveq1 7291 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 / 2) = (((2 · 𝑚) − 1) / 2))
8685eleq1d 2824 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → ((𝑛 / 2) ∈ ℕ ↔ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
8785fveq2d 6787 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐺‘(𝑛 / 2)) = (𝐺‘(((2 · 𝑚) − 1) / 2)))
88 oveq1 7291 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 + 1) = (((2 · 𝑚) − 1) + 1))
8988fvoveq1d 7306 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
9086, 87, 89ifbieq12d 4488 . . . . . . . . . . . . . 14 (𝑛 = ((2 · 𝑚) − 1) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
91 fvex 6796 . . . . . . . . . . . . . . 15 (𝐺‘(((2 · 𝑚) − 1) / 2)) ∈ V
92 fvex 6796 . . . . . . . . . . . . . . 15 (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) ∈ V
9391, 92ifex 4510 . . . . . . . . . . . . . 14 if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) ∈ V
9490, 22, 93fvmpt 6884 . . . . . . . . . . . . 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 12055 . . . . . . . . . . . . . . . . . . . 20 2 ∈ ℕ
97 nnmulcl 12006 . . . . . . . . . . . . . . . . . . . 20 ((2 ∈ ℕ ∧ 𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9896, 80, 97sylancr 587 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9998nncnd 11998 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℂ)
100 ax-1cn 10938 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
101 npcan 11239 . . . . . . . . . . . . . . . . . 18 (((2 · 𝑚) ∈ ℂ ∧ 1 ∈ ℂ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
10299, 100, 101sylancl 586 . . . . . . . . . . . . . . . . 17 ((𝜑𝑚 ∈ ℕ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
103102oveq1d 7299 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = ((2 · 𝑚) / 2))
104 2cn 12057 . . . . . . . . . . . . . . . . . 18 2 ∈ ℂ
105 2ne0 12086 . . . . . . . . . . . . . . . . . 18 2 ≠ 0
106 divcan3 11668 . . . . . . . . . . . . . . . . . 18 ((𝑚 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → ((2 · 𝑚) / 2) = 𝑚)
107104, 105, 106mp3an23 1452 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℂ → ((2 · 𝑚) / 2) = 𝑚)
10875, 107syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) = 𝑚)
109103, 108eqtrd 2779 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = 𝑚)
110109, 80eqeltrd 2840 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ)
111 nneo 12413 . . . . . . . . . . . . . . . 16 (((2 · 𝑚) − 1) ∈ ℕ → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
11284, 111syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
113112con2bid 355 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ ↔ ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
114110, 113mpbid 231 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ)
115114iffalsed 4471 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
116109fveq2d 6787 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) = (𝐹𝑚))
11795, 115, 1163eqtrd 2783 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚))
118 fveqeq2 6792 . . . . . . . . . . . 12 (𝑘 = ((2 · 𝑚) − 1) → ((𝐻𝑘) = (𝐹𝑚) ↔ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)))
119118rspcev 3562 . . . . . . . . . . 11 ((((2 · 𝑚) − 1) ∈ ℕ ∧ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
12084, 117, 119syl2anc 584 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
121 fveq2 6783 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐹𝑚)))
122121breq1d 5085 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐹𝑚)) < 𝑧))
123 fveq2 6783 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐹𝑚)))
124123breq2d 5087 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐹𝑚))))
125122, 124anbi12d 631 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐹𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
126125biimprcd 249 . . . . . . . . . . 11 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
127126reximdv 3203 . . . . . . . . . 10 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
128120, 127syl5com 31 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
129128rexlimdva 3214 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
130129ralimdv 3110 . . . . . . 7 (𝜑 → (∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
131 ovolfioo 24640 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
1322, 17, 131syl2anc 584 . . . . . . 7 (𝜑 → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
133 ovolfioo 24640 . . . . . . . 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 7291 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 / 2) = ((2 · 𝑚) / 2))
138137eleq1d 2824 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → ((𝑛 / 2) ∈ ℕ ↔ ((2 · 𝑚) / 2) ∈ ℕ))
139137fveq2d 6787 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐺‘(𝑛 / 2)) = (𝐺‘((2 · 𝑚) / 2)))
140 oveq1 7291 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 + 1) = ((2 · 𝑚) + 1))
141140fvoveq1d 7306 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘(((2 · 𝑚) + 1) / 2)))
142138, 139, 141ifbieq12d 4488 . . . . . . . . . . . . . 14 (𝑛 = (2 · 𝑚) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
143 fvex 6796 . . . . . . . . . . . . . . 15 (𝐺‘((2 · 𝑚) / 2)) ∈ V
144 fvex 6796 . . . . . . . . . . . . . . 15 (𝐹‘(((2 · 𝑚) + 1) / 2)) ∈ V
145143, 144ifex 4510 . . . . . . . . . . . . . 14 if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) ∈ V
146142, 22, 145fvmpt 6884 . . . . . . . . . . . . 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 2840 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) ∈ ℕ)
149148iftrued 4468 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) = (𝐺‘((2 · 𝑚) / 2)))
150108fveq2d 6787 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐺‘((2 · 𝑚) / 2)) = (𝐺𝑚))
151147, 149, 1503eqtrd 2783 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘(2 · 𝑚)) = (𝐺𝑚))
152 fveqeq2 6792 . . . . . . . . . . . 12 (𝑘 = (2 · 𝑚) → ((𝐻𝑘) = (𝐺𝑚) ↔ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)))
153152rspcev 3562 . . . . . . . . . . 11 (((2 · 𝑚) ∈ ℕ ∧ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
15498, 151, 153syl2anc 584 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
155 fveq2 6783 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐺𝑚)))
156155breq1d 5085 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐺𝑚)) < 𝑧))
157 fveq2 6783 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐺𝑚)))
158157breq2d 5087 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐺𝑚))))
159156, 158anbi12d 631 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐺𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
160159biimprcd 249 . . . . . . . . . . 11 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
161160reximdv 3203 . . . . . . . . . 10 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
162154, 161syl5com 31 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
163162rexlimdva 3214 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
164163ralimdv 3110 . . . . . . 7 (𝜑 → (∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
165 ovolfioo 24640 . . . . . . . 8 ((𝐵 ⊆ ℝ ∧ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
1664, 8, 165syl2anc 584 . . . . . . 7 (𝜑 → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
167 ovolfioo 24640 . . . . . . . 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 4121 . . . 4 (𝜑 → (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻))
17225ovollb 24652 . . . 4 ((𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) ∧ (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻)) → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
17323, 171, 172syl2anc 584 . . 3 (𝜑 → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
174 ovollecl 24656 . . 3 (((𝐴𝐵) ⊆ ℝ ∧ sup(ran 𝑈, ℝ*, < ) ∈ ℝ ∧ (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < )) → (vol*‘(𝐴𝐵)) ∈ ℝ)
1755, 73, 173, 174syl3anc 1370 . 2 (𝜑 → (vol*‘(𝐴𝐵)) ∈ ℝ)
17652rexrd 11034 . . . 4 (𝜑 → (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ*)
177 supxrleub 13069 . . . 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 256 . 2 (𝜑 → sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
180175, 73, 52, 173, 179letrd 11141 1 (𝜑 → (vol*‘(𝐴𝐵)) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396   = wceq 1539  wcel 2107  wne 2944  wral 3065  wrex 3066  cun 3886  cin 3887  wss 3888  c0 4257  ifcif 4460   cuni 4840   class class class wbr 5075  cmpt 5158   × cxp 5588  dom cdm 5590  ran crn 5591  ccom 5594   Fn wfn 6432  wf 6433  cfv 6437  (class class class)co 7284  1st c1st 7838  2nd c2nd 7839  m cmap 8624  supcsup 9208  cc 10878  cr 10879  0cc0 10880  1c1 10881   + caddc 10883   · cmul 10885  +∞cpnf 11015  *cxr 11017   < clt 11018  cle 11019  cmin 11214   / cdiv 11641  cn 11982  2c2 12037  0cn0 12242  cz 12328  cuz 12591  +crp 12739  (,)cioo 13088  [,)cico 13090  seqcseq 13730  abscabs 14954  vol*covol 24635
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2710  ax-sep 5224  ax-nul 5231  ax-pow 5289  ax-pr 5353  ax-un 7597  ax-cnex 10936  ax-resscn 10937  ax-1cn 10938  ax-icn 10939  ax-addcl 10940  ax-addrcl 10941  ax-mulcl 10942  ax-mulrcl 10943  ax-mulcom 10944  ax-addass 10945  ax-mulass 10946  ax-distr 10947  ax-i2m1 10948  ax-1ne0 10949  ax-1rid 10950  ax-rnegex 10951  ax-rrecex 10952  ax-cnre 10953  ax-pre-lttri 10954  ax-pre-lttrn 10955  ax-pre-ltadd 10956  ax-pre-mulgt0 10957  ax-pre-sup 10958
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2541  df-eu 2570  df-clab 2717  df-cleq 2731  df-clel 2817  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3070  df-rex 3071  df-rmo 3072  df-reu 3073  df-rab 3074  df-v 3435  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-pss 3907  df-nul 4258  df-if 4461  df-pw 4536  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4841  df-iun 4927  df-br 5076  df-opab 5138  df-mpt 5159  df-tr 5193  df-id 5490  df-eprel 5496  df-po 5504  df-so 5505  df-fr 5545  df-we 5547  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-pred 6206  df-ord 6273  df-on 6274  df-lim 6275  df-suc 6276  df-iota 6395  df-fun 6439  df-fn 6440  df-f 6441  df-f1 6442  df-fo 6443  df-f1o 6444  df-fv 6445  df-riota 7241  df-ov 7287  df-oprab 7288  df-mpo 7289  df-om 7722  df-1st 7840  df-2nd 7841  df-frecs 8106  df-wrecs 8137  df-recs 8211  df-rdg 8250  df-er 8507  df-map 8626  df-en 8743  df-dom 8744  df-sdom 8745  df-sup 9210  df-inf 9211  df-pnf 11020  df-mnf 11021  df-xr 11022  df-ltxr 11023  df-le 11024  df-sub 11216  df-neg 11217  df-div 11642  df-nn 11983  df-2 12045  df-3 12046  df-n0 12243  df-z 12329  df-uz 12592  df-rp 12740  df-ioo 13092  df-ico 13094  df-fz 13249  df-fl 13521  df-seq 13731  df-exp 13792  df-cj 14819  df-re 14820  df-im 14821  df-sqrt 14955  df-abs 14956  df-ovol 24637
This theorem is referenced by:  ovolunlem2  24671
  Copyright terms: Public domain W3C validator