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

Theorem hoidmv1lelem1 39285
Description: The supremum of 𝑈 belongs to 𝑈. This is the last part of step (a) and the whole step (b) in the proof of Lemma 114B of [Fremlin1] p. 23. (Contributed by Glauco Siliprandi, 21-Nov-2020.)
Hypotheses
Ref Expression
hoidmv1lelem1.a (𝜑𝐴 ∈ ℝ)
hoidmv1lelem1.b (𝜑𝐵 ∈ ℝ)
hoidmv1lelem1.l (𝜑𝐴 < 𝐵)
hoidmv1lelem1.c (𝜑𝐶:ℕ⟶ℝ)
hoidmv1lelem1.d (𝜑𝐷:ℕ⟶ℝ)
hoidmv1lelem1.r (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ)
hoidmv1lelem1.u 𝑈 = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))}
hoidmv1lelem1.s 𝑆 = sup(𝑈, ℝ, < )
Assertion
Ref Expression
hoidmv1lelem1 (𝜑 → (𝑆𝑈𝐴𝑈 ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
Distinct variable groups:   𝐴,𝑗,𝑧   𝑦,𝐴   𝑥,𝐵,𝑦   𝑧,𝐵   𝑧,𝐶   𝑧,𝐷   𝑆,𝑗,𝑧   𝑈,𝑗,𝑧   𝑥,𝑈,𝑦   𝜑,𝑗,𝑧
Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐴(𝑥)   𝐵(𝑗)   𝐶(𝑥,𝑦,𝑗)   𝐷(𝑥,𝑦,𝑗)   𝑆(𝑥,𝑦)

Proof of Theorem hoidmv1lelem1
StepHypRef Expression
1 hoidmv1lelem1.s . . . . . 6 𝑆 = sup(𝑈, ℝ, < )
2 hoidmv1lelem1.a . . . . . . 7 (𝜑𝐴 ∈ ℝ)
3 hoidmv1lelem1.b . . . . . . 7 (𝜑𝐵 ∈ ℝ)
4 hoidmv1lelem1.u . . . . . . . . 9 𝑈 = {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))}
5 ssrab2 3649 . . . . . . . . 9 {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ⊆ (𝐴[,]𝐵)
64, 5eqsstri 3597 . . . . . . . 8 𝑈 ⊆ (𝐴[,]𝐵)
76a1i 11 . . . . . . 7 (𝜑𝑈 ⊆ (𝐴[,]𝐵))
82rexrd 9945 . . . . . . . . . . . 12 (𝜑𝐴 ∈ ℝ*)
93rexrd 9945 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ℝ*)
10 hoidmv1lelem1.l . . . . . . . . . . . . 13 (𝜑𝐴 < 𝐵)
112, 3, 10ltled 10036 . . . . . . . . . . . 12 (𝜑𝐴𝐵)
12 lbicc2 12115 . . . . . . . . . . . 12 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝐴𝐵) → 𝐴 ∈ (𝐴[,]𝐵))
138, 9, 11, 12syl3anc 1317 . . . . . . . . . . 11 (𝜑𝐴 ∈ (𝐴[,]𝐵))
142recnd 9924 . . . . . . . . . . . . 13 (𝜑𝐴 ∈ ℂ)
1514subidd 10231 . . . . . . . . . . . 12 (𝜑 → (𝐴𝐴) = 0)
16 nfv 1829 . . . . . . . . . . . . 13 𝑗𝜑
17 nnex 10873 . . . . . . . . . . . . . 14 ℕ ∈ V
1817a1i 11 . . . . . . . . . . . . 13 (𝜑 → ℕ ∈ V)
19 volf 23021 . . . . . . . . . . . . . . 15 vol:dom vol⟶(0[,]+∞)
2019a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ℕ) → vol:dom vol⟶(0[,]+∞))
21 hoidmv1lelem1.c . . . . . . . . . . . . . . . 16 (𝜑𝐶:ℕ⟶ℝ)
2221ffvelrnda 6252 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ)
23 hoidmv1lelem1.d . . . . . . . . . . . . . . . . . 18 (𝜑𝐷:ℕ⟶ℝ)
2423ffvelrnda 6252 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ)
252adantr 479 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 ∈ ℕ) → 𝐴 ∈ ℝ)
2624, 25ifcld 4080 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴) ∈ ℝ)
2726rexrd 9945 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴) ∈ ℝ*)
28 icombl 23056 . . . . . . . . . . . . . . 15 (((𝐶𝑗) ∈ ℝ ∧ if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴) ∈ ℝ*) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴)) ∈ dom vol)
2922, 27, 28syl2anc 690 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴)) ∈ dom vol)
3020, 29ffvelrnd 6253 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴))) ∈ (0[,]+∞))
3116, 18, 30sge0ge0mpt 39135 . . . . . . . . . . . 12 (𝜑 → 0 ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴))))))
3215, 31eqbrtrd 4599 . . . . . . . . . . 11 (𝜑 → (𝐴𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴))))))
3313, 32jca 552 . . . . . . . . . 10 (𝜑 → (𝐴 ∈ (𝐴[,]𝐵) ∧ (𝐴𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴)))))))
34 oveq1 6534 . . . . . . . . . . . 12 (𝑧 = 𝐴 → (𝑧𝐴) = (𝐴𝐴))
35 breq2 4581 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝐴 → ((𝐷𝑗) ≤ 𝑧 ↔ (𝐷𝑗) ≤ 𝐴))
36 id 22 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝐴𝑧 = 𝐴)
3735, 36ifbieq2d 4060 . . . . . . . . . . . . . . . 16 (𝑧 = 𝐴 → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴))
3837oveq2d 6543 . . . . . . . . . . . . . . 15 (𝑧 = 𝐴 → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) = ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴)))
3938fveq2d 6092 . . . . . . . . . . . . . 14 (𝑧 = 𝐴 → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) = (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴))))
4039mpteq2dv 4667 . . . . . . . . . . . . 13 (𝑧 = 𝐴 → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴)))))
4140fveq2d 6092 . . . . . . . . . . . 12 (𝑧 = 𝐴 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴))))))
4234, 41breq12d 4590 . . . . . . . . . . 11 (𝑧 = 𝐴 → ((𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ↔ (𝐴𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴)))))))
4342elrab 3330 . . . . . . . . . 10 (𝐴 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ↔ (𝐴 ∈ (𝐴[,]𝐵) ∧ (𝐴𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝐴, (𝐷𝑗), 𝐴)))))))
4433, 43sylibr 222 . . . . . . . . 9 (𝜑𝐴 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))})
4544, 4syl6eleqr 2698 . . . . . . . 8 (𝜑𝐴𝑈)
46 ne0i 3879 . . . . . . . 8 (𝐴𝑈𝑈 ≠ ∅)
4745, 46syl 17 . . . . . . 7 (𝜑𝑈 ≠ ∅)
482, 3, 7, 47supicc 12147 . . . . . 6 (𝜑 → sup(𝑈, ℝ, < ) ∈ (𝐴[,]𝐵))
491, 48syl5eqel 2691 . . . . 5 (𝜑𝑆 ∈ (𝐴[,]𝐵))
501a1i 11 . . . . . . 7 (𝜑𝑆 = sup(𝑈, ℝ, < ))
51 nfv 1829 . . . . . . . . 9 𝑧𝜑
522, 3iccssred 38378 . . . . . . . . . . . . 13 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
537, 52sstrd 3577 . . . . . . . . . . . 12 (𝜑𝑈 ⊆ ℝ)
5453sselda 3567 . . . . . . . . . . 11 ((𝜑𝑧𝑈) → 𝑧 ∈ ℝ)
55 nfv 1829 . . . . . . . . . . . . . . . 16 𝑗(𝜑𝑧𝑈)
5617a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑧𝑈) → ℕ ∈ V)
5719a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → vol:dom vol⟶(0[,]+∞))
5822adantlr 746 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ)
5924adantlr 746 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ)
6054adantr 479 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → 𝑧 ∈ ℝ)
6159, 60ifcld 4080 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ∈ ℝ)
6261rexrd 9945 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ∈ ℝ*)
63 icombl 23056 . . . . . . . . . . . . . . . . . 18 (((𝐶𝑗) ∈ ℝ ∧ if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ∈ ℝ*) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ∈ dom vol)
6458, 62, 63syl2anc 690 . . . . . . . . . . . . . . . . 17 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ∈ dom vol)
6557, 64ffvelrnd 6253 . . . . . . . . . . . . . . . 16 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) ∈ (0[,]+∞))
6655, 56, 65sge0xrclmpt 39125 . . . . . . . . . . . . . . 15 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ∈ ℝ*)
67 pnfxr 11781 . . . . . . . . . . . . . . . 16 +∞ ∈ ℝ*
6867a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝑧𝑈) → +∞ ∈ ℝ*)
69 hoidmv1lelem1.r . . . . . . . . . . . . . . . . . 18 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ)
7069rexrd 9945 . . . . . . . . . . . . . . . . 17 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ*)
7170adantr 479 . . . . . . . . . . . . . . . 16 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) ∈ ℝ*)
7224rexrd 9945 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ*)
73 icombl 23056 . . . . . . . . . . . . . . . . . . . 20 (((𝐶𝑗) ∈ ℝ ∧ (𝐷𝑗) ∈ ℝ*) → ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol)
7422, 72, 73syl2anc 690 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol)
7520, 74ffvelrnd 6253 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)(𝐷𝑗))) ∈ (0[,]+∞))
7675adantlr 746 . . . . . . . . . . . . . . . . 17 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)(𝐷𝑗))) ∈ (0[,]+∞))
7774adantlr 746 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol)
7822rexrd 9945 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ*)
7978adantlr 746 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (𝐶𝑗) ∈ ℝ*)
8072adantlr 746 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (𝐷𝑗) ∈ ℝ*)
8122leidd 10443 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑗 ∈ ℕ) → (𝐶𝑗) ≤ (𝐶𝑗))
8281adantlr 746 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (𝐶𝑗) ≤ (𝐶𝑗))
83 min1 11853 . . . . . . . . . . . . . . . . . . . 20 (((𝐷𝑗) ∈ ℝ ∧ 𝑧 ∈ ℝ) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ (𝐷𝑗))
8459, 60, 83syl2anc 690 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ (𝐷𝑗))
85 icossico 12070 . . . . . . . . . . . . . . . . . . 19 ((((𝐶𝑗) ∈ ℝ* ∧ (𝐷𝑗) ∈ ℝ*) ∧ ((𝐶𝑗) ≤ (𝐶𝑗) ∧ if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ (𝐷𝑗))) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
8679, 80, 82, 84, 85syl22anc 1318 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
87 volss 23025 . . . . . . . . . . . . . . . . . 18 ((((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ∈ dom vol ∧ ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol ∧ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗))) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
8864, 77, 86, 87syl3anc 1317 . . . . . . . . . . . . . . . . 17 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
8955, 56, 65, 76, 88sge0lempt 39107 . . . . . . . . . . . . . . . 16 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))))
9069ltpnfd 11792 . . . . . . . . . . . . . . . . 17 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) < +∞)
9190adantr 479 . . . . . . . . . . . . . . . 16 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))) < +∞)
9266, 71, 68, 89, 91xrlelttrd 11826 . . . . . . . . . . . . . . 15 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) < +∞)
9366, 68, 92xrltned 38318 . . . . . . . . . . . . . 14 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ≠ +∞)
9493neneqd 2786 . . . . . . . . . . . . 13 ((𝜑𝑧𝑈) → ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = +∞)
95 eqid 2609 . . . . . . . . . . . . . . 15 (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))
9665, 95fmptd 6277 . . . . . . . . . . . . . 14 ((𝜑𝑧𝑈) → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))):ℕ⟶(0[,]+∞))
9756, 96sge0repnf 39083 . . . . . . . . . . . . 13 ((𝜑𝑧𝑈) → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ∈ ℝ ↔ ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = +∞))
9894, 97mpbird 245 . . . . . . . . . . . 12 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ∈ ℝ)
992adantr 479 . . . . . . . . . . . 12 ((𝜑𝑧𝑈) → 𝐴 ∈ ℝ)
10098, 99readdcld 9925 . . . . . . . . . . 11 ((𝜑𝑧𝑈) → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) + 𝐴) ∈ ℝ)
10152, 49sseldd 3568 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝑆 ∈ ℝ)
102101adantr 479 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑗 ∈ ℕ) → 𝑆 ∈ ℝ)
10324, 102ifcld 4080 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ∈ ℝ)
104103rexrd 9945 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ∈ ℝ*)
105 icombl 23056 . . . . . . . . . . . . . . . . . . 19 (((𝐶𝑗) ∈ ℝ ∧ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ∈ ℝ*) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ∈ dom vol)
10622, 104, 105syl2anc 690 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ∈ dom vol)
10720, 106ffvelrnd 6253 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))) ∈ (0[,]+∞))
10816, 18, 107sge0xrclmpt 39125 . . . . . . . . . . . . . . . 16 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) ∈ ℝ*)
10967a1i 11 . . . . . . . . . . . . . . . 16 (𝜑 → +∞ ∈ ℝ*)
110 min1 11853 . . . . . . . . . . . . . . . . . . . . 21 (((𝐷𝑗) ∈ ℝ ∧ 𝑆 ∈ ℝ) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ≤ (𝐷𝑗))
11124, 102, 110syl2anc 690 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ≤ (𝐷𝑗))
112 icossico 12070 . . . . . . . . . . . . . . . . . . . 20 ((((𝐶𝑗) ∈ ℝ* ∧ (𝐷𝑗) ∈ ℝ*) ∧ ((𝐶𝑗) ≤ (𝐶𝑗) ∧ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ≤ (𝐷𝑗))) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
11378, 72, 81, 111, 112syl22anc 1318 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗)))
114 volss 23025 . . . . . . . . . . . . . . . . . . 19 ((((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ∈ dom vol ∧ ((𝐶𝑗)[,)(𝐷𝑗)) ∈ dom vol ∧ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ⊆ ((𝐶𝑗)[,)(𝐷𝑗))) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
115106, 74, 113, 114syl3anc 1317 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))) ≤ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))
11616, 18, 107, 75, 115sge0lempt 39107 . . . . . . . . . . . . . . . . 17 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)(𝐷𝑗))))))
117108, 70, 109, 116, 90xrlelttrd 11826 . . . . . . . . . . . . . . . 16 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) < +∞)
118108, 109, 117xrltned 38318 . . . . . . . . . . . . . . 15 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) ≠ +∞)
119118neneqd 2786 . . . . . . . . . . . . . 14 (𝜑 → ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) = +∞)
120 eqid 2609 . . . . . . . . . . . . . . . 16 (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))
121107, 120fmptd 6277 . . . . . . . . . . . . . . 15 (𝜑 → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))):ℕ⟶(0[,]+∞))
12218, 121sge0repnf 39083 . . . . . . . . . . . . . 14 (𝜑 → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) ∈ ℝ ↔ ¬ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) = +∞))
123119, 122mpbird 245 . . . . . . . . . . . . 13 (𝜑 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) ∈ ℝ)
124123, 2readdcld 9925 . . . . . . . . . . . 12 (𝜑 → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴) ∈ ℝ)
125124adantr 479 . . . . . . . . . . 11 ((𝜑𝑧𝑈) → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴) ∈ ℝ)
1264eleq2i 2679 . . . . . . . . . . . . . . . 16 (𝑧𝑈𝑧 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))})
127126biimpi 204 . . . . . . . . . . . . . . 15 (𝑧𝑈𝑧 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))})
128127adantl 480 . . . . . . . . . . . . . 14 ((𝜑𝑧𝑈) → 𝑧 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))})
129 rabid 3094 . . . . . . . . . . . . . 14 (𝑧 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ↔ (𝑧 ∈ (𝐴[,]𝐵) ∧ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))))
130128, 129sylib 206 . . . . . . . . . . . . 13 ((𝜑𝑧𝑈) → (𝑧 ∈ (𝐴[,]𝐵) ∧ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))))
131130simprd 477 . . . . . . . . . . . 12 ((𝜑𝑧𝑈) → (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))))
13254, 99, 98lesubaddd 10473 . . . . . . . . . . . 12 ((𝜑𝑧𝑈) → ((𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ↔ 𝑧 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) + 𝐴)))
133131, 132mpbid 220 . . . . . . . . . . 11 ((𝜑𝑧𝑈) → 𝑧 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) + 𝐴))
134123adantr 479 . . . . . . . . . . . 12 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) ∈ ℝ)
135107adantlr 746 . . . . . . . . . . . . 13 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))) ∈ (0[,]+∞))
136106adantlr 746 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ∈ dom vol)
137104adantlr 746 . . . . . . . . . . . . . . 15 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ∈ ℝ*)
13861adantr 479 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ∈ ℝ)
139 eqidd 2610 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → (𝐷𝑗) = (𝐷𝑗))
140 iftrue 4041 . . . . . . . . . . . . . . . . . . 19 ((𝐷𝑗) ≤ 𝑧 → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = (𝐷𝑗))
141140adantl 480 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = (𝐷𝑗))
14259adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → (𝐷𝑗) ∈ ℝ)
14360adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → 𝑧 ∈ ℝ)
144101ad3antrrr 761 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → 𝑆 ∈ ℝ)
145 simpr 475 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → (𝐷𝑗) ≤ 𝑧)
14653adantr 479 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑧𝑈) → 𝑈 ⊆ ℝ)
14747adantr 479 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑧𝑈) → 𝑈 ≠ ∅)
1482, 3jca 552 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
149 iccsupr 12093 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝑈 ⊆ (𝐴[,]𝐵) ∧ 𝐴𝑈) → (𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
150148, 7, 45, 149syl3anc 1317 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
151150simp3d 1067 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥)
152151adantr 479 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑧𝑈) → ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥)
153128, 126sylibr 222 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑧𝑈) → 𝑧𝑈)
154 suprub 10833 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥) ∧ 𝑧𝑈) → 𝑧 ≤ sup(𝑈, ℝ, < ))
155146, 147, 152, 153, 154syl31anc 1320 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑧𝑈) → 𝑧 ≤ sup(𝑈, ℝ, < ))
156155, 1syl6breqr 4619 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑧𝑈) → 𝑧𝑆)
157156ad2antrr 757 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → 𝑧𝑆)
158142, 143, 144, 145, 157letrd 10045 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → (𝐷𝑗) ≤ 𝑆)
159158iftrued 4043 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) = (𝐷𝑗))
160139, 141, 1593eqtr4d 2653 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))
161138, 160eqled 9991 . . . . . . . . . . . . . . . 16 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ (𝐷𝑗) ≤ 𝑧) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))
16260adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) → 𝑧 ∈ ℝ)
16359adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) → (𝐷𝑗) ∈ ℝ)
164 simpr 475 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) → ¬ (𝐷𝑗) ≤ 𝑧)
165162, 163ltnled 10035 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) → (𝑧 < (𝐷𝑗) ↔ ¬ (𝐷𝑗) ≤ 𝑧))
166164, 165mpbird 245 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) → 𝑧 < (𝐷𝑗))
167162, 163, 166ltled 10036 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) → 𝑧 ≤ (𝐷𝑗))
168167adantr 479 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ (𝐷𝑗) ≤ 𝑆) → 𝑧 ≤ (𝐷𝑗))
169 iffalse 4044 . . . . . . . . . . . . . . . . . . . 20 (¬ (𝐷𝑗) ≤ 𝑧 → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = 𝑧)
170169ad2antlr 758 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ (𝐷𝑗) ≤ 𝑆) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = 𝑧)
171 iftrue 4041 . . . . . . . . . . . . . . . . . . . 20 ((𝐷𝑗) ≤ 𝑆 → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) = (𝐷𝑗))
172171adantl 480 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ (𝐷𝑗) ≤ 𝑆) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) = (𝐷𝑗))
173170, 172breq12d 4590 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ (𝐷𝑗) ≤ 𝑆) → (if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ↔ 𝑧 ≤ (𝐷𝑗)))
174168, 173mpbird 245 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ (𝐷𝑗) ≤ 𝑆) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))
175156ad3antrrr 761 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ ¬ (𝐷𝑗) ≤ 𝑆) → 𝑧𝑆)
176169ad2antlr 758 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ ¬ (𝐷𝑗) ≤ 𝑆) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = 𝑧)
177 iffalse 4044 . . . . . . . . . . . . . . . . . . . 20 (¬ (𝐷𝑗) ≤ 𝑆 → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) = 𝑆)
178177adantl 480 . . . . . . . . . . . . . . . . . . 19 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ ¬ (𝐷𝑗) ≤ 𝑆) → if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) = 𝑆)
179176, 178breq12d 4590 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ ¬ (𝐷𝑗) ≤ 𝑆) → (if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ↔ 𝑧𝑆))
180175, 179mpbird 245 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) ∧ ¬ (𝐷𝑗) ≤ 𝑆) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))
181174, 180pm2.61dan 827 . . . . . . . . . . . . . . . 16 ((((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) ∧ ¬ (𝐷𝑗) ≤ 𝑧) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))
182161, 181pm2.61dan 827 . . . . . . . . . . . . . . 15 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))
183 icossico 12070 . . . . . . . . . . . . . . 15 ((((𝐶𝑗) ∈ ℝ* ∧ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆) ∈ ℝ*) ∧ ((𝐶𝑗) ≤ (𝐶𝑗) ∧ if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) ≤ if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ⊆ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))
18479, 137, 82, 182, 183syl22anc 1318 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ⊆ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))
185 volss 23025 . . . . . . . . . . . . . 14 ((((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ∈ dom vol ∧ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)) ∈ dom vol ∧ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) ⊆ ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) ≤ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))
18664, 136, 184, 185syl3anc 1317 . . . . . . . . . . . . 13 (((𝜑𝑧𝑈) ∧ 𝑗 ∈ ℕ) → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) ≤ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))
18755, 56, 65, 135, 186sge0lempt 39107 . . . . . . . . . . . 12 ((𝜑𝑧𝑈) → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))))
18898, 134, 99, 187leadd1dd 10490 . . . . . . . . . . 11 ((𝜑𝑧𝑈) → ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) + 𝐴) ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴))
18954, 100, 125, 133, 188letrd 10045 . . . . . . . . . 10 ((𝜑𝑧𝑈) → 𝑧 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴))
190189ex 448 . . . . . . . . 9 (𝜑 → (𝑧𝑈𝑧 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴)))
19151, 190ralrimi 2939 . . . . . . . 8 (𝜑 → ∀𝑧𝑈 𝑧 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴))
192 suprleub 10836 . . . . . . . . 9 (((𝑈 ⊆ ℝ ∧ 𝑈 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥) ∧ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴) ∈ ℝ) → (sup(𝑈, ℝ, < ) ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴) ↔ ∀𝑧𝑈 𝑧 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴)))
19353, 47, 151, 124, 192syl31anc 1320 . . . . . . . 8 (𝜑 → (sup(𝑈, ℝ, < ) ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴) ↔ ∀𝑧𝑈 𝑧 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴)))
194191, 193mpbird 245 . . . . . . 7 (𝜑 → sup(𝑈, ℝ, < ) ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴))
19550, 194eqbrtrd 4599 . . . . . 6 (𝜑𝑆 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴))
196101, 2, 123lesubaddd 10473 . . . . . 6 (𝜑 → ((𝑆𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) ↔ 𝑆 ≤ ((Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))) + 𝐴)))
197195, 196mpbird 245 . . . . 5 (𝜑 → (𝑆𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))))
19849, 197jca 552 . . . 4 (𝜑 → (𝑆 ∈ (𝐴[,]𝐵) ∧ (𝑆𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))))))
199 oveq1 6534 . . . . . 6 (𝑧 = 𝑆 → (𝑧𝐴) = (𝑆𝐴))
200 breq2 4581 . . . . . . . . . . 11 (𝑧 = 𝑆 → ((𝐷𝑗) ≤ 𝑧 ↔ (𝐷𝑗) ≤ 𝑆))
201 id 22 . . . . . . . . . . 11 (𝑧 = 𝑆𝑧 = 𝑆)
202200, 201ifbieq2d 4060 . . . . . . . . . 10 (𝑧 = 𝑆 → if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧) = if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))
203202oveq2d 6543 . . . . . . . . 9 (𝑧 = 𝑆 → ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)) = ((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))
204203fveq2d 6092 . . . . . . . 8 (𝑧 = 𝑆 → (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))) = (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))
205204mpteq2dv 4667 . . . . . . 7 (𝑧 = 𝑆 → (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))) = (𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))))
206205fveq2d 6092 . . . . . 6 (𝑧 = 𝑆 → (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) = (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆))))))
207199, 206breq12d 4590 . . . . 5 (𝑧 = 𝑆 → ((𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧))))) ↔ (𝑆𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))))))
208207elrab 3330 . . . 4 (𝑆 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))} ↔ (𝑆 ∈ (𝐴[,]𝐵) ∧ (𝑆𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑆, (𝐷𝑗), 𝑆)))))))
209198, 208sylibr 222 . . 3 (𝜑𝑆 ∈ {𝑧 ∈ (𝐴[,]𝐵) ∣ (𝑧𝐴) ≤ (Σ^‘(𝑗 ∈ ℕ ↦ (vol‘((𝐶𝑗)[,)if((𝐷𝑗) ≤ 𝑧, (𝐷𝑗), 𝑧)))))})
210209, 4syl6eleqr 2698 . 2 (𝜑𝑆𝑈)
211210, 45, 1513jca 1234 1 (𝜑 → (𝑆𝑈𝐴𝑈 ∧ ∃𝑥 ∈ ℝ ∀𝑦𝑈 𝑦𝑥))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 194  wa 382  w3a 1030   = wceq 1474  wcel 1976  wne 2779  wral 2895  wrex 2896  {crab 2899  Vcvv 3172  wss 3539  c0 3873  ifcif 4035   class class class wbr 4577  cmpt 4637  dom cdm 5028  wf 5786  cfv 5790  (class class class)co 6527  supcsup 8206  cr 9791  0cc0 9792   + caddc 9795  +∞cpnf 9927  *cxr 9929   < clt 9930  cle 9931  cmin 10117  cn 10867  [,)cico 12004  [,]cicc 12005  volcvol 22956  Σ^csumge0 39059
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1712  ax-4 1727  ax-5 1826  ax-6 1874  ax-7 1921  ax-8 1978  ax-9 1985  ax-10 2005  ax-11 2020  ax-12 2032  ax-13 2232  ax-ext 2589  ax-rep 4693  ax-sep 4703  ax-nul 4712  ax-pow 4764  ax-pr 4828  ax-un 6824  ax-inf2 8398  ax-cnex 9848  ax-resscn 9849  ax-1cn 9850  ax-icn 9851  ax-addcl 9852  ax-addrcl 9853  ax-mulcl 9854  ax-mulrcl 9855  ax-mulcom 9856  ax-addass 9857  ax-mulass 9858  ax-distr 9859  ax-i2m1 9860  ax-1ne0 9861  ax-1rid 9862  ax-rnegex 9863  ax-rrecex 9864  ax-cnre 9865  ax-pre-lttri 9866  ax-pre-lttrn 9867  ax-pre-ltadd 9868  ax-pre-mulgt0 9869  ax-pre-sup 9870
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-fal 1480  df-ex 1695  df-nf 1700  df-sb 1867  df-eu 2461  df-mo 2462  df-clab 2596  df-cleq 2602  df-clel 2605  df-nfc 2739  df-ne 2781  df-nel 2782  df-ral 2900  df-rex 2901  df-reu 2902  df-rmo 2903  df-rab 2904  df-v 3174  df-sbc 3402  df-csb 3499  df-dif 3542  df-un 3544  df-in 3546  df-ss 3553  df-pss 3555  df-nul 3874  df-if 4036  df-pw 4109  df-sn 4125  df-pr 4127  df-tp 4129  df-op 4131  df-uni 4367  df-int 4405  df-iun 4451  df-br 4578  df-opab 4638  df-mpt 4639  df-tr 4675  df-eprel 4939  df-id 4943  df-po 4949  df-so 4950  df-fr 4987  df-se 4988  df-we 4989  df-xp 5034  df-rel 5035  df-cnv 5036  df-co 5037  df-dm 5038  df-rn 5039  df-res 5040  df-ima 5041  df-pred 5583  df-ord 5629  df-on 5630  df-lim 5631  df-suc 5632  df-iota 5754  df-fun 5792  df-fn 5793  df-f 5794  df-f1 5795  df-fo 5796  df-f1o 5797  df-fv 5798  df-isom 5799  df-riota 6489  df-ov 6530  df-oprab 6531  df-mpt2 6532  df-of 6772  df-om 6935  df-1st 7036  df-2nd 7037  df-wrecs 7271  df-recs 7332  df-rdg 7370  df-1o 7424  df-2o 7425  df-oadd 7428  df-er 7606  df-map 7723  df-pm 7724  df-en 7819  df-dom 7820  df-sdom 7821  df-fin 7822  df-sup 8208  df-inf 8209  df-oi 8275  df-card 8625  df-cda 8850  df-pnf 9932  df-mnf 9933  df-xr 9934  df-ltxr 9935  df-le 9936  df-sub 10119  df-neg 10120  df-div 10534  df-nn 10868  df-2 10926  df-3 10927  df-n0 11140  df-z 11211  df-uz 11520  df-q 11621  df-rp 11665  df-xadd 11779  df-ioo 12006  df-ico 12008  df-icc 12009  df-fz 12153  df-fzo 12290  df-fl 12410  df-seq 12619  df-exp 12678  df-hash 12935  df-cj 13633  df-re 13634  df-im 13635  df-sqrt 13769  df-abs 13770  df-clim 14013  df-rlim 14014  df-sum 14211  df-xmet 19506  df-met 19507  df-ovol 22957  df-vol 22958  df-sumge0 39060
This theorem is referenced by:  hoidmv1lelem3  39287
  Copyright terms: Public domain W3C validator