Step | Hyp | Ref
| Expression |
1 | | hoidmv1le.b |
. . . . . . . . . 10
β’ (π β π΅:πβΆβ) |
2 | | hoidmv1le.z |
. . . . . . . . . . . 12
β’ (π β π β π) |
3 | | snidg 4661 |
. . . . . . . . . . . 12
β’ (π β π β π β {π}) |
4 | 2, 3 | syl 17 |
. . . . . . . . . . 11
β’ (π β π β {π}) |
5 | | hoidmv1le.x |
. . . . . . . . . . 11
β’ π = {π} |
6 | 4, 5 | eleqtrrdi 2845 |
. . . . . . . . . 10
β’ (π β π β π) |
7 | 1, 6 | ffvelcdmd 7083 |
. . . . . . . . 9
β’ (π β (π΅βπ) β β) |
8 | | hoidmv1le.a |
. . . . . . . . . 10
β’ (π β π΄:πβΆβ) |
9 | 8, 6 | ffvelcdmd 7083 |
. . . . . . . . 9
β’ (π β (π΄βπ) β β) |
10 | 7, 9 | resubcld 11638 |
. . . . . . . 8
β’ (π β ((π΅βπ) β (π΄βπ)) β β) |
11 | 10 | rexrd 11260 |
. . . . . . 7
β’ (π β ((π΅βπ) β (π΄βπ)) β
β*) |
12 | | pnfxr 11264 |
. . . . . . . 8
β’ +β
β β* |
13 | 12 | a1i 11 |
. . . . . . 7
β’ (π β +β β
β*) |
14 | 10 | ltpnfd 13097 |
. . . . . . 7
β’ (π β ((π΅βπ) β (π΄βπ)) < +β) |
15 | 11, 13, 14 | xrltled 13125 |
. . . . . 6
β’ (π β ((π΅βπ) β (π΄βπ)) β€ +β) |
16 | 15 | ad2antrr 725 |
. . . . 5
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β ((π΅βπ) β (π΄βπ)) β€ +β) |
17 | | id 22 |
. . . . . . 7
β’
((Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β β
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) |
18 | 17 | eqcomd 2739 |
. . . . . 6
β’
((Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β β +β =
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
19 | 18 | adantl 483 |
. . . . 5
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β +β =
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
20 | 16, 19 | breqtrd 5173 |
. . . 4
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β ((π΅βπ) β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
21 | | simpl 484 |
. . . . 5
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§ Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β (π β§ (π΄βπ) < (π΅βπ))) |
22 | | simpr 486 |
. . . . . 6
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§ Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) |
23 | | nnex 12214 |
. . . . . . . 8
β’ β
β V |
24 | 23 | a1i 11 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§ Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β β β
V) |
25 | | hoidmv1le.l |
. . . . . . . . . . . 12
β’ πΏ = (π₯ β Fin β¦ (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) |
26 | 5 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β π = {π}) |
27 | | snfi 9040 |
. . . . . . . . . . . . . . 15
β’ {π} β Fin |
28 | 27 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β {π} β Fin) |
29 | 26, 28 | eqeltrd 2834 |
. . . . . . . . . . . . 13
β’ (π β π β Fin) |
30 | 29 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β π β Fin) |
31 | 6 | ne0d 4334 |
. . . . . . . . . . . . 13
β’ (π β π β β
) |
32 | 31 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β π β β
) |
33 | | hoidmv1le.c |
. . . . . . . . . . . . . 14
β’ (π β πΆ:ββΆ(β βm
π)) |
34 | 33 | ffvelcdmda 7082 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (πΆβπ) β (β βm π)) |
35 | | elmapi 8839 |
. . . . . . . . . . . . 13
β’ ((πΆβπ) β (β βm π) β (πΆβπ):πβΆβ) |
36 | 34, 35 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (πΆβπ):πβΆβ) |
37 | | hoidmv1le.d |
. . . . . . . . . . . . . 14
β’ (π β π·:ββΆ(β βm
π)) |
38 | 37 | ffvelcdmda 7082 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (π·βπ) β (β βm π)) |
39 | | elmapi 8839 |
. . . . . . . . . . . . 13
β’ ((π·βπ) β (β βm π) β (π·βπ):πβΆβ) |
40 | 38, 39 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (π·βπ):πβΆβ) |
41 | 25, 30, 32, 36, 40 | hoidmvn0val 45235 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)(π·βπ)) = βπ β π (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
42 | 5 | prodeq1i 15858 |
. . . . . . . . . . . 12
β’
βπ β
π (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) = βπ β {π} (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) |
43 | 42 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β βπ β π (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) = βπ β {π} (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
44 | 2 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β π β π) |
45 | 6 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β π β π) |
46 | 36, 45 | ffvelcdmd 7083 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β ((πΆβπ)βπ) β β) |
47 | 40, 45 | ffvelcdmd 7083 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β ((π·βπ)βπ) β β) |
48 | | volicore 45232 |
. . . . . . . . . . . . . 14
β’ ((((πΆβπ)βπ) β β β§ ((π·βπ)βπ) β β) β (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) β β) |
49 | 46, 47, 48 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) β β) |
50 | 49 | recnd 11238 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) β β) |
51 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = π β ((πΆβπ)βπ) = ((πΆβπ)βπ)) |
52 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = π β ((π·βπ)βπ) = ((π·βπ)βπ)) |
53 | 51, 52 | oveq12d 7422 |
. . . . . . . . . . . . . 14
β’ (π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
54 | 53 | fveq2d 6892 |
. . . . . . . . . . . . 13
β’ (π = π β (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) = (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
55 | 54 | prodsn 15902 |
. . . . . . . . . . . 12
β’ ((π β π β§ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) β β) β βπ β {π} (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) = (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
56 | 44, 50, 55 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β βπ β {π} (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) = (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
57 | 41, 43, 56 | 3eqtrd 2777 |
. . . . . . . . . 10
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)(π·βπ)) = (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
58 | 57 | mpteq2dva 5247 |
. . . . . . . . 9
β’ (π β (π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))) = (π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) |
59 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (πβπ) = (πβπ)) |
60 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (πβπ) = (πβπ)) |
61 | 59, 60 | oveq12d 7422 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β ((πβπ)[,)(πβπ)) = ((πβπ)[,)(πβπ))) |
62 | 61 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (volβ((πβπ)[,)(πβπ))) = (volβ((πβπ)[,)(πβπ)))) |
63 | 62 | cbvprodv 15856 |
. . . . . . . . . . . . . . . . 17
β’
βπ β
π₯ (volβ((πβπ)[,)(πβπ))) = βπ β π₯ (volβ((πβπ)[,)(πβπ))) |
64 | | ifeq2 4532 |
. . . . . . . . . . . . . . . . 17
β’
(βπ β
π₯ (volβ((πβπ)[,)(πβπ))) = βπ β π₯ (volβ((πβπ)[,)(πβπ))) β if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))) = if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ))))) |
65 | 63, 64 | ax-mp 5 |
. . . . . . . . . . . . . . . 16
β’ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))) = if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))) |
66 | 65 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ ((π β (β
βm π₯) β§
π β (β
βm π₯))
β if(π₯ = β
, 0,
βπ β π₯ (volβ((πβπ)[,)(πβπ)))) = if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ))))) |
67 | 66 | mpoeq3ia 7482 |
. . . . . . . . . . . . . 14
β’ (π β (β
βm π₯),
π β (β
βm π₯)
β¦ if(π₯ = β
, 0,
βπ β π₯ (volβ((πβπ)[,)(πβπ))))) = (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ))))) |
68 | 67 | mpteq2i 5252 |
. . . . . . . . . . . . 13
β’ (π₯ β Fin β¦ (π β (β
βm π₯),
π β (β
βm π₯)
β¦ if(π₯ = β
, 0,
βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) = (π₯ β Fin β¦ (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) |
69 | 25, 68 | eqtri 2761 |
. . . . . . . . . . . 12
β’ πΏ = (π₯ β Fin β¦ (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) |
70 | 69, 30, 36, 40 | hoidmvcl 45233 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β ((πΆβπ)(πΏβπ)(π·βπ)) β (0[,)+β)) |
71 | | eqid 2733 |
. . . . . . . . . . 11
β’ (π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))) = (π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))) |
72 | 70, 71 | fmptd 7109 |
. . . . . . . . . 10
β’ (π β (π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))):ββΆ(0[,)+β)) |
73 | | icossicc 13409 |
. . . . . . . . . . 11
β’
(0[,)+β) β (0[,]+β) |
74 | 73 | a1i 11 |
. . . . . . . . . 10
β’ (π β (0[,)+β) β
(0[,]+β)) |
75 | 72, 74 | fssd 6732 |
. . . . . . . . 9
β’ (π β (π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))):ββΆ(0[,]+β)) |
76 | 58, 75 | feq1dd 43796 |
. . . . . . . 8
β’ (π β (π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))):ββΆ(0[,]+β)) |
77 | 76 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§ Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β (π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))):ββΆ(0[,]+β)) |
78 | 24, 77 | sge0repnf 45037 |
. . . . . 6
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§ Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β
((Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β β Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β)) |
79 | 22, 78 | mpbird 257 |
. . . . 5
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§ Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) |
80 | 9 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β (π΄βπ) β β) |
81 | 7 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β (π΅βπ) β β) |
82 | | simplr 768 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β (π΄βπ) < (π΅βπ)) |
83 | | eqid 2733 |
. . . . . . . . 9
β’ (π β β β¦ ((πΆβπ)βπ)) = (π β β β¦ ((πΆβπ)βπ)) |
84 | 46, 83 | fmptd 7109 |
. . . . . . . 8
β’ (π β (π β β β¦ ((πΆβπ)βπ)):ββΆβ) |
85 | 84 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β (π β β β¦ ((πΆβπ)βπ)):ββΆβ) |
86 | | eqid 2733 |
. . . . . . . . 9
β’ (π β β β¦ ((π·βπ)βπ)) = (π β β β¦ ((π·βπ)βπ)) |
87 | 47, 86 | fmptd 7109 |
. . . . . . . 8
β’ (π β (π β β β¦ ((π·βπ)βπ)):ββΆβ) |
88 | 87 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β (π β β β¦ ((π·βπ)βπ)):ββΆβ) |
89 | | hoidmv1le.s |
. . . . . . . . . . . . . . . . 17
β’ (π β Xπ β
π ((π΄βπ)[,)(π΅βπ)) β βͺ π β β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
90 | 5 | eleq2i 2826 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β π β π β {π}) |
91 | 90 | biimpi 215 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β π β π β {π}) |
92 | | elsni 4644 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β {π} β π = π) |
93 | 91, 92 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β π β π = π) |
94 | 93, 53 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
95 | 94 | rgen 3064 |
. . . . . . . . . . . . . . . . . . . . 21
β’
βπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ)) |
96 | | ixpeq2 8901 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(βπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ)) β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
97 | 95, 96 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . . 20
β’ Xπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) |
98 | 97 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β β β Xπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
99 | 98 | iuneq2i 5017 |
. . . . . . . . . . . . . . . . . 18
β’ βͺ π β β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = βͺ
π β β Xπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) |
100 | 99 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ (π β βͺ π β β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = βͺ
π β β Xπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
101 | 89, 100 | sseqtrd 4021 |
. . . . . . . . . . . . . . . 16
β’ (π β Xπ β
π ((π΄βπ)[,)(π΅βπ)) β βͺ π β β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
102 | 101 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β Xπ β π ((π΄βπ)[,)(π΅βπ)) β βͺ π β β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
103 | | id 22 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β ((π΄βπ)[,)(π΅βπ)) β π₯ β ((π΄βπ)[,)(π΅βπ))) |
104 | | eqidd 2734 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β ((π΄βπ)[,)(π΅βπ)) β {β¨π, π₯β©} = {β¨π, π₯β©}) |
105 | | opeq2 4873 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π¦ = π₯ β β¨π, π¦β© = β¨π, π₯β©) |
106 | 105 | sneqd 4639 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π¦ = π₯ β {β¨π, π¦β©} = {β¨π, π₯β©}) |
107 | 106 | rspceeqv 3632 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π₯ β ((π΄βπ)[,)(π΅βπ)) β§ {β¨π, π₯β©} = {β¨π, π₯β©}) β βπ¦ β ((π΄βπ)[,)(π΅βπ)){β¨π, π₯β©} = {β¨π, π¦β©}) |
108 | 103, 104,
107 | syl2anc 585 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β ((π΄βπ)[,)(π΅βπ)) β βπ¦ β ((π΄βπ)[,)(π΅βπ)){β¨π, π₯β©} = {β¨π, π¦β©}) |
109 | 108 | adantl 483 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β βπ¦ β ((π΄βπ)[,)(π΅βπ)){β¨π, π₯β©} = {β¨π, π¦β©}) |
110 | | elixpsn 8927 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β π β ({β¨π, π₯β©} β Xπ β {π} ((π΄βπ)[,)(π΅βπ)) β βπ¦ β ((π΄βπ)[,)(π΅βπ)){β¨π, π₯β©} = {β¨π, π¦β©})) |
111 | 2, 110 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ({β¨π, π₯β©} β Xπ β {π} ((π΄βπ)[,)(π΅βπ)) β βπ¦ β ((π΄βπ)[,)(π΅βπ)){β¨π, π₯β©} = {β¨π, π¦β©})) |
112 | 111 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β ({β¨π, π₯β©} β Xπ β {π} ((π΄βπ)[,)(π΅βπ)) β βπ¦ β ((π΄βπ)[,)(π΅βπ)){β¨π, π₯β©} = {β¨π, π¦β©})) |
113 | 109, 112 | mpbird 257 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β {β¨π, π₯β©} β Xπ β {π} ((π΄βπ)[,)(π΅βπ))) |
114 | 5 | eqcomi 2742 |
. . . . . . . . . . . . . . . . . . . 20
β’ {π} = π |
115 | | ixpeq1 8898 |
. . . . . . . . . . . . . . . . . . . 20
β’ ({π} = π β Xπ β {π} ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
116 | 114, 115 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . 19
β’ Xπ β
{π} ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ)) |
117 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = π β (π΄βπ) = (π΄βπ)) |
118 | 93, 117 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β π β (π΄βπ) = (π΄βπ)) |
119 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = π β (π΅βπ) = (π΅βπ)) |
120 | 93, 119 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β π β (π΅βπ) = (π΅βπ)) |
121 | 118, 120 | oveq12d 7422 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β π β ((π΄βπ)[,)(π΅βπ)) = ((π΄βπ)[,)(π΅βπ))) |
122 | 121 | eqcomd 2739 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β π β ((π΄βπ)[,)(π΅βπ)) = ((π΄βπ)[,)(π΅βπ))) |
123 | 122 | rgen 3064 |
. . . . . . . . . . . . . . . . . . . 20
β’
βπ β
π ((π΄βπ)[,)(π΅βπ)) = ((π΄βπ)[,)(π΅βπ)) |
124 | | ixpeq2 8901 |
. . . . . . . . . . . . . . . . . . . 20
β’
(βπ β
π ((π΄βπ)[,)(π΅βπ)) = ((π΄βπ)[,)(π΅βπ)) β Xπ β π ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
125 | 123, 124 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . 19
β’ Xπ β
π ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ)) |
126 | 116, 125 | eqtri 2761 |
. . . . . . . . . . . . . . . . . 18
β’ Xπ β
{π} ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ)) |
127 | 126 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ (π β Xπ β
{π} ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
128 | 127 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β Xπ β {π} ((π΄βπ)[,)(π΅βπ)) = Xπ β π ((π΄βπ)[,)(π΅βπ))) |
129 | 113, 128 | eleqtrd 2836 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β {β¨π, π₯β©} β Xπ β π ((π΄βπ)[,)(π΅βπ))) |
130 | 102, 129 | sseldd 3982 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β {β¨π, π₯β©} β βͺ π β β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
131 | | eliun 5000 |
. . . . . . . . . . . . . 14
β’
({β¨π, π₯β©} β βͺ π β β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) β βπ β β {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
132 | 130, 131 | sylib 217 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β βπ β β {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
133 | | ixpeq1 8898 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = {π} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
134 | 5, 133 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . . . 21
β’ Xπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) = Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ)) |
135 | 134 | eleq2i 2826 |
. . . . . . . . . . . . . . . . . . . 20
β’
({β¨π, π₯β©} β Xπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) β {β¨π, π₯β©} β Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
136 | 135 | biimpi 215 |
. . . . . . . . . . . . . . . . . . 19
β’
({β¨π, π₯β©} β Xπ β
π (((πΆβπ)βπ)[,)((π·βπ)βπ)) β {β¨π, π₯β©} β Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
137 | 136 | adantl 483 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) β {β¨π, π₯β©} β Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
138 | | elixpsn 8927 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β π β ({β¨π, π₯β©} β Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ)) β βπ¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)){β¨π, π₯β©} = {β¨π, π¦β©})) |
139 | 2, 138 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β ({β¨π, π₯β©} β Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ)) β βπ¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)){β¨π, π₯β©} = {β¨π, π¦β©})) |
140 | 139 | adantr 482 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) β ({β¨π, π₯β©} β Xπ β {π} (((πΆβπ)βπ)[,)((π·βπ)βπ)) β βπ¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)){β¨π, π₯β©} = {β¨π, π¦β©})) |
141 | 137, 140 | mpbid 231 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) β βπ¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)){β¨π, π₯β©} = {β¨π, π¦β©}) |
142 | | opex 5463 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
β¨π, π₯β© β V |
143 | 142 | sneqr 4840 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
({β¨π, π₯β©} = {β¨π, π¦β©} β β¨π, π₯β© = β¨π, π¦β©) |
144 | 143 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ {β¨π, π₯β©} = {β¨π, π¦β©}) β β¨π, π₯β© = β¨π, π¦β©) |
145 | | vex 3479 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ π₯ β V |
146 | 145 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π β π₯ β V) |
147 | | opthg 5476 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β π β§ π₯ β V) β (β¨π, π₯β© = β¨π, π¦β© β (π = π β§ π₯ = π¦))) |
148 | 2, 146, 147 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β (β¨π, π₯β© = β¨π, π¦β© β (π = π β§ π₯ = π¦))) |
149 | 148 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ {β¨π, π₯β©} = {β¨π, π¦β©}) β (β¨π, π₯β© = β¨π, π¦β© β (π = π β§ π₯ = π¦))) |
150 | 144, 149 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ {β¨π, π₯β©} = {β¨π, π¦β©}) β (π = π β§ π₯ = π¦)) |
151 | 150 | simprd 497 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ {β¨π, π₯β©} = {β¨π, π¦β©}) β π₯ = π¦) |
152 | 151 | 3adant2 1132 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)) β§ {β¨π, π₯β©} = {β¨π, π¦β©}) β π₯ = π¦) |
153 | | simp2 1138 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)) β§ {β¨π, π₯β©} = {β¨π, π¦β©}) β π¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
154 | 152, 153 | eqeltrd 2834 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)) β§ {β¨π, π₯β©} = {β¨π, π¦β©}) β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
155 | 154 | 3exp 1120 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)) β ({β¨π, π₯β©} = {β¨π, π¦β©} β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ))))) |
156 | 155 | adantr 482 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) β (π¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)) β ({β¨π, π₯β©} = {β¨π, π¦β©} β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ))))) |
157 | 156 | rexlimdv 3154 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) β (βπ¦ β (((πΆβπ)βπ)[,)((π·βπ)βπ)){β¨π, π₯β©} = {β¨π, π¦β©} β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
158 | 141, 157 | mpd 15 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ))) β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
159 | 158 | ex 414 |
. . . . . . . . . . . . . . 15
β’ (π β ({β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
160 | 159 | ad2antrr 725 |
. . . . . . . . . . . . . 14
β’ (((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β§ π β β) β ({β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
161 | 160 | reximdva 3169 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β (βπ β β {β¨π, π₯β©} β Xπ β π (((πΆβπ)βπ)[,)((π·βπ)βπ)) β βπ β β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
162 | 132, 161 | mpd 15 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β βπ β β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
163 | | eliun 5000 |
. . . . . . . . . . . 12
β’ (π₯ β βͺ π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) β βπ β β π₯ β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
164 | 162, 163 | sylibr 233 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β ((π΄βπ)[,)(π΅βπ))) β π₯ β βͺ
π β β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
165 | 164 | ralrimiva 3147 |
. . . . . . . . . 10
β’ (π β βπ₯ β ((π΄βπ)[,)(π΅βπ))π₯ β βͺ
π β β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
166 | | dfss3 3969 |
. . . . . . . . . 10
β’ (((π΄βπ)[,)(π΅βπ)) β βͺ π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) β βπ₯ β ((π΄βπ)[,)(π΅βπ))π₯ β βͺ
π β β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
167 | 165, 166 | sylibr 233 |
. . . . . . . . 9
β’ (π β ((π΄βπ)[,)(π΅βπ)) β βͺ π β β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
168 | | eqidd 2734 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (π β β β¦ ((πΆβπ)βπ)) = (π β β β¦ ((πΆβπ)βπ))) |
169 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = π β (πΆβπ) = (πΆβπ)) |
170 | 169 | fveq1d 6890 |
. . . . . . . . . . . . . 14
β’ (π = π β ((πΆβπ)βπ) = ((πΆβπ)βπ)) |
171 | 170 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π = π) β ((πΆβπ)βπ) = ((πΆβπ)βπ)) |
172 | | simpr 486 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β π β β) |
173 | | fvexd 6903 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β ((πΆβπ)βπ) β V) |
174 | 168, 171,
172, 173 | fvmptd 7001 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β ((π β β β¦ ((πΆβπ)βπ))βπ) = ((πΆβπ)βπ)) |
175 | | eqidd 2734 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (π β β β¦ ((π·βπ)βπ)) = (π β β β¦ ((π·βπ)βπ))) |
176 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = π β (π·βπ) = (π·βπ)) |
177 | 176 | fveq1d 6890 |
. . . . . . . . . . . . . 14
β’ (π = π β ((π·βπ)βπ) = ((π·βπ)βπ)) |
178 | 177 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π = π) β ((π·βπ)βπ) = ((π·βπ)βπ)) |
179 | | fvexd 6903 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β ((π·βπ)βπ) β V) |
180 | 175, 178,
172, 179 | fvmptd 7001 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β ((π β β β¦ ((π·βπ)βπ))βπ) = ((π·βπ)βπ)) |
181 | 174, 180 | oveq12d 7422 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
182 | 181 | iuneq2dv 5020 |
. . . . . . . . . 10
β’ (π β βͺ π β β (((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ)) = βͺ
π β β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
183 | 170, 177 | oveq12d 7422 |
. . . . . . . . . . . . 13
β’ (π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
184 | 183 | cbviunv 5042 |
. . . . . . . . . . . 12
β’ βͺ π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = βͺ
π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) |
185 | 184 | eqcomi 2742 |
. . . . . . . . . . 11
β’ βͺ π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = βͺ
π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) |
186 | 185 | a1i 11 |
. . . . . . . . . 10
β’ (π β βͺ π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = βͺ
π β β (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
187 | 182, 186 | eqtr2d 2774 |
. . . . . . . . 9
β’ (π β βͺ π β β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = βͺ
π β β (((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ))) |
188 | 167, 187 | sseqtrd 4021 |
. . . . . . . 8
β’ (π β ((π΄βπ)[,)(π΅βπ)) β βͺ π β β (((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ))) |
189 | 188 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β ((π΄βπ)[,)(π΅βπ)) β βͺ π β β (((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ))) |
190 | | fvex 6901 |
. . . . . . . . . . . . . . 15
β’ ((πΆβπ)βπ) β V |
191 | 170, 83, 190 | fvmpt 6994 |
. . . . . . . . . . . . . 14
β’ (π β β β ((π β β β¦ ((πΆβπ)βπ))βπ) = ((πΆβπ)βπ)) |
192 | | fvex 6901 |
. . . . . . . . . . . . . . 15
β’ ((π·βπ)βπ) β V |
193 | 177, 86, 192 | fvmpt 6994 |
. . . . . . . . . . . . . 14
β’ (π β β β ((π β β β¦ ((π·βπ)βπ))βπ) = ((π·βπ)βπ)) |
194 | 191, 193 | oveq12d 7422 |
. . . . . . . . . . . . 13
β’ (π β β β (((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
195 | 194 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (π β β β
(volβ(((π β
β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ))) = (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
196 | 195 | mpteq2ia 5250 |
. . . . . . . . . . 11
β’ (π β β β¦
(volβ(((π β
β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ)))) = (π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
197 | | eqcom 2740 |
. . . . . . . . . . . . . . . 16
β’ (π = π β π = π) |
198 | 197 | imbi1i 350 |
. . . . . . . . . . . . . . 15
β’ ((π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) β (π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
199 | | eqcom 2740 |
. . . . . . . . . . . . . . . 16
β’ ((((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ)) β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
200 | 199 | imbi2i 336 |
. . . . . . . . . . . . . . 15
β’ ((π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) β (π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
201 | 198, 200 | bitri 275 |
. . . . . . . . . . . . . 14
β’ ((π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) β (π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
202 | 183, 201 | mpbi 229 |
. . . . . . . . . . . . 13
β’ (π = π β (((πΆβπ)βπ)[,)((π·βπ)βπ)) = (((πΆβπ)βπ)[,)((π·βπ)βπ))) |
203 | 202 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (π = π β (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))) = (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
204 | 203 | cbvmptv 5260 |
. . . . . . . . . . 11
β’ (π β β β¦
(volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) = (π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
205 | 196, 204 | eqtri 2761 |
. . . . . . . . . 10
β’ (π β β β¦
(volβ(((π β
β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ)))) = (π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))) |
206 | 205 | fveq2i 6891 |
. . . . . . . . 9
β’
(Ξ£^β(π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ))))) =
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) |
207 | 206 | a1i 11 |
. . . . . . . 8
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β
(Ξ£^β(π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ))))) =
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
208 | | simpr 486 |
. . . . . . . 8
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) |
209 | 207, 208 | eqeltrd 2834 |
. . . . . . 7
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β
(Ξ£^β(π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ))))) β β) |
210 | | oveq1 7411 |
. . . . . . . . 9
β’ (π€ = π§ β (π€ β (π΄βπ)) = (π§ β (π΄βπ))) |
211 | 193 | breq1d 5157 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β (((π β β β¦ ((π·βπ)βπ))βπ) β€ π§ β ((π·βπ)βπ) β€ π§)) |
212 | 211, 193 | ifbieq1d 4551 |
. . . . . . . . . . . . . . . 16
β’ (π β β β
if(((π β β
β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§) = if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§)) |
213 | 191, 212 | oveq12d 7422 |
. . . . . . . . . . . . . . 15
β’ (π β β β (((π β β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§)) = (((πΆβπ)βπ)[,)if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§))) |
214 | 213 | fveq2d 6892 |
. . . . . . . . . . . . . 14
β’ (π β β β
(volβ(((π β
β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§))) = (volβ(((πΆβπ)βπ)[,)if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§)))) |
215 | 214 | mpteq2ia 5250 |
. . . . . . . . . . . . 13
β’ (π β β β¦
(volβ(((π β
β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§)))) = (π β β β¦ (volβ(((πΆβπ)βπ)[,)if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§)))) |
216 | | fveq2 6888 |
. . . . . . . . . . . . . . . . 17
β’ (π = β β (πΆβπ) = (πΆββ)) |
217 | 216 | fveq1d 6890 |
. . . . . . . . . . . . . . . 16
β’ (π = β β ((πΆβπ)βπ) = ((πΆββ)βπ)) |
218 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = β β (π·βπ) = (π·ββ)) |
219 | 218 | fveq1d 6890 |
. . . . . . . . . . . . . . . . . 18
β’ (π = β β ((π·βπ)βπ) = ((π·ββ)βπ)) |
220 | 219 | breq1d 5157 |
. . . . . . . . . . . . . . . . 17
β’ (π = β β (((π·βπ)βπ) β€ π§ β ((π·ββ)βπ) β€ π§)) |
221 | 220, 219 | ifbieq1d 4551 |
. . . . . . . . . . . . . . . 16
β’ (π = β β if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§) = if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§)) |
222 | 217, 221 | oveq12d 7422 |
. . . . . . . . . . . . . . 15
β’ (π = β β (((πΆβπ)βπ)[,)if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§)) = (((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§))) |
223 | 222 | fveq2d 6892 |
. . . . . . . . . . . . . 14
β’ (π = β β (volβ(((πΆβπ)βπ)[,)if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§))) = (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§)))) |
224 | 223 | cbvmptv 5260 |
. . . . . . . . . . . . 13
β’ (π β β β¦
(volβ(((πΆβπ)βπ)[,)if(((π·βπ)βπ) β€ π§, ((π·βπ)βπ), π§)))) = (β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§)))) |
225 | 215, 224 | eqtri 2761 |
. . . . . . . . . . . 12
β’ (π β β β¦
(volβ(((π β
β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§)))) = (β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§)))) |
226 | 225 | a1i 11 |
. . . . . . . . . . 11
β’ (π€ = π§ β (π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§)))) = (β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§))))) |
227 | | breq2 5151 |
. . . . . . . . . . . . . . . 16
β’ (π€ = π§ β (((π·ββ)βπ) β€ π€ β ((π·ββ)βπ) β€ π§)) |
228 | | id 22 |
. . . . . . . . . . . . . . . 16
β’ (π€ = π§ β π€ = π§) |
229 | 227, 228 | ifbieq2d 4553 |
. . . . . . . . . . . . . . 15
β’ (π€ = π§ β if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€) = if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§)) |
230 | 229 | eqcomd 2739 |
. . . . . . . . . . . . . 14
β’ (π€ = π§ β if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§) = if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€)) |
231 | 230 | oveq2d 7420 |
. . . . . . . . . . . . 13
β’ (π€ = π§ β (((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§)) = (((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€))) |
232 | 231 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ (π€ = π§ β (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§))) = (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€)))) |
233 | 232 | mpteq2dv 5249 |
. . . . . . . . . . 11
β’ (π€ = π§ β (β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π§, ((π·ββ)βπ), π§)))) = (β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€))))) |
234 | 226, 233 | eqtr2d 2774 |
. . . . . . . . . 10
β’ (π€ = π§ β (β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€)))) = (π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§))))) |
235 | 234 | fveq2d 6892 |
. . . . . . . . 9
β’ (π€ = π§ β
(Ξ£^β(β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€))))) =
(Ξ£^β(π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§)))))) |
236 | 210, 235 | breq12d 5160 |
. . . . . . . 8
β’ (π€ = π§ β ((π€ β (π΄βπ)) β€
(Ξ£^β(β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€))))) β (π§ β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§))))))) |
237 | 236 | cbvrabv 3443 |
. . . . . . 7
β’ {π€ β ((π΄βπ)[,](π΅βπ)) β£ (π€ β (π΄βπ)) β€
(Ξ£^β(β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€)))))} = {π§ β ((π΄βπ)[,](π΅βπ)) β£ (π§ β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)if(((π β β β¦ ((π·βπ)βπ))βπ) β€ π§, ((π β β β¦ ((π·βπ)βπ))βπ), π§)))))} |
238 | | eqid 2733 |
. . . . . . 7
β’
sup({π€ β
((π΄βπ)[,](π΅βπ)) β£ (π€ β (π΄βπ)) β€
(Ξ£^β(β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€)))))}, β, < ) = sup({π€ β ((π΄βπ)[,](π΅βπ)) β£ (π€ β (π΄βπ)) β€
(Ξ£^β(β β β β¦ (volβ(((πΆββ)βπ)[,)if(((π·ββ)βπ) β€ π€, ((π·ββ)βπ), π€)))))}, β, < ) |
239 | 80, 81, 82, 85, 88, 189, 209, 237, 238 | hoidmv1lelem3 45244 |
. . . . . 6
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β ((π΅βπ) β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((π β β β¦ ((πΆβπ)βπ))βπ)[,)((π β β β¦ ((π·βπ)βπ))βπ)))))) |
240 | 239, 207 | breqtrd 5173 |
. . . . 5
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) β β) β ((π΅βπ) β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
241 | 21, 79, 240 | syl2anc 585 |
. . . 4
β’ (((π β§ (π΄βπ) < (π΅βπ)) β§ Β¬
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))) = +β) β ((π΅βπ) β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
242 | 20, 241 | pm2.61dan 812 |
. . 3
β’ ((π β§ (π΄βπ) < (π΅βπ)) β ((π΅βπ) β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
243 | 25, 29, 31, 8, 1 | hoidmvn0val 45235 |
. . . . . . 7
β’ (π β (π΄(πΏβπ)π΅) = βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
244 | 26 | prodeq1d 15861 |
. . . . . . 7
β’ (π β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = βπ β {π} (volβ((π΄βπ)[,)(π΅βπ)))) |
245 | | volicore 45232 |
. . . . . . . . . 10
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
246 | 9, 7, 245 | syl2anc 585 |
. . . . . . . . 9
β’ (π β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
247 | 246 | recnd 11238 |
. . . . . . . 8
β’ (π β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
248 | 117, 119 | oveq12d 7422 |
. . . . . . . . . 10
β’ (π = π β ((π΄βπ)[,)(π΅βπ)) = ((π΄βπ)[,)(π΅βπ))) |
249 | 248 | fveq2d 6892 |
. . . . . . . . 9
β’ (π = π β (volβ((π΄βπ)[,)(π΅βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
250 | 249 | prodsn 15902 |
. . . . . . . 8
β’ ((π β π β§ (volβ((π΄βπ)[,)(π΅βπ))) β β) β βπ β {π} (volβ((π΄βπ)[,)(π΅βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
251 | 2, 247, 250 | syl2anc 585 |
. . . . . . 7
β’ (π β βπ β {π} (volβ((π΄βπ)[,)(π΅βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
252 | 243, 244,
251 | 3eqtrd 2777 |
. . . . . 6
β’ (π β (π΄(πΏβπ)π΅) = (volβ((π΄βπ)[,)(π΅βπ)))) |
253 | 252 | adantr 482 |
. . . . 5
β’ ((π β§ (π΄βπ) < (π΅βπ)) β (π΄(πΏβπ)π΅) = (volβ((π΄βπ)[,)(π΅βπ)))) |
254 | | volico 44634 |
. . . . . . 7
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
255 | 9, 7, 254 | syl2anc 585 |
. . . . . 6
β’ (π β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
256 | 255 | adantr 482 |
. . . . 5
β’ ((π β§ (π΄βπ) < (π΅βπ)) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
257 | | iftrue 4533 |
. . . . . 6
β’ ((π΄βπ) < (π΅βπ) β if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0) = ((π΅βπ) β (π΄βπ))) |
258 | 257 | adantl 483 |
. . . . 5
β’ ((π β§ (π΄βπ) < (π΅βπ)) β if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0) = ((π΅βπ) β (π΄βπ))) |
259 | 253, 256,
258 | 3eqtrd 2777 |
. . . 4
β’ ((π β§ (π΄βπ) < (π΅βπ)) β (π΄(πΏβπ)π΅) = ((π΅βπ) β (π΄βπ))) |
260 | 58 | fveq2d 6892 |
. . . . 5
β’ (π β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ)))) =
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
261 | 260 | adantr 482 |
. . . 4
β’ ((π β§ (π΄βπ) < (π΅βπ)) β
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ)))) =
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ)))))) |
262 | 259, 261 | breq12d 5160 |
. . 3
β’ ((π β§ (π΄βπ) < (π΅βπ)) β ((π΄(πΏβπ)π΅) β€
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ)))) β ((π΅βπ) β (π΄βπ)) β€
(Ξ£^β(π β β β¦ (volβ(((πΆβπ)βπ)[,)((π·βπ)βπ))))))) |
263 | 242, 262 | mpbird 257 |
. 2
β’ ((π β§ (π΄βπ) < (π΅βπ)) β (π΄(πΏβπ)π΅) β€
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))))) |
264 | 243 | adantr 482 |
. . . 4
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β (π΄(πΏβπ)π΅) = βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
265 | 244 | adantr 482 |
. . . 4
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = βπ β {π} (volβ((π΄βπ)[,)(π΅βπ)))) |
266 | 251 | adantr 482 |
. . . . 5
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β βπ β {π} (volβ((π΄βπ)[,)(π΅βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
267 | 255 | adantr 482 |
. . . . 5
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
268 | | iffalse 4536 |
. . . . . 6
β’ (Β¬
(π΄βπ) < (π΅βπ) β if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0) = 0) |
269 | 268 | adantl 483 |
. . . . 5
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β if((π΄βπ) < (π΅βπ), ((π΅βπ) β (π΄βπ)), 0) = 0) |
270 | 266, 267,
269 | 3eqtrd 2777 |
. . . 4
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β βπ β {π} (volβ((π΄βπ)[,)(π΅βπ))) = 0) |
271 | 264, 265,
270 | 3eqtrd 2777 |
. . 3
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β (π΄(πΏβπ)π΅) = 0) |
272 | 23 | a1i 11 |
. . . . 5
β’ (π β β β
V) |
273 | 272, 75 | sge0ge0 45035 |
. . . 4
β’ (π β 0 β€
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))))) |
274 | 273 | adantr 482 |
. . 3
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β 0 β€
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))))) |
275 | 271, 274 | eqbrtrd 5169 |
. 2
β’ ((π β§ Β¬ (π΄βπ) < (π΅βπ)) β (π΄(πΏβπ)π΅) β€
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))))) |
276 | 263, 275 | pm2.61dan 812 |
1
β’ (π β (π΄(πΏβπ)π΅) β€
(Ξ£^β(π β β β¦ ((πΆβπ)(πΏβπ)(π·βπ))))) |