Step | Hyp | Ref
| Expression |
1 | | vonicc.l |
. . . . 5
β’ πΏ = (π₯ β Fin β¦ (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) |
2 | | vonicc.a |
. . . . . . 7
β’ (π β π΄:πβΆβ) |
3 | 2 | adantr 482 |
. . . . . 6
β’ ((π β§ π = β
) β π΄:πβΆβ) |
4 | | feq2 6696 |
. . . . . . 7
β’ (π = β
β (π΄:πβΆβ β π΄:β
βΆβ)) |
5 | 4 | adantl 483 |
. . . . . 6
β’ ((π β§ π = β
) β (π΄:πβΆβ β π΄:β
βΆβ)) |
6 | 3, 5 | mpbid 231 |
. . . . 5
β’ ((π β§ π = β
) β π΄:β
βΆβ) |
7 | | vonicc.b |
. . . . . . 7
β’ (π β π΅:πβΆβ) |
8 | 7 | adantr 482 |
. . . . . 6
β’ ((π β§ π = β
) β π΅:πβΆβ) |
9 | | feq2 6696 |
. . . . . . 7
β’ (π = β
β (π΅:πβΆβ β π΅:β
βΆβ)) |
10 | 9 | adantl 483 |
. . . . . 6
β’ ((π β§ π = β
) β (π΅:πβΆβ β π΅:β
βΆβ)) |
11 | 8, 10 | mpbid 231 |
. . . . 5
β’ ((π β§ π = β
) β π΅:β
βΆβ) |
12 | 1, 6, 11 | hoidmv0val 45234 |
. . . 4
β’ ((π β§ π = β
) β (π΄(πΏββ
)π΅) = 0) |
13 | 12 | eqcomd 2739 |
. . 3
β’ ((π β§ π = β
) β 0 = (π΄(πΏββ
)π΅)) |
14 | | fveq2 6888 |
. . . . . 6
β’ (π = β
β
(volnβπ) =
(volnββ
)) |
15 | | vonicc.i |
. . . . . . . 8
β’ πΌ = Xπ β π ((π΄βπ)[,](π΅βπ)) |
16 | 15 | a1i 11 |
. . . . . . 7
β’ (π = β
β πΌ = Xπ β π ((π΄βπ)[,](π΅βπ))) |
17 | | ixpeq1 8898 |
. . . . . . 7
β’ (π = β
β Xπ β
π ((π΄βπ)[,](π΅βπ)) = Xπ β β
((π΄βπ)[,](π΅βπ))) |
18 | 16, 17 | eqtrd 2773 |
. . . . . 6
β’ (π = β
β πΌ = Xπ β β
((π΄βπ)[,](π΅βπ))) |
19 | 14, 18 | fveq12d 6895 |
. . . . 5
β’ (π = β
β
((volnβπ)βπΌ) =
((volnββ
)βXπ β β
((π΄βπ)[,](π΅βπ)))) |
20 | 19 | adantl 483 |
. . . 4
β’ ((π β§ π = β
) β ((volnβπ)βπΌ) = ((volnββ
)βXπ β
β
((π΄βπ)[,](π΅βπ)))) |
21 | | 0fin 9167 |
. . . . . . 7
β’ β
β Fin |
22 | 21 | a1i 11 |
. . . . . 6
β’ ((π β§ π = β
) β β
β
Fin) |
23 | | eqid 2733 |
. . . . . 6
β’ dom
(volnββ
) = dom (volnββ
) |
24 | 22, 23, 6, 11 | iccvonmbl 45330 |
. . . . 5
β’ ((π β§ π = β
) β Xπ β
β
((π΄βπ)[,](π΅βπ)) β dom
(volnββ
)) |
25 | 24 | von0val 45322 |
. . . 4
β’ ((π β§ π = β
) β
((volnββ
)βXπ β β
((π΄βπ)[,](π΅βπ))) = 0) |
26 | 20, 25 | eqtrd 2773 |
. . 3
β’ ((π β§ π = β
) β ((volnβπ)βπΌ) = 0) |
27 | | fveq2 6888 |
. . . . 5
β’ (π = β
β (πΏβπ) = (πΏββ
)) |
28 | 27 | oveqd 7421 |
. . . 4
β’ (π = β
β (π΄(πΏβπ)π΅) = (π΄(πΏββ
)π΅)) |
29 | 28 | adantl 483 |
. . 3
β’ ((π β§ π = β
) β (π΄(πΏβπ)π΅) = (π΄(πΏββ
)π΅)) |
30 | 13, 26, 29 | 3eqtr4d 2783 |
. 2
β’ ((π β§ π = β
) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |
31 | | neqne 2949 |
. . . 4
β’ (Β¬
π = β
β π β β
) |
32 | 31 | adantl 483 |
. . 3
β’ ((π β§ Β¬ π = β
) β π β β
) |
33 | | nfv 1918 |
. . . . . . . . 9
β’
β²π(π β§ π β β
) |
34 | | nfra1 3282 |
. . . . . . . . 9
β’
β²πβπ β π (π΄βπ) β€ (π΅βπ) |
35 | 33, 34 | nfan 1903 |
. . . . . . . 8
β’
β²π((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) |
36 | 2 | ffvelcdmda 7082 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β (π΄βπ) β β) |
37 | 7 | ffvelcdmda 7082 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β (π΅βπ) β β) |
38 | | volico2 45292 |
. . . . . . . . . . . 12
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
39 | 36, 37, 38 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
40 | 39 | ad4ant14 751 |
. . . . . . . . . 10
β’ ((((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
41 | | rspa 3246 |
. . . . . . . . . . . 12
β’
((βπ β
π (π΄βπ) β€ (π΅βπ) β§ π β π) β (π΄βπ) β€ (π΅βπ)) |
42 | 41 | iftrued 4535 |
. . . . . . . . . . 11
β’
((βπ β
π (π΄βπ) β€ (π΅βπ) β§ π β π) β if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0) = ((π΅βπ) β (π΄βπ))) |
43 | 42 | adantll 713 |
. . . . . . . . . 10
β’ ((((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β§ π β π) β if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0) = ((π΅βπ) β (π΄βπ))) |
44 | 40, 43 | eqtrd 2773 |
. . . . . . . . 9
β’ ((((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) = ((π΅βπ) β (π΄βπ))) |
45 | 44 | ex 414 |
. . . . . . . 8
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β (π β π β (volβ((π΄βπ)[,)(π΅βπ))) = ((π΅βπ) β (π΄βπ)))) |
46 | 35, 45 | ralrimi 3255 |
. . . . . . 7
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = ((π΅βπ) β (π΄βπ))) |
47 | 46 | prodeq2d 15862 |
. . . . . 6
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = βπ β π ((π΅βπ) β (π΄βπ))) |
48 | 47 | eqcomd 2739 |
. . . . 5
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β βπ β π ((π΅βπ) β (π΄βπ)) = βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
49 | | fveq2 6888 |
. . . . . . . . . 10
β’ (π = π β (π΄βπ) = (π΄βπ)) |
50 | | fveq2 6888 |
. . . . . . . . . 10
β’ (π = π β (π΅βπ) = (π΅βπ)) |
51 | 49, 50 | breq12d 5160 |
. . . . . . . . 9
β’ (π = π β ((π΄βπ) β€ (π΅βπ) β (π΄βπ) β€ (π΅βπ))) |
52 | 51 | cbvralvw 3235 |
. . . . . . . 8
β’
(βπ β
π (π΄βπ) β€ (π΅βπ) β βπ β π (π΄βπ) β€ (π΅βπ)) |
53 | 52 | biimpi 215 |
. . . . . . 7
β’
(βπ β
π (π΄βπ) β€ (π΅βπ) β βπ β π (π΄βπ) β€ (π΅βπ)) |
54 | 53 | adantl 483 |
. . . . . 6
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β βπ β π (π΄βπ) β€ (π΅βπ)) |
55 | | vonicc.x |
. . . . . . . . 9
β’ (π β π β Fin) |
56 | 55 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β β
) β π β Fin) |
57 | 56 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β π β Fin) |
58 | 2 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β β
) β π΄:πβΆβ) |
59 | 58 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β π΄:πβΆβ) |
60 | 7 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β β
) β π΅:πβΆβ) |
61 | 60 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β π΅:πβΆβ) |
62 | | simpr 486 |
. . . . . . . 8
β’ ((π β§ π β β
) β π β β
) |
63 | 62 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β π β β
) |
64 | 52, 41 | sylanbr 583 |
. . . . . . . 8
β’
((βπ β
π (π΄βπ) β€ (π΅βπ) β§ π β π) β (π΄βπ) β€ (π΅βπ)) |
65 | 64 | adantll 713 |
. . . . . . 7
β’ ((((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β§ π β π) β (π΄βπ) β€ (π΅βπ)) |
66 | | fveq2 6888 |
. . . . . . . . . . 11
β’ (π = π β (π΅βπ) = (π΅βπ)) |
67 | 66 | oveq1d 7419 |
. . . . . . . . . 10
β’ (π = π β ((π΅βπ) + (1 / π)) = ((π΅βπ) + (1 / π))) |
68 | 67 | cbvmptv 5260 |
. . . . . . . . 9
β’ (π β π β¦ ((π΅βπ) + (1 / π))) = (π β π β¦ ((π΅βπ) + (1 / π))) |
69 | 68 | mpteq2i 5252 |
. . . . . . . 8
β’ (π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π)))) = (π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π)))) |
70 | | oveq2 7412 |
. . . . . . . . . . 11
β’ (π = π β (1 / π) = (1 / π)) |
71 | 70 | oveq2d 7420 |
. . . . . . . . . 10
β’ (π = π β ((π΅βπ) + (1 / π)) = ((π΅βπ) + (1 / π))) |
72 | 71 | mpteq2dv 5249 |
. . . . . . . . 9
β’ (π = π β (π β π β¦ ((π΅βπ) + (1 / π))) = (π β π β¦ ((π΅βπ) + (1 / π)))) |
73 | 72 | cbvmptv 5260 |
. . . . . . . 8
β’ (π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π)))) = (π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π)))) |
74 | 69, 73 | eqtri 2761 |
. . . . . . 7
β’ (π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π)))) = (π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π)))) |
75 | | fveq2 6888 |
. . . . . . . . . . 11
β’ (π = π β ((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ) = ((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)) |
76 | 75 | fveq1d 6890 |
. . . . . . . . . 10
β’ (π = π β (((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ) = (((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ)) |
77 | 76 | oveq2d 7420 |
. . . . . . . . 9
β’ (π = π β ((π΄βπ)[,)(((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ)) = ((π΄βπ)[,)(((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ))) |
78 | 77 | ixpeq2dv 8903 |
. . . . . . . 8
β’ (π = π β Xπ β π ((π΄βπ)[,)(((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ)) = Xπ β π ((π΄βπ)[,)(((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ))) |
79 | 78 | cbvmptv 5260 |
. . . . . . 7
β’ (π β β β¦ Xπ β
π ((π΄βπ)[,)(((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ))) = (π β β β¦ Xπ β
π ((π΄βπ)[,)(((π β β β¦ (π β π β¦ ((π΅βπ) + (1 / π))))βπ)βπ))) |
80 | 57, 59, 61, 63, 65, 15, 74, 79 | vonicclem2 45335 |
. . . . . 6
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β ((volnβπ)βπΌ) = βπ β π ((π΅βπ) β (π΄βπ))) |
81 | 54, 80 | syldan 592 |
. . . . 5
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β ((volnβπ)βπΌ) = βπ β π ((π΅βπ) β (π΄βπ))) |
82 | 1, 56, 62, 58, 60 | hoidmvn0val 45235 |
. . . . . 6
β’ ((π β§ π β β
) β (π΄(πΏβπ)π΅) = βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
83 | 82 | adantr 482 |
. . . . 5
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β (π΄(πΏβπ)π΅) = βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
84 | 48, 81, 83 | 3eqtr4d 2783 |
. . . 4
β’ (((π β§ π β β
) β§ βπ β π (π΄βπ) β€ (π΅βπ)) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |
85 | | rexnal 3101 |
. . . . . . . . . 10
β’
(βπ β
π Β¬ (π΄βπ) β€ (π΅βπ) β Β¬ βπ β π (π΄βπ) β€ (π΅βπ)) |
86 | 85 | bicomi 223 |
. . . . . . . . 9
β’ (Β¬
βπ β π (π΄βπ) β€ (π΅βπ) β βπ β π Β¬ (π΄βπ) β€ (π΅βπ)) |
87 | 86 | biimpi 215 |
. . . . . . . 8
β’ (Β¬
βπ β π (π΄βπ) β€ (π΅βπ) β βπ β π Β¬ (π΄βπ) β€ (π΅βπ)) |
88 | 87 | adantl 483 |
. . . . . . 7
β’ ((π β§ Β¬ βπ β π (π΄βπ) β€ (π΅βπ)) β βπ β π Β¬ (π΄βπ) β€ (π΅βπ)) |
89 | | simpr 486 |
. . . . . . . . . . 11
β’ (((π β§ π β π) β§ Β¬ (π΄βπ) β€ (π΅βπ)) β Β¬ (π΄βπ) β€ (π΅βπ)) |
90 | 37 | adantr 482 |
. . . . . . . . . . . 12
β’ (((π β§ π β π) β§ Β¬ (π΄βπ) β€ (π΅βπ)) β (π΅βπ) β β) |
91 | 36 | adantr 482 |
. . . . . . . . . . . 12
β’ (((π β§ π β π) β§ Β¬ (π΄βπ) β€ (π΅βπ)) β (π΄βπ) β β) |
92 | 90, 91 | ltnled 11357 |
. . . . . . . . . . 11
β’ (((π β§ π β π) β§ Β¬ (π΄βπ) β€ (π΅βπ)) β ((π΅βπ) < (π΄βπ) β Β¬ (π΄βπ) β€ (π΅βπ))) |
93 | 89, 92 | mpbird 257 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ Β¬ (π΄βπ) β€ (π΅βπ)) β (π΅βπ) < (π΄βπ)) |
94 | 93 | ex 414 |
. . . . . . . . 9
β’ ((π β§ π β π) β (Β¬ (π΄βπ) β€ (π΅βπ) β (π΅βπ) < (π΄βπ))) |
95 | 94 | reximdva 3169 |
. . . . . . . 8
β’ (π β (βπ β π Β¬ (π΄βπ) β€ (π΅βπ) β βπ β π (π΅βπ) < (π΄βπ))) |
96 | 95 | adantr 482 |
. . . . . . 7
β’ ((π β§ Β¬ βπ β π (π΄βπ) β€ (π΅βπ)) β (βπ β π Β¬ (π΄βπ) β€ (π΅βπ) β βπ β π (π΅βπ) < (π΄βπ))) |
97 | 88, 96 | mpd 15 |
. . . . . 6
β’ ((π β§ Β¬ βπ β π (π΄βπ) β€ (π΅βπ)) β βπ β π (π΅βπ) < (π΄βπ)) |
98 | 97 | adantlr 714 |
. . . . 5
β’ (((π β§ π β β
) β§ Β¬ βπ β π (π΄βπ) β€ (π΅βπ)) β βπ β π (π΅βπ) < (π΄βπ)) |
99 | | nfcv 2904 |
. . . . . . . . 9
β’
β²π(volnβπ) |
100 | | nfixp1 8908 |
. . . . . . . . . 10
β’
β²πXπ β
π ((π΄βπ)[,](π΅βπ)) |
101 | 15, 100 | nfcxfr 2902 |
. . . . . . . . 9
β’
β²ππΌ |
102 | 99, 101 | nffv 6898 |
. . . . . . . 8
β’
β²π((volnβπ)βπΌ) |
103 | | nfcv 2904 |
. . . . . . . . 9
β’
β²ππ΄ |
104 | | nfcv 2904 |
. . . . . . . . . . . 12
β’
β²πFin |
105 | | nfcv 2904 |
. . . . . . . . . . . . 13
β’
β²π(β βm π₯) |
106 | | nfv 1918 |
. . . . . . . . . . . . . 14
β’
β²π π₯ = β
|
107 | | nfcv 2904 |
. . . . . . . . . . . . . 14
β’
β²π0 |
108 | | nfcv 2904 |
. . . . . . . . . . . . . . 15
β’
β²ππ₯ |
109 | 108 | nfcprod1 15850 |
. . . . . . . . . . . . . 14
β’
β²πβπ β π₯ (volβ((πβπ)[,)(πβπ))) |
110 | 106, 107,
109 | nfif 4557 |
. . . . . . . . . . . . 13
β’
β²πif(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))) |
111 | 105, 105,
110 | nfmpo 7486 |
. . . . . . . . . . . 12
β’
β²π(π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ))))) |
112 | 104, 111 | nfmpt 5254 |
. . . . . . . . . . 11
β’
β²π(π₯ β Fin β¦ (π β (β βm π₯), π β (β βm π₯) β¦ if(π₯ = β
, 0, βπ β π₯ (volβ((πβπ)[,)(πβπ)))))) |
113 | 1, 112 | nfcxfr 2902 |
. . . . . . . . . 10
β’
β²ππΏ |
114 | | nfcv 2904 |
. . . . . . . . . 10
β’
β²ππ |
115 | 113, 114 | nffv 6898 |
. . . . . . . . 9
β’
β²π(πΏβπ) |
116 | | nfcv 2904 |
. . . . . . . . 9
β’
β²ππ΅ |
117 | 103, 115,
116 | nfov 7434 |
. . . . . . . 8
β’
β²π(π΄(πΏβπ)π΅) |
118 | 102, 117 | nfeq 2917 |
. . . . . . 7
β’
β²π((volnβπ)βπΌ) = (π΄(πΏβπ)π΅) |
119 | 55 | vonmea 45225 |
. . . . . . . . . . . 12
β’ (π β (volnβπ) β Meas) |
120 | 119 | mea0 45105 |
. . . . . . . . . . 11
β’ (π β ((volnβπ)ββ
) =
0) |
121 | 120 | 3ad2ant1 1134 |
. . . . . . . . . 10
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β ((volnβπ)ββ
) = 0) |
122 | 15 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β πΌ = Xπ β π ((π΄βπ)[,](π΅βπ))) |
123 | | simp2 1138 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β π β π) |
124 | | simp3 1139 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (π΅βπ) < (π΄βπ)) |
125 | | ressxr 11254 |
. . . . . . . . . . . . . . . . . 18
β’ β
β β* |
126 | 125, 36 | sselid 3979 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (π΄βπ) β
β*) |
127 | 125, 37 | sselid 3979 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (π΅βπ) β
β*) |
128 | | icc0 13368 |
. . . . . . . . . . . . . . . . 17
β’ (((π΄βπ) β β* β§ (π΅βπ) β β*) β (((π΄βπ)[,](π΅βπ)) = β
β (π΅βπ) < (π΄βπ))) |
129 | 126, 127,
128 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β (((π΄βπ)[,](π΅βπ)) = β
β (π΅βπ) < (π΄βπ))) |
130 | 129 | 3adant3 1133 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (((π΄βπ)[,](π΅βπ)) = β
β (π΅βπ) < (π΄βπ))) |
131 | 124, 130 | mpbird 257 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β ((π΄βπ)[,](π΅βπ)) = β
) |
132 | | rspe 3247 |
. . . . . . . . . . . . . 14
β’ ((π β π β§ ((π΄βπ)[,](π΅βπ)) = β
) β βπ β π ((π΄βπ)[,](π΅βπ)) = β
) |
133 | 123, 131,
132 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β βπ β π ((π΄βπ)[,](π΅βπ)) = β
) |
134 | | ixp0 8921 |
. . . . . . . . . . . . 13
β’
(βπ β
π ((π΄βπ)[,](π΅βπ)) = β
β Xπ β
π ((π΄βπ)[,](π΅βπ)) = β
) |
135 | 133, 134 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β Xπ β π ((π΄βπ)[,](π΅βπ)) = β
) |
136 | 122, 135 | eqtrd 2773 |
. . . . . . . . . . 11
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β πΌ = β
) |
137 | 136 | fveq2d 6892 |
. . . . . . . . . 10
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β ((volnβπ)βπΌ) = ((volnβπ)ββ
)) |
138 | | ne0i 4333 |
. . . . . . . . . . . . . 14
β’ (π β π β π β β
) |
139 | 138 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β π β β
) |
140 | 139, 82 | syldan 592 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β (π΄(πΏβπ)π΅) = βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
141 | 140 | 3adant3 1133 |
. . . . . . . . . . 11
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (π΄(πΏβπ)π΅) = βπ β π (volβ((π΄βπ)[,)(π΅βπ)))) |
142 | | eleq1w 2817 |
. . . . . . . . . . . . . 14
β’ (π = π β (π β π β π β π)) |
143 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = π β (π΄βπ) = (π΄βπ)) |
144 | 66, 143 | breq12d 5160 |
. . . . . . . . . . . . . 14
β’ (π = π β ((π΅βπ) < (π΄βπ) β (π΅βπ) < (π΄βπ))) |
145 | 142, 144 | 3anbi23d 1440 |
. . . . . . . . . . . . 13
β’ (π = π β ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (π β§ π β π β§ (π΅βπ) < (π΄βπ)))) |
146 | 145 | imbi1d 342 |
. . . . . . . . . . . 12
β’ (π = π β (((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = 0) β ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = 0))) |
147 | | nfv 1918 |
. . . . . . . . . . . . 13
β’
β²π(π β§ π β π β§ (π΅βπ) < (π΄βπ)) |
148 | 55 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β π β Fin) |
149 | | volicore 45232 |
. . . . . . . . . . . . . . . 16
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
150 | 36, 37, 149 | syl2anc 585 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
151 | 150 | recnd 11238 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
152 | 151 | 3ad2antl1 1186 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) β β) |
153 | | simp2 1138 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β π β π) |
154 | 49, 50 | oveq12d 7422 |
. . . . . . . . . . . . . . . 16
β’ (π = π β ((π΄βπ)[,)(π΅βπ)) = ((π΄βπ)[,)(π΅βπ))) |
155 | 154 | fveq2d 6892 |
. . . . . . . . . . . . . . 15
β’ (π = π β (volβ((π΄βπ)[,)(π΅βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
156 | 155 | adantl 483 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β§ π = π) β (volβ((π΄βπ)[,)(π΅βπ))) = (volβ((π΄βπ)[,)(π΅βπ)))) |
157 | 2 | ffvelcdmda 7082 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π) β (π΄βπ) β β) |
158 | 7 | ffvelcdmda 7082 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π) β (π΅βπ) β β) |
159 | | volico2 45292 |
. . . . . . . . . . . . . . . . . 18
β’ (((π΄βπ) β β β§ (π΅βπ) β β) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
160 | 157, 158,
159 | syl2anc 585 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
161 | 160 | 3adant3 1133 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (volβ((π΄βπ)[,)(π΅βπ))) = if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0)) |
162 | | simp3 1139 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (π΅βπ) < (π΄βπ)) |
163 | 158, 157 | ltnled 11357 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π) β ((π΅βπ) < (π΄βπ) β Β¬ (π΄βπ) β€ (π΅βπ))) |
164 | 163 | 3adant3 1133 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β ((π΅βπ) < (π΄βπ) β Β¬ (π΄βπ) β€ (π΅βπ))) |
165 | 162, 164 | mpbid 231 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β Β¬ (π΄βπ) β€ (π΅βπ)) |
166 | 165 | iffalsed 4538 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β if((π΄βπ) β€ (π΅βπ), ((π΅βπ) β (π΄βπ)), 0) = 0) |
167 | 161, 166 | eqtrd 2773 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (volβ((π΄βπ)[,)(π΅βπ))) = 0) |
168 | 167 | adantr 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β§ π = π) β (volβ((π΄βπ)[,)(π΅βπ))) = 0) |
169 | 156, 168 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β§ π = π) β (volβ((π΄βπ)[,)(π΅βπ))) = 0) |
170 | 147, 148,
152, 153, 169 | fprodeq0g 15934 |
. . . . . . . . . . . 12
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = 0) |
171 | 146, 170 | chvarvv 2003 |
. . . . . . . . . . 11
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β βπ β π (volβ((π΄βπ)[,)(π΅βπ))) = 0) |
172 | 141, 171 | eqtrd 2773 |
. . . . . . . . . 10
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β (π΄(πΏβπ)π΅) = 0) |
173 | 121, 137,
172 | 3eqtr4d 2783 |
. . . . . . . . 9
β’ ((π β§ π β π β§ (π΅βπ) < (π΄βπ)) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |
174 | 173 | 3exp 1120 |
. . . . . . . 8
β’ (π β (π β π β ((π΅βπ) < (π΄βπ) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)))) |
175 | 174 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β β
) β (π β π β ((π΅βπ) < (π΄βπ) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)))) |
176 | 33, 118, 175 | rexlimd 3264 |
. . . . . 6
β’ ((π β§ π β β
) β (βπ β π (π΅βπ) < (π΄βπ) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅))) |
177 | 176 | imp 408 |
. . . . 5
β’ (((π β§ π β β
) β§ βπ β π (π΅βπ) < (π΄βπ)) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |
178 | 98, 177 | syldan 592 |
. . . 4
β’ (((π β§ π β β
) β§ Β¬ βπ β π (π΄βπ) β€ (π΅βπ)) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |
179 | 84, 178 | pm2.61dan 812 |
. . 3
β’ ((π β§ π β β
) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |
180 | 32, 179 | syldan 592 |
. 2
β’ ((π β§ Β¬ π = β
) β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |
181 | 30, 180 | pm2.61dan 812 |
1
β’ (π β ((volnβπ)βπΌ) = (π΄(πΏβπ)π΅)) |