Step | Hyp | Ref
| Expression |
1 | | hsphoidmvle2.a |
. . . . 5
β’ (π β π΄:πβΆβ) |
2 | | hsphoidmvle2.z |
. . . . . 6
β’ (π β π β (π β π)) |
3 | 2 | eldifad 3959 |
. . . . 5
β’ (π β π β π) |
4 | 1, 3 | ffvelcdmd 7083 |
. . . 4
β’ (π β (π΄βπ) β β) |
5 | | hsphoidmvle2.b |
. . . . . 6
β’ (π β π΅:πβΆβ) |
6 | 5, 3 | ffvelcdmd 7083 |
. . . . 5
β’ (π β (π΅βπ) β β) |
7 | | hsphoidmvle2.c |
. . . . 5
β’ (π β πΆ β β) |
8 | 6, 7 | ifcld 4573 |
. . . 4
β’ (π β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β β) |
9 | | volicore 45232 |
. . . 4
β’ (((π΄βπ) β β β§ if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β β) β (volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) β β) |
10 | 4, 8, 9 | syl2anc 585 |
. . 3
β’ (π β (volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) β β) |
11 | | hsphoidmvle2.d |
. . . . 5
β’ (π β π· β β) |
12 | 6, 11 | ifcld 4573 |
. . . 4
β’ (π β if((π΅βπ) β€ π·, (π΅βπ), π·) β β) |
13 | | volicore 45232 |
. . . 4
β’ (((π΄βπ) β β β§ if((π΅βπ) β€ π·, (π΅βπ), π·) β β) β (volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) β β) |
14 | 4, 12, 13 | syl2anc 585 |
. . 3
β’ (π β (volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) β β) |
15 | | hsphoidmvle2.x |
. . . . 5
β’ (π β π β Fin) |
16 | | difssd 4131 |
. . . . 5
β’ (π β (π β {π}) β π) |
17 | | ssfi 9169 |
. . . . 5
β’ ((π β Fin β§ (π β {π}) β π) β (π β {π}) β Fin) |
18 | 15, 16, 17 | syl2anc 585 |
. . . 4
β’ (π β (π β {π}) β Fin) |
19 | | eldifi 4125 |
. . . . . 6
β’ (π β (π β {π}) β π β π) |
20 | 19 | adantl 483 |
. . . . 5
β’ ((π β§ π β (π β {π})) β π β π) |
21 | 1 | ffvelcdmda 7082 |
. . . . . 6
β’ ((π β§ π β π) β (π΄βπ) β β) |
22 | 5 | ffvelcdmda 7082 |
. . . . . 6
β’ ((π β§ π β π) β (π΅βπ) β β) |
23 | | volicore 45232 |
. . . . . 6
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
24 | 21, 22, 23 | syl2anc 585 |
. . . . 5
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
25 | 20, 24 | syldan 592 |
. . . 4
β’ ((π β§ π β (π β {π})) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
26 | 18, 25 | fprodrecl 15893 |
. . 3
β’ (π β βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ))) β β) |
27 | | nfv 1918 |
. . . 4
β’
β²ππ |
28 | 20, 21 | syldan 592 |
. . . . . 6
β’ ((π β§ π β (π β {π})) β (π΄βπ) β β) |
29 | 20, 22 | syldan 592 |
. . . . . . 7
β’ ((π β§ π β (π β {π})) β (π΅βπ) β β) |
30 | 29 | rexrd 11260 |
. . . . . 6
β’ ((π β§ π β (π β {π})) β (π΅βπ) β
β*) |
31 | | icombl 25063 |
. . . . . 6
β’ (((π΄βπ) β β β§ (π΅βπ) β β*) β ((π΄βπ)[,)(π΅βπ)) β dom vol) |
32 | 28, 30, 31 | syl2anc 585 |
. . . . 5
β’ ((π β§ π β (π β {π})) β ((π΄βπ)[,)(π΅βπ)) β dom vol) |
33 | | volge0 44612 |
. . . . 5
β’ (((π΄βπ)[,)(π΅βπ)) β dom vol β 0 β€
(volβ((π΄βπ)[,)(π΅βπ)))) |
34 | 32, 33 | syl 17 |
. . . 4
β’ ((π β§ π β (π β {π})) β 0 β€ (volβ((π΄βπ)[,)(π΅βπ)))) |
35 | 27, 18, 25, 34 | fprodge0 15933 |
. . 3
β’ (π β 0 β€ βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ)))) |
36 | 8 | rexrd 11260 |
. . . . 5
β’ (π β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β
β*) |
37 | | icombl 25063 |
. . . . 5
β’ (((π΄βπ) β β β§ if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β β*) β ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) β dom vol) |
38 | 4, 36, 37 | syl2anc 585 |
. . . 4
β’ (π β ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) β dom vol) |
39 | 12 | rexrd 11260 |
. . . . 5
β’ (π β if((π΅βπ) β€ π·, (π΅βπ), π·) β
β*) |
40 | | icombl 25063 |
. . . . 5
β’ (((π΄βπ) β β β§ if((π΅βπ) β€ π·, (π΅βπ), π·) β β*) β ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·)) β dom vol) |
41 | 4, 39, 40 | syl2anc 585 |
. . . 4
β’ (π β ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·)) β dom vol) |
42 | 4 | rexrd 11260 |
. . . . 5
β’ (π β (π΄βπ) β
β*) |
43 | 4 | leidd 11776 |
. . . . 5
β’ (π β (π΄βπ) β€ (π΄βπ)) |
44 | 6 | leidd 11776 |
. . . . . . . 8
β’ (π β (π΅βπ) β€ (π΅βπ)) |
45 | 44 | adantr 482 |
. . . . . . 7
β’ ((π β§ (π΅βπ) β€ πΆ) β (π΅βπ) β€ (π΅βπ)) |
46 | | iftrue 4533 |
. . . . . . . . 9
β’ ((π΅βπ) β€ πΆ β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) = (π΅βπ)) |
47 | 46 | adantl 483 |
. . . . . . . 8
β’ ((π β§ (π΅βπ) β€ πΆ) β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) = (π΅βπ)) |
48 | 6 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ (π΅βπ) β€ πΆ) β (π΅βπ) β β) |
49 | 7 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ (π΅βπ) β€ πΆ) β πΆ β β) |
50 | 11 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ (π΅βπ) β€ πΆ) β π· β β) |
51 | | simpr 486 |
. . . . . . . . . 10
β’ ((π β§ (π΅βπ) β€ πΆ) β (π΅βπ) β€ πΆ) |
52 | | hsphoidmvle2.e |
. . . . . . . . . . 11
β’ (π β πΆ β€ π·) |
53 | 52 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ (π΅βπ) β€ πΆ) β πΆ β€ π·) |
54 | 48, 49, 50, 51, 53 | letrd 11367 |
. . . . . . . . 9
β’ ((π β§ (π΅βπ) β€ πΆ) β (π΅βπ) β€ π·) |
55 | 54 | iftrued 4535 |
. . . . . . . 8
β’ ((π β§ (π΅βπ) β€ πΆ) β if((π΅βπ) β€ π·, (π΅βπ), π·) = (π΅βπ)) |
56 | 47, 55 | breq12d 5160 |
. . . . . . 7
β’ ((π β§ (π΅βπ) β€ πΆ) β (if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β€ if((π΅βπ) β€ π·, (π΅βπ), π·) β (π΅βπ) β€ (π΅βπ))) |
57 | 45, 56 | mpbird 257 |
. . . . . 6
β’ ((π β§ (π΅βπ) β€ πΆ) β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β€ if((π΅βπ) β€ π·, (π΅βπ), π·)) |
58 | | simpl 484 |
. . . . . . . 8
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β π) |
59 | | simpr 486 |
. . . . . . . . 9
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β Β¬ (π΅βπ) β€ πΆ) |
60 | 58, 7 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β πΆ β β) |
61 | 58, 6 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β (π΅βπ) β β) |
62 | 60, 61 | ltnled 11357 |
. . . . . . . . 9
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β (πΆ < (π΅βπ) β Β¬ (π΅βπ) β€ πΆ)) |
63 | 59, 62 | mpbird 257 |
. . . . . . . 8
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β πΆ < (π΅βπ)) |
64 | 7 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ πΆ < (π΅βπ)) β πΆ β β) |
65 | 6 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ πΆ < (π΅βπ)) β (π΅βπ) β β) |
66 | | simpr 486 |
. . . . . . . . . . . 12
β’ ((π β§ πΆ < (π΅βπ)) β πΆ < (π΅βπ)) |
67 | 64, 65, 66 | ltled 11358 |
. . . . . . . . . . 11
β’ ((π β§ πΆ < (π΅βπ)) β πΆ β€ (π΅βπ)) |
68 | 67 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ πΆ < (π΅βπ)) β§ (π΅βπ) β€ π·) β πΆ β€ (π΅βπ)) |
69 | | iftrue 4533 |
. . . . . . . . . . . 12
β’ ((π΅βπ) β€ π· β if((π΅βπ) β€ π·, (π΅βπ), π·) = (π΅βπ)) |
70 | 69 | eqcomd 2739 |
. . . . . . . . . . 11
β’ ((π΅βπ) β€ π· β (π΅βπ) = if((π΅βπ) β€ π·, (π΅βπ), π·)) |
71 | 70 | adantl 483 |
. . . . . . . . . 10
β’ (((π β§ πΆ < (π΅βπ)) β§ (π΅βπ) β€ π·) β (π΅βπ) = if((π΅βπ) β€ π·, (π΅βπ), π·)) |
72 | 68, 71 | breqtrd 5173 |
. . . . . . . . 9
β’ (((π β§ πΆ < (π΅βπ)) β§ (π΅βπ) β€ π·) β πΆ β€ if((π΅βπ) β€ π·, (π΅βπ), π·)) |
73 | 52 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ πΆ < (π΅βπ)) β§ Β¬ (π΅βπ) β€ π·) β πΆ β€ π·) |
74 | | iffalse 4536 |
. . . . . . . . . . . 12
β’ (Β¬
(π΅βπ) β€ π· β if((π΅βπ) β€ π·, (π΅βπ), π·) = π·) |
75 | 74 | eqcomd 2739 |
. . . . . . . . . . 11
β’ (Β¬
(π΅βπ) β€ π· β π· = if((π΅βπ) β€ π·, (π΅βπ), π·)) |
76 | 75 | adantl 483 |
. . . . . . . . . 10
β’ (((π β§ πΆ < (π΅βπ)) β§ Β¬ (π΅βπ) β€ π·) β π· = if((π΅βπ) β€ π·, (π΅βπ), π·)) |
77 | 73, 76 | breqtrd 5173 |
. . . . . . . . 9
β’ (((π β§ πΆ < (π΅βπ)) β§ Β¬ (π΅βπ) β€ π·) β πΆ β€ if((π΅βπ) β€ π·, (π΅βπ), π·)) |
78 | 72, 77 | pm2.61dan 812 |
. . . . . . . 8
β’ ((π β§ πΆ < (π΅βπ)) β πΆ β€ if((π΅βπ) β€ π·, (π΅βπ), π·)) |
79 | 58, 63, 78 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β πΆ β€ if((π΅βπ) β€ π·, (π΅βπ), π·)) |
80 | | iffalse 4536 |
. . . . . . . . 9
β’ (Β¬
(π΅βπ) β€ πΆ β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) = πΆ) |
81 | 80 | adantl 483 |
. . . . . . . 8
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) = πΆ) |
82 | 81 | breq1d 5157 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β (if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β€ if((π΅βπ) β€ π·, (π΅βπ), π·) β πΆ β€ if((π΅βπ) β€ π·, (π΅βπ), π·))) |
83 | 79, 82 | mpbird 257 |
. . . . . 6
β’ ((π β§ Β¬ (π΅βπ) β€ πΆ) β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β€ if((π΅βπ) β€ π·, (π΅βπ), π·)) |
84 | 57, 83 | pm2.61dan 812 |
. . . . 5
β’ (π β if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β€ if((π΅βπ) β€ π·, (π΅βπ), π·)) |
85 | | icossico 13390 |
. . . . 5
β’ ((((π΄βπ) β β* β§ if((π΅βπ) β€ π·, (π΅βπ), π·) β β*) β§ ((π΄βπ) β€ (π΄βπ) β§ if((π΅βπ) β€ πΆ, (π΅βπ), πΆ) β€ if((π΅βπ) β€ π·, (π΅βπ), π·))) β ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) β ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) |
86 | 42, 39, 43, 84, 85 | syl22anc 838 |
. . . 4
β’ (π β ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) β ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) |
87 | | volss 25032 |
. . . 4
β’ ((((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) β dom vol β§ ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·)) β dom vol β§ ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) β ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) β (volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) β€ (volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·)))) |
88 | 38, 41, 86, 87 | syl3anc 1372 |
. . 3
β’ (π β (volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) β€ (volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·)))) |
89 | 10, 14, 26, 35, 88 | lemul1ad 12149 |
. 2
β’ (π β ((volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ)))) β€ ((volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ))))) |
90 | | hsphoidmvle2.l |
. . . . 5
β’ πΏ = (π₯ β Fin β¦ (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) |
91 | 3 | ne0d 4334 |
. . . . 5
β’ (π β π β β
) |
92 | | hsphoidmvle2.h |
. . . . . 6
β’ π» = (π₯ β β β¦ (π β (β βm π) β¦ (π β π β¦ if(π β π, (πβπ), if((πβπ) β€ π₯, (πβπ), π₯))))) |
93 | 92, 7, 15, 5 | hsphoif 45227 |
. . . . 5
β’ (π β ((π»βπΆ)βπ΅):πβΆβ) |
94 | 90, 15, 91, 1, 93 | hoidmvn0val 45235 |
. . . 4
β’ (π β (π΄(πΏβπ)((π»βπΆ)βπ΅)) = βπ β π (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ)))) |
95 | 93 | ffvelcdmda 7082 |
. . . . . . 7
β’ ((π β§ π β π) β (((π»βπΆ)βπ΅)βπ) β β) |
96 | | volicore 45232 |
. . . . . . 7
β’ (((π΄βπ) β β β§ (((π»βπΆ)βπ΅)βπ) β β) β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) β β) |
97 | 21, 95, 96 | syl2anc 585 |
. . . . . 6
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) β β) |
98 | 97 | recnd 11238 |
. . . . 5
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) β β) |
99 | | fveq2 6888 |
. . . . . . . . 9
β’ (π = π β (π΄βπ) = (π΄βπ)) |
100 | | fveq2 6888 |
. . . . . . . . 9
β’ (π = π β (((π»βπΆ)βπ΅)βπ) = (((π»βπΆ)βπ΅)βπ)) |
101 | 99, 100 | oveq12d 7422 |
. . . . . . . 8
β’ (π = π β ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ)) = ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) |
102 | 101 | fveq2d 6892 |
. . . . . . 7
β’ (π = π β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ)))) |
103 | 102 | adantl 483 |
. . . . . 6
β’ ((π β§ π = π) β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ)))) |
104 | 92, 7, 15, 5, 3 | hsphoival 45230 |
. . . . . . . . . 10
β’ (π β (((π»βπΆ)βπ΅)βπ) = if(π β π, (π΅βπ), if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) |
105 | 2 | eldifbd 3960 |
. . . . . . . . . . 11
β’ (π β Β¬ π β π) |
106 | 105 | iffalsed 4538 |
. . . . . . . . . 10
β’ (π β if(π β π, (π΅βπ), if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) = if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) |
107 | 104, 106 | eqtrd 2773 |
. . . . . . . . 9
β’ (π β (((π»βπΆ)βπ΅)βπ) = if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) |
108 | 107 | oveq2d 7420 |
. . . . . . . 8
β’ (π β ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ)) = ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) |
109 | 108 | fveq2d 6892 |
. . . . . . 7
β’ (π β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = (volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)))) |
110 | 109 | adantr 482 |
. . . . . 6
β’ ((π β§ π = π) β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = (volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)))) |
111 | 103, 110 | eqtrd 2773 |
. . . . 5
β’ ((π β§ π = π) β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = (volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)))) |
112 | 15, 98, 3, 111 | fprodsplit1 44244 |
. . . 4
β’ (π β βπ β π (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = ((volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))))) |
113 | 7 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β (π β {π})) β πΆ β β) |
114 | 15 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β (π β {π})) β π β Fin) |
115 | 5 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β (π β {π})) β π΅:πβΆβ) |
116 | 92, 113, 114, 115, 20 | hsphoival 45230 |
. . . . . . . . 9
β’ ((π β§ π β (π β {π})) β (((π»βπΆ)βπ΅)βπ) = if(π β π, (π΅βπ), if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) |
117 | | hsphoidmvle2.y |
. . . . . . . . . . . . 13
β’ π = (π βͺ {π}) |
118 | 19, 117 | eleqtrdi 2844 |
. . . . . . . . . . . 12
β’ (π β (π β {π}) β π β (π βͺ {π})) |
119 | | eldifn 4126 |
. . . . . . . . . . . 12
β’ (π β (π β {π}) β Β¬ π β {π}) |
120 | | elunnel2 4149 |
. . . . . . . . . . . 12
β’ ((π β (π βͺ {π}) β§ Β¬ π β {π}) β π β π) |
121 | 118, 119,
120 | syl2anc 585 |
. . . . . . . . . . 11
β’ (π β (π β {π}) β π β π) |
122 | 121 | adantl 483 |
. . . . . . . . . 10
β’ ((π β§ π β (π β {π})) β π β π) |
123 | 122 | iftrued 4535 |
. . . . . . . . 9
β’ ((π β§ π β (π β {π})) β if(π β π, (π΅βπ), if((π΅βπ) β€ πΆ, (π΅βπ), πΆ)) = (π΅βπ)) |
124 | 116, 123 | eqtrd 2773 |
. . . . . . . 8
β’ ((π β§ π β (π β {π})) β (((π»βπΆ)βπ΅)βπ) = (π΅βπ)) |
125 | 124 | oveq2d 7420 |
. . . . . . 7
β’ ((π β§ π β (π β {π})) β ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ)) = ((π΄βπ)[,)(π΅βπ))) |
126 | 125 | fveq2d 6892 |
. . . . . 6
β’ ((π β§ π β (π β {π})) β (volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
127 | 126 | prodeq2dv 15863 |
. . . . 5
β’ (π β βπ β (π β {π})(volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ))) = βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ)))) |
128 | 127 | oveq2d 7420 |
. . . 4
β’ (π β ((volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(((π»βπΆ)βπ΅)βπ)))) = ((volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ))))) |
129 | 94, 112, 128 | 3eqtrd 2777 |
. . 3
β’ (π β (π΄(πΏβπ)((π»βπΆ)βπ΅)) = ((volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ))))) |
130 | 92, 11, 15, 5 | hsphoif 45227 |
. . . . 5
β’ (π β ((π»βπ·)βπ΅):πβΆβ) |
131 | 90, 15, 91, 1, 130 | hoidmvn0val 45235 |
. . . 4
β’ (π β (π΄(πΏβπ)((π»βπ·)βπ΅)) = βπ β π (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ)))) |
132 | 130 | ffvelcdmda 7082 |
. . . . . . 7
β’ ((π β§ π β π) β (((π»βπ·)βπ΅)βπ) β β) |
133 | | volicore 45232 |
. . . . . . 7
β’ (((π΄βπ) β β β§ (((π»βπ·)βπ΅)βπ) β β) β (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) β β) |
134 | 21, 132, 133 | syl2anc 585 |
. . . . . 6
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) β β) |
135 | 134 | recnd 11238 |
. . . . 5
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) β β) |
136 | | fveq2 6888 |
. . . . . . . 8
β’ (π = π β (((π»βπ·)βπ΅)βπ) = (((π»βπ·)βπ΅)βπ)) |
137 | 99, 136 | oveq12d 7422 |
. . . . . . 7
β’ (π = π β ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ)) = ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) |
138 | 137 | fveq2d 6892 |
. . . . . 6
β’ (π = π β (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) = (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ)))) |
139 | 138 | adantl 483 |
. . . . 5
β’ ((π β§ π = π) β (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) = (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ)))) |
140 | 15, 135, 3, 139 | fprodsplit1 44244 |
. . . 4
β’ (π β βπ β π (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) = ((volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))))) |
141 | 92, 11, 15, 5, 3 | hsphoival 45230 |
. . . . . . . 8
β’ (π β (((π»βπ·)βπ΅)βπ) = if(π β π, (π΅βπ), if((π΅βπ) β€ π·, (π΅βπ), π·))) |
142 | 105 | iffalsed 4538 |
. . . . . . . 8
β’ (π β if(π β π, (π΅βπ), if((π΅βπ) β€ π·, (π΅βπ), π·)) = if((π΅βπ) β€ π·, (π΅βπ), π·)) |
143 | 141, 142 | eqtrd 2773 |
. . . . . . 7
β’ (π β (((π»βπ·)βπ΅)βπ) = if((π΅βπ) β€ π·, (π΅βπ), π·)) |
144 | 143 | oveq2d 7420 |
. . . . . 6
β’ (π β ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ)) = ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) |
145 | 144 | fveq2d 6892 |
. . . . 5
β’ (π β (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) = (volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·)))) |
146 | 11 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ π β (π β {π})) β π· β β) |
147 | 92, 146, 114, 115, 20 | hsphoival 45230 |
. . . . . . . . 9
β’ ((π β§ π β (π β {π})) β (((π»βπ·)βπ΅)βπ) = if(π β π, (π΅βπ), if((π΅βπ) β€ π·, (π΅βπ), π·))) |
148 | 122 | iftrued 4535 |
. . . . . . . . 9
β’ ((π β§ π β (π β {π})) β if(π β π, (π΅βπ), if((π΅βπ) β€ π·, (π΅βπ), π·)) = (π΅βπ)) |
149 | 147, 148 | eqtrd 2773 |
. . . . . . . 8
β’ ((π β§ π β (π β {π})) β (((π»βπ·)βπ΅)βπ) = (π΅βπ)) |
150 | 149 | oveq2d 7420 |
. . . . . . 7
β’ ((π β§ π β (π β {π})) β ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ)) = ((π΄βπ)[,)(π΅βπ))) |
151 | 150 | fveq2d 6892 |
. . . . . 6
β’ ((π β§ π β (π β {π})) β (volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
152 | 151 | prodeq2dv 15863 |
. . . . 5
β’ (π β βπ β (π β {π})(volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) = βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ)))) |
153 | 145, 152 | oveq12d 7422 |
. . . 4
β’ (π β ((volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(((π»βπ·)βπ΅)βπ)))) = ((volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ))))) |
154 | 131, 140,
153 | 3eqtrd 2777 |
. . 3
β’ (π β (π΄(πΏβπ)((π»βπ·)βπ΅)) = ((volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ))))) |
155 | 129, 154 | breq12d 5160 |
. 2
β’ (π β ((π΄(πΏβπ)((π»βπΆ)βπ΅)) β€ (π΄(πΏβπ)((π»βπ·)βπ΅)) β ((volβ((π΄βπ)[,)if((π΅βπ) β€ πΆ, (π΅βπ), πΆ))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ)))) β€ ((volβ((π΄βπ)[,)if((π΅βπ) β€ π·, (π΅βπ), π·))) Β· βπ β (π β {π})(volβ((π΄βπ)[,)(π΅βπ)))))) |
156 | 89, 155 | mpbird 257 |
1
β’ (π β (π΄(πΏβπ)((π»βπΆ)βπ΅)) β€ (π΄(πΏβπ)((π»βπ·)βπ΅))) |