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 47036
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 11569 . 2 (𝜑 → (𝐵𝐴) ∈ ℝ)
4 nnex 12171 . . . . . . 7 ℕ ∈ V
54a1i 11 . . . . . 6 (𝜑 → ℕ ∈ V)
6 icossicc 13380 . . . . . . . 8 (0[,)+∞) ⊆ (0[,]+∞)
7 0xr 11183 . . . . . . . . . 10 0 ∈ ℝ*
87a1i 11 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → 0 ∈ ℝ*)
9 pnfxr 11190 . . . . . . . . . 10 +∞ ∈ ℝ*
109a1i 11 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → +∞ ∈ ℝ*)
11 hoidmv1lelem3.c . . . . . . . . . . . 12 (𝜑𝐶:ℕ⟶ℝ)
1211ffvelcdmda 7025 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ)
13 hoidmv1lelem3.d . . . . . . . . . . . . 13 (𝜑𝐷:ℕ⟶ℝ)
1413ffvelcdmda 7025 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ)
151adantr 481 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ℕ) → 𝐵 ∈ ℝ)
1614, 15ifcld 4501 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ)
17 volicore 47024 . . . . . . . . . . 11 (((𝐶𝑗) ∈ ℝ ∧ if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ ℝ)
1812, 16, 17syl2anc 590 . . . . . . . . . 10 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ ℝ)
1918rexrd 11186 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ ℝ*)
2016rexrd 11186 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ*)
21 icombl 25549 . . . . . . . . . . 11 (((𝐶𝑗) ∈ ℝ ∧ if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ∈ ℝ*) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol)
2212, 20, 21syl2anc 590 . . . . . . . . . 10 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol)
23 volge0 46404 . . . . . . . . . 10 (((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol → 0 ≤ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
2422, 23syl 17 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → 0 ≤ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
2518ltpnfd 13063 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) < +∞)
268, 10, 19, 24, 25elicod 13339 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ (0[,)+∞))
276, 26sselid 3913 . . . . . . 7 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ∈ (0[,]+∞))
28 eqid 2739 . . . . . . 7 (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
2927, 28fmptd 7055 . . . . . 6 (𝜑 → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))):ℕ⟶(0[,]+∞))
305, 29sge0xrcl 46828 . . . . 5 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ∈ ℝ*)
319a1i 11 . . . . 5 (𝜑 → +∞ ∈ ℝ*)
32 hoidmv1lelem3.r . . . . . . 7 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ)
3332rexrd 11186 . . . . . 6 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ*)
34 nfv 1921 . . . . . . 7 𝑗𝜑
35 volf 25514 . . . . . . . . 9 vol:dom vol⟶(0[,]+∞)
3635a1i 11 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → vol:dom vol⟶(0[,]+∞))
3714rexrd 11186 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ*)
38 icombl 25549 . . . . . . . . 9 (((𝐶𝑗) ∈ ℝ ∧ (𝐷𝑗) ∈ ℝ*) → ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol)
3912, 37, 38syl2anc 590 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol)
4036, 39ffvelcdmd 7026 . . . . . . 7 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)(𝐷𝑗))) ∈ (0[,]+∞))
4112rexrd 11186 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ*)
4212leidd 11707 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ≤ (𝐶𝑗))
43 min1 13132 . . . . . . . . . 10 (((𝐷𝑗) ∈ ℝ ∧ 𝐵 ∈ ℝ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ≤ (𝐷𝑗))
4414, 15, 43syl2anc 590 . . . . . . . . 9 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ≤ (𝐷𝑗))
45 icossico 13360 . . . . . . . . 9 ((((𝐶𝑗) ∈ ℝ* ∧ (𝐷𝑗) ∈ ℝ*) ∧ ((𝐶𝑗) ≤ (𝐶𝑗) ∧ if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) ≤ (𝐷𝑗))) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
4641, 37, 42, 44, 45syl22anc 844 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
47 volss 25518 . . . . . . . 8 ((((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ∈ dom vol ∧ ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol ∧ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗))) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
4822, 39, 46, 47syl3anc 1379 . . . . . . 7 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
4934, 5, 27, 40, 48sge0lempt 46853 . . . . . 6 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))))
5032ltpnfd 13063 . . . . . 6 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) < +∞)
5130, 33, 31, 49, 50xrlelttrd 13102 . . . . 5 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) < +∞)
5230, 31, 51xrltned 45802 . . . 4 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ≠ +∞)
5352neneqd 2939 . . 3 (𝜑 → ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) = +∞)
545, 29sge0repnf 46829 . . 3 (𝜑 → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ∈ ℝ ↔ ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) = +∞))
5553, 54mpbird 258 . 2 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))) ∈ ℝ)
561rexrd 11186 . . . . . . 7 (𝜑𝐵 ∈ ℝ*)
572, 1iccssred 13378 . . . . . . . . 9 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
58 hoidmv1lelem3.u . . . . . . . . . . 11 𝑈 = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))}
59 ssrab2 4011 . . . . . . . . . . 11 {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ⊆ (𝐴[,]𝐵)
6058, 59eqsstri 3961 . . . . . . . . . 10 𝑈 ⊆ (𝐴[,]𝐵)
61 hoidmv1lelem3.l . . . . . . . . . . . 12 (𝜑𝐴 < 𝐵)
62 hoidmv1lelem3.s . . . . . . . . . . . 12 𝑆 = sup(𝑈, ℝ, < )
632, 1, 61, 11, 13, 32, 58, 62hoidmv1lelem1 47034 . . . . . . . . . . 11 (𝜑 → (𝑆𝑈𝐴𝑈 ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
6463simp1d 1148 . . . . . . . . . 10 (𝜑𝑆𝑈)
6560, 64sselid 3913 . . . . . . . . 9 (𝜑𝑆 ∈ (𝐴[,]𝐵))
6657, 65sseldd 3916 . . . . . . . 8 (𝜑𝑆 ∈ ℝ)
6766rexrd 11186 . . . . . . 7 (𝜑𝑆 ∈ ℝ*)
68 simpl 483 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝜑)
69 simpr 485 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐵𝑆) → ¬ 𝐵𝑆)
7068, 66syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝑆 ∈ ℝ)
7168, 1syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝐵 ∈ ℝ)
7270, 71ltnled 11284 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐵𝑆) → (𝑆 < 𝐵 ↔ ¬ 𝐵𝑆))
7369, 72mpbird 258 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐵𝑆) → 𝑆 < 𝐵)
74 hoidmv1lelem3.x . . . . . . . . . . . . 13 (𝜑 → (𝐴[,)𝐵) ⊆ 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)))
7574adantr 481 . . . . . . . . . . . 12 ((𝜑𝑆 < 𝐵) → (𝐴[,)𝐵) ⊆ 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)))
762rexrd 11186 . . . . . . . . . . . . . 14 (𝜑𝐴 ∈ ℝ*)
7776adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝐴 ∈ ℝ*)
7856adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝐵 ∈ ℝ*)
7967adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝑆 ∈ ℝ*)
8060, 57sstrid 3926 . . . . . . . . . . . . . . . 16 (𝜑𝑈 ⊆ ℝ)
8164ne0d 4270 . . . . . . . . . . . . . . . 16 (𝜑𝑈 ≠ ∅)
8263simp3d 1150 . . . . . . . . . . . . . . . 16 (𝜑 → ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥)
8363simp2d 1149 . . . . . . . . . . . . . . . 16 (𝜑𝐴𝑈)
84 suprub 12108 . . . . . . . . . . . . . . . 16 (((𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥) ∧ 𝐴𝑈) → 𝐴 ≤ sup(𝑈, ℝ, < ))
8580, 81, 82, 83, 84syl31anc 1381 . . . . . . . . . . . . . . 15 (𝜑𝐴 ≤ sup(𝑈, ℝ, < ))
8685, 62breqtrrdi 5114 . . . . . . . . . . . . . 14 (𝜑𝐴𝑆)
8786adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝐴𝑆)
88 simpr 485 . . . . . . . . . . . . 13 ((𝜑𝑆 < 𝐵) → 𝑆 < 𝐵)
8977, 78, 79, 87, 88elicod 13339 . . . . . . . . . . . 12 ((𝜑𝑆 < 𝐵) → 𝑆 ∈ (𝐴[,)𝐵))
9075, 89sseldd 3916 . . . . . . . . . . 11 ((𝜑𝑆 < 𝐵) → 𝑆 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)))
91 eliun 4925 . . . . . . . . . . 11 (𝑆 𝑗 ∈ ℕ ((𝐶𝑗)[,)(𝐷𝑗)) ↔ ∃𝑗 ∈ ℕ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)))
9290, 91sylib 219 . . . . . . . . . 10 ((𝜑𝑆 < 𝐵) → ∃𝑗 ∈ ℕ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)))
932adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐴 ∈ ℝ)
94933ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐴 ∈ ℝ)
951adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐵 ∈ ℝ)
96953ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐵 ∈ ℝ)
9711adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐶:ℕ⟶ℝ)
98973ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐶:ℕ⟶ℝ)
9913adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝐷:ℕ⟶ℝ)
100993ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐷:ℕ⟶ℝ)
101 fveq2 6827 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → (𝐶𝑖) = (𝐶𝑗))
102 fveq2 6827 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → (𝐷𝑖) = (𝐷𝑗))
103101, 102oveq12d 7374 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → ((𝐶𝑖)[,)(𝐷𝑖)) = ((𝐶𝑗)[,)(𝐷𝑗)))
104103fveq2d 6831 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 → (vol‘((𝐶𝑖)[,)(𝐷𝑖))) = (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
105104cbvmptv 5176 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
106105fveq2i 6830 . . . . . . . . . . . . . . . 16 ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) = (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗)))))
107106, 32eqeltrid 2843 . . . . . . . . . . . . . . 15 (𝜑 → (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) ∈ ℝ)
108107adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) ∈ ℝ)
1091083ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)(𝐷𝑖))))) ∈ ℝ)
110102breq1d 5082 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑗 → ((𝐷𝑖) ≤ 𝑧 ↔ (𝐷𝑗) ≤ 𝑧))
111110, 102ifbieq1d 4479 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝑗 → if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧) = if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))
112101, 111oveq12d 7374 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → ((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)) = ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))
113112fveq2d 6831 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧))) = (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))
114113cbvmptv 5176 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))
115114eqcomi 2748 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))) = (𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧))))
116115fveq2i 6830 . . . . . . . . . . . . . . . 16 ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))))
117116breq2i 5080 . . . . . . . . . . . . . . 15 ((𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ↔ (𝑧𝐴) ≤ (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧))))))
118117rabbii 3396 . . . . . . . . . . . . . 14 {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))))}
11958, 118eqtri 2762 . . . . . . . . . . . . 13 𝑈 = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑖 ∈ ℕ ↦ (vol‘((𝐶𝑖)[,)if((𝐷𝑖) ≤ 𝑧, (𝐷𝑖), 𝑧)))))}
12064adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑆 < 𝐵) → 𝑆𝑈)
1211203ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑆𝑈)
122873ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝐴𝑆)
123883ad2ant1 1139 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑆 < 𝐵)
124 simp2 1143 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑗 ∈ ℕ)
125 simp3 1144 . . . . . . . . . . . . 13 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)))
126 eqid 2739 . . . . . . . . . . . . 13 if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵) = if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)
12794, 96, 98, 100, 109, 119, 121, 122, 123, 124, 125, 126hoidmv1lelem2 47035 . . . . . . . . . . . 12 (((𝜑𝑆 < 𝐵) ∧ 𝑗 ∈ ℕ ∧ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗))) → ∃𝑢𝑈 𝑆 < 𝑢)
1281273exp 1125 . . . . . . . . . . 11 ((𝜑𝑆 < 𝐵) → (𝑗 ∈ ℕ → (𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)) → ∃𝑢𝑈 𝑆 < 𝑢)))
129128rexlimdv 3138 . . . . . . . . . 10 ((𝜑𝑆 < 𝐵) → (∃𝑗 ∈ ℕ 𝑆 ∈ ((𝐶𝑗)[,)(𝐷𝑗)) → ∃𝑢𝑈 𝑆 < 𝑢))
13092, 129mpd 15 . . . . . . . . 9 ((𝜑𝑆 < 𝐵) → ∃𝑢𝑈 𝑆 < 𝑢)
13168, 73, 130syl2anc 590 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐵𝑆) → ∃𝑢𝑈 𝑆 < 𝑢)
13257adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑢𝑈) → (𝐴[,]𝐵) ⊆ ℝ)
13360, 132sstrid 3926 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑈 ⊆ ℝ)
13481adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑈 ≠ ∅)
1352, 1jca 516 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
136135adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑈) → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
13760a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑈) → 𝑈 ⊆ (𝐴[,]𝐵))
13864adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑈) → 𝑆𝑈)
139 iccsupr 13386 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝑈 ⊆ (𝐴[,]𝐵) ∧ 𝑆𝑈) → (𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
140136, 137, 138, 139syl3anc 1379 . . . . . . . . . . . . . . 15 ((𝜑𝑢𝑈) → (𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
141140simp3d 1150 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥)
142 simpr 485 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑢𝑈)
143 suprub 12108 . . . . . . . . . . . . . 14 (((𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥) ∧ 𝑢𝑈) → 𝑢 ≤ sup(𝑈, ℝ, < ))
144133, 134, 141, 142, 143syl31anc 1381 . . . . . . . . . . . . 13 ((𝜑𝑢𝑈) → 𝑢 ≤ sup(𝑈, ℝ, < ))
145144, 62breqtrrdi 5114 . . . . . . . . . . . 12 ((𝜑𝑢𝑈) → 𝑢𝑆)
146145ralrimiva 3131 . . . . . . . . . . 11 (𝜑 → ∀𝑢𝑈 𝑢𝑆)
14760sseli 3911 . . . . . . . . . . . . . . 15 (𝑢𝑈𝑢 ∈ (𝐴[,]𝐵))
148147adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑢𝑈) → 𝑢 ∈ (𝐴[,]𝐵))
149132, 148sseldd 3916 . . . . . . . . . . . . 13 ((𝜑𝑢𝑈) → 𝑢 ∈ ℝ)
15066adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑢𝑈) → 𝑆 ∈ ℝ)
151149, 150lenltd 11283 . . . . . . . . . . . 12 ((𝜑𝑢𝑈) → (𝑢𝑆 ↔ ¬ 𝑆 < 𝑢))
152151ralbidva 3160 . . . . . . . . . . 11 (𝜑 → (∀𝑢𝑈 𝑢𝑆 ↔ ∀𝑢𝑈 ¬ 𝑆 < 𝑢))
153146, 152mpbid 233 . . . . . . . . . 10 (𝜑 → ∀𝑢𝑈 ¬ 𝑆 < 𝑢)
154 ralnex 3065 . . . . . . . . . 10 (∀𝑢𝑈 ¬ 𝑆 < 𝑢 ↔ ¬ ∃𝑢𝑈 𝑆 < 𝑢)
155153, 154sylib 219 . . . . . . . . 9 (𝜑 → ¬ ∃𝑢𝑈 𝑆 < 𝑢)
156155adantr 481 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐵𝑆) → ¬ ∃𝑢𝑈 𝑆 < 𝑢)
157131, 156condan 823 . . . . . . 7 (𝜑𝐵𝑆)
158 iccleub 13345 . . . . . . . 8 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑆 ∈ (𝐴[,]𝐵)) → 𝑆𝐵)
15976, 56, 65, 158syl3anc 1379 . . . . . . 7 (𝜑𝑆𝐵)
16056, 67, 157, 159xrletrid 13097 . . . . . 6 (𝜑𝐵 = 𝑆)
161160, 64eqeltrd 2839 . . . . 5 (𝜑𝐵𝑈)
162161, 58eleqtrdi 2849 . . . 4 (𝜑𝐵 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))})
163 oveq1 7363 . . . . . 6 (𝑧 = 𝐵 → (𝑧𝐴) = (𝐵𝐴))
164 breq2 5076 . . . . . . . . . . 11 (𝑧 = 𝐵 → ((𝐷𝑗) ≤ 𝑧 ↔ (𝐷𝑗) ≤ 𝐵))
165 id 22 . . . . . . . . . . 11 (𝑧 = 𝐵𝑧 = 𝐵)
166164, 165ifbieq2d 4481 . . . . . . . . . 10 (𝑧 = 𝐵 → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))
167166oveq2d 7372 . . . . . . . . 9 (𝑧 = 𝐵 → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) = ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))
168167fveq2d 6831 . . . . . . . 8 (𝑧 = 𝐵 → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) = (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))
169168mpteq2dv 5166 . . . . . . 7 (𝑧 = 𝐵 → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))
170169fveq2d 6831 . . . . . 6 (𝑧 = 𝐵 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))))
171163, 170breq12d 5085 . . . . 5 (𝑧 = 𝐵 → ((𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ↔ (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))))
172171elrab 3629 . . . 4 (𝐵 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ↔ (𝐵 ∈ (𝐴[,]𝐵) ∧ (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))))
173162, 172sylib 219 . . 3 (𝜑 → (𝐵 ∈ (𝐴[,]𝐵) ∧ (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵)))))))
174173simprd 496 . 2 (𝜑 → (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐵, (𝐷𝑗), 𝐵))))))
1753, 55, 32, 174, 49letrd 11294 1 (𝜑 → (𝐵𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1092   = wceq 1547  wcel 2119  wne 2934  wral 3053  wrex 3063  {crab 3391  Vcvv 3431  wss 3883  c0 4261  ifcif 4454   ciun 4921   class class class wbr 5072  cmpt 5153  dom cdm 5618  wf 6481  cfv 6485  (class class class)co 7356  supcsup 9343  cr 11028  0cc0 11029  +∞cpnf 11167  *cxr 11169   < clt 11170  cle 11171  cmin 11368  cn 12165  [,)cico 13291  [,]cicc 13292  volcvol 25448  Σ^csumge0 46805
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-inf2 9553  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-isom 6494  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8633  df-map 8765  df-pm 8766  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fi 9314  df-sup 9345  df-inf 9346  df-oi 9415  df-dju 9816  df-card 9854  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-2 12235  df-3 12236  df-n0 12429  df-z 12516  df-uz 12780  df-q 12890  df-rp 12934  df-xneg 13054  df-xadd 13055  df-xmul 13056  df-ioo 13293  df-ico 13295  df-icc 13296  df-fz 13453  df-fzo 13600  df-fl 13742  df-seq 13955  df-exp 14015  df-hash 14284  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-clim 15441  df-rlim 15442  df-sum 15640  df-rest 17376  df-topgen 17397  df-psmet 21339  df-xmet 21340  df-met 21341  df-bl 21342  df-mopn 21343  df-top 22877  df-topon 22894  df-bases 22929  df-cmp 23370  df-ovol 25449  df-vol 25450  df-sumge0 46806
This theorem is referenced by:  hoidmv1le  47037
  Copyright terms: Public domain W3C validator