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

Theorem hsphoidmvle2 47191
Description: The dimensional volume of a half-open interval intersected with a two half-spaces. Used in the last inequality of step (c) of Lemma 115B of [Fremlin1] p. 29. (Contributed by Glauco Siliprandi, 21-Nov-2020.)
Hypotheses
Ref Expression
hsphoidmvle2.l 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))))
hsphoidmvle2.x (𝜑𝑋 ∈ Fin)
hsphoidmvle2.z (𝜑𝑍 ∈ (𝑋𝑌))
hsphoidmvle2.y 𝑋 = (𝑌 ∪ {𝑍})
hsphoidmvle2.c (𝜑𝐶 ∈ ℝ)
hsphoidmvle2.d (𝜑𝐷 ∈ ℝ)
hsphoidmvle2.e (𝜑𝐶𝐷)
hsphoidmvle2.h 𝐻 = (𝑥 ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m 𝑋) ↦ (𝑗𝑋 ↦ if(𝑗𝑌, (𝑐𝑗), if((𝑐𝑗) ≤ 𝑥, (𝑐𝑗), 𝑥)))))
hsphoidmvle2.a (𝜑𝐴:𝑋⟶ℝ)
hsphoidmvle2.b (𝜑𝐵:𝑋⟶ℝ)
Assertion
Ref Expression
hsphoidmvle2 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) ≤ (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)))
Distinct variable groups:   𝐴,𝑎,𝑏,𝑘   𝐵,𝑎,𝑏,𝑘   𝐵,𝑐,𝑗,𝑘   𝐶,𝑎,𝑏,𝑘,𝑥   𝐶,𝑐,𝑗,𝑥   𝐷,𝑎,𝑏,𝑘,𝑥   𝐷,𝑐,𝑗   𝐻,𝑎,𝑏,𝑘   𝑋,𝑎,𝑏,𝑘,𝑥   𝑋,𝑐,𝑗   𝑌,𝑐,𝑗,𝑥   𝑍,𝑐,𝑗,𝑘,𝑥   𝜑,𝑎,𝑏,𝑘,𝑥   𝜑,𝑐,𝑗
Allowed substitution hints:   𝐴(𝑥,𝑗,𝑐)   𝐵(𝑥)   𝐻(𝑥,𝑗,𝑐)   𝐿(𝑥,𝑗,𝑘,𝑎,𝑏,𝑐)   𝑌(𝑘,𝑎,𝑏)   𝑍(𝑎,𝑏)

