Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  hoidmv1lelem3 Structured version   Visualization version   GIF version

Theorem hoidmv1lelem3 46951
Description: The dimensional volume of a 1-dimensional half-open interval is less than or equal the generalized sum of the dimensional volumes of countable half-open intervals that cover it. This is the nonempty, finite generalized sum, sub case in Lemma 114B of [Fremlin1] p. 23. (Contributed by Glauco Siliprandi, 21-Nov-2020.)
Hypotheses
Ref Expression
hoidmv1lelem3.a (𝜑𝐴 ∈ ℝ)
hoidmv1lelem3.b (𝜑𝐵 ∈ ℝ)
hoidmv1lelem3.l (𝜑𝐴 < 𝐵)
hoidmv1lelem3.c (𝜑𝐶:ℕ⟶ℝ)
hoidmv1lelem3.d (𝜑𝐷:ℕ⟶ℝ)
hoidmv1lelem3.x (𝜑 → (𝐴[,)𝐵) ⊆ 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)))
hoidmv1lelem3.r (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ)
hoidmv1lelem3.u 𝑈 = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))}
hoidmv1lelem3.s 𝑆 = sup(𝑈, ℝ, < )
Assertion
Ref Expression
hoidmv1lelem3 (𝜑 → (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))))
Distinct variable groups:   𝐴,𝑗,𝑧   𝐵,𝑗,𝑧   𝐶,𝑗,𝑧   𝐷,𝑗,𝑧   𝑆,𝑗,𝑧   𝑈,𝑗,𝑧   𝜑,𝑗,𝑧

