Step | Hyp | Ref
| Expression |
1 | | ovnhoilem1.x |
. . 3
β’ (π β π β Fin) |
2 | | ovnhoilem1.c |
. . . . 5
β’ πΌ = Xπ β π ((π΄βπ)[,)(π΅βπ)) |
3 | 2 | a1i 11 |
. . . 4
β’ (π β πΌ = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
4 | | nfv 1918 |
. . . . 5
β’
β²ππ |
5 | | ovnhoilem1.a |
. . . . . 6
β’ (π β π΄:πβΆβ) |
6 | 5 | ffvelcdmda 7082 |
. . . . 5
β’ ((π β§ π β π) β (π΄βπ) β β) |
7 | | ovnhoilem1.b |
. . . . . . 7
β’ (π β π΅:πβΆβ) |
8 | 7 | ffvelcdmda 7082 |
. . . . . 6
β’ ((π β§ π β π) β (π΅βπ) β β) |
9 | 8 | rexrd 11260 |
. . . . 5
β’ ((π β§ π β π) β (π΅βπ) β
β*) |
10 | 4, 6, 9 | hoissrrn2 45229 |
. . . 4
β’ (π β Xπ β
π ((π΄βπ)[,)(π΅βπ)) β (β βm π)) |
11 | 3, 10 | eqsstrd 4019 |
. . 3
β’ (π β πΌ β (β βm π)) |
12 | | ovnhoilem1.m |
. . 3
β’ π = {π§ β β* β£
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} |
13 | 1, 11, 12 | ovnval2 45196 |
. 2
β’ (π β ((voln*βπ)βπΌ) = if(π = β
, 0, inf(π, β*, <
))) |
14 | | iftrue 4533 |
. . . . 5
β’ (π = β
β if(π = β
, 0, inf(π, β*, < )) =
0) |
15 | 14 | adantl 483 |
. . . 4
β’ ((π β§ π = β
) β if(π = β
, 0, inf(π, β*, < )) =
0) |
16 | | 0xr 11257 |
. . . . . . 7
β’ 0 β
β* |
17 | 16 | a1i 11 |
. . . . . 6
β’ (π β 0 β
β*) |
18 | | pnfxr 11264 |
. . . . . . 7
β’ +β
β β* |
19 | 18 | a1i 11 |
. . . . . 6
β’ (π β +β β
β*) |
20 | 4, 1, 6, 8 | hoiprodcl3 45231 |
. . . . . 6
β’ (π β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (0[,)+β)) |
21 | | icogelb 13371 |
. . . . . 6
β’ ((0
β β* β§ +β β β* β§
βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (0[,)+β)) β 0 β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
22 | 17, 19, 20, 21 | syl3anc 1372 |
. . . . 5
β’ (π β 0 β€ βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
23 | 22 | adantr 482 |
. . . 4
β’ ((π β§ π = β
) β 0 β€ βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
24 | 15, 23 | eqbrtrd 5169 |
. . 3
β’ ((π β§ π = β
) β if(π = β
, 0, inf(π, β*, < )) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
25 | | iffalse 4536 |
. . . . 5
β’ (Β¬
π = β
β if(π = β
, 0, inf(π, β*, < )) =
inf(π, β*,
< )) |
26 | 25 | adantl 483 |
. . . 4
β’ ((π β§ Β¬ π = β
) β if(π = β
, 0, inf(π, β*, < )) = inf(π, β*, <
)) |
27 | | ssrab2 4076 |
. . . . . . 7
β’ {π§ β β*
β£ βπ β
(((β Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} β
β* |
28 | 12, 27 | eqsstri 4015 |
. . . . . 6
β’ π β
β* |
29 | 28 | a1i 11 |
. . . . 5
β’ ((π β§ Β¬ π = β
) β π β
β*) |
30 | | icossxr 13405 |
. . . . . . . . . 10
β’
(0[,)+β) β β* |
31 | 30, 20 | sselid 3979 |
. . . . . . . . 9
β’ (π β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β
β*) |
32 | 31 | adantr 482 |
. . . . . . . 8
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β
β*) |
33 | | opelxpi 5712 |
. . . . . . . . . . . . . . . . 17
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β β¨(π΄βπ), (π΅βπ)β© β (β Γ
β)) |
34 | 6, 8, 33 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β β¨(π΄βπ), (π΅βπ)β© β (β Γ
β)) |
35 | | 0re 11212 |
. . . . . . . . . . . . . . . . . 18
β’ 0 β
β |
36 | | opelxpi 5712 |
. . . . . . . . . . . . . . . . . 18
β’ ((0
β β β§ 0 β β) β β¨0, 0β© β (β
Γ β)) |
37 | 35, 35, 36 | mp2an 691 |
. . . . . . . . . . . . . . . . 17
β’ β¨0,
0β© β (β Γ β) |
38 | 37 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β β¨0, 0β© β (β
Γ β)) |
39 | 34, 38 | ifcld 4573 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©) β (β
Γ β)) |
40 | 39 | fmpttd 7110 |
. . . . . . . . . . . . . 14
β’ (π β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)):πβΆ(β Γ
β)) |
41 | | reex 11197 |
. . . . . . . . . . . . . . . . 17
β’ β
β V |
42 | 41, 41 | xpex 7735 |
. . . . . . . . . . . . . . . 16
β’ (β
Γ β) β V |
43 | 1, 42 | jctil 521 |
. . . . . . . . . . . . . . 15
β’ (π β ((β Γ β)
β V β§ π β
Fin)) |
44 | | elmapg 8829 |
. . . . . . . . . . . . . . 15
β’
(((β Γ β) β V β§ π β Fin) β ((π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) β ((β
Γ β) βm π) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)):πβΆ(β Γ
β))) |
45 | 43, 44 | syl 17 |
. . . . . . . . . . . . . 14
β’ (π β ((π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) β ((β
Γ β) βm π) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)):πβΆ(β Γ
β))) |
46 | 40, 45 | mpbird 257 |
. . . . . . . . . . . . 13
β’ (π β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) β ((β
Γ β) βm π)) |
47 | 46 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) β ((β
Γ β) βm π)) |
48 | | ovnhoilem1.h |
. . . . . . . . . . . 12
β’ π» = (π β β β¦ (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
49 | 47, 48 | fmptd 7109 |
. . . . . . . . . . 11
β’ (π β π»:ββΆ((β Γ β)
βm π)) |
50 | | ovex 7437 |
. . . . . . . . . . . 12
β’ ((β
Γ β) βm π) β V |
51 | | nnex 12214 |
. . . . . . . . . . . 12
β’ β
β V |
52 | 50, 51 | elmap 8861 |
. . . . . . . . . . 11
β’ (π» β (((β Γ
β) βm π) βm β) β π»:ββΆ((β
Γ β) βm π)) |
53 | 49, 52 | sylibr 233 |
. . . . . . . . . 10
β’ (π β π» β (((β Γ β)
βm π)
βm β)) |
54 | 53 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ Β¬ π = β
) β π» β (((β Γ β)
βm π)
βm β)) |
55 | | eqidd 2734 |
. . . . . . . . . . . . 13
β’ (π β Xπ β
π ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
56 | 34 | fmpttd 7110 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π β π β¦ β¨(π΄βπ), (π΅βπ)β©):πβΆ(β Γ
β)) |
57 | | iftrue 4533 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 1 β if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©) = β¨(π΄βπ), (π΅βπ)β©) |
58 | 57 | mpteq2dv 5249 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = 1 β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) = (π β π β¦ β¨(π΄βπ), (π΅βπ)β©)) |
59 | | 1nn 12219 |
. . . . . . . . . . . . . . . . . . . . 21
β’ 1 β
β |
60 | 59 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β 1 β
β) |
61 | | mptexg 7218 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β Fin β (π β π β¦ β¨(π΄βπ), (π΅βπ)β©) β V) |
62 | 1, 61 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π β π β¦ β¨(π΄βπ), (π΅βπ)β©) β V) |
63 | 48, 58, 60, 62 | fvmptd3 7017 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π»β1) = (π β π β¦ β¨(π΄βπ), (π΅βπ)β©)) |
64 | 63 | feq1d 6699 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ((π»β1):πβΆ(β Γ β) β
(π β π β¦ β¨(π΄βπ), (π΅βπ)β©):πβΆ(β Γ
β))) |
65 | 56, 64 | mpbird 257 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π»β1):πβΆ(β Γ
β)) |
66 | 65 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β (π»β1):πβΆ(β Γ
β)) |
67 | | simpr 486 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β π β π) |
68 | 66, 67 | fvovco 43825 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β (([,) β (π»β1))βπ) = ((1st β((π»β1)βπ))[,)(2nd
β((π»β1)βπ)))) |
69 | 34 | elexd 3495 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π) β β¨(π΄βπ), (π΅βπ)β© β V) |
70 | 63, 69 | fvmpt2d 7007 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π) β ((π»β1)βπ) = β¨(π΄βπ), (π΅βπ)β©) |
71 | 70 | fveq2d 6892 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (1st β((π»β1)βπ)) = (1st
ββ¨(π΄βπ), (π΅βπ)β©)) |
72 | | fvex 6901 |
. . . . . . . . . . . . . . . . . . 19
β’ (π΄βπ) β V |
73 | | fvex 6901 |
. . . . . . . . . . . . . . . . . . 19
β’ (π΅βπ) β V |
74 | 72, 73 | op1st 7978 |
. . . . . . . . . . . . . . . . . 18
β’
(1st ββ¨(π΄βπ), (π΅βπ)β©) = (π΄βπ) |
75 | 74 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (1st ββ¨(π΄βπ), (π΅βπ)β©) = (π΄βπ)) |
76 | 71, 75 | eqtrd 2773 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β (1st β((π»β1)βπ)) = (π΄βπ)) |
77 | 70 | fveq2d 6892 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (2nd β((π»β1)βπ)) = (2nd
ββ¨(π΄βπ), (π΅βπ)β©)) |
78 | 72, 73 | op2nd 7979 |
. . . . . . . . . . . . . . . . . 18
β’
(2nd ββ¨(π΄βπ), (π΅βπ)β©) = (π΅βπ) |
79 | 78 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (2nd ββ¨(π΄βπ), (π΅βπ)β©) = (π΅βπ)) |
80 | 77, 79 | eqtrd 2773 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β (2nd β((π»β1)βπ)) = (π΅βπ)) |
81 | 76, 80 | oveq12d 7422 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β ((1st β((π»β1)βπ))[,)(2nd
β((π»β1)βπ))) = ((π΄βπ)[,)(π΅βπ))) |
82 | 68, 81 | eqtrd 2773 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (([,) β (π»β1))βπ) = ((π΄βπ)[,)(π΅βπ))) |
83 | 82 | ixpeq2dva 8902 |
. . . . . . . . . . . . 13
β’ (π β Xπ β
π (([,) β (π»β1))βπ) = Xπ β
π ((π΄βπ)[,)(π΅βπ))) |
84 | 55, 3, 83 | 3eqtr4d 2783 |
. . . . . . . . . . . 12
β’ (π β πΌ = Xπ β π (([,) β (π»β1))βπ)) |
85 | | fveq2 6888 |
. . . . . . . . . . . . . . . . 17
β’ (π = 1 β (π»βπ) = (π»β1)) |
86 | 85 | coeq2d 5860 |
. . . . . . . . . . . . . . . 16
β’ (π = 1 β ([,) β (π»βπ)) = ([,) β (π»β1))) |
87 | 86 | fveq1d 6890 |
. . . . . . . . . . . . . . 15
β’ (π = 1 β (([,) β (π»βπ))βπ) = (([,) β (π»β1))βπ)) |
88 | 87 | ixpeq2dv 8903 |
. . . . . . . . . . . . . 14
β’ (π = 1 β Xπ β
π (([,) β (π»βπ))βπ) = Xπ β π (([,) β (π»β1))βπ)) |
89 | 88 | ssiun2s 5050 |
. . . . . . . . . . . . 13
β’ (1 β
β β Xπ β π (([,) β (π»β1))βπ) β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ)) |
90 | 59, 89 | ax-mp 5 |
. . . . . . . . . . . 12
β’ Xπ β
π (([,) β (π»β1))βπ) β βͺ π β β Xπ β π (([,) β (π»βπ))βπ) |
91 | 84, 90 | eqsstrdi 4035 |
. . . . . . . . . . 11
β’ (π β πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ)) |
92 | 91 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ Β¬ π = β
) β πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ)) |
93 | 82 | fveq2d 6892 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (volβ(([,) β (π»β1))βπ)) = (volβ((π΄βπ)[,)(π΅βπ)))) |
94 | 93 | eqcomd 2739 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) = (volβ(([,) β (π»β1))βπ))) |
95 | 94 | prodeq2dv 15863 |
. . . . . . . . . . . 12
β’ (π β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = βπ β π (volβ(([,) β (π»β1))βπ))) |
96 | 95 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = βπ β π (volβ(([,) β (π»β1))βπ))) |
97 | | 1red 11211 |
. . . . . . . . . . . . . 14
β’ (π β 1 β
β) |
98 | | icossicc 13409 |
. . . . . . . . . . . . . . 15
β’
(0[,)+β) β (0[,]+β) |
99 | 4, 1, 65 | hoiprodcl 45198 |
. . . . . . . . . . . . . . 15
β’ (π β βπ β π (volβ(([,) β (π»β1))βπ)) β (0[,)+β)) |
100 | 98, 99 | sselid 3979 |
. . . . . . . . . . . . . 14
β’ (π β βπ β π (volβ(([,) β (π»β1))βπ)) β (0[,]+β)) |
101 | 87 | fveq2d 6892 |
. . . . . . . . . . . . . . 15
β’ (π = 1 β (volβ(([,)
β (π»βπ))βπ)) = (volβ(([,) β (π»β1))βπ))) |
102 | 101 | prodeq2ad 44243 |
. . . . . . . . . . . . . 14
β’ (π = 1 β βπ β π (volβ(([,) β (π»βπ))βπ)) = βπ β π (volβ(([,) β (π»β1))βπ))) |
103 | 97, 100, 102 | sge0snmpt 45034 |
. . . . . . . . . . . . 13
β’ (π β
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))) = βπ β π (volβ(([,) β (π»β1))βπ))) |
104 | 103 | eqcomd 2739 |
. . . . . . . . . . . 12
β’ (π β βπ β π (volβ(([,) β (π»β1))βπ)) =
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
105 | 104 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ(([,) β (π»β1))βπ)) =
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
106 | | nfv 1918 |
. . . . . . . . . . . 12
β’
β²π(π β§ Β¬ π = β
) |
107 | 51 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ Β¬ π = β
) β β β
V) |
108 | | snssi 4810 |
. . . . . . . . . . . . . 14
β’ (1 β
β β {1} β β) |
109 | 59, 108 | ax-mp 5 |
. . . . . . . . . . . . 13
β’ {1}
β β |
110 | 109 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ Β¬ π = β
) β {1} β
β) |
111 | | nfv 1918 |
. . . . . . . . . . . . . 14
β’
β²π((π β§ Β¬ π = β
) β§ π β {1}) |
112 | 1 | ad2antrr 725 |
. . . . . . . . . . . . . 14
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β π β Fin) |
113 | | simpl 484 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β {1}) β π) |
114 | | elsni 4644 |
. . . . . . . . . . . . . . . . 17
β’ (π β {1} β π = 1) |
115 | 114 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β {1}) β π = 1) |
116 | 65 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π = 1) β (π»β1):πβΆ(β Γ
β)) |
117 | 85 | adantl 483 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π = 1) β (π»βπ) = (π»β1)) |
118 | 117 | feq1d 6699 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π = 1) β ((π»βπ):πβΆ(β Γ β) β
(π»β1):πβΆ(β Γ
β))) |
119 | 116, 118 | mpbird 257 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π = 1) β (π»βπ):πβΆ(β Γ
β)) |
120 | 113, 115,
119 | syl2anc 585 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β {1}) β (π»βπ):πβΆ(β Γ
β)) |
121 | 120 | adantlr 714 |
. . . . . . . . . . . . . 14
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β (π»βπ):πβΆ(β Γ
β)) |
122 | 111, 112,
121 | hoiprodcl 45198 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β βπ β π (volβ(([,) β (π»βπ))βπ)) β (0[,)+β)) |
123 | 98, 122 | sselid 3979 |
. . . . . . . . . . . 12
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β βπ β π (volβ(([,) β (π»βπ))βπ)) β (0[,]+β)) |
124 | 38 | fmpttd 7110 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (π β π β¦ β¨0, 0β©):πβΆ(β Γ
β)) |
125 | 124 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β (β β {1})) β (π β π β¦ β¨0, 0β©):πβΆ(β Γ
β)) |
126 | | simpl 484 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β (β β {1})) β π) |
127 | | eldifi 4125 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β (β β {1})
β π β
β) |
128 | 127 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β (β β {1})) β π β
β) |
129 | 48 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β π» = (π β β β¦ (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0,
0β©)))) |
130 | 47 | elexd 3495 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ π β β) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) β
V) |
131 | 129, 130 | fvmpt2d 7007 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β β) β (π»βπ) = (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
132 | 126, 128,
131 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β (β β {1})) β (π»βπ) = (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
133 | | eldifsni 4792 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β (β β {1})
β π β
1) |
134 | 133 | neneqd 2946 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π β (β β {1})
β Β¬ π =
1) |
135 | 134 | iffalsed 4538 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β (β β {1})
β if(π = 1,
β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©) = β¨0,
0β©) |
136 | 135 | mpteq2dv 5249 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β (β β {1})
β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) = (π β π β¦ β¨0, 0β©)) |
137 | 136 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β (β β {1})) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) = (π β π β¦ β¨0, 0β©)) |
138 | 132, 137 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β (β β {1})) β (π»βπ) = (π β π β¦ β¨0, 0β©)) |
139 | 138 | feq1d 6699 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β (β β {1})) β ((π»βπ):πβΆ(β Γ β) β
(π β π β¦ β¨0, 0β©):πβΆ(β Γ
β))) |
140 | 125, 139 | mpbird 257 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β (β β {1})) β (π»βπ):πβΆ(β Γ
β)) |
141 | 140 | adantr 482 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β (π»βπ):πβΆ(β Γ
β)) |
142 | | simpr 486 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β π β π) |
143 | 141, 142 | fvovco 43825 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (β β {1})) β§ π β π) β (([,) β (π»βπ))βπ) = ((1st β((π»βπ)βπ))[,)(2nd β((π»βπ)βπ)))) |
144 | 37 | elexi 3494 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ β¨0,
0β© β V |
145 | 144 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (β β {1})) β§ π β π) β β¨0, 0β© β
V) |
146 | 138, 145 | fvmpt2d 7007 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (β β {1})) β§ π β π) β ((π»βπ)βπ) = β¨0, 0β©) |
147 | 146 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (1st β((π»βπ)βπ)) = (1st ββ¨0,
0β©)) |
148 | 16 | elexi 3494 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ 0 β
V |
149 | 148, 148 | op1st 7978 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(1st ββ¨0, 0β©) = 0 |
150 | 149 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (1st ββ¨0,
0β©) = 0) |
151 | 147, 150 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β (1st β((π»βπ)βπ)) = 0) |
152 | 146 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (2nd β((π»βπ)βπ)) = (2nd ββ¨0,
0β©)) |
153 | 148, 148 | op2nd 7979 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(2nd ββ¨0, 0β©) = 0 |
154 | 153 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (2nd ββ¨0,
0β©) = 0) |
155 | 152, 154 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β (2nd β((π»βπ)βπ)) = 0) |
156 | 151, 155 | oveq12d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (β β {1})) β§ π β π) β ((1st β((π»βπ)βπ))[,)(2nd β((π»βπ)βπ))) = (0[,)0)) |
157 | | 0le0 12309 |
. . . . . . . . . . . . . . . . . . . 20
β’ 0 β€
0 |
158 | | ico0 13366 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((0
β β* β§ 0 β β*) β ((0[,)0)
= β
β 0 β€ 0)) |
159 | 16, 16, 158 | mp2an 691 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((0[,)0)
= β
β 0 β€ 0) |
160 | 157, 159 | mpbir 230 |
. . . . . . . . . . . . . . . . . . 19
β’ (0[,)0) =
β
|
161 | 160 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (β β {1})) β§ π β π) β (0[,)0) = β
) |
162 | 143, 156,
161 | 3eqtrd 2777 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (β β {1})) β§ π β π) β (([,) β (π»βπ))βπ) = β
) |
163 | 162 | fveq2d 6892 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β β {1})) β§ π β π) β (volβ(([,) β (π»βπ))βπ)) = (volββ
)) |
164 | | vol0 44610 |
. . . . . . . . . . . . . . . . 17
β’
(volββ
) = 0 |
165 | 164 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β β {1})) β§ π β π) β (volββ
) =
0) |
166 | 163, 165 | eqtrd 2773 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β β {1})) β§ π β π) β (volβ(([,) β (π»βπ))βπ)) = 0) |
167 | 166 | prodeq2dv 15863 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (β β {1})) β
βπ β π (volβ(([,) β (π»βπ))βπ)) = βπ β π 0) |
168 | 167 | adantlr 714 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
βπ β π (volβ(([,) β (π»βπ))βπ)) = βπ β π 0) |
169 | | 0cnd 11203 |
. . . . . . . . . . . . . . 15
β’ (π β 0 β
β) |
170 | | fprodconst 15918 |
. . . . . . . . . . . . . . 15
β’ ((π β Fin β§ 0 β
β) β βπ
β π 0 =
(0β(β―βπ))) |
171 | 1, 169, 170 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ (π β βπ β π 0 = (0β(β―βπ))) |
172 | 171 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
βπ β π 0 =
(0β(β―βπ))) |
173 | | neqne 2949 |
. . . . . . . . . . . . . . . . 17
β’ (Β¬
π = β
β π β β
) |
174 | 173 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ Β¬ π = β
) β π β β
) |
175 | 1 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ Β¬ π = β
) β π β Fin) |
176 | | hashnncl 14322 |
. . . . . . . . . . . . . . . . 17
β’ (π β Fin β
((β―βπ) β
β β π β
β
)) |
177 | 175, 176 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ Β¬ π = β
) β ((β―βπ) β β β π β β
)) |
178 | 174, 177 | mpbird 257 |
. . . . . . . . . . . . . . 15
β’ ((π β§ Β¬ π = β
) β (β―βπ) β
β) |
179 | | 0exp 14059 |
. . . . . . . . . . . . . . 15
β’
((β―βπ)
β β β (0β(β―βπ)) = 0) |
180 | 178, 179 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ Β¬ π = β
) β
(0β(β―βπ))
= 0) |
181 | 180 | adantr 482 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
(0β(β―βπ))
= 0) |
182 | 168, 172,
181 | 3eqtrd 2777 |
. . . . . . . . . . . 12
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
βπ β π (volβ(([,) β (π»βπ))βπ)) = 0) |
183 | 106, 107,
110, 123, 182 | sge0ss 45063 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π = β
) β
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
184 | 96, 105, 183 | 3eqtrd 2777 |
. . . . . . . . . 10
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
185 | 92, 184 | jca 513 |
. . . . . . . . 9
β’ ((π β§ Β¬ π = β
) β (πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))))) |
186 | | nfcv 2904 |
. . . . . . . . . . . . . . 15
β’
β²ππ |
187 | | nfcv 2904 |
. . . . . . . . . . . . . . . . 17
β’
β²πβ |
188 | | nfmpt1 5255 |
. . . . . . . . . . . . . . . . 17
β’
β²π(π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) |
189 | 187, 188 | nfmpt 5254 |
. . . . . . . . . . . . . . . 16
β’
β²π(π β β β¦ (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
190 | 48, 189 | nfcxfr 2902 |
. . . . . . . . . . . . . . 15
β’
β²ππ» |
191 | 186, 190 | nfeq 2917 |
. . . . . . . . . . . . . 14
β’
β²π π = π» |
192 | | fveq1 6887 |
. . . . . . . . . . . . . . . . 17
β’ (π = π» β (πβπ) = (π»βπ)) |
193 | 192 | coeq2d 5860 |
. . . . . . . . . . . . . . . 16
β’ (π = π» β ([,) β (πβπ)) = ([,) β (π»βπ))) |
194 | 193 | fveq1d 6890 |
. . . . . . . . . . . . . . 15
β’ (π = π» β (([,) β (πβπ))βπ) = (([,) β (π»βπ))βπ)) |
195 | 194 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π = π» β§ π β π) β (([,) β (πβπ))βπ) = (([,) β (π»βπ))βπ)) |
196 | 191, 195 | ixpeq2d 43688 |
. . . . . . . . . . . . 13
β’ (π = π» β Xπ β π (([,) β (πβπ))βπ) = Xπ β π (([,) β (π»βπ))βπ)) |
197 | 196 | iuneq2d 5025 |
. . . . . . . . . . . 12
β’ (π = π» β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) = βͺ π β β Xπ β
π (([,) β (π»βπ))βπ)) |
198 | 197 | sseq2d 4013 |
. . . . . . . . . . 11
β’ (π = π» β (πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ))) |
199 | 194 | fveq2d 6892 |
. . . . . . . . . . . . . . . . 17
β’ (π = π» β (volβ(([,) β (πβπ))βπ)) = (volβ(([,) β (π»βπ))βπ))) |
200 | 199 | a1d 25 |
. . . . . . . . . . . . . . . 16
β’ (π = π» β (π β π β (volβ(([,) β (πβπ))βπ)) = (volβ(([,) β (π»βπ))βπ)))) |
201 | 191, 200 | ralrimi 3255 |
. . . . . . . . . . . . . . 15
β’ (π = π» β βπ β π (volβ(([,) β (πβπ))βπ)) = (volβ(([,) β (π»βπ))βπ))) |
202 | 201 | prodeq2d 15862 |
. . . . . . . . . . . . . 14
β’ (π = π» β βπ β π (volβ(([,) β (πβπ))βπ)) = βπ β π (volβ(([,) β (π»βπ))βπ))) |
203 | 202 | mpteq2dv 5249 |
. . . . . . . . . . . . 13
β’ (π = π» β (π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))) = (π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))) |
204 | 203 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (π = π» β
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
205 | 204 | eqeq2d 2744 |
. . . . . . . . . . 11
β’ (π = π» β (βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))))) |
206 | 198, 205 | anbi12d 632 |
. . . . . . . . . 10
β’ (π = π» β ((πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))) β (πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))))) |
207 | 206 | rspcev 3612 |
. . . . . . . . 9
β’ ((π» β (((β Γ
β) βm π) βm β) β§ (πΌ β βͺ π β β Xπ β π (([,) β (π»βπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))))) β βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))) |
208 | 54, 185, 207 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ Β¬ π = β
) β βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))) |
209 | 32, 208 | jca 513 |
. . . . . . 7
β’ ((π β§ Β¬ π = β
) β (βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β β* β§
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))))) |
210 | | eqeq1 2737 |
. . . . . . . . . 10
β’ (π§ = βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))) |
211 | 210 | anbi2d 630 |
. . . . . . . . 9
β’ (π§ = βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β ((πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))) β (πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))))) |
212 | 211 | rexbidv 3179 |
. . . . . . . 8
β’ (π§ = βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))) β βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))))) |
213 | 212 | elrab 3682 |
. . . . . . 7
β’
(βπ β
π (volβ((π΄βπ)[,)(π΅βπ))) β {π§ β β* β£
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} β (βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β β* β§
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))))) |
214 | 209, 213 | sylibr 233 |
. . . . . 6
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β {π§ β β* β£
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))}) |
215 | 12 | eqcomi 2742 |
. . . . . . 7
β’ {π§ β β*
β£ βπ β
(((β Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} = π |
216 | 215 | a1i 11 |
. . . . . 6
β’ ((π β§ Β¬ π = β
) β {π§ β β* β£
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} = π) |
217 | 214, 216 | eleqtrd 2836 |
. . . . 5
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β π) |
218 | | infxrlb 13309 |
. . . . 5
β’ ((π β β*
β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β π) β inf(π, β*, < ) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
219 | 29, 217, 218 | syl2anc 585 |
. . . 4
β’ ((π β§ Β¬ π = β
) β inf(π, β*, < ) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
220 | 26, 219 | eqbrtrd 5169 |
. . 3
β’ ((π β§ Β¬ π = β
) β if(π = β
, 0, inf(π, β*, < )) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
221 | 24, 220 | pm2.61dan 812 |
. 2
β’ (π β if(π = β
, 0, inf(π, β*, < )) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
222 | 13, 221 | eqbrtrd 5169 |
1
β’ (π β ((voln*βπ)βπΌ) β€ βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |