Step | Hyp | Ref
| Expression |
1 | | ovnhoilem1.x |
. . 3
β’ (π β π β Fin) |
2 | | ovnhoilem1.c |
. . . . 5
β’ πΌ = Xπ β π ((π΄βπ)[,)(π΅βπ)) |
3 | 2 | a1i 11 |
. . . 4
β’ (π β πΌ = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
4 | | nfv 1909 |
. . . . 5
β’
β²ππ |
5 | | ovnhoilem1.a |
. . . . . 6
β’ (π β π΄:πβΆβ) |
6 | 5 | ffvelcdmda 7076 |
. . . . 5
β’ ((π β§ π β π) β (π΄βπ) β β) |
7 | | ovnhoilem1.b |
. . . . . . 7
β’ (π β π΅:πβΆβ) |
8 | 7 | ffvelcdmda 7076 |
. . . . . 6
β’ ((π β§ π β π) β (π΅βπ) β β) |
9 | 8 | rexrd 11261 |
. . . . 5
β’ ((π β§ π β π) β (π΅βπ) β
β*) |
10 | 4, 6, 9 | hoissrrn2 45779 |
. . . 4
β’ (π β Xπ β
π ((π΄βπ)[,)(π΅βπ)) β (β βm π)) |
11 | 3, 10 | eqsstrd 4012 |
. . 3
β’ (π β πΌ β (β βm π)) |
12 | | ovnhoilem1.m |
. . 3
β’ π = {π§ β β* β£
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} |
13 | 1, 11, 12 | ovnval2 45746 |
. 2
β’ (π β ((voln*βπ)βπΌ) = if(π = β
, 0, inf(π, β*, <
))) |
14 | | iftrue 4526 |
. . . . 5
β’ (π = β
β if(π = β
, 0, inf(π, β*, < )) =
0) |
15 | 14 | adantl 481 |
. . . 4
β’ ((π β§ π = β
) β if(π = β
, 0, inf(π, β*, < )) =
0) |
16 | | 0xr 11258 |
. . . . . . 7
β’ 0 β
β* |
17 | 16 | a1i 11 |
. . . . . 6
β’ (π β 0 β
β*) |
18 | | pnfxr 11265 |
. . . . . . 7
β’ +β
β β* |
19 | 18 | a1i 11 |
. . . . . 6
β’ (π β +β β
β*) |
20 | 4, 1, 6, 8 | hoiprodcl3 45781 |
. . . . . 6
β’ (π β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (0[,)+β)) |
21 | | icogelb 13372 |
. . . . . 6
β’ ((0
β β* β§ +β β β* β§
βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (0[,)+β)) β 0 β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
22 | 17, 19, 20, 21 | syl3anc 1368 |
. . . . 5
β’ (π β 0 β€ βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
23 | 22 | adantr 480 |
. . . 4
β’ ((π β§ π = β
) β 0 β€ βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
24 | 15, 23 | eqbrtrd 5160 |
. . 3
β’ ((π β§ π = β
) β if(π = β
, 0, inf(π, β*, < )) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
25 | | iffalse 4529 |
. . . . 5
β’ (Β¬
π = β
β if(π = β
, 0, inf(π, β*, < )) =
inf(π, β*,
< )) |
26 | 25 | adantl 481 |
. . . 4
β’ ((π β§ Β¬ π = β
) β if(π = β
, 0, inf(π, β*, < )) = inf(π, β*, <
)) |
27 | | ssrab2 4069 |
. . . . . . 7
β’ {π§ β β*
β£ βπ β
(((β Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} β
β* |
28 | 12, 27 | eqsstri 4008 |
. . . . . 6
β’ π β
β* |
29 | 28 | a1i 11 |
. . . . 5
β’ ((π β§ Β¬ π = β
) β π β
β*) |
30 | | icossxr 13406 |
. . . . . . . . . 10
β’
(0[,)+β) β β* |
31 | 30, 20 | sselid 3972 |
. . . . . . . . 9
β’ (π β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β
β*) |
32 | 31 | adantr 480 |
. . . . . . . 8
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β
β*) |
33 | | opelxpi 5703 |
. . . . . . . . . . . . . . . . 17
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β β¨(π΄βπ), (π΅βπ)β© β (β Γ
β)) |
34 | 6, 8, 33 | syl2anc 583 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β β¨(π΄βπ), (π΅βπ)β© β (β Γ
β)) |
35 | | 0re 11213 |
. . . . . . . . . . . . . . . . . 18
β’ 0 β
β |
36 | | opelxpi 5703 |
. . . . . . . . . . . . . . . . . 18
β’ ((0
β β β§ 0 β β) β β¨0, 0β© β (β
Γ β)) |
37 | 35, 35, 36 | mp2an 689 |
. . . . . . . . . . . . . . . . 17
β’ β¨0,
0β© β (β Γ β) |
38 | 37 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β β¨0, 0β© β (β
Γ β)) |
39 | 34, 38 | ifcld 4566 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©) β (β
Γ β)) |
40 | 39 | fmpttd 7106 |
. . . . . . . . . . . . . 14
β’ (π β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)):πβΆ(β Γ
β)) |
41 | | reex 11197 |
. . . . . . . . . . . . . . . . 17
β’ β
β V |
42 | 41, 41 | xpex 7733 |
. . . . . . . . . . . . . . . 16
β’ (β
Γ β) β V |
43 | 1, 42 | jctil 519 |
. . . . . . . . . . . . . . 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 480 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) β ((β
Γ β) βm π)) |
48 | | ovnhoilem1.h |
. . . . . . . . . . . 12
β’ π» = (π β β β¦ (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
49 | 47, 48 | fmptd 7105 |
. . . . . . . . . . 11
β’ (π β π»:ββΆ((β Γ β)
βm π)) |
50 | | ovex 7434 |
. . . . . . . . . . . 12
β’ ((β
Γ β) βm π) β V |
51 | | nnex 12215 |
. . . . . . . . . . . 12
β’ β
β V |
52 | 50, 51 | elmap 8861 |
. . . . . . . . . . 11
β’ (π» β (((β Γ
β) βm π) βm β) β π»:ββΆ((β
Γ β) βm π)) |
53 | 49, 52 | sylibr 233 |
. . . . . . . . . 10
β’ (π β π» β (((β Γ β)
βm π)
βm β)) |
54 | 53 | adantr 480 |
. . . . . . . . 9
β’ ((π β§ Β¬ π = β
) β π» β (((β Γ β)
βm π)
βm β)) |
55 | | eqidd 2725 |
. . . . . . . . . . . . 13
β’ (π β Xπ β
π ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
56 | 34 | fmpttd 7106 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π β π β¦ β¨(π΄βπ), (π΅βπ)β©):πβΆ(β Γ
β)) |
57 | | iftrue 4526 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 1 β if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©) = β¨(π΄βπ), (π΅βπ)β©) |
58 | 57 | mpteq2dv 5240 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = 1 β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) = (π β π β¦ β¨(π΄βπ), (π΅βπ)β©)) |
59 | | 1nn 12220 |
. . . . . . . . . . . . . . . . . . . . 21
β’ 1 β
β |
60 | 59 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β 1 β
β) |
61 | | mptexg 7214 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β Fin β (π β π β¦ β¨(π΄βπ), (π΅βπ)β©) β V) |
62 | 1, 61 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π β π β¦ β¨(π΄βπ), (π΅βπ)β©) β V) |
63 | 48, 58, 60, 62 | fvmptd3 7011 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π»β1) = (π β π β¦ β¨(π΄βπ), (π΅βπ)β©)) |
64 | 63 | feq1d 6692 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ((π»β1):πβΆ(β Γ β) β
(π β π β¦ β¨(π΄βπ), (π΅βπ)β©):πβΆ(β Γ
β))) |
65 | 56, 64 | mpbird 257 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π»β1):πβΆ(β Γ
β)) |
66 | 65 | adantr 480 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β (π»β1):πβΆ(β Γ
β)) |
67 | | simpr 484 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β π β π) |
68 | 66, 67 | fvovco 44377 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β (([,) β (π»β1))βπ) = ((1st β((π»β1)βπ))[,)(2nd
β((π»β1)βπ)))) |
69 | 34 | elexd 3487 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π) β β¨(π΄βπ), (π΅βπ)β© β V) |
70 | 63, 69 | fvmpt2d 7001 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π) β ((π»β1)βπ) = β¨(π΄βπ), (π΅βπ)β©) |
71 | 70 | fveq2d 6885 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (1st β((π»β1)βπ)) = (1st
ββ¨(π΄βπ), (π΅βπ)β©)) |
72 | | fvex 6894 |
. . . . . . . . . . . . . . . . . . 19
β’ (π΄βπ) β V |
73 | | fvex 6894 |
. . . . . . . . . . . . . . . . . . 19
β’ (π΅βπ) β V |
74 | 72, 73 | op1st 7976 |
. . . . . . . . . . . . . . . . . 18
β’
(1st ββ¨(π΄βπ), (π΅βπ)β©) = (π΄βπ) |
75 | 74 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (1st ββ¨(π΄βπ), (π΅βπ)β©) = (π΄βπ)) |
76 | 71, 75 | eqtrd 2764 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β (1st β((π»β1)βπ)) = (π΄βπ)) |
77 | 70 | fveq2d 6885 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (2nd β((π»β1)βπ)) = (2nd
ββ¨(π΄βπ), (π΅βπ)β©)) |
78 | 72, 73 | op2nd 7977 |
. . . . . . . . . . . . . . . . . 18
β’
(2nd ββ¨(π΄βπ), (π΅βπ)β©) = (π΅βπ) |
79 | 78 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (2nd ββ¨(π΄βπ), (π΅βπ)β©) = (π΅βπ)) |
80 | 77, 79 | eqtrd 2764 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β (2nd β((π»β1)βπ)) = (π΅βπ)) |
81 | 76, 80 | oveq12d 7419 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β ((1st β((π»β1)βπ))[,)(2nd
β((π»β1)βπ))) = ((π΄βπ)[,)(π΅βπ))) |
82 | 68, 81 | eqtrd 2764 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (([,) β (π»β1))βπ) = ((π΄βπ)[,)(π΅βπ))) |
83 | 82 | ixpeq2dva 8902 |
. . . . . . . . . . . . 13
β’ (π β Xπ β
π (([,) β (π»β1))βπ) = Xπ β
π ((π΄βπ)[,)(π΅βπ))) |
84 | 55, 3, 83 | 3eqtr4d 2774 |
. . . . . . . . . . . 12
β’ (π β πΌ = Xπ β π (([,) β (π»β1))βπ)) |
85 | | fveq2 6881 |
. . . . . . . . . . . . . . . . 17
β’ (π = 1 β (π»βπ) = (π»β1)) |
86 | 85 | coeq2d 5852 |
. . . . . . . . . . . . . . . 16
β’ (π = 1 β ([,) β (π»βπ)) = ([,) β (π»β1))) |
87 | 86 | fveq1d 6883 |
. . . . . . . . . . . . . . 15
β’ (π = 1 β (([,) β (π»βπ))βπ) = (([,) β (π»β1))βπ)) |
88 | 87 | ixpeq2dv 8903 |
. . . . . . . . . . . . . 14
β’ (π = 1 β Xπ β
π (([,) β (π»βπ))βπ) = Xπ β π (([,) β (π»β1))βπ)) |
89 | 88 | ssiun2s 5041 |
. . . . . . . . . . . . 13
β’ (1 β
β β Xπ β π (([,) β (π»β1))βπ) β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ)) |
90 | 59, 89 | ax-mp 5 |
. . . . . . . . . . . 12
β’ Xπ β
π (([,) β (π»β1))βπ) β βͺ π β β Xπ β π (([,) β (π»βπ))βπ) |
91 | 84, 90 | eqsstrdi 4028 |
. . . . . . . . . . 11
β’ (π β πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ)) |
92 | 91 | adantr 480 |
. . . . . . . . . 10
β’ ((π β§ Β¬ π = β
) β πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ)) |
93 | 82 | fveq2d 6885 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (volβ(([,) β (π»β1))βπ)) = (volβ((π΄βπ)[,)(π΅βπ)))) |
94 | 93 | eqcomd 2730 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) = (volβ(([,) β (π»β1))βπ))) |
95 | 94 | prodeq2dv 15864 |
. . . . . . . . . . . 12
β’ (π β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = βπ β π (volβ(([,) β (π»β1))βπ))) |
96 | 95 | adantr 480 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = βπ β π (volβ(([,) β (π»β1))βπ))) |
97 | | 1red 11212 |
. . . . . . . . . . . . . 14
β’ (π β 1 β
β) |
98 | | icossicc 13410 |
. . . . . . . . . . . . . . 15
β’
(0[,)+β) β (0[,]+β) |
99 | 4, 1, 65 | hoiprodcl 45748 |
. . . . . . . . . . . . . . 15
β’ (π β βπ β π (volβ(([,) β (π»β1))βπ)) β (0[,)+β)) |
100 | 98, 99 | sselid 3972 |
. . . . . . . . . . . . . 14
β’ (π β βπ β π (volβ(([,) β (π»β1))βπ)) β (0[,]+β)) |
101 | 87 | fveq2d 6885 |
. . . . . . . . . . . . . . 15
β’ (π = 1 β (volβ(([,)
β (π»βπ))βπ)) = (volβ(([,) β (π»β1))βπ))) |
102 | 101 | prodeq2ad 44793 |
. . . . . . . . . . . . . 14
β’ (π = 1 β βπ β π (volβ(([,) β (π»βπ))βπ)) = βπ β π (volβ(([,) β (π»β1))βπ))) |
103 | 97, 100, 102 | sge0snmpt 45584 |
. . . . . . . . . . . . 13
β’ (π β
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))) = βπ β π (volβ(([,) β (π»β1))βπ))) |
104 | 103 | eqcomd 2730 |
. . . . . . . . . . . 12
β’ (π β βπ β π (volβ(([,) β (π»β1))βπ)) =
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
105 | 104 | adantr 480 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ(([,) β (π»β1))βπ)) =
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
106 | | nfv 1909 |
. . . . . . . . . . . 12
β’
β²π(π β§ Β¬ π = β
) |
107 | 51 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ Β¬ π = β
) β β β
V) |
108 | | snssi 4803 |
. . . . . . . . . . . . . 14
β’ (1 β
β β {1} β β) |
109 | 59, 108 | ax-mp 5 |
. . . . . . . . . . . . 13
β’ {1}
β β |
110 | 109 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ Β¬ π = β
) β {1} β
β) |
111 | | nfv 1909 |
. . . . . . . . . . . . . 14
β’
β²π((π β§ Β¬ π = β
) β§ π β {1}) |
112 | 1 | ad2antrr 723 |
. . . . . . . . . . . . . 14
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β π β Fin) |
113 | | simpl 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β {1}) β π) |
114 | | elsni 4637 |
. . . . . . . . . . . . . . . . 17
β’ (π β {1} β π = 1) |
115 | 114 | adantl 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β {1}) β π = 1) |
116 | 65 | adantr 480 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π = 1) β (π»β1):πβΆ(β Γ
β)) |
117 | 85 | adantl 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π = 1) β (π»βπ) = (π»β1)) |
118 | 117 | feq1d 6692 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π = 1) β ((π»βπ):πβΆ(β Γ β) β
(π»β1):πβΆ(β Γ
β))) |
119 | 116, 118 | mpbird 257 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π = 1) β (π»βπ):πβΆ(β Γ
β)) |
120 | 113, 115,
119 | syl2anc 583 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β {1}) β (π»βπ):πβΆ(β Γ
β)) |
121 | 120 | adantlr 712 |
. . . . . . . . . . . . . 14
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β (π»βπ):πβΆ(β Γ
β)) |
122 | 111, 112,
121 | hoiprodcl 45748 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β βπ β π (volβ(([,) β (π»βπ))βπ)) β (0[,)+β)) |
123 | 98, 122 | sselid 3972 |
. . . . . . . . . . . 12
β’ (((π β§ Β¬ π = β
) β§ π β {1}) β βπ β π (volβ(([,) β (π»βπ))βπ)) β (0[,]+β)) |
124 | 38 | fmpttd 7106 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (π β π β¦ β¨0, 0β©):πβΆ(β Γ
β)) |
125 | 124 | adantr 480 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β (β β {1})) β (π β π β¦ β¨0, 0β©):πβΆ(β Γ
β)) |
126 | | simpl 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β (β β {1})) β π) |
127 | | eldifi 4118 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β (β β {1})
β π β
β) |
128 | 127 | adantl 481 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β (β β {1})) β π β
β) |
129 | 48 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β π» = (π β β β¦ (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0,
0β©)))) |
130 | 47 | elexd 3487 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ π β β) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) β
V) |
131 | 129, 130 | fvmpt2d 7001 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β β) β (π»βπ) = (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
132 | 126, 128,
131 | syl2anc 583 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β (β β {1})) β (π»βπ) = (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
133 | | eldifsni 4785 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β (β β {1})
β π β
1) |
134 | 133 | neneqd 2937 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π β (β β {1})
β Β¬ π =
1) |
135 | 134 | iffalsed 4531 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β (β β {1})
β if(π = 1,
β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©) = β¨0,
0β©) |
136 | 135 | mpteq2dv 5240 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β (β β {1})
β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) = (π β π β¦ β¨0, 0β©)) |
137 | 136 | adantl 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β (β β {1})) β (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) = (π β π β¦ β¨0, 0β©)) |
138 | 132, 137 | eqtrd 2764 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β (β β {1})) β (π»βπ) = (π β π β¦ β¨0, 0β©)) |
139 | 138 | feq1d 6692 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β (β β {1})) β ((π»βπ):πβΆ(β Γ β) β
(π β π β¦ β¨0, 0β©):πβΆ(β Γ
β))) |
140 | 125, 139 | mpbird 257 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β (β β {1})) β (π»βπ):πβΆ(β Γ
β)) |
141 | 140 | adantr 480 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β (π»βπ):πβΆ(β Γ
β)) |
142 | | simpr 484 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β π β π) |
143 | 141, 142 | fvovco 44377 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (β β {1})) β§ π β π) β (([,) β (π»βπ))βπ) = ((1st β((π»βπ)βπ))[,)(2nd β((π»βπ)βπ)))) |
144 | 37 | elexi 3486 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ β¨0,
0β© β V |
145 | 144 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β (β β {1})) β§ π β π) β β¨0, 0β© β
V) |
146 | 138, 145 | fvmpt2d 7001 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β (β β {1})) β§ π β π) β ((π»βπ)βπ) = β¨0, 0β©) |
147 | 146 | fveq2d 6885 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (1st β((π»βπ)βπ)) = (1st ββ¨0,
0β©)) |
148 | 16 | elexi 3486 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ 0 β
V |
149 | 148, 148 | op1st 7976 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(1st ββ¨0, 0β©) = 0 |
150 | 149 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (1st ββ¨0,
0β©) = 0) |
151 | 147, 150 | eqtrd 2764 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β (1st β((π»βπ)βπ)) = 0) |
152 | 146 | fveq2d 6885 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (2nd β((π»βπ)βπ)) = (2nd ββ¨0,
0β©)) |
153 | 148, 148 | op2nd 7977 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(2nd ββ¨0, 0β©) = 0 |
154 | 153 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β (β β {1})) β§ π β π) β (2nd ββ¨0,
0β©) = 0) |
155 | 152, 154 | eqtrd 2764 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β (β β {1})) β§ π β π) β (2nd β((π»βπ)βπ)) = 0) |
156 | 151, 155 | oveq12d 7419 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β (β β {1})) β§ π β π) β ((1st β((π»βπ)βπ))[,)(2nd β((π»βπ)βπ))) = (0[,)0)) |
157 | | 0le0 12310 |
. . . . . . . . . . . . . . . . . . . 20
β’ 0 β€
0 |
158 | | ico0 13367 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((0
β β* β§ 0 β β*) β ((0[,)0)
= β
β 0 β€ 0)) |
159 | 16, 16, 158 | mp2an 689 |
. . . . . . . . . . . . . . . . . . . 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 2768 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β (β β {1})) β§ π β π) β (([,) β (π»βπ))βπ) = β
) |
163 | 162 | fveq2d 6885 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β β {1})) β§ π β π) β (volβ(([,) β (π»βπ))βπ)) = (volββ
)) |
164 | | vol0 45160 |
. . . . . . . . . . . . . . . . 17
β’
(volββ
) = 0 |
165 | 164 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β β {1})) β§ π β π) β (volββ
) =
0) |
166 | 163, 165 | eqtrd 2764 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β β {1})) β§ π β π) β (volβ(([,) β (π»βπ))βπ)) = 0) |
167 | 166 | prodeq2dv 15864 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (β β {1})) β
βπ β π (volβ(([,) β (π»βπ))βπ)) = βπ β π 0) |
168 | 167 | adantlr 712 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
βπ β π (volβ(([,) β (π»βπ))βπ)) = βπ β π 0) |
169 | | 0cnd 11204 |
. . . . . . . . . . . . . . 15
β’ (π β 0 β
β) |
170 | | fprodconst 15919 |
. . . . . . . . . . . . . . 15
β’ ((π β Fin β§ 0 β
β) β βπ
β π 0 =
(0β(β―βπ))) |
171 | 1, 169, 170 | syl2anc 583 |
. . . . . . . . . . . . . 14
β’ (π β βπ β π 0 = (0β(β―βπ))) |
172 | 171 | ad2antrr 723 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
βπ β π 0 =
(0β(β―βπ))) |
173 | | neqne 2940 |
. . . . . . . . . . . . . . . . 17
β’ (Β¬
π = β
β π β β
) |
174 | 173 | adantl 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ Β¬ π = β
) β π β β
) |
175 | 1 | adantr 480 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ Β¬ π = β
) β π β Fin) |
176 | | hashnncl 14323 |
. . . . . . . . . . . . . . . . 17
β’ (π β Fin β
((β―βπ) β
β β π β
β
)) |
177 | 175, 176 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ Β¬ π = β
) β ((β―βπ) β β β π β β
)) |
178 | 174, 177 | mpbird 257 |
. . . . . . . . . . . . . . 15
β’ ((π β§ Β¬ π = β
) β (β―βπ) β
β) |
179 | | 0exp 14060 |
. . . . . . . . . . . . . . 15
β’
((β―βπ)
β β β (0β(β―βπ)) = 0) |
180 | 178, 179 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ Β¬ π = β
) β
(0β(β―βπ))
= 0) |
181 | 180 | adantr 480 |
. . . . . . . . . . . . 13
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
(0β(β―βπ))
= 0) |
182 | 168, 172,
181 | 3eqtrd 2768 |
. . . . . . . . . . . 12
β’ (((π β§ Β¬ π = β
) β§ π β (β β {1})) β
βπ β π (volβ(([,) β (π»βπ))βπ)) = 0) |
183 | 106, 107,
110, 123, 182 | sge0ss 45613 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π = β
) β
(Ξ£^β(π β {1} β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
184 | 96, 105, 183 | 3eqtrd 2768 |
. . . . . . . . . 10
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
185 | 92, 184 | jca 511 |
. . . . . . . . 9
β’ ((π β§ Β¬ π = β
) β (πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))))) |
186 | | nfcv 2895 |
. . . . . . . . . . . . . . 15
β’
β²ππ |
187 | | nfcv 2895 |
. . . . . . . . . . . . . . . . 17
β’
β²πβ |
188 | | nfmpt1 5246 |
. . . . . . . . . . . . . . . . 17
β’
β²π(π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©)) |
189 | 187, 188 | nfmpt 5245 |
. . . . . . . . . . . . . . . 16
β’
β²π(π β β β¦ (π β π β¦ if(π = 1, β¨(π΄βπ), (π΅βπ)β©, β¨0, 0β©))) |
190 | 48, 189 | nfcxfr 2893 |
. . . . . . . . . . . . . . 15
β’
β²ππ» |
191 | 186, 190 | nfeq 2908 |
. . . . . . . . . . . . . 14
β’
β²π π = π» |
192 | | fveq1 6880 |
. . . . . . . . . . . . . . . . 17
β’ (π = π» β (πβπ) = (π»βπ)) |
193 | 192 | coeq2d 5852 |
. . . . . . . . . . . . . . . 16
β’ (π = π» β ([,) β (πβπ)) = ([,) β (π»βπ))) |
194 | 193 | fveq1d 6883 |
. . . . . . . . . . . . . . 15
β’ (π = π» β (([,) β (πβπ))βπ) = (([,) β (π»βπ))βπ)) |
195 | 194 | adantr 480 |
. . . . . . . . . . . . . 14
β’ ((π = π» β§ π β π) β (([,) β (πβπ))βπ) = (([,) β (π»βπ))βπ)) |
196 | 191, 195 | ixpeq2d 44243 |
. . . . . . . . . . . . 13
β’ (π = π» β Xπ β π (([,) β (πβπ))βπ) = Xπ β π (([,) β (π»βπ))βπ)) |
197 | 196 | iuneq2d 5016 |
. . . . . . . . . . . 12
β’ (π = π» β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) = βͺ π β β Xπ β
π (([,) β (π»βπ))βπ)) |
198 | 197 | sseq2d 4006 |
. . . . . . . . . . 11
β’ (π = π» β (πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ))) |
199 | 194 | fveq2d 6885 |
. . . . . . . . . . . . . . . . 17
β’ (π = π» β (volβ(([,) β (πβπ))βπ)) = (volβ(([,) β (π»βπ))βπ))) |
200 | 199 | a1d 25 |
. . . . . . . . . . . . . . . 16
β’ (π = π» β (π β π β (volβ(([,) β (πβπ))βπ)) = (volβ(([,) β (π»βπ))βπ)))) |
201 | 191, 200 | ralrimi 3246 |
. . . . . . . . . . . . . . 15
β’ (π = π» β βπ β π (volβ(([,) β (πβπ))βπ)) = (volβ(([,) β (π»βπ))βπ))) |
202 | 201 | prodeq2d 15863 |
. . . . . . . . . . . . . 14
β’ (π = π» β βπ β π (volβ(([,) β (πβπ))βπ)) = βπ β π (volβ(([,) β (π»βπ))βπ))) |
203 | 202 | mpteq2dv 5240 |
. . . . . . . . . . . . 13
β’ (π = π» β (π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))) = (π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))) |
204 | 203 | fveq2d 6885 |
. . . . . . . . . . . 12
β’ (π = π» β
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))) |
205 | 204 | eqeq2d 2735 |
. . . . . . . . . . 11
β’ (π = π» β (βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))))) |
206 | 198, 205 | anbi12d 630 |
. . . . . . . . . 10
β’ (π = π» β ((πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))) β (πΌ β βͺ
π β β Xπ β
π (([,) β (π»βπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ))))))) |
207 | 206 | rspcev 3604 |
. . . . . . . . 9
β’ ((π» β (((β Γ
β) βm π) βm β) β§ (πΌ β βͺ π β β Xπ β π (([,) β (π»βπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (π»βπ))βπ)))))) β βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))) |
208 | 54, 185, 207 | syl2anc 583 |
. . . . . . . 8
β’ ((π β§ Β¬ π = β
) β βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))) |
209 | 32, 208 | jca 511 |
. . . . . . 7
β’ ((π β§ Β¬ π = β
) β (βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β β* β§
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))))) |
210 | | eqeq1 2728 |
. . . . . . . . . 10
β’ (π§ = βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))) |
211 | 210 | anbi2d 628 |
. . . . . . . . 9
β’ (π§ = βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β ((πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))) β (πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))))) |
212 | 211 | rexbidv 3170 |
. . . . . . . 8
β’ (π§ = βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β (βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))) β βπ β (((β Γ β)
βm π)
βm β)(πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ))))))) |
213 | 212 | elrab 3675 |
. . . . . . 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 2733 |
. . . . . . 7
β’ {π§ β β*
β£ βπ β
(((β Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} = π |
216 | 215 | a1i 11 |
. . . . . 6
β’ ((π β§ Β¬ π = β
) β {π§ β β* β£
βπ β (((β
Γ β) βm π) βm β)(πΌ β βͺ π β β Xπ β π (([,) β (πβπ))βπ) β§ π§ =
(Ξ£^β(π β β β¦ βπ β π (volβ(([,) β (πβπ))βπ)))))} = π) |
217 | 214, 216 | eleqtrd 2827 |
. . . . 5
β’ ((π β§ Β¬ π = β
) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β π) |
218 | | infxrlb 13310 |
. . . . 5
β’ ((π β β*
β§ βπ β π (volβ((π΄βπ)[,)(π΅βπ))) β π) β inf(π, β*, < ) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
219 | 29, 217, 218 | syl2anc 583 |
. . . 4
β’ ((π β§ Β¬ π = β
) β inf(π, β*, < ) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
220 | 26, 219 | eqbrtrd 5160 |
. . 3
β’ ((π β§ Β¬ π = β
) β if(π = β
, 0, inf(π, β*, < )) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
221 | 24, 220 | pm2.61dan 810 |
. 2
β’ (π β if(π = β
, 0, inf(π, β*, < )) β€
βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
222 | 13, 221 | eqbrtrd 5160 |
1
β’ (π β ((voln*βπ)βπΌ) β€ βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |