Step | Hyp | Ref
| Expression |
1 | | reex 11198 |
. . . . . . 7
β’ β
β V |
2 | 1, 1 | xpex 7737 |
. . . . . 6
β’ (β
Γ β) β V |
3 | | inss2 4229 |
. . . . . 6
β’ ( β€
β© (β Γ β)) β (β Γ
β) |
4 | | mapss 8880 |
. . . . . 6
β’
(((β Γ β) β V β§ ( β€ β© (β Γ
β)) β (β Γ β)) β (( β€ β© (β
Γ β)) βm β) β ((β Γ
β) βm β)) |
5 | 2, 3, 4 | mp2an 691 |
. . . . 5
β’ (( β€
β© (β Γ β)) βm β) β ((β
Γ β) βm β) |
6 | | ovolval2lem.1 |
. . . . . 6
β’ (π β πΉ:ββΆ( β€ β© (β
Γ β))) |
7 | 2 | inex2 5318 |
. . . . . . . 8
β’ ( β€
β© (β Γ β)) β V |
8 | 7 | a1i 11 |
. . . . . . 7
β’ (π β ( β€ β© (β
Γ β)) β V) |
9 | | nnex 12215 |
. . . . . . . 8
β’ β
β V |
10 | 9 | a1i 11 |
. . . . . . 7
β’ (π β β β
V) |
11 | 8, 10 | elmapd 8831 |
. . . . . 6
β’ (π β (πΉ β (( β€ β© (β Γ
β)) βm β) β πΉ:ββΆ( β€ β© (β
Γ β)))) |
12 | 6, 11 | mpbird 257 |
. . . . 5
β’ (π β πΉ β (( β€ β© (β Γ
β)) βm β)) |
13 | 5, 12 | sselid 3980 |
. . . 4
β’ (π β πΉ β ((β Γ β)
βm β)) |
14 | | 1zzd 12590 |
. . . . 5
β’ (πΉ β ((β Γ
β) βm β) β 1 β β€) |
15 | | nnuz 12862 |
. . . . 5
β’ β =
(β€β₯β1) |
16 | | elmapi 8840 |
. . . . . . . . . 10
β’ (πΉ β ((β Γ
β) βm β) β πΉ:ββΆ(β Γ
β)) |
17 | 16 | adantr 482 |
. . . . . . . . 9
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β πΉ:ββΆ(β Γ
β)) |
18 | | simpr 486 |
. . . . . . . . 9
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β π β β) |
19 | 17, 18 | fvovco 43878 |
. . . . . . . 8
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (([,) β πΉ)βπ) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) |
20 | 19 | fveq2d 6893 |
. . . . . . 7
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (volβ(([,)
β πΉ)βπ)) = (volβ((1st
β(πΉβπ))[,)(2nd
β(πΉβπ))))) |
21 | 16 | ffvelcdmda 7084 |
. . . . . . . . 9
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (πΉβπ) β (β Γ
β)) |
22 | | xp1st 8004 |
. . . . . . . . 9
β’ ((πΉβπ) β (β Γ β) β
(1st β(πΉβπ)) β β) |
23 | 21, 22 | syl 17 |
. . . . . . . 8
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (1st
β(πΉβπ)) β
β) |
24 | | xp2nd 8005 |
. . . . . . . . 9
β’ ((πΉβπ) β (β Γ β) β
(2nd β(πΉβπ)) β β) |
25 | 21, 24 | syl 17 |
. . . . . . . 8
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (2nd
β(πΉβπ)) β
β) |
26 | | volicore 45284 |
. . . . . . . 8
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) β β) |
27 | 23, 25, 26 | syl2anc 585 |
. . . . . . 7
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) β β) |
28 | 20, 27 | eqeltrd 2834 |
. . . . . 6
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (volβ(([,)
β πΉ)βπ)) β
β) |
29 | 28 | recnd 11239 |
. . . . 5
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (volβ(([,)
β πΉ)βπ)) β
β) |
30 | | eqid 2733 |
. . . . 5
β’ (π β β β¦
Ξ£π β (1...π)(volβ(([,) β πΉ)βπ))) = (π β β β¦ Ξ£π β (1...π)(volβ(([,) β πΉ)βπ))) |
31 | | eqid 2733 |
. . . . 5
β’ seq1( + ,
(π β β β¦
(volβ(([,) β πΉ)βπ)))) = seq1( + , (π β β β¦ (volβ(([,)
β πΉ)βπ)))) |
32 | 14, 15, 29, 30, 31 | fsumsermpt 44282 |
. . . 4
β’ (πΉ β ((β Γ
β) βm β) β (π β β β¦ Ξ£π β (1...π)(volβ(([,) β πΉ)βπ))) = seq1( + , (π β β β¦ (volβ(([,)
β πΉ)βπ))))) |
33 | 13, 32 | syl 17 |
. . 3
β’ (π β (π β β β¦ Ξ£π β (1...π)(volβ(([,) β πΉ)βπ))) = seq1( + , (π β β β¦ (volβ(([,)
β πΉ)βπ))))) |
34 | | simpr 486 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) |
35 | 34 | iftrued 4536 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β if((1st
β(πΉβπ)) < (2nd
β(πΉβπ)), ((2nd
β(πΉβπ)) β (1st
β(πΉβπ))), 0) = ((2nd
β(πΉβπ)) β (1st
β(πΉβπ)))) |
36 | 13, 23 | sylan 581 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (1st
β(πΉβπ)) β
β) |
37 | 36 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (1st
β(πΉβπ)) β
β) |
38 | 13, 25 | sylan 581 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (2nd
β(πΉβπ)) β
β) |
39 | 38 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (2nd
β(πΉβπ)) β
β) |
40 | | ressxr 11255 |
. . . . . . . . . . . 12
β’ β
β β* |
41 | 40, 37 | sselid 3980 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (1st
β(πΉβπ)) β
β*) |
42 | 40, 39 | sselid 3980 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (2nd
β(πΉβπ)) β
β*) |
43 | | xpss 5692 |
. . . . . . . . . . . . . . . . . 18
β’ (β
Γ β) β (V Γ V) |
44 | 43, 21 | sselid 3980 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (πΉβπ) β (V Γ V)) |
45 | | 1st2ndb 8012 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉβπ) β (V Γ V) β (πΉβπ) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
46 | 44, 45 | sylib 217 |
. . . . . . . . . . . . . . . 16
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (πΉβπ) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
47 | 13, 46 | sylan 581 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β (πΉβπ) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
48 | 47 | eqcomd 2739 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β β¨(1st
β(πΉβπ)), (2nd
β(πΉβπ))β© = (πΉβπ)) |
49 | | inss1 4228 |
. . . . . . . . . . . . . . . . 17
β’ ( β€
β© (β Γ β)) β β€ |
50 | 49 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (π β ( β€ β© (β
Γ β)) β β€ ) |
51 | 6, 50 | fssd 6733 |
. . . . . . . . . . . . . . 15
β’ (π β πΉ:ββΆ β€ ) |
52 | 51 | ffvelcdmda 7084 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β (πΉβπ) β β€ ) |
53 | 48, 52 | eqeltrd 2834 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β β¨(1st
β(πΉβπ)), (2nd
β(πΉβπ))β© β β€
) |
54 | | df-br 5149 |
. . . . . . . . . . . . 13
β’
((1st β(πΉβπ)) β€ (2nd β(πΉβπ)) β β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β© β β€ ) |
55 | 53, 54 | sylibr 233 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (1st
β(πΉβπ)) β€ (2nd
β(πΉβπ))) |
56 | 55 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (1st
β(πΉβπ)) β€ (2nd
β(πΉβπ))) |
57 | | simpr 486 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) |
58 | 39, 37 | lenltd 11357 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β ((2nd
β(πΉβπ)) β€ (1st
β(πΉβπ)) β Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ)))) |
59 | 57, 58 | mpbird 257 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (2nd
β(πΉβπ)) β€ (1st
β(πΉβπ))) |
60 | 41, 42, 56, 59 | xrletrid 13131 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β (1st
β(πΉβπ)) = (2nd
β(πΉβπ))) |
61 | | simp3 1139 |
. . . . . . . . . . . . . 14
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β (1st β(πΉβπ)) = (2nd β(πΉβπ))) |
62 | | simp1 1137 |
. . . . . . . . . . . . . . 15
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β (1st β(πΉβπ)) β β) |
63 | | simp2 1138 |
. . . . . . . . . . . . . . 15
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β (2nd β(πΉβπ)) β β) |
64 | 62, 63 | eqleltd 11355 |
. . . . . . . . . . . . . 14
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β ((1st β(πΉβπ)) = (2nd β(πΉβπ)) β ((1st β(πΉβπ)) β€ (2nd β(πΉβπ)) β§ Β¬ (1st β(πΉβπ)) < (2nd β(πΉβπ))))) |
65 | 61, 64 | mpbid 231 |
. . . . . . . . . . . . 13
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β ((1st β(πΉβπ)) β€ (2nd β(πΉβπ)) β§ Β¬ (1st β(πΉβπ)) < (2nd β(πΉβπ)))) |
66 | 65 | simprd 497 |
. . . . . . . . . . . 12
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) |
67 | 66 | iffalsed 4539 |
. . . . . . . . . . 11
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β if((1st β(πΉβπ)) < (2nd β(πΉβπ)), ((2nd β(πΉβπ)) β (1st β(πΉβπ))), 0) = 0) |
68 | 63 | recnd 11239 |
. . . . . . . . . . . 12
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β (2nd β(πΉβπ)) β β) |
69 | 61 | eqcomd 2739 |
. . . . . . . . . . . 12
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β (2nd β(πΉβπ)) = (1st β(πΉβπ))) |
70 | 68, 69 | subeq0bd 11637 |
. . . . . . . . . . 11
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β ((2nd β(πΉβπ)) β (1st β(πΉβπ))) = 0) |
71 | 67, 70 | eqtr4d 2776 |
. . . . . . . . . 10
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β β§
(1st β(πΉβπ)) = (2nd β(πΉβπ))) β if((1st β(πΉβπ)) < (2nd β(πΉβπ)), ((2nd β(πΉβπ)) β (1st β(πΉβπ))), 0) = ((2nd β(πΉβπ)) β (1st β(πΉβπ)))) |
72 | 37, 39, 60, 71 | syl3anc 1372 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ Β¬ (1st
β(πΉβπ)) < (2nd
β(πΉβπ))) β if((1st
β(πΉβπ)) < (2nd
β(πΉβπ)), ((2nd
β(πΉβπ)) β (1st
β(πΉβπ))), 0) = ((2nd
β(πΉβπ)) β (1st
β(πΉβπ)))) |
73 | 35, 72 | pm2.61dan 812 |
. . . . . . . 8
β’ ((π β§ π β β) β if((1st
β(πΉβπ)) < (2nd
β(πΉβπ)), ((2nd
β(πΉβπ)) β (1st
β(πΉβπ))), 0) = ((2nd
β(πΉβπ)) β (1st
β(πΉβπ)))) |
74 | | volico 44686 |
. . . . . . . . 9
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) = if((1st β(πΉβπ)) < (2nd β(πΉβπ)), ((2nd β(πΉβπ)) β (1st β(πΉβπ))), 0)) |
75 | 36, 38, 74 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ π β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) = if((1st β(πΉβπ)) < (2nd β(πΉβπ)), ((2nd β(πΉβπ)) β (1st β(πΉβπ))), 0)) |
76 | 36, 38, 55 | abssuble0d 15376 |
. . . . . . . 8
β’ ((π β§ π β β) β
(absβ((1st β(πΉβπ)) β (2nd β(πΉβπ)))) = ((2nd β(πΉβπ)) β (1st β(πΉβπ)))) |
77 | 73, 75, 76 | 3eqtr4d 2783 |
. . . . . . 7
β’ ((π β§ π β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) = (absβ((1st
β(πΉβπ)) β (2nd
β(πΉβπ))))) |
78 | 13 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β β) β πΉ β ((β Γ β)
βm β)) |
79 | | simpr 486 |
. . . . . . . 8
β’ ((π β§ π β β) β π β β) |
80 | 78, 79, 20 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β β) β (volβ(([,)
β πΉ)βπ)) = (volβ((1st
β(πΉβπ))[,)(2nd
β(πΉβπ))))) |
81 | 46 | fveq2d 6893 |
. . . . . . . . 9
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β ((abs β β
)β(πΉβπ)) = ((abs β β
)ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©)) |
82 | | df-ov 7409 |
. . . . . . . . . . 11
β’
((1st β(πΉβπ))(abs β β )(2nd
β(πΉβπ))) = ((abs β β
)ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
83 | 82 | eqcomi 2742 |
. . . . . . . . . 10
β’ ((abs
β β )ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) = ((1st β(πΉβπ))(abs β β )(2nd
β(πΉβπ))) |
84 | 83 | a1i 11 |
. . . . . . . . 9
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β ((abs β β
)ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) = ((1st β(πΉβπ))(abs β β )(2nd
β(πΉβπ)))) |
85 | 23 | recnd 11239 |
. . . . . . . . . 10
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (1st
β(πΉβπ)) β
β) |
86 | 25 | recnd 11239 |
. . . . . . . . . 10
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β (2nd
β(πΉβπ)) β
β) |
87 | | eqid 2733 |
. . . . . . . . . . 11
β’ (abs
β β ) = (abs β β ) |
88 | 87 | cnmetdval 24279 |
. . . . . . . . . 10
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β) β
((1st β(πΉβπ))(abs β β )(2nd
β(πΉβπ))) =
(absβ((1st β(πΉβπ)) β (2nd β(πΉβπ))))) |
89 | 85, 86, 88 | syl2anc 585 |
. . . . . . . . 9
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β ((1st
β(πΉβπ))(abs β β
)(2nd β(πΉβπ))) = (absβ((1st
β(πΉβπ)) β (2nd
β(πΉβπ))))) |
90 | 81, 84, 89 | 3eqtrd 2777 |
. . . . . . . 8
β’ ((πΉ β ((β Γ
β) βm β) β§ π β β) β ((abs β β
)β(πΉβπ)) = (absβ((1st
β(πΉβπ)) β (2nd
β(πΉβπ))))) |
91 | 78, 79, 90 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β β) β ((abs β β
)β(πΉβπ)) = (absβ((1st
β(πΉβπ)) β (2nd
β(πΉβπ))))) |
92 | 77, 80, 91 | 3eqtr4d 2783 |
. . . . . 6
β’ ((π β§ π β β) β (volβ(([,)
β πΉ)βπ)) = ((abs β β
)β(πΉβπ))) |
93 | 92 | mpteq2dva 5248 |
. . . . 5
β’ (π β (π β β β¦ (volβ(([,)
β πΉ)βπ))) = (π β β β¦ ((abs β β
)β(πΉβπ)))) |
94 | 13, 16 | syl 17 |
. . . . . 6
β’ (π β πΉ:ββΆ(β Γ
β)) |
95 | | rr2sscn2 44063 |
. . . . . . 7
β’ (β
Γ β) β (β Γ β) |
96 | 95 | a1i 11 |
. . . . . 6
β’ (π β (β Γ β)
β (β Γ β)) |
97 | | absf 15281 |
. . . . . . . 8
β’
abs:ββΆβ |
98 | | subf 11459 |
. . . . . . . 8
β’ β
:(β Γ β)βΆβ |
99 | | fco 6739 |
. . . . . . . 8
β’
((abs:ββΆβ β§ β :(β Γ
β)βΆβ) β (abs β β ):(β Γ
β)βΆβ) |
100 | 97, 98, 99 | mp2an 691 |
. . . . . . 7
β’ (abs
β β ):(β Γ β)βΆβ |
101 | 100 | a1i 11 |
. . . . . 6
β’ (π β (abs β β
):(β Γ β)βΆβ) |
102 | 94, 96, 101 | fcomptss 43888 |
. . . . 5
β’ (π β ((abs β β )
β πΉ) = (π β β β¦ ((abs
β β )β(πΉβπ)))) |
103 | 93, 102 | eqtr4d 2776 |
. . . 4
β’ (π β (π β β β¦ (volβ(([,)
β πΉ)βπ))) = ((abs β β )
β πΉ)) |
104 | 103 | seqeq3d 13971 |
. . 3
β’ (π β seq1( + , (π β β β¦
(volβ(([,) β πΉ)βπ)))) = seq1( + , ((abs β β )
β πΉ))) |
105 | 33, 104 | eqtr2d 2774 |
. 2
β’ (π β seq1( + , ((abs β
β ) β πΉ)) =
(π β β β¦
Ξ£π β (1...π)(volβ(([,) β πΉ)βπ)))) |
106 | 105 | rneqd 5936 |
1
β’ (π β ran seq1( + , ((abs
β β ) β πΉ)) = ran (π β β β¦ Ξ£π β (1...π)(volβ(([,) β πΉ)βπ)))) |