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

Theorem ovolunlem1 25566
Description: Lemma for ovolun 25568. (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 498 . . . 4 (𝜑𝐴 ⊆ ℝ)
3 ovolun.b . . . . 5 (𝜑 → (𝐵 ⊆ ℝ ∧ (vol*‘𝐵) ∈ ℝ))
43simpld 498 . . . 4 (𝜑𝐵 ⊆ ℝ)
52, 4unssd 4145 . . 3 (𝜑 → (𝐴𝐵) ⊆ ℝ)
6 ovolun.g1 . . . . . . . . . . . 12 (𝜑𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
7 elovolmlem 25543 . . . . . . . . . . . 12 (𝐺 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
86, 7sylib 220 . . . . . . . . . . 11 (𝜑𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
98adantr 484 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ) → 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
109ffvelcdmda 7065 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ (𝑛 / 2) ∈ ℕ) → (𝐺‘(𝑛 / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
11 nneo 12667 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1211adantl 485 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ℕ) → ((𝑛 / 2) ∈ ℕ ↔ ¬ ((𝑛 + 1) / 2) ∈ ℕ))
1312con2bid 356 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → (((𝑛 + 1) / 2) ∈ ℕ ↔ ¬ (𝑛 / 2) ∈ ℕ))
1413biimpar 481 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → ((𝑛 + 1) / 2) ∈ ℕ)
15 ovolun.f1 . . . . . . . . . . . . 13 (𝜑𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ))
16 elovolmlem 25543 . . . . . . . . . . . . 13 (𝐹 ∈ (( ≤ ∩ (ℝ × ℝ)) ↑m ℕ) ↔ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1715, 16sylib 220 . . . . . . . . . . . 12 (𝜑𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1817adantr 484 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ) → 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
1918ffvelcdmda 7065 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ ((𝑛 + 1) / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2014, 19syldan 600 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ ¬ (𝑛 / 2) ∈ ℕ) → (𝐹‘((𝑛 + 1) / 2)) ∈ ( ≤ ∩ (ℝ × ℝ)))
2110, 20ifclda 4517 . . . . . . . 8 ((𝜑𝑛 ∈ ℕ) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) ∈ ( ≤ ∩ (ℝ × ℝ)))
22 ovolun.h . . . . . . . 8 𝐻 = (𝑛 ∈ ℕ ↦ if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))))
2321, 22fmptd 7095 . . . . . . 7 (𝜑𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)))
24 eqid 2763 . . . . . . . 8 ((abs ∘ − ) ∘ 𝐻) = ((abs ∘ − ) ∘ 𝐻)
25 ovolun.u . . . . . . . 8 𝑈 = seq1( + , ((abs ∘ − ) ∘ 𝐻))
2624, 25ovolsf 25541 . . . . . . 7 (𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) → 𝑈:ℕ⟶(0[,)+∞))
2723, 26syl 17 . . . . . 6 (𝜑𝑈:ℕ⟶(0[,)+∞))
28 rge0ssre 13470 . . . . . 6 (0[,)+∞) ⊆ ℝ
29 fss 6708 . . . . . 6 ((𝑈:ℕ⟶(0[,)+∞) ∧ (0[,)+∞) ⊆ ℝ) → 𝑈:ℕ⟶ℝ)
3027, 28, 29sylancl 595 . . . . 5 (𝜑𝑈:ℕ⟶ℝ)
3130frnd 6700 . . . 4 (𝜑 → ran 𝑈 ⊆ ℝ)
32 1nn 12231 . . . . . . 7 1 ∈ ℕ
33 1z 12611 . . . . . . . . . 10 1 ∈ ℤ
34 seqfn 14036 . . . . . . . . . 10 (1 ∈ ℤ → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3533, 34mp1i 13 . . . . . . . . 9 (𝜑 → seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3625fneq1i 6618 . . . . . . . . . 10 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ)
37 nnuz 12888 . . . . . . . . . . 11 ℕ = (ℤ‘1)
3837fneq2i 6619 . . . . . . . . . 10 (seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
3936, 38bitri 277 . . . . . . . . 9 (𝑈 Fn ℕ ↔ seq1( + , ((abs ∘ − ) ∘ 𝐻)) Fn (ℤ‘1))
4035, 39sylibr 236 . . . . . . . 8 (𝜑𝑈 Fn ℕ)
4140fndmd 6626 . . . . . . 7 (𝜑 → dom 𝑈 = ℕ)
4232, 41eleqtrrid 2870 . . . . . 6 (𝜑 → 1 ∈ dom 𝑈)
4342ne0d 4295 . . . . 5 (𝜑 → dom 𝑈 ≠ ∅)
44 dm0rn0 5901 . . . . . 6 (dom 𝑈 = ∅ ↔ ran 𝑈 = ∅)
4544necon3bii 3010 . . . . 5 (dom 𝑈 ≠ ∅ ↔ ran 𝑈 ≠ ∅)
4643, 45sylib 220 . . . 4 (𝜑 → ran 𝑈 ≠ ∅)
471simprd 499 . . . . . . . 8 (𝜑 → (vol*‘𝐴) ∈ ℝ)
483simprd 499 . . . . . . . 8 (𝜑 → (vol*‘𝐵) ∈ ℝ)
4947, 48readdcld 11222 . . . . . . 7 (𝜑 → ((vol*‘𝐴) + (vol*‘𝐵)) ∈ ℝ)
50 ovolun.c . . . . . . . 8 (𝜑𝐶 ∈ ℝ+)
5150rpred 13047 . . . . . . 7 (𝜑𝐶 ∈ ℝ)
5249, 51readdcld 11222 . . . . . 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 25565 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ) → (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
6059ralrimiva 3155 . . . . . . 7 (𝜑 → ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
61 breq1 5104 . . . . . . . . 9 (𝑧 = (𝑈𝑘) → (𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6261ralrn 7069 . . . . . . . 8 (𝑈 Fn ℕ → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6340, 62syl 17 . . . . . . 7 (𝜑 → (∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑘 ∈ ℕ (𝑈𝑘) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
6460, 63mpbird 259 . . . . . 6 (𝜑 → ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
65 brralrspcev 5161 . . . . . 6 (((((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ ∧ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)) → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
6652, 64, 65syl2anc 593 . . . . 5 (𝜑 → ∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘)
67 ressxr 11237 . . . . . . 7 ℝ ⊆ ℝ*
6831, 67sstrdi 3949 . . . . . 6 (𝜑 → ran 𝑈 ⊆ ℝ*)
69 supxrbnd2 13335 . . . . . 6 (ran 𝑈 ⊆ ℝ* → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7068, 69syl 17 . . . . 5 (𝜑 → (∃𝑘 ∈ ℝ ∀𝑧 ∈ ran 𝑈 𝑧𝑘 ↔ sup(ran 𝑈, ℝ*, < ) < +∞))
7166, 70mpbid 234 . . . 4 (𝜑 → sup(ran 𝑈, ℝ*, < ) < +∞)
72 supxrbnd 13341 . . . 4 ((ran 𝑈 ⊆ ℝ ∧ ran 𝑈 ≠ ∅ ∧ sup(ran 𝑈, ℝ*, < ) < +∞) → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
7331, 46, 71, 72syl3anc 1392 . . 3 (𝜑 → sup(ran 𝑈, ℝ*, < ) ∈ ℝ)
74 nncn 12228 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ → 𝑚 ∈ ℂ)
7574adantl 485 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℂ)
76 1cnd 11186 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 1 ∈ ℂ)
77752timesd 12474 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) = (𝑚 + 𝑚))
7877oveq1d 7411 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = ((𝑚 + 𝑚) − 1))
7975, 75, 76, 78assraddsubd 11612 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) = (𝑚 + (𝑚 − 1)))
80 simpr 488 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℕ)
81 nnm1nn0 12532 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ → (𝑚 − 1) ∈ ℕ0)
82 nnnn0addcl 12521 . . . . . . . . . . . . 13 ((𝑚 ∈ ℕ ∧ (𝑚 − 1) ∈ ℕ0) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8380, 81, 82syl2anc2 594 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝑚 + (𝑚 − 1)) ∈ ℕ)
8479, 83eqeltrd 2863 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) − 1) ∈ ℕ)
85 oveq1 7403 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 / 2) = (((2 · 𝑚) − 1) / 2))
8685eleq1d 2848 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → ((𝑛 / 2) ∈ ℕ ↔ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
8785fveq2d 6871 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐺‘(𝑛 / 2)) = (𝐺‘(((2 · 𝑚) − 1) / 2)))
88 oveq1 7403 . . . . . . . . . . . . . . . 16 (𝑛 = ((2 · 𝑚) − 1) → (𝑛 + 1) = (((2 · 𝑚) − 1) + 1))
8988fvoveq1d 7418 . . . . . . . . . . . . . . 15 (𝑛 = ((2 · 𝑚) − 1) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
9086, 87, 89ifbieq12d 4510 . . . . . . . . . . . . . 14 (𝑛 = ((2 · 𝑚) − 1) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))))
91 fvex 6880 . . . . . . . . . . . . . . 15 (𝐺‘(((2 · 𝑚) − 1) / 2)) ∈ V
92 fvex 6880 . . . . . . . . . . . . . . 15 (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) ∈ V
9391, 92ifex 4532 . . . . . . . . . . . . . 14 if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) ∈ V
9490, 22, 93fvmpt 6975 . . . . . . . . . . . . 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 12301 . . . . . . . . . . . . . . . . . . . 20 2 ∈ ℕ
97 nnmulcl 12244 . . . . . . . . . . . . . . . . . . . 20 ((2 ∈ ℕ ∧ 𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9896, 80, 97sylancr 596 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℕ)
9998nncnd 12236 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑚 ∈ ℕ) → (2 · 𝑚) ∈ ℂ)
100 ax-1cn 11142 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
101 npcan 11450 . . . . . . . . . . . . . . . . . 18 (((2 · 𝑚) ∈ ℂ ∧ 1 ∈ ℂ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
10299, 100, 101sylancl 595 . . . . . . . . . . . . . . . . 17 ((𝜑𝑚 ∈ ℕ) → (((2 · 𝑚) − 1) + 1) = (2 · 𝑚))
103102oveq1d 7411 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = ((2 · 𝑚) / 2))
104 2cn 12303 . . . . . . . . . . . . . . . . . 18 2 ∈ ℂ
105 2ne0 12334 . . . . . . . . . . . . . . . . . 18 2 ≠ 0
106 divcan3 11882 . . . . . . . . . . . . . . . . . 18 ((𝑚 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → ((2 · 𝑚) / 2) = 𝑚)
107104, 105, 106mp3an23 1475 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℂ → ((2 · 𝑚) / 2) = 𝑚)
10875, 107syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) = 𝑚)
109103, 108eqtrd 2798 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) = 𝑚)
110109, 80eqeltrd 2863 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ)
111 nneo 12667 . . . . . . . . . . . . . . . 16 (((2 · 𝑚) − 1) ∈ ℕ → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
11284, 111syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → ((((2 · 𝑚) − 1) / 2) ∈ ℕ ↔ ¬ ((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ))
113112con2bid 356 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (((((2 · 𝑚) − 1) + 1) / 2) ∈ ℕ ↔ ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ))
114110, 113mpbid 234 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ¬ (((2 · 𝑚) − 1) / 2) ∈ ℕ)
115114iffalsed 4492 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if((((2 · 𝑚) − 1) / 2) ∈ ℕ, (𝐺‘(((2 · 𝑚) − 1) / 2)), (𝐹‘((((2 · 𝑚) − 1) + 1) / 2))) = (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)))
116109fveq2d 6871 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐹‘((((2 · 𝑚) − 1) + 1) / 2)) = (𝐹𝑚))
11795, 115, 1163eqtrd 2802 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚))
118 fveqeq2 6876 . . . . . . . . . . . 12 (𝑘 = ((2 · 𝑚) − 1) → ((𝐻𝑘) = (𝐹𝑚) ↔ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)))
119118rspcev 3582 . . . . . . . . . . 11 ((((2 · 𝑚) − 1) ∈ ℕ ∧ (𝐻‘((2 · 𝑚) − 1)) = (𝐹𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
12084, 117, 119syl2anc 593 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚))
121 fveq2 6867 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐹𝑚)))
122121breq1d 5111 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐹𝑚)) < 𝑧))
123 fveq2 6867 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐹𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐹𝑚)))
124123breq2d 5113 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐹𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐹𝑚))))
125122, 124anbi12d 641 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐹𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
126125biimprcd 252 . . . . . . . . . . 11 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ((𝐻𝑘) = (𝐹𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
127126reximdv 3178 . . . . . . . . . 10 (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐹𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
128120, 127syl5com 31 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
129128rexlimdva 3164 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
130129ralimdv 3177 . . . . . . 7 (𝜑 → (∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚))) → ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
131 ovolfioo 25536 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐹:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
1322, 17, 131syl2anc 593 . . . . . . 7 (𝜑 → (𝐴 ran ((,) ∘ 𝐹) ↔ ∀𝑧𝐴𝑚 ∈ ℕ ((1st ‘(𝐹𝑚)) < 𝑧𝑧 < (2nd ‘(𝐹𝑚)))))
133 ovolfioo 25536 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐴 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
1342, 23, 133syl2anc 593 . . . . . . 7 (𝜑 → (𝐴 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐴𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
135130, 132, 1343imtr4d 296 . . . . . 6 (𝜑 → (𝐴 ran ((,) ∘ 𝐹) → 𝐴 ran ((,) ∘ 𝐻)))
13655, 135mpd 15 . . . . 5 (𝜑𝐴 ran ((,) ∘ 𝐻))
137 oveq1 7403 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 / 2) = ((2 · 𝑚) / 2))
138137eleq1d 2848 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → ((𝑛 / 2) ∈ ℕ ↔ ((2 · 𝑚) / 2) ∈ ℕ))
139137fveq2d 6871 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐺‘(𝑛 / 2)) = (𝐺‘((2 · 𝑚) / 2)))
140 oveq1 7403 . . . . . . . . . . . . . . . 16 (𝑛 = (2 · 𝑚) → (𝑛 + 1) = ((2 · 𝑚) + 1))
141140fvoveq1d 7418 . . . . . . . . . . . . . . 15 (𝑛 = (2 · 𝑚) → (𝐹‘((𝑛 + 1) / 2)) = (𝐹‘(((2 · 𝑚) + 1) / 2)))
142138, 139, 141ifbieq12d 4510 . . . . . . . . . . . . . 14 (𝑛 = (2 · 𝑚) → if((𝑛 / 2) ∈ ℕ, (𝐺‘(𝑛 / 2)), (𝐹‘((𝑛 + 1) / 2))) = if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))))
143 fvex 6880 . . . . . . . . . . . . . . 15 (𝐺‘((2 · 𝑚) / 2)) ∈ V
144 fvex 6880 . . . . . . . . . . . . . . 15 (𝐹‘(((2 · 𝑚) + 1) / 2)) ∈ V
145143, 144ifex 4532 . . . . . . . . . . . . . 14 if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) ∈ V
146142, 22, 145fvmpt 6975 . . . . . . . . . . . . 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 2863 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((2 · 𝑚) / 2) ∈ ℕ)
149148iftrued 4489 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → if(((2 · 𝑚) / 2) ∈ ℕ, (𝐺‘((2 · 𝑚) / 2)), (𝐹‘(((2 · 𝑚) + 1) / 2))) = (𝐺‘((2 · 𝑚) / 2)))
150108fveq2d 6871 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (𝐺‘((2 · 𝑚) / 2)) = (𝐺𝑚))
151147, 149, 1503eqtrd 2802 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝐻‘(2 · 𝑚)) = (𝐺𝑚))
152 fveqeq2 6876 . . . . . . . . . . . 12 (𝑘 = (2 · 𝑚) → ((𝐻𝑘) = (𝐺𝑚) ↔ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)))
153152rspcev 3582 . . . . . . . . . . 11 (((2 · 𝑚) ∈ ℕ ∧ (𝐻‘(2 · 𝑚)) = (𝐺𝑚)) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
15498, 151, 153syl2anc 593 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚))
155 fveq2 6867 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (1st ‘(𝐻𝑘)) = (1st ‘(𝐺𝑚)))
156155breq1d 5111 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧 ↔ (1st ‘(𝐺𝑚)) < 𝑧))
157 fveq2 6867 . . . . . . . . . . . . . 14 ((𝐻𝑘) = (𝐺𝑚) → (2nd ‘(𝐻𝑘)) = (2nd ‘(𝐺𝑚)))
158157breq2d 5113 . . . . . . . . . . . . 13 ((𝐻𝑘) = (𝐺𝑚) → (𝑧 < (2nd ‘(𝐻𝑘)) ↔ 𝑧 < (2nd ‘(𝐺𝑚))))
159156, 158anbi12d 641 . . . . . . . . . . . 12 ((𝐻𝑘) = (𝐺𝑚) → (((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘))) ↔ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
160159biimprcd 252 . . . . . . . . . . 11 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ((𝐻𝑘) = (𝐺𝑚) → ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
161160reximdv 3178 . . . . . . . . . 10 (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → (∃𝑘 ∈ ℕ (𝐻𝑘) = (𝐺𝑚) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
162154, 161syl5com 31 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
163162rexlimdva 3164 . . . . . . . 8 (𝜑 → (∃𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∃𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
164163ralimdv 3177 . . . . . . 7 (𝜑 → (∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚))) → ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
165 ovolfioo 25536 . . . . . . . 8 ((𝐵 ⊆ ℝ ∧ 𝐺:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
1664, 8, 165syl2anc 593 . . . . . . 7 (𝜑 → (𝐵 ran ((,) ∘ 𝐺) ↔ ∀𝑧𝐵𝑚 ∈ ℕ ((1st ‘(𝐺𝑚)) < 𝑧𝑧 < (2nd ‘(𝐺𝑚)))))
167 ovolfioo 25536 . . . . . . . 8 ((𝐵 ⊆ ℝ ∧ 𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ))) → (𝐵 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
1684, 23, 167syl2anc 593 . . . . . . 7 (𝜑 → (𝐵 ran ((,) ∘ 𝐻) ↔ ∀𝑧𝐵𝑘 ∈ ℕ ((1st ‘(𝐻𝑘)) < 𝑧𝑧 < (2nd ‘(𝐻𝑘)))))
169164, 166, 1683imtr4d 296 . . . . . 6 (𝜑 → (𝐵 ran ((,) ∘ 𝐺) → 𝐵 ran ((,) ∘ 𝐻)))
17057, 169mpd 15 . . . . 5 (𝜑𝐵 ran ((,) ∘ 𝐻))
171136, 170unssd 4145 . . . 4 (𝜑 → (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻))
17225ovollb 25548 . . . 4 ((𝐻:ℕ⟶( ≤ ∩ (ℝ × ℝ)) ∧ (𝐴𝐵) ⊆ ran ((,) ∘ 𝐻)) → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
17323, 171, 172syl2anc 593 . . 3 (𝜑 → (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < ))
174 ovollecl 25552 . . 3 (((𝐴𝐵) ⊆ ℝ ∧ sup(ran 𝑈, ℝ*, < ) ∈ ℝ ∧ (vol*‘(𝐴𝐵)) ≤ sup(ran 𝑈, ℝ*, < )) → (vol*‘(𝐴𝐵)) ∈ ℝ)
1755, 73, 173, 174syl3anc 1392 . 2 (𝜑 → (vol*‘(𝐴𝐵)) ∈ ℝ)
17652rexrd 11243 . . . 4 (𝜑 → (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ*)
177 supxrleub 13339 . . . 4 ((ran 𝑈 ⊆ ℝ* ∧ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ∈ ℝ*) → (sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
17868, 176, 177syl2anc 593 . . 3 (𝜑 → (sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶) ↔ ∀𝑧 ∈ ran 𝑈 𝑧 ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶)))
17964, 178mpbird 259 . 2 (𝜑 → sup(ran 𝑈, ℝ*, < ) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
180175, 73, 52, 173, 179letrd 11351 1 (𝜑 → (vol*‘(𝐴𝐵)) ≤ (((vol*‘𝐴) + (vol*‘𝐵)) + 𝐶))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 399   = wceq 1561  wcel 2143  wne 2958  wral 3077  wrex 3087  cun 3903  cin 3904  wss 3905  c0 4286  ifcif 4481   cuni 4866   class class class wbr 5101  cmpt 5182   × cxp 5646  dom cdm 5648  ran crn 5649  ccom 5652   Fn wfn 6516  wf 6517  cfv 6521  (class class class)co 7396  1st c1st 7968  2nd c2nd 7969  m cmap 8808  supcsup 9384  cc 11082  cr 11083  0cc0 11084  1c1 11085   + caddc 11087   · cmul 11089  +∞cpnf 11224  *cxr 11226   < clt 11227  cle 11228  cmin 11425   / cdiv 11855  cn 12220  2c2 12282  0cn0 12491  cz 12578  cuz 12849  +crp 13003  (,)cioo 13359  [,)cico 13361  seqcseq 14024  abscabs 15271  vol*covol 25531
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1816  ax-4 1830  ax-5 1931  ax-6 1988  ax-7 2029  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5247  ax-nul 5257  ax-pow 5323  ax-pr 5391  ax-un 7718  ax-cnex 11140  ax-resscn 11141  ax-1cn 11142  ax-icn 11143  ax-addcl 11144  ax-addrcl 11145  ax-mulcl 11146  ax-mulrcl 11147  ax-mulcom 11148  ax-addass 11149  ax-mulass 11150  ax-distr 11151  ax-i2m1 11152  ax-1ne0 11153  ax-1rid 11154  ax-rnegex 11155  ax-rrecex 11156  ax-cnre 11157  ax-pre-lttri 11158  ax-pre-lttrn 11159  ax-pre-ltadd 11160  ax-pre-mulgt0 11161  ax-pre-sup 11162
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1564  df-fal 1574  df-ex 1801  df-nf 1805  df-sb 2092  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3457  df-sbc 3746  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5102  df-opab 5164  df-mpt 5183  df-tr 5209  df-id 5543  df-eprel 5548  df-po 5556  df-so 5557  df-fr 5601  df-we 5603  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-om 7847  df-1st 7970  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-er 8678  df-map 8810  df-en 8928  df-dom 8929  df-sdom 8930  df-sup 9386  df-inf 9387  df-pnf 11229  df-mnf 11230  df-xr 11231  df-ltxr 11232  df-le 11233  df-sub 11427  df-neg 11428  df-div 11856  df-nn 12221  df-2 12290  df-3 12291  df-n0 12492  df-z 12579  df-uz 12850  df-rp 13004  df-ioo 13363  df-ico 13365  df-fz 13523  df-fl 13812  df-seq 14025  df-exp 14085  df-cj 15136  df-re 15137  df-im 15138  df-sqrt 15272  df-abs 15273  df-ovol 25533
This theorem is referenced by:  ovolunlem2  25567
  Copyright terms: Public domain W3C validator