Proof of Theorem hoidmv1lelem3
Dummy variables 𝑦 𝑖 𝑢 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hoidmv1lelem3.b . . 3 (𝜑𝐵 ∈ ℝ)
2 hoidmv1lelem3.a . . 3 (𝜑𝐴 ∈ ℝ)
31, 2resubcld 11577 . 2 (𝜑 → (𝐵𝐴) ∈ ℝ)
4 nnex 12163 . . . . . . 7 ℕ ∈ V
54a1i 11 . . . . . 6 (𝜑 → ℕ ∈ V)
6 icossicc 13364 . . . . . . . 8 (0[,)+∞) ⊆ (0[,]+∞)
7 0xr 11191 . . . . . . . . . 10 0 ∈ ℝ*
87a1i 11 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → 0 ∈ ℝ*)
9 pnfxr 11198 . . . . . . . . . 10 +∞ ∈ ℝ*
109a1i 11 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → +∞ ∈ ℝ*)
11 hoidmv1lelem3.c . . . . . . . . . . . 12 (𝜑𝐶:ℕ⟶ℝ)
1211ffvelcdmda 7038 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ)
13 hoidmv1lelem3.d . . . . . . . . . . . . 13 (𝜑𝐷:ℕ⟶ℝ)
1413ffvelcdmda 7038 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ)
151adantr 480 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ℕ) → 𝐵 ∈ ℝ)
1614, 15ifcld 4528 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ)
17 volicore 46939 . . . . . . . . . . 11 (((𝐶𝑗) ∈ ℝ ∧ if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ ℝ)
1812, 16, 17syl2anc 585 . . . . . . . . . 10 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ ℝ)
1918rexrd 11194 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ ℝ*)
2016rexrd 11194 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ*)
21 icombl 25533 . . . . . . . . . . 11 (((𝐶𝑗) ∈ ℝ ∧ if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ*) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol)
2212, 20, 21syl2anc 585 . . . . . . . . . 10 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol)
23 volge0 46319 . . . . . . . . . 10 (((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol → 0 ≤ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
2422, 23syl 17 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → 0 ≤ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
2518ltpnfd 13047 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) < +∞)
268, 10, 19, 24, 25elicod 13323 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ (0[,)+∞))
276, 26sselid 3933 . . . . . . 7 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ (0[,]+∞))
28 eqid 2737 . . . . . . 7 (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
2927, 28fmptd 7068 . . . . . 6 (𝜑 → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))):ℕ⟶(0[,]+∞))
305, 29sge0xrcl 46743 . . . . 5 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ∈ ℝ*)
319a1i 11 . . . . 5 (𝜑 → +∞ ∈ ℝ*)
32 hoidmv1lelem3.r . . . . . . 7 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ)
3332rexrd 11194 . . . . . 6 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ*)
34 nfv 1916 . . . . . . 7 𝑗𝜑
35 volf 25498 . . . . . . . . 9 vol:dom vol⟶(0[,]+∞)
3635a1i 11 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → vol:dom vol⟶(0[,]+∞))
3714rexrd 11194 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ*)
38 icombl 25533 . . . . . . . . 9 (((𝐶𝑗) ∈ ℝ ∧ (𝐷𝑗) ∈ ℝ*) → ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol)
3912, 37, 38syl2anc 585 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol)
4036, 39ffvelcdmd 7039 . . . . . . 7 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)(𝐷𝑗))) ∈ (0[,]+∞))
4112rexrd 11194 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ*)
4212leidd 11715 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ≤ (𝐶𝑗))
43 min1 13116 . . . . . . . . . 10 (((𝐷𝑗) ∈ ℝ ∧ 𝐵 ∈ ℝ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ≤ (𝐷𝑗))
4414, 15, 43syl2anc 585 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ≤ (𝐷𝑗))
45 icossico 13344 . . . . . . . . 9 ((((𝐶𝑗) ∈ ℝ* ∧ (𝐷𝑗) ∈ ℝ*) ∧ ((𝐶𝑗) ≤ (𝐶𝑗) ∧ if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ≤ (𝐷𝑗))) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
4641, 37, 42, 44, 45syl22anc 839 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
47 volss 25502 . . . . . . . 8 ((((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol ∧ ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol ∧ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗))) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
4822, 39, 46, 47syl3anc 1374 . . . . . . 7 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
4934, 5, 27, 40, 48sge0lempt 46768 . . . . . 6 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))))
5032ltpnfd 13047 . . . . . 6 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) < +∞)
5130, 33, 31, 49, 50xrlelttrd 13086 . . . . 5 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) < +∞)
5230, 31, 51xrltned 45716 . . . 4 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ≠ +∞)
5352neneqd 2938 . . 3 (𝜑 → ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) = +∞)
545, 29sge0repnf 46744 . . 3 (𝜑 → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ∈ ℝ ↔ ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) = +∞))
5553, 54mpbird 257 . 2 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ∈ ℝ)
561rexrd 11194 . . . . . . 7 (𝜑𝐵 ∈ ℝ*)
572, 1iccssred 13362 . . . . . . . . 9 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
58 hoidmv1lelem3.u . . . . . . . . . . 11 𝑈 = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))}
59 ssrab2 4034 . . . . . . . . . . 11 {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ⊆ (𝐴[,]𝐵)
6058, 59eqsstri 3982 . . . . . . . . . 10 𝑈 ⊆ (𝐴[,]𝐵)
61 hoidmv1lelem3.l . . . . . . . . . . . 12 (𝜑𝐴 < 𝐵)
62 hoidmv1lelem3.s . . . . . . . . . . . 12 𝑆 = sup(𝑈, ℝ, < )
632, 1, 61, 11, 13, 32, 58, 62hoidmv1lelem1 46949 . . . . . . . . . . 11 (𝜑 → (𝑆𝑈𝐴𝑈 ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
6463simp1d 1143 . . . . . . . . . 10 (𝜑𝑆𝑈)
6560, 64sselid 3933 . . . . . . . . 9 (𝜑𝑆 ∈ (𝐴[,]𝐵))
6657, 65sseldd 3936 . . . . . . . 8 (𝜑𝑆 ∈ ℝ)
6766rexrd 11194 . . . . . . 7 (𝜑𝑆 ∈ ℝ*)
68 simpl 482 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝜑)
69 simpr 484 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐵𝑆) → ¬ 𝐵𝑆)
7068, 66syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝑆 ∈ ℝ)
7168, 1syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝐵 ∈ ℝ)
7270, 71ltnled 11292 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐵𝑆) → (𝑆 < 𝐵 ↔ ¬ 𝐵𝑆))
7369, 72mpbird 257 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝑆 < 𝐵)
74 hoidmv1lelem3.x . . . . . . . . . . . . 13 (𝜑 → (𝐴[,)𝐵) ⊆ 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)))
7574adantr 480 . . . . . . . . . . . 12 ((𝜑𝑆 < 𝐵) → (𝐴[,)𝐵) ⊆ 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)))
762rexrd 11194 . . . . . . . . . . . . . 14 (𝜑𝐴 ∈ ℝ*)
7776adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝐴 ∈ ℝ*)
7856adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝐵 ∈ ℝ*)
7967adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝑆 ∈ ℝ*)
8060, 57sstrid 3947 . . . . . . . . . . . . . . . 16 (𝜑𝑈 ⊆ ℝ)
8164ne0d 4296 . . . . . . . . . . . . . . . 16 (𝜑𝑈 ≠ ∅)
8263simp3d 1145 . . . . . . . . . . . . . . . 16 (𝜑 → ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥)
8363simp2d 1144 . . . . . . . . . . . . . . . 16 (𝜑𝐴𝑈)
84 suprub 12115 . . . . . . . . . . . . . . . 16 (((𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥) ∧ 𝐴𝑈) → 𝐴 ≤ sup(𝑈, ℝ, < ))
8580, 81, 82, 83, 84syl31anc 1376 . . . . . . . . . . . . . . 15 (𝜑𝐴 ≤ sup(𝑈, ℝ, < ))
8685, 62breqtrrdi 5142 . . . . . . . . . . . . . 14 (𝜑𝐴𝑆)
8786adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝐴𝑆)
88 simpr 484 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝑆 < 𝐵)
8977, 78, 79, 87, 88elicod 13323 . . . . . . . . . . . 12 ((𝜑𝑆 < 𝐵) → 𝑆 ∈ (𝐴[,)𝐵))
9075, 89sseldd 3936 . . . . . . . . . . 11 ((𝜑𝑆 < 𝐵) → 𝑆 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)))
91 eliun 4952 . . . . . . . . . . 11 (𝑆 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)) ↔ ∃𝑗 ∈ ℕ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)))
9290, 91sylib 218 . . . . . . . . . 10 ((𝜑𝑆 < 𝐵) → ∃𝑗 ∈ ℕ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)))
932adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐴 ∈ ℝ)
94933ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐴 ∈ ℝ)
951adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐵 ∈ ℝ)
96953ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐵 ∈ ℝ)
9711adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐶:ℕ⟶ℝ)
98973ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐶:ℕ⟶ℝ)
9913adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐷:ℕ⟶ℝ)
100993ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐷:ℕ⟶ℝ)
101 fveq2 6842 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → (𝐶𝑖) = (𝐶𝑗))
102 fveq2 6842 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → (𝐷𝑖) = (𝐷𝑗))
103101, 102oveq12d 7386 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → ((𝐶𝑖)[,)(𝐷𝑖)) = ((𝐶𝑗)[,)(𝐷𝑗)))
104103fveq2d 6846 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 → (vol‘((𝐶𝑖)[,)(𝐷𝑖))) = (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
105104cbvmptv 5204 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
106105fveq2i 6845 . . . . . . . . . . . . . . . 16 ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) = (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗)))))
107106, 32eqeltrid 2841 . . . . . . . . . . . . . . 15 (𝜑 → (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) ∈ ℝ)
108107adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) ∈ ℝ)
1091083ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) ∈ ℝ)
110102breq1d 5110 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑗 → ((𝐷𝑖) ≤ 𝑧 ↔ (𝐷𝑗) ≤ 𝑧))
111110, 102ifbieq1d 4506 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝑗 → if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧) = if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))
112101, 111oveq12d 7386 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → ((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)) = ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))
113112fveq2d 6846 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧))) = (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))
114113cbvmptv 5204 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))
115114eqcomi 2746 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))) = (𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧))))
116115fveq2i 6845 . . . . . . . . . . . . . . . 16 ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))))
117116breq2i 5108 . . . . . . . . . . . . . . 15 ((𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ↔ (𝑧𝐴) ≤ (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧))))))
118117rabbii 3406 . . . . . . . . . . . . . 14 {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))))}
11958, 118eqtri 2760 . . . . . . . . . . . . 13 𝑈 = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))))}
12064adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝑆𝑈)
1211203ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑆𝑈)
122873ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐴𝑆)
123883ad2ant1 1134 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑆 < 𝐵)
124 simp2 1138 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑗 ∈ ℕ)
125 simp3 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)))
126 eqid 2737 . . . . . . . . . . . . 13 if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) = if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)
12794, 96, 98, 100, 109, 119, 121, 122, 123, 124, 125, 126hoidmv1lelem2 46950 . . . . . . . . . . . 12 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → ∃𝑢𝑈 𝑆 < 𝑢)
1281273exp 1120 . . . . . . . . . . 11 ((𝜑𝑆 < 𝐵) → (𝑗 ∈ ℕ → (𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)) → ∃𝑢𝑈 𝑆 < 𝑢)))
129128rexlimdv 3137 . . . . . . . . . 10 ((𝜑𝑆 < 𝐵) → (∃𝑗 ∈ ℕ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)) → ∃𝑢𝑈 𝑆 < 𝑢))
13092, 129mpd 15 . . . . . . . . 9 ((𝜑𝑆 < 𝐵) → ∃𝑢𝑈 𝑆 < 𝑢)
13168, 73, 130syl2anc 585 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐵𝑆) → ∃𝑢𝑈 𝑆 < 𝑢)
13257adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑢𝑈) → (𝐴[,]𝐵) ⊆ ℝ)
13360, 132sstrid 3947 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑈 ⊆ ℝ)
13481adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑈 ≠ ∅)
1352, 1jca 511 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
136135adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑈) → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
13760a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑈) → 𝑈 ⊆ (𝐴[,]𝐵))
13864adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑈) → 𝑆𝑈)
139 iccsupr 13370 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝑈 ⊆ (𝐴[,]𝐵) ∧ 𝑆𝑈) → (𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
140136, 137, 138, 139syl3anc 1374 . . . . . . . . . . . . . . 15 ((𝜑𝑢𝑈) → (𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
141140simp3d 1145 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥)
142 simpr 484 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑢𝑈)
143 suprub 12115 . . . . . . . . . . . . . 14 (((𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥) ∧ 𝑢𝑈) → 𝑢 ≤ sup(𝑈, ℝ, < ))
144133, 134, 141, 142, 143syl31anc 1376 . . . . . . . . . . . . 13 ((𝜑𝑢𝑈) → 𝑢 ≤ sup(𝑈, ℝ, < ))
145144, 62breqtrrdi 5142 . . . . . . . . . . . 12 ((𝜑𝑢𝑈) → 𝑢𝑆)
146145ralrimiva 3130 . . . . . . . . . . 11 (𝜑 → ∀𝑢𝑈 𝑢𝑆)
14760sseli 3931 . . . . . . . . . . . . . . 15 (𝑢𝑈𝑢 ∈ (𝐴[,]𝐵))
148147adantl 481 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑢 ∈ (𝐴[,]𝐵))
149132, 148sseldd 3936 . . . . . . . . . . . . 13 ((𝜑𝑢𝑈) → 𝑢 ∈ ℝ)
15066adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑢𝑈) → 𝑆 ∈ ℝ)
151149, 150lenltd 11291 . . . . . . . . . . . 12 ((𝜑𝑢𝑈) → (𝑢𝑆 ↔ ¬ 𝑆 < 𝑢))
152151ralbidva 3159 . . . . . . . . . . 11 (𝜑 → (∀𝑢𝑈 𝑢𝑆 ↔ ∀𝑢𝑈 ¬ 𝑆 < 𝑢))
153146, 152mpbid 232 . . . . . . . . . 10 (𝜑 → ∀𝑢𝑈 ¬ 𝑆 < 𝑢)
154 ralnex 3064 . . . . . . . . . 10 (∀𝑢𝑈 ¬ 𝑆 < 𝑢 ↔ ¬ ∃𝑢𝑈 𝑆 < 𝑢)
155153, 154sylib 218 . . . . . . . . 9 (𝜑 → ¬ ∃𝑢𝑈 𝑆 < 𝑢)
156155adantr 480 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐵𝑆) → ¬ ∃𝑢𝑈 𝑆 < 𝑢)
157131, 156condan 818 . . . . . . 7 (𝜑𝐵𝑆)
158 iccleub 13329 . . . . . . . 8 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑆 ∈ (𝐴[,]𝐵)) → 𝑆𝐵)
15976, 56, 65, 158syl3anc 1374 . . . . . . 7 (𝜑𝑆𝐵)
16056, 67, 157, 159xrletrid 13081 . . . . . 6 (𝜑𝐵 = 𝑆)
161160, 64eqeltrd 2837 . . . . 5 (𝜑𝐵𝑈)
162161, 58eleqtrdi 2847 . . . 4 (𝜑𝐵 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))})
163 oveq1 7375 . . . . . 6 (𝑧 = 𝐵 → (𝑧𝐴) = (𝐵𝐴))
164 breq2 5104 . . . . . . . . . . 11 (𝑧 = 𝐵 → ((𝐷𝑗) ≤ 𝑧 ↔ (𝐷𝑗) ≤ 𝐵))
165 id 22 . . . . . . . . . . 11 (𝑧 = 𝐵𝑧 = 𝐵)
166164, 165ifbieq2d 4508 . . . . . . . . . 10 (𝑧 = 𝐵 → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))
167166oveq2d 7384 . . . . . . . . 9 (𝑧 = 𝐵 → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) = ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))
168167fveq2d 6846 . . . . . . . 8 (𝑧 = 𝐵 → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) = (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
169168mpteq2dv 5194 . . . . . . 7 (𝑧 = 𝐵 → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))
170169fveq2d 6846 . . . . . 6 (𝑧 = 𝐵 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))))
171163, 170breq12d 5113 . . . . 5 (𝑧 = 𝐵 → ((𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ↔ (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))))
172171elrab 3648 . . . 4 (𝐵 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ↔ (𝐵 ∈ (𝐴[,]𝐵) ∧ (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))))
173162, 172sylib 218 . . 3 (𝜑 → (𝐵 ∈ (𝐴[,]𝐵) ∧ (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))))
174173simprd 495 . 2 (𝜑 → (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))))
1753, 55, 32, 174, 49letrd 11302 1 (𝜑 → (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1087   = wceq 1542  wcel 2114  wne 2933  wral 3052  wrex 3062  {crab 3401  Vcvv 3442  wss 3903  c0 4287  ifcif 4481   ciun 4948   class class class wbr 5100  cmpt 5181  dom cdm 5632  wf 6496  cfv 6500  (class class class)co 7368  supcsup 9355  cr 11037  0cc0 11038  +∞cpnf 11175  *cxr 11177   < clt 11178  cle 11179  cmin 11376  cn 12157  [,)cico 13275  [,]cicc 13276  volcvol 25432  Σ^csumge0 46720
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-inf2 9562  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-se 5586  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-of 7632  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-2o 8408  df-er 8645  df-map 8777  df-pm 8778  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-fi 9326  df-sup 9357  df-inf 9358  df-oi 9427  df-dju 9825  df-card 9863  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-div 11807  df-nn 12158  df-2 12220  df-3 12221  df-n0 12414  df-z 12501  df-uz 12764  df-q 12874  df-rp 12918  df-xneg 13038  df-xadd 13039  df-xmul 13040  df-ioo 13277  df-ico 13279  df-icc 13280  df-fz 13436  df-fzo 13583  df-fl 13724  df-seq 13937  df-exp 13997  df-hash 14266  df-cj 15034  df-re 15035  df-im 15036  df-sqrt 15170  df-abs 15171  df-clim 15423  df-rlim 15424  df-sum 15622  df-rest 17354  df-topgen 17375  df-psmet 21313  df-xmet 21314  df-met 21315  df-bl 21316  df-mopn 21317  df-top 22850  df-topon 22867  df-bases 22902  df-cmp 23343  df-ovol 25433  df-vol 25434  df-sumge0 46721
This theorem is referenced by:  hoidmv1le  46952
  Copyright terms: Public domain W3C validator