Step | Hyp | Ref
| Expression |
1 | | nnex 12169 |
. . . 4
β’ β
β V |
2 | 1 | a1i 11 |
. . 3
β’ (π β β β
V) |
3 | | sge0hsphoire.l |
. . . . . 6
β’ πΏ = (π₯ β Fin β¦ (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) |
4 | | sge0hsphoire.w |
. . . . . . . 8
β’ π = (π βͺ {π}) |
5 | | sge0hsphoire.f |
. . . . . . . . 9
β’ (π β π β Fin) |
6 | | snfi 8996 |
. . . . . . . . . 10
β’ {π} β Fin |
7 | 6 | a1i 11 |
. . . . . . . . 9
β’ (π β {π} β Fin) |
8 | | unfi 9124 |
. . . . . . . . 9
β’ ((π β Fin β§ {π} β Fin) β (π βͺ {π}) β Fin) |
9 | 5, 7, 8 | syl2anc 585 |
. . . . . . . 8
β’ (π β (π βͺ {π}) β Fin) |
10 | 4, 9 | eqeltrid 2837 |
. . . . . . 7
β’ (π β π β Fin) |
11 | 10 | adantr 482 |
. . . . . 6
β’ ((π β§ π β β) β π β Fin) |
12 | | sge0hsphoire.c |
. . . . . . . 8
β’ (π β πΆ:ββΆ(β βm
π)) |
13 | 12 | ffvelcdmda 7041 |
. . . . . . 7
β’ ((π β§ π β β) β (πΆβπ) β (β βm π)) |
14 | | elmapi 8795 |
. . . . . . 7
β’ ((πΆβπ) β (β βm π) β (πΆβπ):πβΆβ) |
15 | 13, 14 | syl 17 |
. . . . . 6
β’ ((π β§ π β β) β (πΆβπ):πβΆβ) |
16 | | sge0hsphoire.h |
. . . . . . . 8
β’ π» = (π₯ β β β¦ (π β (β βm π) β¦ (π β π β¦ if(π β π, (πβπ), if((πβπ) β€ π₯, (πβπ), π₯))))) |
17 | | eleq1w 2816 |
. . . . . . . . . . . 12
β’ (π = β β (π β π β β β π)) |
18 | | fveq2 6848 |
. . . . . . . . . . . 12
β’ (π = β β (πβπ) = (πββ)) |
19 | 18 | breq1d 5121 |
. . . . . . . . . . . . 13
β’ (π = β β ((πβπ) β€ π₯ β (πββ) β€ π₯)) |
20 | 19, 18 | ifbieq1d 4516 |
. . . . . . . . . . . 12
β’ (π = β β if((πβπ) β€ π₯, (πβπ), π₯) = if((πββ) β€ π₯, (πββ), π₯)) |
21 | 17, 18, 20 | ifbieq12d 4520 |
. . . . . . . . . . 11
β’ (π = β β if(π β π, (πβπ), if((πβπ) β€ π₯, (πβπ), π₯)) = if(β β π, (πββ), if((πββ) β€ π₯, (πββ), π₯))) |
22 | 21 | cbvmptv 5224 |
. . . . . . . . . 10
β’ (π β π β¦ if(π β π, (πβπ), if((πβπ) β€ π₯, (πβπ), π₯))) = (β β π β¦ if(β β π, (πββ), if((πββ) β€ π₯, (πββ), π₯))) |
23 | 22 | mpteq2i 5216 |
. . . . . . . . 9
β’ (π β (β
βm π)
β¦ (π β π β¦ if(π β π, (πβπ), if((πβπ) β€ π₯, (πβπ), π₯)))) = (π β (β βm π) β¦ (β β π β¦ if(β β π, (πββ), if((πββ) β€ π₯, (πββ), π₯)))) |
24 | 23 | mpteq2i 5216 |
. . . . . . . 8
β’ (π₯ β β β¦ (π β (β
βm π)
β¦ (π β π β¦ if(π β π, (πβπ), if((πβπ) β€ π₯, (πβπ), π₯))))) = (π₯ β β β¦ (π β (β βm π) β¦ (β β π β¦ if(β β π, (πββ), if((πββ) β€ π₯, (πββ), π₯))))) |
25 | 16, 24 | eqtri 2760 |
. . . . . . 7
β’ π» = (π₯ β β β¦ (π β (β βm π) β¦ (β β π β¦ if(β β π, (πββ), if((πββ) β€ π₯, (πββ), π₯))))) |
26 | | sge0hsphoire.s |
. . . . . . . 8
β’ (π β π β β) |
27 | 26 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β β) β π β β) |
28 | | sge0hsphoire.d |
. . . . . . . . 9
β’ (π β π·:ββΆ(β βm
π)) |
29 | 28 | ffvelcdmda 7041 |
. . . . . . . 8
β’ ((π β§ π β β) β (π·βπ) β (β βm π)) |
30 | | elmapi 8795 |
. . . . . . . 8
β’ ((π·βπ) β (β βm π) β (π·βπ):πβΆβ) |
31 | 29, 30 | syl 17 |
. . . . . . 7
β’ ((π β§ π β β) β (π·βπ):πβΆβ) |
32 | 25, 27, 11, 31 | hsphoif 44919 |
. . . . . 6
β’ ((π β§ π β β) β ((π»βπ)β(π·βπ)):πβΆβ) |
33 | 3, 11, 15, 32 | hoidmvcl 44925 |
. . . . 5
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))) β (0[,)+β)) |
34 | | eqid 2732 |
. . . . 5
β’ (π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ)))) = (π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ)))) |
35 | 33, 34 | fmptd 7068 |
. . . 4
β’ (π β (π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ)))):ββΆ(0[,)+β)) |
36 | | icossicc 13364 |
. . . . 5
β’
(0[,)+β) β (0[,]+β) |
37 | 36 | a1i 11 |
. . . 4
β’ (π β (0[,)+β) β
(0[,]+β)) |
38 | 35, 37 | fssd 6692 |
. . 3
β’ (π β (π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ)))):ββΆ(0[,]+β)) |
39 | 2, 38 | sge0cl 44724 |
. 2
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β (0[,]+β)) |
40 | 2, 38 | sge0xrcl 44728 |
. . 3
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β
β*) |
41 | | pnfxr 11219 |
. . . 4
β’ +β
β β* |
42 | 41 | a1i 11 |
. . 3
β’ (π β +β β
β*) |
43 | | sge0hsphoire.r |
. . . . 5
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ)))) β β) |
44 | 43 | rexrd 11215 |
. . . 4
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ)))) β
β*) |
45 | | nfv 1918 |
. . . . 5
β’
β²ππ |
46 | 36, 33 | sselid 3946 |
. . . . 5
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))) β (0[,]+β)) |
47 | 3, 11, 15, 31 | hoidmvcl 44925 |
. . . . . 6
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)(π·βπ)) β (0[,)+β)) |
48 | 36, 47 | sselid 3946 |
. . . . 5
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)(π·βπ)) β (0[,]+β)) |
49 | | sge0hsphoire.z |
. . . . . . 7
β’ (π β π β (π β π)) |
50 | 49 | adantr 482 |
. . . . . 6
β’ ((π β§ π β β) β π β (π β π)) |
51 | 3, 11, 50, 4, 27, 25, 15, 31 | hsphoidmvle 44929 |
. . . . 5
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))) β€ ((πΆβπ)(πΏβπ)(π·βπ))) |
52 | 45, 2, 46, 48, 51 | sge0lempt 44753 |
. . . 4
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β€
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))))) |
53 | 43 | ltpnfd 13052 |
. . . 4
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ)))) < +β) |
54 | 40, 44, 42, 52, 53 | xrlelttrd 13090 |
. . 3
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) < +β) |
55 | 40, 42, 54 | xrltned 43694 |
. 2
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β +β) |
56 | | ge0xrre 43871 |
. 2
β’
(((Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β (0[,]+β) β§
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β +β) β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β β) |
57 | 39, 55, 56 | syl2anc 585 |
1
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)((π»βπ)β(π·βπ))))) β β) |