Step | Hyp | Ref
| Expression |
1 | | voliunlem.3 |
. . . . 5
β’ (π β πΉ:ββΆdom vol) |
2 | 1 | frnd 6723 |
. . . 4
β’ (π β ran πΉ β dom vol) |
3 | | mblss 25040 |
. . . . . 6
β’ (π₯ β dom vol β π₯ β
β) |
4 | | velpw 4607 |
. . . . . 6
β’ (π₯ β π« β β
π₯ β
β) |
5 | 3, 4 | sylibr 233 |
. . . . 5
β’ (π₯ β dom vol β π₯ β π«
β) |
6 | 5 | ssriv 3986 |
. . . 4
β’ dom vol
β π« β |
7 | 2, 6 | sstrdi 3994 |
. . 3
β’ (π β ran πΉ β π« β) |
8 | | sspwuni 5103 |
. . 3
β’ (ran
πΉ β π« β
β βͺ ran πΉ β β) |
9 | 7, 8 | sylib 217 |
. 2
β’ (π β βͺ ran πΉ β β) |
10 | | elpwi 4609 |
. . . 4
β’ (π₯ β π« β β
π₯ β
β) |
11 | | inundif 4478 |
. . . . . . . 8
β’ ((π₯ β© βͺ ran πΉ) βͺ (π₯ β βͺ ran
πΉ)) = π₯ |
12 | 11 | fveq2i 6892 |
. . . . . . 7
β’
(vol*β((π₯
β© βͺ ran πΉ) βͺ (π₯ β βͺ ran
πΉ))) = (vol*βπ₯) |
13 | | inss1 4228 |
. . . . . . . . 9
β’ (π₯ β© βͺ ran πΉ) β π₯ |
14 | | simp2 1138 |
. . . . . . . . 9
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β π₯ β
β) |
15 | 13, 14 | sstrid 3993 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β (π₯ β© βͺ ran πΉ) β β) |
16 | | ovolsscl 24995 |
. . . . . . . . . 10
β’ (((π₯ β© βͺ ran πΉ) β π₯ β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© βͺ ran πΉ)) β β) |
17 | 13, 16 | mp3an1 1449 |
. . . . . . . . 9
β’ ((π₯ β β β§
(vol*βπ₯) β
β) β (vol*β(π₯ β© βͺ ran πΉ)) β
β) |
18 | 17 | 3adant1 1131 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© βͺ ran πΉ)) β β) |
19 | | difss 4131 |
. . . . . . . . 9
β’ (π₯ β βͺ ran πΉ) β π₯ |
20 | 19, 14 | sstrid 3993 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β (π₯ β βͺ ran πΉ) β β) |
21 | | ovolsscl 24995 |
. . . . . . . . . 10
β’ (((π₯ β βͺ ran πΉ) β π₯ β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β
βͺ ran πΉ)) β β) |
22 | 19, 21 | mp3an1 1449 |
. . . . . . . . 9
β’ ((π₯ β β β§
(vol*βπ₯) β
β) β (vol*β(π₯ β βͺ ran
πΉ)) β
β) |
23 | 22 | 3adant1 1131 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β
βͺ ran πΉ)) β β) |
24 | | ovolun 25008 |
. . . . . . . 8
β’ ((((π₯ β© βͺ ran πΉ) β β β§ (vol*β(π₯ β© βͺ ran πΉ)) β β) β§ ((π₯ β βͺ ran πΉ) β β β§ (vol*β(π₯ β βͺ ran πΉ)) β β)) β
(vol*β((π₯ β© βͺ ran πΉ) βͺ (π₯ β βͺ ran
πΉ))) β€
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ)))) |
25 | 15, 18, 20, 23, 24 | syl22anc 838 |
. . . . . . 7
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β((π₯ β© βͺ ran πΉ) βͺ (π₯ β βͺ ran
πΉ))) β€
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ)))) |
26 | 12, 25 | eqbrtrrid 5184 |
. . . . . 6
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*βπ₯) β€
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ)))) |
27 | 18 | rexrd 11261 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© βͺ ran πΉ)) β
β*) |
28 | | nnuz 12862 |
. . . . . . . . . . . 12
β’ β =
(β€β₯β1) |
29 | | 1zzd 12590 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β 1
β β€) |
30 | | fveq2 6889 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β (πΉβπ) = (πΉβπ)) |
31 | 30 | ineq2d 4212 |
. . . . . . . . . . . . . . . 16
β’ (π = π β (π₯ β© (πΉβπ)) = (π₯ β© (πΉβπ))) |
32 | 31 | fveq2d 6893 |
. . . . . . . . . . . . . . 15
β’ (π = π β (vol*β(π₯ β© (πΉβπ))) = (vol*β(π₯ β© (πΉβπ)))) |
33 | | voliunlem.6 |
. . . . . . . . . . . . . . 15
β’ π» = (π β β β¦ (vol*β(π₯ β© (πΉβπ)))) |
34 | | fvex 6902 |
. . . . . . . . . . . . . . 15
β’
(vol*β(π₯ β©
(πΉβπ))) β V |
35 | 32, 33, 34 | fvmpt 6996 |
. . . . . . . . . . . . . 14
β’ (π β β β (π»βπ) = (vol*β(π₯ β© (πΉβπ)))) |
36 | 35 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β (π»βπ) = (vol*β(π₯ β© (πΉβπ)))) |
37 | | inss1 4228 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β© (πΉβπ)) β π₯ |
38 | | ovolsscl 24995 |
. . . . . . . . . . . . . . . 16
β’ (((π₯ β© (πΉβπ)) β π₯ β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© (πΉβπ))) β β) |
39 | 37, 38 | mp3an1 1449 |
. . . . . . . . . . . . . . 15
β’ ((π₯ β β β§
(vol*βπ₯) β
β) β (vol*β(π₯ β© (πΉβπ))) β β) |
40 | 39 | 3adant1 1131 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© (πΉβπ))) β β) |
41 | 40 | adantr 482 |
. . . . . . . . . . . . 13
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β
(vol*β(π₯ β© (πΉβπ))) β β) |
42 | 36, 41 | eqeltrd 2834 |
. . . . . . . . . . . 12
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β (π»βπ) β β) |
43 | 28, 29, 42 | serfre 13994 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β seq1( +
, π»):ββΆβ) |
44 | 43 | frnd 6723 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β ran
seq1( + , π») β
β) |
45 | | ressxr 11255 |
. . . . . . . . . 10
β’ β
β β* |
46 | 44, 45 | sstrdi 3994 |
. . . . . . . . 9
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β ran
seq1( + , π») β
β*) |
47 | | supxrcl 13291 |
. . . . . . . . 9
β’ (ran
seq1( + , π») β
β* β sup(ran seq1( + , π»), β*, < ) β
β*) |
48 | 46, 47 | syl 17 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β sup(ran
seq1( + , π»),
β*, < ) β β*) |
49 | | simp3 1139 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*βπ₯) β
β) |
50 | 49, 23 | resubcld 11639 |
. . . . . . . . 9
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
((vol*βπ₯) β
(vol*β(π₯ β
βͺ ran πΉ))) β β) |
51 | 50 | rexrd 11261 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
((vol*βπ₯) β
(vol*β(π₯ β
βͺ ran πΉ))) β
β*) |
52 | | iunin2 5074 |
. . . . . . . . . . 11
β’ βͺ π β β (π₯ β© (πΉβπ)) = (π₯ β© βͺ
π β β (πΉβπ)) |
53 | | ffn 6715 |
. . . . . . . . . . . . . 14
β’ (πΉ:ββΆdom vol β
πΉ Fn
β) |
54 | | fniunfv 7243 |
. . . . . . . . . . . . . 14
β’ (πΉ Fn β β βͺ π β β (πΉβπ) = βͺ ran πΉ) |
55 | 1, 53, 54 | 3syl 18 |
. . . . . . . . . . . . 13
β’ (π β βͺ π β β (πΉβπ) = βͺ ran πΉ) |
56 | 55 | 3ad2ant1 1134 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
βͺ π β β (πΉβπ) = βͺ ran πΉ) |
57 | 56 | ineq2d 4212 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β (π₯ β© βͺ π β β (πΉβπ)) = (π₯ β© βͺ ran πΉ)) |
58 | 52, 57 | eqtrid 2785 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
βͺ π β β (π₯ β© (πΉβπ)) = (π₯ β© βͺ ran πΉ)) |
59 | 58 | fveq2d 6893 |
. . . . . . . . 9
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*ββͺ π β β (π₯ β© (πΉβπ))) = (vol*β(π₯ β© βͺ ran πΉ))) |
60 | | eqid 2733 |
. . . . . . . . . 10
β’ seq1( + ,
π») = seq1( + , π») |
61 | | inss1 4228 |
. . . . . . . . . . . 12
β’ (π₯ β© (πΉβπ)) β π₯ |
62 | 61, 14 | sstrid 3993 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β (π₯ β© (πΉβπ)) β β) |
63 | 62 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β (π₯ β© (πΉβπ)) β β) |
64 | | ovolsscl 24995 |
. . . . . . . . . . . . 13
β’ (((π₯ β© (πΉβπ)) β π₯ β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© (πΉβπ))) β β) |
65 | 61, 64 | mp3an1 1449 |
. . . . . . . . . . . 12
β’ ((π₯ β β β§
(vol*βπ₯) β
β) β (vol*β(π₯ β© (πΉβπ))) β β) |
66 | 65 | 3adant1 1131 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© (πΉβπ))) β β) |
67 | 66 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β
(vol*β(π₯ β© (πΉβπ))) β β) |
68 | 60, 33, 63, 67 | ovoliun 25014 |
. . . . . . . . 9
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*ββͺ π β β (π₯ β© (πΉβπ))) β€ sup(ran seq1( + , π»), β*, <
)) |
69 | 59, 68 | eqbrtrrd 5172 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© βͺ ran πΉ)) β€ sup(ran seq1( + , π»), β*, <
)) |
70 | 1 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β πΉ:ββΆdom
vol) |
71 | | voliunlem.5 |
. . . . . . . . . . . . . 14
β’ (π β Disj π β β (πΉβπ)) |
72 | 71 | 3ad2ant1 1134 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
Disj π β
β (πΉβπ)) |
73 | 70, 72, 33, 14, 49 | voliunlem1 25059 |
. . . . . . . . . . . 12
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β ((seq1(
+ , π»)βπ) + (vol*β(π₯ β βͺ ran πΉ))) β€ (vol*βπ₯)) |
74 | 43 | ffvelcdmda 7084 |
. . . . . . . . . . . . 13
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β (seq1( +
, π»)βπ) β
β) |
75 | 23 | adantr 482 |
. . . . . . . . . . . . 13
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β
(vol*β(π₯ β
βͺ ran πΉ)) β β) |
76 | | simpl3 1194 |
. . . . . . . . . . . . 13
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β
(vol*βπ₯) β
β) |
77 | | leaddsub 11687 |
. . . . . . . . . . . . 13
β’ (((seq1(
+ , π»)βπ) β β β§
(vol*β(π₯ β
βͺ ran πΉ)) β β β§ (vol*βπ₯) β β) β
(((seq1( + , π»)βπ) + (vol*β(π₯ β βͺ ran πΉ))) β€ (vol*βπ₯) β (seq1( + , π»)βπ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
78 | 74, 75, 76, 77 | syl3anc 1372 |
. . . . . . . . . . . 12
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β (((seq1(
+ , π»)βπ) + (vol*β(π₯ β βͺ ran πΉ))) β€ (vol*βπ₯) β (seq1( + , π»)βπ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
79 | 73, 78 | mpbid 231 |
. . . . . . . . . . 11
β’ (((π β§ π₯ β β β§ (vol*βπ₯) β β) β§ π β β) β (seq1( +
, π»)βπ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran πΉ)))) |
80 | 79 | ralrimiva 3147 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
βπ β β
(seq1( + , π»)βπ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran πΉ)))) |
81 | | ffn 6715 |
. . . . . . . . . . 11
β’ (seq1( +
, π»):ββΆβ
β seq1( + , π») Fn
β) |
82 | | breq1 5151 |
. . . . . . . . . . . 12
β’ (π§ = (seq1( + , π»)βπ) β (π§ β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))) β (seq1( + ,
π»)βπ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
83 | 82 | ralrn 7087 |
. . . . . . . . . . 11
β’ (seq1( +
, π») Fn β β
(βπ§ β ran seq1(
+ , π»)π§ β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))) β βπ β β (seq1( + , π»)βπ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
84 | 43, 81, 83 | 3syl 18 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(βπ§ β ran seq1(
+ , π»)π§ β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))) β βπ β β (seq1( + , π»)βπ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
85 | 80, 84 | mpbird 257 |
. . . . . . . . 9
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
βπ§ β ran seq1(
+ , π»)π§ β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ)))) |
86 | | supxrleub 13302 |
. . . . . . . . . 10
β’ ((ran
seq1( + , π») β
β* β§ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))) β
β*) β (sup(ran seq1( + , π»), β*, < ) β€
((vol*βπ₯) β
(vol*β(π₯ β
βͺ ran πΉ))) β βπ§ β ran seq1( + , π»)π§ β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
87 | 46, 51, 86 | syl2anc 585 |
. . . . . . . . 9
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(sup(ran seq1( + , π»),
β*, < ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))) β βπ§ β ran seq1( + , π»)π§ β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
88 | 85, 87 | mpbird 257 |
. . . . . . . 8
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β sup(ran
seq1( + , π»),
β*, < ) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ)))) |
89 | 27, 48, 51, 69, 88 | xrletrd 13138 |
. . . . . . 7
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*β(π₯ β© βͺ ran πΉ)) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ)))) |
90 | | leaddsub 11687 |
. . . . . . . 8
β’
(((vol*β(π₯
β© βͺ ran πΉ)) β β β§ (vol*β(π₯ β βͺ ran πΉ)) β β β§ (vol*βπ₯) β β) β
(((vol*β(π₯ β©
βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))) β€ (vol*βπ₯) β (vol*β(π₯ β© βͺ ran πΉ)) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
91 | 18, 23, 49, 90 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(((vol*β(π₯ β©
βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))) β€ (vol*βπ₯) β (vol*β(π₯ β© βͺ ran πΉ)) β€ ((vol*βπ₯) β (vol*β(π₯ β βͺ ran
πΉ))))) |
92 | 89, 91 | mpbird 257 |
. . . . . 6
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))) β€ (vol*βπ₯)) |
93 | 18, 23 | readdcld 11240 |
. . . . . . 7
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))) β
β) |
94 | 49, 93 | letri3d 11353 |
. . . . . 6
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
((vol*βπ₯) =
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))) β
((vol*βπ₯) β€
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))) β§
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))) β€ (vol*βπ₯)))) |
95 | 26, 92, 94 | mpbir2and 712 |
. . . . 5
β’ ((π β§ π₯ β β β§ (vol*βπ₯) β β) β
(vol*βπ₯) =
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ)))) |
96 | 95 | 3expia 1122 |
. . . 4
β’ ((π β§ π₯ β β) β ((vol*βπ₯) β β β
(vol*βπ₯) =
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))))) |
97 | 10, 96 | sylan2 594 |
. . 3
β’ ((π β§ π₯ β π« β) β
((vol*βπ₯) β
β β (vol*βπ₯) = ((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran πΉ))))) |
98 | 97 | ralrimiva 3147 |
. 2
β’ (π β βπ₯ β π« β((vol*βπ₯) β β β
(vol*βπ₯) =
((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran
πΉ))))) |
99 | | ismbl 25035 |
. 2
β’ (βͺ ran πΉ β dom vol β (βͺ ran πΉ β β β§ βπ₯ β π«
β((vol*βπ₯)
β β β (vol*βπ₯) = ((vol*β(π₯ β© βͺ ran πΉ)) + (vol*β(π₯ β βͺ ran πΉ)))))) |
100 | 9, 98, 99 | sylanbrc 584 |
1
β’ (π β βͺ ran πΉ β dom vol) |