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 46570
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 3915 . . . . 5 (𝜑𝑍𝑋)
41, 3ffvelcdmd 7019 . . . 4 (𝜑 → (𝐴𝑍) ∈ ℝ)
5 hsphoidmvle2.b . . . . . 6 (𝜑𝐵:𝑋⟶ℝ)
65, 3ffvelcdmd 7019 . . . . 5 (𝜑 → (𝐵𝑍) ∈ ℝ)
7 hsphoidmvle2.c . . . . 5 (𝜑𝐶 ∈ ℝ)
86, 7ifcld 4523 . . . 4 (𝜑 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ)
9 volicore 46566 . . . 4 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ) → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ∈ ℝ)
104, 8, 9syl2anc 584 . . 3 (𝜑 → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ∈ ℝ)
11 hsphoidmvle2.d . . . . 5 (𝜑𝐷 ∈ ℝ)
126, 11ifcld 4523 . . . 4 (𝜑 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ)
13 volicore 46566 . . . 4 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ) → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) ∈ ℝ)
144, 12, 13syl2anc 584 . . 3 (𝜑 → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) ∈ ℝ)
15 hsphoidmvle2.x . . . . 5 (𝜑𝑋 ∈ Fin)
16 difssd 4088 . . . . 5 (𝜑 → (𝑋 ∖ {𝑍}) ⊆ 𝑋)
17 ssfi 9087 . . . . 5 ((𝑋 ∈ Fin ∧ (𝑋 ∖ {𝑍}) ⊆ 𝑋) → (𝑋 ∖ {𝑍}) ∈ Fin)
1815, 16, 17syl2anc 584 . . . 4 (𝜑 → (𝑋 ∖ {𝑍}) ∈ Fin)
19 eldifi 4082 . . . . . 6 (𝑘 ∈ (𝑋 ∖ {𝑍}) → 𝑘𝑋)
2019adantl 481 . . . . 5 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝑘𝑋)
211ffvelcdmda 7018 . . . . . 6 ((𝜑𝑘𝑋) → (𝐴𝑘) ∈ ℝ)
225ffvelcdmda 7018 . . . . . 6 ((𝜑𝑘𝑋) → (𝐵𝑘) ∈ ℝ)
23 volicore 46566 . . . . . 6 (((𝐴𝑘) ∈ ℝ ∧ (𝐵𝑘) ∈ ℝ) → (vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
2421, 22, 23syl2anc 584 . . . . 5 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
2520, 24syldan 591 . . . 4 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
2618, 25fprodrecl 15860 . . 3 (𝜑 → ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))) ∈ ℝ)
27 nfv 1914 . . . 4 𝑘𝜑
2820, 21syldan 591 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (𝐴𝑘) ∈ ℝ)
2920, 22syldan 591 . . . . . . 7 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (𝐵𝑘) ∈ ℝ)
3029rexrd 11165 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (𝐵𝑘) ∈ ℝ*)
31 icombl 25463 . . . . . 6 (((𝐴𝑘) ∈ ℝ ∧ (𝐵𝑘) ∈ ℝ*) → ((𝐴𝑘)[,)(𝐵𝑘)) ∈ dom vol)
3228, 30, 31syl2anc 584 . . . . 5 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → ((𝐴𝑘)[,)(𝐵𝑘)) ∈ dom vol)
33 volge0 45946 . . . . 5 (((𝐴𝑘)[,)(𝐵𝑘)) ∈ dom vol → 0 ≤ (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
3432, 33syl 17 . . . 4 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 0 ≤ (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
3527, 18, 25, 34fprodge0 15900 . . 3 (𝜑 → 0 ≤ ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))
368rexrd 11165 . . . . 5 (𝜑 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ*)
37 icombl 25463 . . . . 5 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ∈ ℝ*) → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ∈ dom vol)
384, 36, 37syl2anc 584 . . . 4 (𝜑 → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ∈ dom vol)
3912rexrd 11165 . . . . 5 (𝜑 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ*)
40 icombl 25463 . . . . 5 (((𝐴𝑍) ∈ ℝ ∧ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ*) → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) ∈ dom vol)
414, 39, 40syl2anc 584 . . . 4 (𝜑 → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) ∈ dom vol)
424rexrd 11165 . . . . 5 (𝜑 → (𝐴𝑍) ∈ ℝ*)
434leidd 11686 . . . . 5 (𝜑 → (𝐴𝑍) ≤ (𝐴𝑍))
446leidd 11686 . . . . . . . 8 (𝜑 → (𝐵𝑍) ≤ (𝐵𝑍))
4544adantr 480 . . . . . . 7 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ≤ (𝐵𝑍))
46 iftrue 4482 . . . . . . . . 9 ((𝐵𝑍) ≤ 𝐶 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = (𝐵𝑍))
4746adantl 481 . . . . . . . 8 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = (𝐵𝑍))
486adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ∈ ℝ)
497adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → 𝐶 ∈ ℝ)
5011adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → 𝐷 ∈ ℝ)
51 simpr 484 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ≤ 𝐶)
52 hsphoidmvle2.e . . . . . . . . . . 11 (𝜑𝐶𝐷)
5352adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → 𝐶𝐷)
5448, 49, 50, 51, 53letrd 11273 . . . . . . . . 9 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ≤ 𝐷)
5554iftrued 4484 . . . . . . . 8 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) = (𝐵𝑍))
5647, 55breq12d 5105 . . . . . . 7 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → (if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ↔ (𝐵𝑍) ≤ (𝐵𝑍)))
5745, 56mpbird 257 . . . . . 6 ((𝜑 ∧ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
58 simpl 482 . . . . . . . 8 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝜑)
59 simpr 484 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → ¬ (𝐵𝑍) ≤ 𝐶)
6058, 7syl 17 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝐶 ∈ ℝ)
6158, 6syl 17 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → (𝐵𝑍) ∈ ℝ)
6260, 61ltnled 11263 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → (𝐶 < (𝐵𝑍) ↔ ¬ (𝐵𝑍) ≤ 𝐶))
6359, 62mpbird 257 . . . . . . . 8 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝐶 < (𝐵𝑍))
647adantr 480 . . . . . . . . . . . 12 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 ∈ ℝ)
656adantr 480 . . . . . . . . . . . 12 ((𝜑𝐶 < (𝐵𝑍)) → (𝐵𝑍) ∈ ℝ)
66 simpr 484 . . . . . . . . . . . 12 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 < (𝐵𝑍))
6764, 65, 66ltled 11264 . . . . . . . . . . 11 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 ≤ (𝐵𝑍))
6867adantr 480 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ (𝐵𝑍) ≤ 𝐷) → 𝐶 ≤ (𝐵𝑍))
69 iftrue 4482 . . . . . . . . . . . 12 ((𝐵𝑍) ≤ 𝐷 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) = (𝐵𝑍))
7069eqcomd 2735 . . . . . . . . . . 11 ((𝐵𝑍) ≤ 𝐷 → (𝐵𝑍) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7170adantl 481 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ (𝐵𝑍) ≤ 𝐷) → (𝐵𝑍) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7268, 71breqtrd 5118 . . . . . . . . 9 (((𝜑𝐶 < (𝐵𝑍)) ∧ (𝐵𝑍) ≤ 𝐷) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7352ad2antrr 726 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ ¬ (𝐵𝑍) ≤ 𝐷) → 𝐶𝐷)
74 iffalse 4485 . . . . . . . . . . . 12 (¬ (𝐵𝑍) ≤ 𝐷 → if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) = 𝐷)
7574eqcomd 2735 . . . . . . . . . . 11 (¬ (𝐵𝑍) ≤ 𝐷𝐷 = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7675adantl 481 . . . . . . . . . 10 (((𝜑𝐶 < (𝐵𝑍)) ∧ ¬ (𝐵𝑍) ≤ 𝐷) → 𝐷 = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7773, 76breqtrd 5118 . . . . . . . . 9 (((𝜑𝐶 < (𝐵𝑍)) ∧ ¬ (𝐵𝑍) ≤ 𝐷) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7872, 77pm2.61dan 812 . . . . . . . 8 ((𝜑𝐶 < (𝐵𝑍)) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
7958, 63, 78syl2anc 584 . . . . . . 7 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
80 iffalse 4485 . . . . . . . . 9 (¬ (𝐵𝑍) ≤ 𝐶 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = 𝐶)
8180adantl 481 . . . . . . . 8 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) = 𝐶)
8281breq1d 5102 . . . . . . 7 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → (if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ↔ 𝐶 ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
8379, 82mpbird 257 . . . . . 6 ((𝜑 ∧ ¬ (𝐵𝑍) ≤ 𝐶) → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
8457, 83pm2.61dan 812 . . . . 5 (𝜑 → if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
85 icossico 13319 . . . . 5 ((((𝐴𝑍) ∈ ℝ* ∧ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷) ∈ ℝ*) ∧ ((𝐴𝑍) ≤ (𝐴𝑍) ∧ if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶) ≤ if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ⊆ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
8642, 39, 43, 84, 85syl22anc 838 . . . 4 (𝜑 → ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ⊆ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
87 volss 25432 . . . 4 ((((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ∈ dom vol ∧ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) ∈ dom vol ∧ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) ⊆ ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ≤ (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))))
8838, 41, 86, 87syl3anc 1373 . . 3 (𝜑 → (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) ≤ (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))))
8910, 14, 26, 35, 88lemul1ad 12064 . 2 (𝜑 → ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))) ≤ ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
90 hsphoidmvle2.l . . . . 5 𝐿 = (𝑥 ∈ Fin ↦ (𝑎 ∈ (ℝ ↑m 𝑥), 𝑏 ∈ (ℝ ↑m 𝑥) ↦ if(𝑥 = ∅, 0, ∏𝑘𝑥 (vol‘((𝑎𝑘)[,)(𝑏𝑘))))))
913ne0d 4293 . . . . 5 (𝜑𝑋 ≠ ∅)
92 hsphoidmvle2.h . . . . . 6 𝐻 = (𝑥 ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m 𝑋) ↦ (𝑗𝑋 ↦ if(𝑗𝑌, (𝑐𝑗), if((𝑐𝑗) ≤ 𝑥, (𝑐𝑗), 𝑥)))))
9392, 7, 15, 5hsphoif 46561 . . . . 5 (𝜑 → ((𝐻𝐶)‘𝐵):𝑋⟶ℝ)
9490, 15, 91, 1, 93hoidmvn0val 46569 . . . 4 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) = ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))))
9593ffvelcdmda 7018 . . . . . . 7 ((𝜑𝑘𝑋) → (((𝐻𝐶)‘𝐵)‘𝑘) ∈ ℝ)
96 volicore 46566 . . . . . . 7 (((𝐴𝑘) ∈ ℝ ∧ (((𝐻𝐶)‘𝐵)‘𝑘) ∈ ℝ) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) ∈ ℝ)
9721, 95, 96syl2anc 584 . . . . . 6 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) ∈ ℝ)
9897recnd 11143 . . . . 5 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) ∈ ℂ)
99 fveq2 6822 . . . . . . . . 9 (𝑘 = 𝑍 → (𝐴𝑘) = (𝐴𝑍))
100 fveq2 6822 . . . . . . . . 9 (𝑘 = 𝑍 → (((𝐻𝐶)‘𝐵)‘𝑘) = (((𝐻𝐶)‘𝐵)‘𝑍))
10199, 100oveq12d 7367 . . . . . . . 8 (𝑘 = 𝑍 → ((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)) = ((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍)))
102101fveq2d 6826 . . . . . . 7 (𝑘 = 𝑍 → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))))
103102adantl 481 . . . . . 6 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))))
10492, 7, 15, 5, 3hsphoival 46564 . . . . . . . . . 10 (𝜑 → (((𝐻𝐶)‘𝐵)‘𝑍) = if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)))
1052eldifbd 3916 . . . . . . . . . . 11 (𝜑 → ¬ 𝑍𝑌)
106105iffalsed 4487 . . . . . . . . . 10 (𝜑 → if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)) = if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))
107104, 106eqtrd 2764 . . . . . . . . 9 (𝜑 → (((𝐻𝐶)‘𝐵)‘𝑍) = if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))
108107oveq2d 7365 . . . . . . . 8 (𝜑 → ((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍)) = ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶)))
109108fveq2d 6826 . . . . . . 7 (𝜑 → (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))))
110109adantr 480 . . . . . 6 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑍)[,)(((𝐻𝐶)‘𝐵)‘𝑍))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))))
111103, 110eqtrd 2764 . . . . 5 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))))
11215, 98, 3, 111fprodsplit1 45578 . . . 4 (𝜑 → ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)))))
1137adantr 480 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝐶 ∈ ℝ)
11415adantr 480 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝑋 ∈ Fin)
1155adantr 480 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝐵:𝑋⟶ℝ)
11692, 113, 114, 115, 20hsphoival 46564 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐶)‘𝐵)‘𝑘) = if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐶, (𝐵𝑘), 𝐶)))
117 hsphoidmvle2.y . . . . . . . . . . . . 13 𝑋 = (𝑌 ∪ {𝑍})
11819, 117eleqtrdi 2838 . . . . . . . . . . . 12 (𝑘 ∈ (𝑋 ∖ {𝑍}) → 𝑘 ∈ (𝑌 ∪ {𝑍}))
119 eldifn 4083 . . . . . . . . . . . 12 (𝑘 ∈ (𝑋 ∖ {𝑍}) → ¬ 𝑘 ∈ {𝑍})
120 elunnel2 4106 . . . . . . . . . . . 12 ((𝑘 ∈ (𝑌 ∪ {𝑍}) ∧ ¬ 𝑘 ∈ {𝑍}) → 𝑘𝑌)
121118, 119, 120syl2anc 584 . . . . . . . . . . 11 (𝑘 ∈ (𝑋 ∖ {𝑍}) → 𝑘𝑌)
122121adantl 481 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝑘𝑌)
123122iftrued 4484 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐶, (𝐵𝑘), 𝐶)) = (𝐵𝑘))
124116, 123eqtrd 2764 . . . . . . . 8 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐶)‘𝐵)‘𝑘) = (𝐵𝑘))
125124oveq2d 7365 . . . . . . 7 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → ((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)) = ((𝐴𝑘)[,)(𝐵𝑘)))
126125fveq2d 6826 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
127126prodeq2dv 15829 . . . . 5 (𝜑 → ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘))) = ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))
128127oveq2d 7365 . . . 4 (𝜑 → ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐶)‘𝐵)‘𝑘)))) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
12994, 112, 1283eqtrd 2768 . . 3 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
13092, 11, 15, 5hsphoif 46561 . . . . 5 (𝜑 → ((𝐻𝐷)‘𝐵):𝑋⟶ℝ)
13190, 15, 91, 1, 130hoidmvn0val 46569 . . . 4 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)) = ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))))
132130ffvelcdmda 7018 . . . . . . 7 ((𝜑𝑘𝑋) → (((𝐻𝐷)‘𝐵)‘𝑘) ∈ ℝ)
133 volicore 46566 . . . . . . 7 (((𝐴𝑘) ∈ ℝ ∧ (((𝐻𝐷)‘𝐵)‘𝑘) ∈ ℝ) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) ∈ ℝ)
13421, 132, 133syl2anc 584 . . . . . 6 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) ∈ ℝ)
135134recnd 11143 . . . . 5 ((𝜑𝑘𝑋) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) ∈ ℂ)
136 fveq2 6822 . . . . . . . 8 (𝑘 = 𝑍 → (((𝐻𝐷)‘𝐵)‘𝑘) = (((𝐻𝐷)‘𝐵)‘𝑍))
13799, 136oveq12d 7367 . . . . . . 7 (𝑘 = 𝑍 → ((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)) = ((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍)))
138137fveq2d 6826 . . . . . 6 (𝑘 = 𝑍 → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))))
139138adantl 481 . . . . 5 ((𝜑𝑘 = 𝑍) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))))
14015, 135, 3, 139fprodsplit1 45578 . . . 4 (𝜑 → ∏𝑘𝑋 (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = ((vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)))))
14192, 11, 15, 5, 3hsphoival 46564 . . . . . . . 8 (𝜑 → (((𝐻𝐷)‘𝐵)‘𝑍) = if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
142105iffalsed 4487 . . . . . . . 8 (𝜑 → if(𝑍𝑌, (𝐵𝑍), if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
143141, 142eqtrd 2764 . . . . . . 7 (𝜑 → (((𝐻𝐷)‘𝐵)‘𝑍) = if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))
144143oveq2d 7365 . . . . . 6 (𝜑 → ((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍)) = ((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷)))
145144fveq2d 6826 . . . . 5 (𝜑 → (vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))) = (vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))))
14611adantr 480 . . . . . . . . . 10 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → 𝐷 ∈ ℝ)
14792, 146, 114, 115, 20hsphoival 46564 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐷)‘𝐵)‘𝑘) = if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐷, (𝐵𝑘), 𝐷)))
148122iftrued 4484 . . . . . . . . 9 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → if(𝑘𝑌, (𝐵𝑘), if((𝐵𝑘) ≤ 𝐷, (𝐵𝑘), 𝐷)) = (𝐵𝑘))
149147, 148eqtrd 2764 . . . . . . . 8 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (((𝐻𝐷)‘𝐵)‘𝑘) = (𝐵𝑘))
150149oveq2d 7365 . . . . . . 7 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → ((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)) = ((𝐴𝑘)[,)(𝐵𝑘)))
151150fveq2d 6826 . . . . . 6 ((𝜑𝑘 ∈ (𝑋 ∖ {𝑍})) → (vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = (vol‘((𝐴𝑘)[,)(𝐵𝑘))))
152151prodeq2dv 15829 . . . . 5 (𝜑 → ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘))) = ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))
153145, 152oveq12d 7367 . . . 4 (𝜑 → ((vol‘((𝐴𝑍)[,)(((𝐻𝐷)‘𝐵)‘𝑍))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(((𝐻𝐷)‘𝐵)‘𝑘)))) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
154131, 140, 1533eqtrd 2768 . . 3 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)) = ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))))
155129, 154breq12d 5105 . 2 (𝜑 → ((𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) ≤ (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)) ↔ ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐶, (𝐵𝑍), 𝐶))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘)))) ≤ ((vol‘((𝐴𝑍)[,)if((𝐵𝑍) ≤ 𝐷, (𝐵𝑍), 𝐷))) · ∏𝑘 ∈ (𝑋 ∖ {𝑍})(vol‘((𝐴𝑘)[,)(𝐵𝑘))))))
15689, 155mpbird 257 1 (𝜑 → (𝐴(𝐿𝑋)((𝐻𝐶)‘𝐵)) ≤ (𝐴(𝐿𝑋)((𝐻𝐷)‘𝐵)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395   = wceq 1540  wcel 2109  cdif 3900  cun 3901  wss 3903  c0 4284  ifcif 4476  {csn 4577   class class class wbr 5092  cmpt 5173  dom cdm 5619  wf 6478  cfv 6482  (class class class)co 7349  cmpo 7351  m cmap 8753  Fincfn 8872  cr 11008  0cc0 11009   · cmul 11014  *cxr 11148   < clt 11149  cle 11150  [,)cico 13250  cprod 15810  volcvol 25362
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-inf2 9537  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086  ax-pre-sup 11087
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-int 4897  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-isom 6491  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-of 7613  df-om 7800  df-1st 7924  df-2nd 7925  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-1o 8388  df-2o 8389  df-er 8625  df-map 8755  df-pm 8756  df-en 8873  df-dom 8874  df-sdom 8875  df-fin 8876  df-fi 9301  df-sup 9332  df-inf 9333  df-oi 9402  df-dju 9797  df-card 9835  df-pnf 11151  df-mnf 11152  df-xr 11153  df-ltxr 11154  df-le 11155  df-sub 11349  df-neg 11350  df-div 11778  df-nn 12129  df-2 12191  df-3 12192  df-n0 12385  df-z 12472  df-uz 12736  df-q 12850  df-rp 12894  df-xneg 13014  df-xadd 13015  df-xmul 13016  df-ioo 13252  df-ico 13254  df-icc 13255  df-fz 13411  df-fzo 13558  df-fl 13696  df-seq 13909  df-exp 13969  df-hash 14238  df-cj 15006  df-re 15007  df-im 15008  df-sqrt 15142  df-abs 15143  df-clim 15395  df-rlim 15396  df-sum 15594  df-prod 15811  df-rest 17326  df-topgen 17347  df-psmet 21253  df-xmet 21254  df-met 21255  df-bl 21256  df-mopn 21257  df-top 22779  df-topon 22796  df-bases 22831  df-cmp 23272  df-ovol 25363  df-vol 25364
This theorem is referenced by:  hoidmvlelem1  46580  hoidmvlelem2  46581
  Copyright terms: Public domain W3C validator