Proof of Theorem hsphoidmvle2
StepHypRef Expression
1 hsphoidmvle2.a . . . . 5 (𝜑𝐴:𝑋⟶ℝ)
2 hsphoidmvle2.z . . . . . 6 (𝜑𝑍 ∈ (𝑋𝑌))
32eldifad 3925 . . . . 5 (𝜑𝑍𝑋)
41, 3ffvelcdmd 7081 . . . 4 (𝜑 → (𝐴𝑍) ∈ ℝ)
5 hsphoidmvle2.b . . . . . 6 (𝜑𝐵:𝑋⟶ℝ)
65, 3ffvelcdmd 7081 . . . . 5 (𝜑 → (𝐵𝑍) ∈ ℝ)
7 hsphoidmvle2.c . . . . 5 (𝜑𝐶 ∈ ℝ)
86, 7ifcld 4539 . . . 4 (𝜑 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ)
9 volicore 47187 . . . 4 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ) → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ∈ ℝ)
104, 8, 9syl2anc 595 . . 3 (𝜑 → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ∈ ℝ)
11 hsphoidmvle2.d . . . . 5 (𝜑𝐷 ∈ ℝ)
126, 11ifcld 4539 . . . 4 (𝜑 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ)
13 volicore 47187 . . . 4 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ) → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) ∈ ℝ)
144, 12, 13syl2anc 595 . . 3 (𝜑 → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) ∈ ℝ)
15 hsphoidmvle2.x . . . . 5 (𝜑𝑋 ∈ Fin)
16 difssd 4099 . . . . 5 (𝜑 → (𝑋 ∖ {𝑍}) ⊆ 𝑋)
17 ssfi 9157 . . . . 5 ((𝑋 ∈ Fin ∧ (𝑋 ∖ {𝑍}) ⊆ 𝑋) → (𝑋 ∖ {𝑍}) ∈ Fin)
1815, 16, 17syl2anc 595 . . . 4 (𝜑 → (𝑋 ∖ {𝑍}) ∈ Fin)
19 eldifi 4093 . . . . . 6 (𝑘 ∈ (𝑋 ∖ {𝑍}) → 𝑘𝑋)
2019adantl 486 . . . . 5 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝑘𝑋)
211ffvelcdmda 7080 . . . . . 6 ((𝜑𝑘𝑋) → (𝐴𝑘) ∈ ℝ)
225ffvelcdmda 7080 . . . . . 6 ((𝜑𝑘𝑋) → (𝐵𝑘) ∈ ℝ)
23 volicore 47187 . . . . . 6 (((𝐴𝑘) ∈ ℝ ∧ (𝐵𝑘) ∈ ℝ) → (vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
2421, 22, 23syl2anc 595 . . . . 5 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
2520, 24syldan 602 . . . 4 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
2618, 25fprodrecl 16007 . . 3 (𝜑 → ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
27 nfv 1941 . . . 4 𝑘𝜑
2820, 21syldan 602 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (𝐴𝑘) ∈ ℝ)
2920, 22syldan 602 . . . . . . 7 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (𝐵𝑘) ∈ ℝ)
3029rexrd 11259 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (𝐵𝑘) ∈ ℝ*)
31 icombl 25692 . . . . . 6 (((𝐴𝑘) ∈ ℝ ∧ (𝐵𝑘) ∈ ℝ*) → ((𝐴𝑘)[,)(𝐵𝑘)) ∈ dom vol)
3228, 30, 31syl2anc 595 . . . . 5 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → ((𝐴𝑘)[,)(𝐵𝑘)) ∈ dom vol)
33 volge0 46567 . . . . 5 (((𝐴𝑘)[,)(𝐵𝑘)) ∈ dom vol → 0 ≤ (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
3432, 33syl 18 . . . 4 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 0 ≤ (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
3527, 18, 25, 34fprodge0 16047 . . 3 (𝜑 → 0 ≤ ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))
368rexrd 11259 . . . . 5 (𝜑 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ*)
37 icombl 25692 . . . . 5 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ*) → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ∈ dom vol)
384, 36, 37syl2anc 595 . . . 4 (𝜑 → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ∈ dom vol)
3912rexrd 11259 . . . . 5 (𝜑 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ*)
40 icombl 25692 . . . . 5 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ*) → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) ∈ dom vol)
414, 39, 40syl2anc 595 . . . 4 (𝜑 → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) ∈ dom vol)
424rexrd 11259 . . . . 5 (𝜑 → (𝐴𝑍) ∈ ℝ*)
434leidd 11780 . . . . 5 (𝜑 → (𝐴𝑍) ≤ (𝐴𝑍))
446leidd 11780 . . . . . . . 8 (𝜑 → (𝐵𝑍) ≤ (𝐵𝑍))
4544adantr 485 . . . . . . 7 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ≤ (𝐵𝑍))
46 iftrue 4498 . . . . . . . . 9 ((𝐵𝑍) ≤ 𝐶 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = (𝐵𝑍))
4746adantl 486 . . . . . . . 8 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = (𝐵𝑍))
486adantr 485 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ∈ ℝ)
497adantr 485 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → 𝐶 ∈ ℝ)
5011adantr 485 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → 𝐷 ∈ ℝ)
51 simpr 489 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ≤ 𝐶)
52 hsphoidmvle2.e . . . . . . . . . . 11 (𝜑𝐶𝐷)
5352adantr 485 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → 𝐶𝐷)
5448, 49, 50, 51, 53letrd 11367 . . . . . . . . 9 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ≤ 𝐷)
5554iftrued 4500 . . . . . . . 8 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) = (𝐵𝑍))
5647, 55breq12d 5126 . . . . . . 7 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ↔ (𝐵𝑍) ≤ (𝐵𝑍)))
5745, 56mpbird 260 . . . . . 6 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
58 simpl 487 . . . . . . . 8 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝜑)
59 simpr 489 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → ¬ (𝐵𝑍) ≤ 𝐶)
6058, 7syl 18 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝐶 ∈ ℝ)
6158, 6syl 18 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ∈ ℝ)
6260, 61ltnled 11357 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → (𝐶 < (𝐵𝑍) ↔ ¬ (𝐵𝑍) ≤ 𝐶))
6359, 62mpbird 260 . . . . . . . 8 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝐶 < (𝐵𝑍))
647adantr 485 . . . . . . . . . . . 12 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 ∈ ℝ)
656adantr 485 . . . . . . . . . . . 12 ((𝜑𝐶 < (𝐵𝑍)) → (𝐵𝑍) ∈ ℝ)
66 simpr 489 . . . . . . . . . . . 12 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 < (𝐵𝑍))
6764, 65, 66ltled 11358 . . . . . . . . . . 11 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 ≤ (𝐵𝑍))
6867adantr 485 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ (𝐵𝑍) ≤ 𝐷) → 𝐶 ≤ (𝐵𝑍))
69 iftrue 4498 . . . . . . . . . . . 12 ((𝐵𝑍) ≤ 𝐷 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) = (𝐵𝑍))
7069eqcomd 2775 . . . . . . . . . . 11 ((𝐵𝑍) ≤ 𝐷 → (𝐵𝑍) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7170adantl 486 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ (𝐵𝑍) ≤ 𝐷) → (𝐵𝑍) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7268, 71breqtrd 5141 . . . . . . . . 9 (((𝜑𝐶 < (𝐵𝑍)) ∧ (𝐵𝑍) ≤ 𝐷) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7352ad2antrr 738 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ ¬ (𝐵𝑍) ≤ 𝐷) → 𝐶𝐷)
74 iffalse 4501 . . . . . . . . . . . 12 (¬ (𝐵𝑍) ≤ 𝐷 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) = 𝐷)
7574eqcomd 2775 . . . . . . . . . . 11 (¬ (𝐵𝑍) ≤ 𝐷𝐷 = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7675adantl 486 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ ¬ (𝐵𝑍) ≤ 𝐷) → 𝐷 = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7773, 76breqtrd 5141 . . . . . . . . 9 (((𝜑𝐶 < (𝐵𝑍)) ∧ ¬ (𝐵𝑍) ≤ 𝐷) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7872, 77pm2.61dan 824 . . . . . . . 8 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7958, 63, 78syl2anc 595 . . . . . . 7 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
80 iffalse 4501 . . . . . . . . 9 (¬ (𝐵𝑍) ≤ 𝐶 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = 𝐶)
8180adantl 486 . . . . . . . 8 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = 𝐶)
8281breq1d 5123 . . . . . . 7 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → (if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ↔ 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
8379, 82mpbird 260 . . . . . 6 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
8457, 83pm2.61dan 824 . . . . 5 (𝜑 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
85 icossico 13443 . . . . 5 ((((𝐴𝑍) ∈ ℝ* ∧ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ*) ∧ ((𝐴𝑍) ≤ (𝐴𝑍) ∧ if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ⊆ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
8642, 39, 43, 84, 85syl22anc 851 . . . 4 (𝜑 → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ⊆ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
87 volss 25661 . . . 4 ((((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ∈ dom vol ∧ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) ∈ dom vol ∧ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ⊆ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ≤ (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))))
8838, 41, 86, 87syl3anc 1396 . . 3 (𝜑 → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ≤ (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))))
8910, 14, 26, 35, 88lemul1ad 12154 . 2 (𝜑 → ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))) ≤ ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
90 hsphoidmvle2.l . . . . 5 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))))
913ne0d 4303 . . . . 5 (𝜑𝑋 ≠ ∅)
92 hsphoidmvle2.h . . . . . 6 𝐻 = (𝑥 ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m 𝑋) ↦ (𝑗𝑋 ↦ if(𝑗𝑌, (𝑐𝑗), if((𝑐𝑗) ≤ 𝑥, (𝑐𝑗), 𝑥)))))
9392, 7, 15, 5hsphoif 47182 . . . . 5 (𝜑 → ((𝐻𝐶)‘𝐵):𝑋⟶ℝ)
9490, 15, 91, 1, 93hoidmvn0val 47190 . . . 4 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) = ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))))
9593ffvelcdmda 7080 . . . . . . 7 ((𝜑𝑘𝑋) → (((𝐻𝐶)‘𝐵)‘𝑘) ∈ ℝ)
96 volicore 47187 . . . . . . 7 (((𝐴𝑘) ∈ ℝ ∧ (((𝐻𝐶)‘𝐵)‘𝑘) ∈ ℝ) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) ∈ ℝ)
9721, 95, 96syl2anc 595 . . . . . 6 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) ∈ ℝ)
9897recnd 11237 . . . . 5 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) ∈ ℂ)
99 fveq2 6882 . . . . . . . . 9 (𝑘 = 𝑍 → (𝐴𝑘) = (𝐴𝑍))
100 fveq2 6882 . . . . . . . . 9 (𝑘 = 𝑍 → (((𝐻𝐶)‘𝐵)‘𝑘) = (((𝐻𝐶)‘𝐵)‘𝑍))
10199, 100oveq12d 7429 . . . . . . . 8 (𝑘 = 𝑍 → ((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)) = ((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍)))
102101fveq2d 6886 . . . . . . 7 (𝑘 = 𝑍 → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))))
103102adantl 486 . . . . . 6 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))))
10492, 7, 15, 5, 3hsphoival 47185 . . . . . . . . . 10 (𝜑 → (((𝐻𝐶)‘𝐵)‘𝑍) = if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)))
1052eldifbd 3926 . . . . . . . . . . 11 (𝜑 → ¬ 𝑍𝑌)
106105iffalsed 4503 . . . . . . . . . 10 (𝜑 → if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) = if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))
107104, 106eqtrd 2804 . . . . . . . . 9 (𝜑 → (((𝐻𝐶)‘𝐵)‘𝑍) = if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))
108107oveq2d 7427 . . . . . . . 8 (𝜑 → ((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍)) = ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)))
109108fveq2d 6886 . . . . . . 7 (𝜑 → (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))))
110109adantr 485 . . . . . 6 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))))
111103, 110eqtrd 2804 . . . . 5 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))))
11215, 98, 3, 111fprodsplit1 46201 . . . 4 (𝜑 → ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)))))
1137adantr 485 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝐶 ∈ ℝ)
11415adantr 485 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝑋 ∈ Fin)
1155adantr 485 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝐵:𝑋⟶ℝ)
11692, 113, 114, 115, 20hsphoival 47185 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐶)‘𝐵)‘𝑘) = if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐶, (𝐵𝑘), 𝐶)))
117 hsphoidmvle2.y . . . . . . . . . . . . 13 𝑋 = (𝑌 ∪ {𝑍})
11819, 117eleqtrdi 2879 . . . . . . . . . . . 12 (𝑘 ∈ (𝑋 ∖ {𝑍}) → 𝑘 ∈ (𝑌 ∪ {𝑍}))
119 eldifn 4094 . . . . . . . . . . . 12 (𝑘 ∈ (𝑋 ∖ {𝑍}) → ¬ 𝑘 ∈ {𝑍})
120 elunnel2 4117 . . . . . . . . . . . 12 ((𝑘 ∈ (𝑌 ∪ {𝑍}) ∧ ¬ 𝑘 ∈ {𝑍}) → 𝑘𝑌)
121118, 119, 120syl2anc 595 . . . . . . . . . . 11 (𝑘 ∈ (𝑋 ∖ {𝑍}) → 𝑘𝑌)
122121adantl 486 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝑘𝑌)
123122iftrued 4500 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐶, (𝐵𝑘), 𝐶)) = (𝐵𝑘))
124116, 123eqtrd 2804 . . . . . . . 8 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐶)‘𝐵)‘𝑘) = (𝐵𝑘))
125124oveq2d 7427 . . . . . . 7 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → ((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)) = ((𝐴𝑘)[,)(𝐵𝑘)))
126125fveq2d 6886 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
127126prodeq2dv 15976 . . . . 5 (𝜑 → ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))
128127oveq2d 7427 . . . 4 (𝜑 → ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)))) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
12994, 112, 1283eqtrd 2808 . . 3 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
13092, 11, 15, 5hsphoif 47182 . . . . 5 (𝜑 → ((𝐻𝐷)‘𝐵):𝑋⟶ℝ)
13190, 15, 91, 1, 130hoidmvn0val 47190 . . . 4 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)) = ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))))
132130ffvelcdmda 7080 . . . . . . 7 ((𝜑𝑘𝑋) → (((𝐻𝐷)‘𝐵)‘𝑘) ∈ ℝ)
133 volicore 47187 . . . . . . 7 (((𝐴𝑘) ∈ ℝ ∧ (((𝐻𝐷)‘𝐵)‘𝑘) ∈ ℝ) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) ∈ ℝ)
13421, 132, 133syl2anc 595 . . . . . 6 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) ∈ ℝ)
135134recnd 11237 . . . . 5 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) ∈ ℂ)
136 fveq2 6882 . . . . . . . 8 (𝑘 = 𝑍 → (((𝐻𝐷)‘𝐵)‘𝑘) = (((𝐻𝐷)‘𝐵)‘𝑍))
13799, 136oveq12d 7429 . . . . . . 7 (𝑘 = 𝑍 → ((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)) = ((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍)))
138137fveq2d 6886 . . . . . 6 (𝑘 = 𝑍 → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))))
139138adantl 486 . . . . 5 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))))
14015, 135, 3, 139fprodsplit1 46201 . . . 4 (𝜑 → ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = ((vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)))))
14192, 11, 15, 5, 3hsphoival 47185 . . . . . . . 8 (𝜑 → (((𝐻𝐷)‘𝐵)‘𝑍) = if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
142105iffalsed 4503 . . . . . . . 8 (𝜑 → if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
143141, 142eqtrd 2804 . . . . . . 7 (𝜑 → (((𝐻𝐷)‘𝐵)‘𝑍) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
144143oveq2d 7427 . . . . . 6 (𝜑 → ((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍)) = ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
145144fveq2d 6886 . . . . 5 (𝜑 → (vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))))
14611adantr 485 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝐷 ∈ ℝ)
14792, 146, 114, 115, 20hsphoival 47185 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐷)‘𝐵)‘𝑘) = if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐷, (𝐵𝑘), 𝐷)))
148122iftrued 4500 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐷, (𝐵𝑘), 𝐷)) = (𝐵𝑘))
149147, 148eqtrd 2804 . . . . . . . 8 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐷)‘𝐵)‘𝑘) = (𝐵𝑘))
150149oveq2d 7427 . . . . . . 7 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → ((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)) = ((𝐴𝑘)[,)(𝐵𝑘)))
151150fveq2d 6886 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
152151prodeq2dv 15976 . . . . 5 (𝜑 → ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))
153145, 152oveq12d 7429 . . . 4 (𝜑 → ((vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)))) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
154131, 140, 1533eqtrd 2808 . . 3 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
155129, 154breq12d 5126 . 2 (𝜑 → ((𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) ≤ (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)) ↔ ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))) ≤ ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))))
15689, 155mpbird 260 1 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) ≤ (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 400   = wceq 1567  wcel 2149  cdif 3910  cun 3911  wss 3913  c0 4294  ifcif 4492  {csn 4594   class class class wbr 5113  cmpt 5196  dom cdm 5662  wf 6533  cfv 6537  (class class class)co 7411  cmpo 7413  m cmap 8824  Fincfn 8943  cr 11099  0cc0 11100   · cmul 11105  *cxr 11242   < clt 11243  cle 11244  [,)cico 13374  cprod 15957  volcvol 25591
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-inf2 9610  ax-cnex 11156  ax-resscn 11157  ax-1cn 11158  ax-icn 11159  ax-addcl 11160  ax-addrcl 11161  ax-mulcl 11162  ax-mulrcl 11163  ax-mulcom 11164  ax-addass 11165  ax-mulass 11166  ax-distr 11167  ax-i2m1 11168  ax-1ne0 11169  ax-1rid 11170  ax-rnegex 11171  ax-rrecex 11172  ax-cnre 11173  ax-pre-lttri 11174  ax-pre-lttrn 11175  ax-pre-ltadd 11176  ax-pre-mulgt0 11177  ax-pre-sup 11178
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-se 5616  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7675  df-om 7863  df-1st 7986  df-2nd 7987  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8453  df-2o 8454  df-er 8694  df-map 8826  df-pm 8827  df-en 8944  df-dom 8945  df-sdom 8946  df-fin 8947  df-fi 9371  df-sup 9402  df-inf 9403  df-oi 9472  df-dju 9887  df-card 9925  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11443  df-neg 11444  df-div 11872  df-nn 12234  df-2 12303  df-3 12304  df-n0 12505  df-z 12592  df-uz 12863  df-q 12973  df-rp 13017  df-xneg 13137  df-xadd 13138  df-xmul 13139  df-ioo 13376  df-ico 13378  df-icc 13379  df-fz 13536  df-fzo 13683  df-fl 13825  df-seq 14038  df-exp 14098  df-hash 14367  df-cj 15150  df-re 15151  df-im 15152  df-sqrt 15286  df-abs 15287  df-clim 15539  df-rlim 15540  df-sum 15738  df-prod 15958  df-rest 17475  df-topgen 17496  df-psmet 21483  df-xmet 21484  df-met 21485  df-bl 21486  df-mopn 21487  df-top 23020  df-topon 23037  df-bases 23072  df-cmp 23513  df-ovol 25592  df-vol 25593
This theorem is referenced by:  hoidmvlelem1  47201  hoidmvlelem2  47202
  Copyright terms: Public domain W3C validator