Step | Hyp | Ref
| Expression |
1 | | hoidmv1lelem3.b |
. . 3
β’ (π β π΅ β β) |
2 | | hoidmv1lelem3.a |
. . 3
β’ (π β π΄ β β) |
3 | 1, 2 | resubcld 11638 |
. 2
β’ (π β (π΅ β π΄) β β) |
4 | | nnex 12214 |
. . . . . . 7
β’ β
β V |
5 | 4 | a1i 11 |
. . . . . 6
β’ (π β β β
V) |
6 | | icossicc 13409 |
. . . . . . . 8
β’
(0[,)+β) β (0[,]+β) |
7 | | 0xr 11257 |
. . . . . . . . . 10
β’ 0 β
β* |
8 | 7 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β β) β 0 β
β*) |
9 | | pnfxr 11264 |
. . . . . . . . . 10
β’ +β
β β* |
10 | 9 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β β) β +β β
β*) |
11 | | hoidmv1lelem3.c |
. . . . . . . . . . . 12
β’ (π β πΆ:ββΆβ) |
12 | 11 | ffvelcdmda 7082 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (πΆβπ) β β) |
13 | | hoidmv1lelem3.d |
. . . . . . . . . . . . 13
β’ (π β π·:ββΆβ) |
14 | 13 | ffvelcdmda 7082 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (π·βπ) β β) |
15 | 1 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β π΅ β β) |
16 | 14, 15 | ifcld 4573 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β if((π·βπ) β€ π΅, (π·βπ), π΅) β β) |
17 | | volicore 45232 |
. . . . . . . . . . 11
β’ (((πΆβπ) β β β§ if((π·βπ) β€ π΅, (π·βπ), π΅) β β) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) β β) |
18 | 12, 16, 17 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) β β) |
19 | 18 | rexrd 11260 |
. . . . . . . . 9
β’ ((π β§ π β β) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) β
β*) |
20 | 16 | rexrd 11260 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β if((π·βπ) β€ π΅, (π·βπ), π΅) β
β*) |
21 | | icombl 25063 |
. . . . . . . . . . 11
β’ (((πΆβπ) β β β§ if((π·βπ) β€ π΅, (π·βπ), π΅) β β*) β ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)) β dom vol) |
22 | 12, 20, 21 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β§ π β β) β ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)) β dom vol) |
23 | | volge0 44612 |
. . . . . . . . . 10
β’ (((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)) β dom vol β 0 β€
(volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))) |
24 | 22, 23 | syl 17 |
. . . . . . . . 9
β’ ((π β§ π β β) β 0 β€
(volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))) |
25 | 18 | ltpnfd 13097 |
. . . . . . . . 9
β’ ((π β§ π β β) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) < +β) |
26 | 8, 10, 19, 24, 25 | elicod 13370 |
. . . . . . . 8
β’ ((π β§ π β β) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) β (0[,)+β)) |
27 | 6, 26 | sselid 3979 |
. . . . . . 7
β’ ((π β§ π β β) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) β (0[,]+β)) |
28 | | eqid 2733 |
. . . . . . 7
β’ (π β β β¦
(volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))) = (π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))) |
29 | 27, 28 | fmptd 7109 |
. . . . . 6
β’ (π β (π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))):ββΆ(0[,]+β)) |
30 | 5, 29 | sge0xrcl 45036 |
. . . . 5
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) β
β*) |
31 | 9 | a1i 11 |
. . . . 5
β’ (π β +β β
β*) |
32 | | hoidmv1lelem3.r |
. . . . . . 7
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) β β) |
33 | 32 | rexrd 11260 |
. . . . . 6
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) β
β*) |
34 | | nfv 1918 |
. . . . . . 7
β’
β²ππ |
35 | | volf 25028 |
. . . . . . . . 9
β’ vol:dom
volβΆ(0[,]+β) |
36 | 35 | a1i 11 |
. . . . . . . 8
β’ ((π β§ π β β) β vol:dom
volβΆ(0[,]+β)) |
37 | 14 | rexrd 11260 |
. . . . . . . . 9
β’ ((π β§ π β β) β (π·βπ) β
β*) |
38 | | icombl 25063 |
. . . . . . . . 9
β’ (((πΆβπ) β β β§ (π·βπ) β β*) β ((πΆβπ)[,)(π·βπ)) β dom vol) |
39 | 12, 37, 38 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ π β β) β ((πΆβπ)[,)(π·βπ)) β dom vol) |
40 | 36, 39 | ffvelcdmd 7083 |
. . . . . . 7
β’ ((π β§ π β β) β (volβ((πΆβπ)[,)(π·βπ))) β (0[,]+β)) |
41 | 12 | rexrd 11260 |
. . . . . . . . 9
β’ ((π β§ π β β) β (πΆβπ) β
β*) |
42 | 12 | leidd 11776 |
. . . . . . . . 9
β’ ((π β§ π β β) β (πΆβπ) β€ (πΆβπ)) |
43 | | min1 13164 |
. . . . . . . . . 10
β’ (((π·βπ) β β β§ π΅ β β) β if((π·βπ) β€ π΅, (π·βπ), π΅) β€ (π·βπ)) |
44 | 14, 15, 43 | syl2anc 585 |
. . . . . . . . 9
β’ ((π β§ π β β) β if((π·βπ) β€ π΅, (π·βπ), π΅) β€ (π·βπ)) |
45 | | icossico 13390 |
. . . . . . . . 9
β’ ((((πΆβπ) β β* β§ (π·βπ) β β*) β§ ((πΆβπ) β€ (πΆβπ) β§ if((π·βπ) β€ π΅, (π·βπ), π΅) β€ (π·βπ))) β ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)) β ((πΆβπ)[,)(π·βπ))) |
46 | 41, 37, 42, 44, 45 | syl22anc 838 |
. . . . . . . 8
β’ ((π β§ π β β) β ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)) β ((πΆβπ)[,)(π·βπ))) |
47 | | volss 25032 |
. . . . . . . 8
β’ ((((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)) β dom vol β§ ((πΆβπ)[,)(π·βπ)) β dom vol β§ ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)) β ((πΆβπ)[,)(π·βπ))) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) β€ (volβ((πΆβπ)[,)(π·βπ)))) |
48 | 22, 39, 46, 47 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ π β β) β (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) β€ (volβ((πΆβπ)[,)(π·βπ)))) |
49 | 34, 5, 27, 40, 48 | sge0lempt 45061 |
. . . . . 6
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ)))))) |
50 | 32 | ltpnfd 13097 |
. . . . . 6
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) < +β) |
51 | 30, 33, 31, 49, 50 | xrlelttrd 13135 |
. . . . 5
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) < +β) |
52 | 30, 31, 51 | xrltned 44002 |
. . . 4
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) β +β) |
53 | 52 | neneqd 2946 |
. . 3
β’ (π β Β¬
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) = +β) |
54 | 5, 29 | sge0repnf 45037 |
. . 3
β’ (π β
((Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) β β β Β¬
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) = +β)) |
55 | 53, 54 | mpbird 257 |
. 2
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) β β) |
56 | 1 | rexrd 11260 |
. . . . . . 7
β’ (π β π΅ β
β*) |
57 | 2, 1 | iccssred 13407 |
. . . . . . . . 9
β’ (π β (π΄[,]π΅) β β) |
58 | | hoidmv1lelem3.u |
. . . . . . . . . . 11
β’ π = {π§ β (π΄[,]π΅) β£ (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))} |
59 | | ssrab2 4076 |
. . . . . . . . . . 11
β’ {π§ β (π΄[,]π΅) β£ (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))} β (π΄[,]π΅) |
60 | 58, 59 | eqsstri 4015 |
. . . . . . . . . 10
β’ π β (π΄[,]π΅) |
61 | | hoidmv1lelem3.l |
. . . . . . . . . . . 12
β’ (π β π΄ < π΅) |
62 | | hoidmv1lelem3.s |
. . . . . . . . . . . 12
β’ π = sup(π, β, < ) |
63 | 2, 1, 61, 11, 13, 32, 58, 62 | hoidmv1lelem1 45242 |
. . . . . . . . . . 11
β’ (π β (π β π β§ π΄ β π β§ βπ₯ β β βπ¦ β π π¦ β€ π₯)) |
64 | 63 | simp1d 1143 |
. . . . . . . . . 10
β’ (π β π β π) |
65 | 60, 64 | sselid 3979 |
. . . . . . . . 9
β’ (π β π β (π΄[,]π΅)) |
66 | 57, 65 | sseldd 3982 |
. . . . . . . 8
β’ (π β π β β) |
67 | 66 | rexrd 11260 |
. . . . . . 7
β’ (π β π β
β*) |
68 | | simpl 484 |
. . . . . . . . 9
β’ ((π β§ Β¬ π΅ β€ π) β π) |
69 | | simpr 486 |
. . . . . . . . . 10
β’ ((π β§ Β¬ π΅ β€ π) β Β¬ π΅ β€ π) |
70 | 68, 66 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π΅ β€ π) β π β β) |
71 | 68, 1 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π΅ β€ π) β π΅ β β) |
72 | 70, 71 | ltnled 11357 |
. . . . . . . . . 10
β’ ((π β§ Β¬ π΅ β€ π) β (π < π΅ β Β¬ π΅ β€ π)) |
73 | 69, 72 | mpbird 257 |
. . . . . . . . 9
β’ ((π β§ Β¬ π΅ β€ π) β π < π΅) |
74 | | hoidmv1lelem3.x |
. . . . . . . . . . . . 13
β’ (π β (π΄[,)π΅) β βͺ π β β ((πΆβπ)[,)(π·βπ))) |
75 | 74 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π < π΅) β (π΄[,)π΅) β βͺ π β β ((πΆβπ)[,)(π·βπ))) |
76 | 2 | rexrd 11260 |
. . . . . . . . . . . . . 14
β’ (π β π΄ β
β*) |
77 | 76 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π < π΅) β π΄ β
β*) |
78 | 56 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π < π΅) β π΅ β
β*) |
79 | 67 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π < π΅) β π β
β*) |
80 | 60, 57 | sstrid 3992 |
. . . . . . . . . . . . . . . 16
β’ (π β π β β) |
81 | 64 | ne0d 4334 |
. . . . . . . . . . . . . . . 16
β’ (π β π β β
) |
82 | 63 | simp3d 1145 |
. . . . . . . . . . . . . . . 16
β’ (π β βπ₯ β β βπ¦ β π π¦ β€ π₯) |
83 | 63 | simp2d 1144 |
. . . . . . . . . . . . . . . 16
β’ (π β π΄ β π) |
84 | | suprub 12171 |
. . . . . . . . . . . . . . . 16
β’ (((π β β β§ π β β
β§ βπ₯ β β βπ¦ β π π¦ β€ π₯) β§ π΄ β π) β π΄ β€ sup(π, β, < )) |
85 | 80, 81, 82, 83, 84 | syl31anc 1374 |
. . . . . . . . . . . . . . 15
β’ (π β π΄ β€ sup(π, β, < )) |
86 | 85, 62 | breqtrrdi 5189 |
. . . . . . . . . . . . . 14
β’ (π β π΄ β€ π) |
87 | 86 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π < π΅) β π΄ β€ π) |
88 | | simpr 486 |
. . . . . . . . . . . . 13
β’ ((π β§ π < π΅) β π < π΅) |
89 | 77, 78, 79, 87, 88 | elicod 13370 |
. . . . . . . . . . . 12
β’ ((π β§ π < π΅) β π β (π΄[,)π΅)) |
90 | 75, 89 | sseldd 3982 |
. . . . . . . . . . 11
β’ ((π β§ π < π΅) β π β βͺ
π β β ((πΆβπ)[,)(π·βπ))) |
91 | | eliun 5000 |
. . . . . . . . . . 11
β’ (π β βͺ π β β ((πΆβπ)[,)(π·βπ)) β βπ β β π β ((πΆβπ)[,)(π·βπ))) |
92 | 90, 91 | sylib 217 |
. . . . . . . . . 10
β’ ((π β§ π < π΅) β βπ β β π β ((πΆβπ)[,)(π·βπ))) |
93 | 2 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π < π΅) β π΄ β β) |
94 | 93 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π΄ β β) |
95 | 1 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π < π΅) β π΅ β β) |
96 | 95 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π΅ β β) |
97 | 11 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π < π΅) β πΆ:ββΆβ) |
98 | 97 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β πΆ:ββΆβ) |
99 | 13 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π < π΅) β π·:ββΆβ) |
100 | 99 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π·:ββΆβ) |
101 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (πΆβπ) = (πΆβπ)) |
102 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (π·βπ) = (π·βπ)) |
103 | 101, 102 | oveq12d 7422 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β ((πΆβπ)[,)(π·βπ)) = ((πΆβπ)[,)(π·βπ))) |
104 | 103 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (volβ((πΆβπ)[,)(π·βπ))) = (volβ((πΆβπ)[,)(π·βπ)))) |
105 | 104 | cbvmptv 5260 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β¦
(volβ((πΆβπ)[,)(π·βπ)))) = (π β β β¦ (volβ((πΆβπ)[,)(π·βπ)))) |
106 | 105 | fveq2i 6891 |
. . . . . . . . . . . . . . . 16
β’
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) =
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) |
107 | 106, 32 | eqeltrid 2838 |
. . . . . . . . . . . . . . 15
β’ (π β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) β β) |
108 | 107 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π < π΅) β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) β β) |
109 | 108 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ))))) β β) |
110 | 102 | breq1d 5157 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = π β ((π·βπ) β€ π§ β (π·βπ) β€ π§)) |
111 | 110, 102 | ifbieq1d 4551 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = π β if((π·βπ) β€ π§, (π·βπ), π§) = if((π·βπ) β€ π§, (π·βπ), π§)) |
112 | 101, 111 | oveq12d 7422 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)) = ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))) |
113 | 112 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))) = (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))) |
114 | 113 | cbvmptv 5260 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β¦
(volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))) = (π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))) |
115 | 114 | eqcomi 2742 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β¦
(volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))) = (π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))) |
116 | 115 | fveq2i 6891 |
. . . . . . . . . . . . . . . 16
β’
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))))) =
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))))) |
117 | 116 | breq2i 5155 |
. . . . . . . . . . . . . . 15
β’ ((π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))))) β (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))) |
118 | 117 | rabbii 3439 |
. . . . . . . . . . . . . 14
β’ {π§ β (π΄[,]π΅) β£ (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))} = {π§ β (π΄[,]π΅) β£ (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))} |
119 | 58, 118 | eqtri 2761 |
. . . . . . . . . . . . 13
β’ π = {π§ β (π΄[,]π΅) β£ (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))} |
120 | 64 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π < π΅) β π β π) |
121 | 120 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π β π) |
122 | 87 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π΄ β€ π) |
123 | 88 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π < π΅) |
124 | | simp2 1138 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π β β) |
125 | | simp3 1139 |
. . . . . . . . . . . . 13
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β π β ((πΆβπ)[,)(π·βπ))) |
126 | | eqid 2733 |
. . . . . . . . . . . . 13
β’ if((π·βπ) β€ π΅, (π·βπ), π΅) = if((π·βπ) β€ π΅, (π·βπ), π΅) |
127 | 94, 96, 98, 100, 109, 119, 121, 122, 123, 124, 125, 126 | hoidmv1lelem2 45243 |
. . . . . . . . . . . 12
β’ (((π β§ π < π΅) β§ π β β β§ π β ((πΆβπ)[,)(π·βπ))) β βπ’ β π π < π’) |
128 | 127 | 3exp 1120 |
. . . . . . . . . . 11
β’ ((π β§ π < π΅) β (π β β β (π β ((πΆβπ)[,)(π·βπ)) β βπ’ β π π < π’))) |
129 | 128 | rexlimdv 3154 |
. . . . . . . . . 10
β’ ((π β§ π < π΅) β (βπ β β π β ((πΆβπ)[,)(π·βπ)) β βπ’ β π π < π’)) |
130 | 92, 129 | mpd 15 |
. . . . . . . . 9
β’ ((π β§ π < π΅) β βπ’ β π π < π’) |
131 | 68, 73, 130 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ Β¬ π΅ β€ π) β βπ’ β π π < π’) |
132 | 57 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π’ β π) β (π΄[,]π΅) β β) |
133 | 60, 132 | sstrid 3992 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π) β π β β) |
134 | 81 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π) β π β β
) |
135 | 2, 1 | jca 513 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π΄ β β β§ π΅ β β)) |
136 | 135 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π’ β π) β (π΄ β β β§ π΅ β β)) |
137 | 60 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π’ β π) β π β (π΄[,]π΅)) |
138 | 64 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π’ β π) β π β π) |
139 | | iccsupr 13415 |
. . . . . . . . . . . . . . . 16
β’ (((π΄ β β β§ π΅ β β) β§ π β (π΄[,]π΅) β§ π β π) β (π β β β§ π β β
β§ βπ₯ β β βπ¦ β π π¦ β€ π₯)) |
140 | 136, 137,
138, 139 | syl3anc 1372 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π’ β π) β (π β β β§ π β β
β§ βπ₯ β β βπ¦ β π π¦ β€ π₯)) |
141 | 140 | simp3d 1145 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π) β βπ₯ β β βπ¦ β π π¦ β€ π₯) |
142 | | simpr 486 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π) β π’ β π) |
143 | | suprub 12171 |
. . . . . . . . . . . . . 14
β’ (((π β β β§ π β β
β§ βπ₯ β β βπ¦ β π π¦ β€ π₯) β§ π’ β π) β π’ β€ sup(π, β, < )) |
144 | 133, 134,
141, 142, 143 | syl31anc 1374 |
. . . . . . . . . . . . 13
β’ ((π β§ π’ β π) β π’ β€ sup(π, β, < )) |
145 | 144, 62 | breqtrrdi 5189 |
. . . . . . . . . . . 12
β’ ((π β§ π’ β π) β π’ β€ π) |
146 | 145 | ralrimiva 3147 |
. . . . . . . . . . 11
β’ (π β βπ’ β π π’ β€ π) |
147 | 60 | sseli 3977 |
. . . . . . . . . . . . . . 15
β’ (π’ β π β π’ β (π΄[,]π΅)) |
148 | 147 | adantl 483 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π) β π’ β (π΄[,]π΅)) |
149 | 132, 148 | sseldd 3982 |
. . . . . . . . . . . . 13
β’ ((π β§ π’ β π) β π’ β β) |
150 | 66 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π’ β π) β π β β) |
151 | 149, 150 | lenltd 11356 |
. . . . . . . . . . . 12
β’ ((π β§ π’ β π) β (π’ β€ π β Β¬ π < π’)) |
152 | 151 | ralbidva 3176 |
. . . . . . . . . . 11
β’ (π β (βπ’ β π π’ β€ π β βπ’ β π Β¬ π < π’)) |
153 | 146, 152 | mpbid 231 |
. . . . . . . . . 10
β’ (π β βπ’ β π Β¬ π < π’) |
154 | | ralnex 3073 |
. . . . . . . . . 10
β’
(βπ’ β
π Β¬ π < π’ β Β¬ βπ’ β π π < π’) |
155 | 153, 154 | sylib 217 |
. . . . . . . . 9
β’ (π β Β¬ βπ’ β π π < π’) |
156 | 155 | adantr 482 |
. . . . . . . 8
β’ ((π β§ Β¬ π΅ β€ π) β Β¬ βπ’ β π π < π’) |
157 | 131, 156 | condan 817 |
. . . . . . 7
β’ (π β π΅ β€ π) |
158 | | iccleub 13375 |
. . . . . . . 8
β’ ((π΄ β β*
β§ π΅ β
β* β§ π
β (π΄[,]π΅)) β π β€ π΅) |
159 | 76, 56, 65, 158 | syl3anc 1372 |
. . . . . . 7
β’ (π β π β€ π΅) |
160 | 56, 67, 157, 159 | xrletrid 13130 |
. . . . . 6
β’ (π β π΅ = π) |
161 | 160, 64 | eqeltrd 2834 |
. . . . 5
β’ (π β π΅ β π) |
162 | 161, 58 | eleqtrdi 2844 |
. . . 4
β’ (π β π΅ β {π§ β (π΄[,]π΅) β£ (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))}) |
163 | | oveq1 7411 |
. . . . . 6
β’ (π§ = π΅ β (π§ β π΄) = (π΅ β π΄)) |
164 | | breq2 5151 |
. . . . . . . . . . 11
β’ (π§ = π΅ β ((π·βπ) β€ π§ β (π·βπ) β€ π΅)) |
165 | | id 22 |
. . . . . . . . . . 11
β’ (π§ = π΅ β π§ = π΅) |
166 | 164, 165 | ifbieq2d 4553 |
. . . . . . . . . 10
β’ (π§ = π΅ β if((π·βπ) β€ π§, (π·βπ), π§) = if((π·βπ) β€ π΅, (π·βπ), π΅)) |
167 | 166 | oveq2d 7420 |
. . . . . . . . 9
β’ (π§ = π΅ β ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)) = ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))) |
168 | 167 | fveq2d 6892 |
. . . . . . . 8
β’ (π§ = π΅ β (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))) = (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))) |
169 | 168 | mpteq2dv 5249 |
. . . . . . 7
β’ (π§ = π΅ β (π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))) = (π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))) |
170 | 169 | fveq2d 6892 |
. . . . . 6
β’ (π§ = π΅ β
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))))) =
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))))) |
171 | 163, 170 | breq12d 5160 |
. . . . 5
β’ (π§ = π΅ β ((π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§))))) β (π΅ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))))) |
172 | 171 | elrab 3682 |
. . . 4
β’ (π΅ β {π§ β (π΄[,]π΅) β£ (π§ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π§, (π·βπ), π§)))))} β (π΅ β (π΄[,]π΅) β§ (π΅ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))))) |
173 | 162, 172 | sylib 217 |
. . 3
β’ (π β (π΅ β (π΄[,]π΅) β§ (π΅ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅))))))) |
174 | 173 | simprd 497 |
. 2
β’ (π β (π΅ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)if((π·βπ) β€ π΅, (π·βπ), π΅)))))) |
175 | 3, 55, 32, 174, 49 | letrd 11367 |
1
β’ (π β (π΅ β π΄) β€
(Ξ£^β(π β β β¦ (volβ((πΆβπ)[,)(π·βπ)))))) |