Step | Hyp | Ref
| Expression |
1 | | ovncvr2.c |
. . . . . . . . . . . . . . . 16
β’ πΆ = (π β π« (β βm
π) β¦ {π β (((β Γ
β) βm π) βm β) β£ π β βͺ π β β Xπ β π (([,) β (πβπ))βπ)}) |
2 | | sseq1 4006 |
. . . . . . . . . . . . . . . . 17
β’ (π = π΄ β (π β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ))) |
3 | 2 | rabbidv 3440 |
. . . . . . . . . . . . . . . 16
β’ (π = π΄ β {π β (((β Γ β)
βm π)
βm β) β£ π β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ)} = {π β (((β Γ β)
βm π)
βm β) β£ π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ)}) |
4 | | ovncvr2.a |
. . . . . . . . . . . . . . . . 17
β’ (π β π΄ β (β βm π)) |
5 | | ovexd 7440 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (β
βm π)
β V) |
6 | 5, 4 | ssexd 5323 |
. . . . . . . . . . . . . . . . . 18
β’ (π β π΄ β V) |
7 | | elpwg 4604 |
. . . . . . . . . . . . . . . . . 18
β’ (π΄ β V β (π΄ β π« (β
βm π)
β π΄ β (β
βm π))) |
8 | 6, 7 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π΄ β π« (β
βm π)
β π΄ β (β
βm π))) |
9 | 4, 8 | mpbird 256 |
. . . . . . . . . . . . . . . 16
β’ (π β π΄ β π« (β
βm π)) |
10 | | ovex 7438 |
. . . . . . . . . . . . . . . . . 18
β’
(((β Γ β) βm π) βm β) β
V |
11 | 10 | rabex 5331 |
. . . . . . . . . . . . . . . . 17
β’ {π β (((β Γ
β) βm π) βm β) β£ π΄ β βͺ π β β Xπ β π (([,) β (πβπ))βπ)} β V |
12 | 11 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (π β {π β (((β Γ β)
βm π)
βm β) β£ π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ)} β V) |
13 | 1, 3, 9, 12 | fvmptd3 7018 |
. . . . . . . . . . . . . . 15
β’ (π β (πΆβπ΄) = {π β (((β Γ β)
βm π)
βm β) β£ π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ)}) |
14 | | ssrab2 4076 |
. . . . . . . . . . . . . . . 16
β’ {π β (((β Γ
β) βm π) βm β) β£ π΄ β βͺ π β β Xπ β π (([,) β (πβπ))βπ)} β (((β Γ β)
βm π)
βm β) |
15 | 14 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β {π β (((β Γ β)
βm π)
βm β) β£ π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ)} β (((β Γ β)
βm π)
βm β)) |
16 | 13, 15 | eqsstrd 4019 |
. . . . . . . . . . . . . 14
β’ (π β (πΆβπ΄) β (((β Γ β)
βm π)
βm β)) |
17 | | ovncvr2.i |
. . . . . . . . . . . . . . . . 17
β’ (π β πΌ β ((π·βπ΄)βπΈ)) |
18 | | ovncvr2.d |
. . . . . . . . . . . . . . . . . . 19
β’ π· = (π β π« (β βm
π) β¦ (π β β+
β¦ {π β (πΆβπ) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ) +π π)})) |
19 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = π΄ β (πΆβπ) = (πΆβπ΄)) |
20 | 19 | eleq2d 2819 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = π΄ β (π β (πΆβπ) β π β (πΆβπ΄))) |
21 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = π΄ β ((voln*βπ)βπ) = ((voln*βπ)βπ΄)) |
22 | 21 | oveq1d 7420 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = π΄ β (((voln*βπ)βπ) +π π) = (((voln*βπ)βπ΄) +π π)) |
23 | 22 | breq2d 5159 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = π΄ β
((Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ) +π π) β
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π))) |
24 | 20, 23 | anbi12d 631 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = π΄ β ((π β (πΆβπ) β§
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ) +π π)) β (π β (πΆβπ΄) β§
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)))) |
25 | 24 | rabbidva2 3434 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π΄ β {π β (πΆβπ) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ) +π π)} = {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)}) |
26 | 25 | mpteq2dv 5249 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π΄ β (π β β+ β¦ {π β (πΆβπ) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ) +π π)}) = (π β β+ β¦ {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)})) |
27 | | rpex 44042 |
. . . . . . . . . . . . . . . . . . . . 21
β’
β+ β V |
28 | 27 | mptex 7221 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β+
β¦ {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)}) β V |
29 | 28 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π β β+ β¦ {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)}) β V) |
30 | 18, 26, 9, 29 | fvmptd3 7018 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (π·βπ΄) = (π β β+ β¦ {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)})) |
31 | | oveq2 7413 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = πΈ β (((voln*βπ)βπ΄) +π π) = (((voln*βπ)βπ΄) +π πΈ)) |
32 | 31 | breq2d 5159 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = πΈ β
((Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π) β
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ))) |
33 | 32 | rabbidv 3440 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = πΈ β {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)} = {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)}) |
34 | 33 | adantl 482 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π = πΈ) β {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π π)} = {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)}) |
35 | | ovncvr2.e |
. . . . . . . . . . . . . . . . . 18
β’ (π β πΈ β
β+) |
36 | | fvex 6901 |
. . . . . . . . . . . . . . . . . . . 20
β’ (πΆβπ΄) β V |
37 | 36 | rabex 5331 |
. . . . . . . . . . . . . . . . . . 19
β’ {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)} β V |
38 | 37 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
β’ (π β {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)} β V) |
39 | 30, 34, 35, 38 | fvmptd 7002 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((π·βπ΄)βπΈ) = {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)}) |
40 | 17, 39 | eleqtrd 2835 |
. . . . . . . . . . . . . . . 16
β’ (π β πΌ β {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)}) |
41 | | fveq1 6887 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = πΌ β (πβπ) = (πΌβπ)) |
42 | 41 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = πΌ β (πΏβ(πβπ)) = (πΏβ(πΌβπ))) |
43 | 42 | mpteq2dv 5249 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = πΌ β (π β β β¦ (πΏβ(πβπ))) = (π β β β¦ (πΏβ(πΌβπ)))) |
44 | 43 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . 18
β’ (π = πΌ β
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) =
(Ξ£^β(π β β β¦ (πΏβ(πΌβπ))))) |
45 | 44 | breq1d 5157 |
. . . . . . . . . . . . . . . . 17
β’ (π = πΌ β
((Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ) β
(Ξ£^β(π β β β¦ (πΏβ(πΌβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ))) |
46 | 45 | elrab 3682 |
. . . . . . . . . . . . . . . 16
β’ (πΌ β {π β (πΆβπ΄) β£
(Ξ£^β(π β β β¦ (πΏβ(πβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)} β (πΌ β (πΆβπ΄) β§
(Ξ£^β(π β β β¦ (πΏβ(πΌβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ))) |
47 | 40, 46 | sylib 217 |
. . . . . . . . . . . . . . 15
β’ (π β (πΌ β (πΆβπ΄) β§
(Ξ£^β(π β β β¦ (πΏβ(πΌβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ))) |
48 | 47 | simpld 495 |
. . . . . . . . . . . . . 14
β’ (π β πΌ β (πΆβπ΄)) |
49 | 16, 48 | sseldd 3982 |
. . . . . . . . . . . . 13
β’ (π β πΌ β (((β Γ β)
βm π)
βm β)) |
50 | | elmapi 8839 |
. . . . . . . . . . . . 13
β’ (πΌ β (((β Γ
β) βm π) βm β) β πΌ:ββΆ((β
Γ β) βm π)) |
51 | 49, 50 | syl 17 |
. . . . . . . . . . . 12
β’ (π β πΌ:ββΆ((β Γ β)
βm π)) |
52 | 51 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β πΌ:ββΆ((β Γ β)
βm π)) |
53 | | simpr 485 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β π β β) |
54 | 52, 53 | ffvelcdmd 7084 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (πΌβπ) β ((β Γ β)
βm π)) |
55 | | elmapi 8839 |
. . . . . . . . . 10
β’ ((πΌβπ) β ((β Γ β)
βm π)
β (πΌβπ):πβΆ(β Γ
β)) |
56 | 54, 55 | syl 17 |
. . . . . . . . 9
β’ ((π β§ π β β) β (πΌβπ):πβΆ(β Γ
β)) |
57 | 56 | ffvelcdmda 7083 |
. . . . . . . 8
β’ (((π β§ π β β) β§ π β π) β ((πΌβπ)βπ) β (β Γ
β)) |
58 | | xp1st 8003 |
. . . . . . . 8
β’ (((πΌβπ)βπ) β (β Γ β) β
(1st β((πΌβπ)βπ)) β β) |
59 | 57, 58 | syl 17 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π) β (1st β((πΌβπ)βπ)) β β) |
60 | 59 | fmpttd 7111 |
. . . . . 6
β’ ((π β§ π β β) β (π β π β¦ (1st β((πΌβπ)βπ))):πβΆβ) |
61 | | reex 11197 |
. . . . . . . . 9
β’ β
β V |
62 | 61 | a1i 11 |
. . . . . . . 8
β’ (π β β β
V) |
63 | | ovncvr2.x |
. . . . . . . 8
β’ (π β π β Fin) |
64 | | elmapg 8829 |
. . . . . . . 8
β’ ((β
β V β§ π β
Fin) β ((π β
π β¦ (1st
β((πΌβπ)βπ))) β (β βm π) β (π β π β¦ (1st β((πΌβπ)βπ))):πβΆβ)) |
65 | 62, 63, 64 | syl2anc 584 |
. . . . . . 7
β’ (π β ((π β π β¦ (1st β((πΌβπ)βπ))) β (β βm π) β (π β π β¦ (1st β((πΌβπ)βπ))):πβΆβ)) |
66 | 65 | adantr 481 |
. . . . . 6
β’ ((π β§ π β β) β ((π β π β¦ (1st β((πΌβπ)βπ))) β (β βm π) β (π β π β¦ (1st β((πΌβπ)βπ))):πβΆβ)) |
67 | 60, 66 | mpbird 256 |
. . . . 5
β’ ((π β§ π β β) β (π β π β¦ (1st β((πΌβπ)βπ))) β (β βm π)) |
68 | 67 | fmpttd 7111 |
. . . 4
β’ (π β (π β β β¦ (π β π β¦ (1st β((πΌβπ)βπ)))):ββΆ(β
βm π)) |
69 | | ovncvr2.b |
. . . . . 6
β’ π΅ = (π β β β¦ (π β π β¦ (1st β((πΌβπ)βπ)))) |
70 | 69 | a1i 11 |
. . . . 5
β’ (π β π΅ = (π β β β¦ (π β π β¦ (1st β((πΌβπ)βπ))))) |
71 | 70 | feq1d 6699 |
. . . 4
β’ (π β (π΅:ββΆ(β βm
π) β (π β β β¦ (π β π β¦ (1st β((πΌβπ)βπ)))):ββΆ(β
βm π))) |
72 | 68, 71 | mpbird 256 |
. . 3
β’ (π β π΅:ββΆ(β βm
π)) |
73 | | xp2nd 8004 |
. . . . . . . 8
β’ (((πΌβπ)βπ) β (β Γ β) β
(2nd β((πΌβπ)βπ)) β β) |
74 | 57, 73 | syl 17 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π) β (2nd β((πΌβπ)βπ)) β β) |
75 | 74 | fmpttd 7111 |
. . . . . 6
β’ ((π β§ π β β) β (π β π β¦ (2nd β((πΌβπ)βπ))):πβΆβ) |
76 | | elmapg 8829 |
. . . . . . . 8
β’ ((β
β V β§ π β
Fin) β ((π β
π β¦ (2nd
β((πΌβπ)βπ))) β (β βm π) β (π β π β¦ (2nd β((πΌβπ)βπ))):πβΆβ)) |
77 | 62, 63, 76 | syl2anc 584 |
. . . . . . 7
β’ (π β ((π β π β¦ (2nd β((πΌβπ)βπ))) β (β βm π) β (π β π β¦ (2nd β((πΌβπ)βπ))):πβΆβ)) |
78 | 77 | adantr 481 |
. . . . . 6
β’ ((π β§ π β β) β ((π β π β¦ (2nd β((πΌβπ)βπ))) β (β βm π) β (π β π β¦ (2nd β((πΌβπ)βπ))):πβΆβ)) |
79 | 75, 78 | mpbird 256 |
. . . . 5
β’ ((π β§ π β β) β (π β π β¦ (2nd β((πΌβπ)βπ))) β (β βm π)) |
80 | 79 | fmpttd 7111 |
. . . 4
β’ (π β (π β β β¦ (π β π β¦ (2nd β((πΌβπ)βπ)))):ββΆ(β
βm π)) |
81 | | ovncvr2.t |
. . . . . 6
β’ π = (π β β β¦ (π β π β¦ (2nd β((πΌβπ)βπ)))) |
82 | 81 | a1i 11 |
. . . . 5
β’ (π β π = (π β β β¦ (π β π β¦ (2nd β((πΌβπ)βπ))))) |
83 | 82 | feq1d 6699 |
. . . 4
β’ (π β (π:ββΆ(β βm
π) β (π β β β¦ (π β π β¦ (2nd β((πΌβπ)βπ)))):ββΆ(β
βm π))) |
84 | 80, 83 | mpbird 256 |
. . 3
β’ (π β π:ββΆ(β βm
π)) |
85 | 72, 84 | jca 512 |
. 2
β’ (π β (π΅:ββΆ(β βm
π) β§ π:ββΆ(β βm
π))) |
86 | 48, 13 | eleqtrd 2835 |
. . . . 5
β’ (π β πΌ β {π β (((β Γ β)
βm π)
βm β) β£ π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ)}) |
87 | | fveq1 6887 |
. . . . . . . . . . . 12
β’ (π = πΌ β (πβπ) = (πΌβπ)) |
88 | 87 | coeq2d 5860 |
. . . . . . . . . . 11
β’ (π = πΌ β ([,) β (πβπ)) = ([,) β (πΌβπ))) |
89 | 88 | fveq1d 6890 |
. . . . . . . . . 10
β’ (π = πΌ β (([,) β (πβπ))βπ) = (([,) β (πΌβπ))βπ)) |
90 | 89 | ixpeq2dv 8903 |
. . . . . . . . 9
β’ (π = πΌ β Xπ β π (([,) β (πβπ))βπ) = Xπ β π (([,) β (πΌβπ))βπ)) |
91 | 90 | adantr 481 |
. . . . . . . 8
β’ ((π = πΌ β§ π β β) β Xπ β
π (([,) β (πβπ))βπ) = Xπ β π (([,) β (πΌβπ))βπ)) |
92 | 91 | iuneq2dv 5020 |
. . . . . . 7
β’ (π = πΌ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) = βͺ π β β Xπ β
π (([,) β (πΌβπ))βπ)) |
93 | 92 | sseq2d 4013 |
. . . . . 6
β’ (π = πΌ β (π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ) β π΄ β βͺ
π β β Xπ β
π (([,) β (πΌβπ))βπ))) |
94 | 93 | elrab 3682 |
. . . . 5
β’ (πΌ β {π β (((β Γ β)
βm π)
βm β) β£ π΄ β βͺ
π β β Xπ β
π (([,) β (πβπ))βπ)} β (πΌ β (((β Γ β)
βm π)
βm β) β§ π΄ β βͺ
π β β Xπ β
π (([,) β (πΌβπ))βπ))) |
95 | 86, 94 | sylib 217 |
. . . 4
β’ (π β (πΌ β (((β Γ β)
βm π)
βm β) β§ π΄ β βͺ
π β β Xπ β
π (([,) β (πΌβπ))βπ))) |
96 | 95 | simprd 496 |
. . 3
β’ (π β π΄ β βͺ
π β β Xπ β
π (([,) β (πΌβπ))βπ)) |
97 | 56 | adantr 481 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π) β (πΌβπ):πβΆ(β Γ
β)) |
98 | | simpr 485 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π) β π β π) |
99 | 97, 98 | fvovco 43877 |
. . . . . 6
β’ (((π β§ π β β) β§ π β π) β (([,) β (πΌβπ))βπ) = ((1st β((πΌβπ)βπ))[,)(2nd β((πΌβπ)βπ)))) |
100 | | mptexg 7219 |
. . . . . . . . . . . 12
β’ (π β Fin β (π β π β¦ (1st β((πΌβπ)βπ))) β V) |
101 | 63, 100 | syl 17 |
. . . . . . . . . . 11
β’ (π β (π β π β¦ (1st β((πΌβπ)βπ))) β V) |
102 | 101 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (π β π β¦ (1st β((πΌβπ)βπ))) β V) |
103 | 70, 102 | fvmpt2d 7008 |
. . . . . . . . 9
β’ ((π β§ π β β) β (π΅βπ) = (π β π β¦ (1st β((πΌβπ)βπ)))) |
104 | | fvexd 6903 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β π) β (1st β((πΌβπ)βπ)) β V) |
105 | 103, 104 | fvmpt2d 7008 |
. . . . . . . 8
β’ (((π β§ π β β) β§ π β π) β ((π΅βπ)βπ) = (1st β((πΌβπ)βπ))) |
106 | 105 | eqcomd 2738 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π) β (1st β((πΌβπ)βπ)) = ((π΅βπ)βπ)) |
107 | | mptexg 7219 |
. . . . . . . . . . . 12
β’ (π β Fin β (π β π β¦ (2nd β((πΌβπ)βπ))) β V) |
108 | 63, 107 | syl 17 |
. . . . . . . . . . 11
β’ (π β (π β π β¦ (2nd β((πΌβπ)βπ))) β V) |
109 | 108 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (π β π β¦ (2nd β((πΌβπ)βπ))) β V) |
110 | 82, 109 | fvmpt2d 7008 |
. . . . . . . . 9
β’ ((π β§ π β β) β (πβπ) = (π β π β¦ (2nd β((πΌβπ)βπ)))) |
111 | | fvexd 6903 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β π) β (2nd β((πΌβπ)βπ)) β V) |
112 | 110, 111 | fvmpt2d 7008 |
. . . . . . . 8
β’ (((π β§ π β β) β§ π β π) β ((πβπ)βπ) = (2nd β((πΌβπ)βπ))) |
113 | 112 | eqcomd 2738 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π) β (2nd β((πΌβπ)βπ)) = ((πβπ)βπ)) |
114 | 106, 113 | oveq12d 7423 |
. . . . . 6
β’ (((π β§ π β β) β§ π β π) β ((1st β((πΌβπ)βπ))[,)(2nd β((πΌβπ)βπ))) = (((π΅βπ)βπ)[,)((πβπ)βπ))) |
115 | 99, 114 | eqtrd 2772 |
. . . . 5
β’ (((π β§ π β β) β§ π β π) β (([,) β (πΌβπ))βπ) = (((π΅βπ)βπ)[,)((πβπ)βπ))) |
116 | 115 | ixpeq2dva 8902 |
. . . 4
β’ ((π β§ π β β) β Xπ β
π (([,) β (πΌβπ))βπ) = Xπ β π (((π΅βπ)βπ)[,)((πβπ)βπ))) |
117 | 116 | iuneq2dv 5020 |
. . 3
β’ (π β βͺ π β β Xπ β π (([,) β (πΌβπ))βπ) = βͺ π β β Xπ β
π (((π΅βπ)βπ)[,)((πβπ)βπ))) |
118 | 96, 117 | sseqtrd 4021 |
. 2
β’ (π β π΄ β βͺ
π β β Xπ β
π (((π΅βπ)βπ)[,)((πβπ)βπ))) |
119 | | ovncvr2.l |
. . . . . . . 8
β’ πΏ = (β β ((β Γ β)
βm π)
β¦ βπ β
π (volβ(([,) β
β)βπ))) |
120 | 119 | a1i 11 |
. . . . . . 7
β’ ((π β§ π β β) β πΏ = (β β ((β Γ β)
βm π)
β¦ βπ β
π (volβ(([,) β
β)βπ)))) |
121 | | coeq2 5856 |
. . . . . . . . . . . . 13
β’ (β = (πΌβπ) β ([,) β β) = ([,) β (πΌβπ))) |
122 | 121 | fveq1d 6890 |
. . . . . . . . . . . 12
β’ (β = (πΌβπ) β (([,) β β)βπ) = (([,) β (πΌβπ))βπ)) |
123 | 122 | ad2antlr 725 |
. . . . . . . . . . 11
β’ (((π β§ β = (πΌβπ)) β§ π β π) β (([,) β β)βπ) = (([,) β (πΌβπ))βπ)) |
124 | 123 | adantllr 717 |
. . . . . . . . . 10
β’ ((((π β§ π β β) β§ β = (πΌβπ)) β§ π β π) β (([,) β β)βπ) = (([,) β (πΌβπ))βπ)) |
125 | 99 | adantlr 713 |
. . . . . . . . . 10
β’ ((((π β§ π β β) β§ β = (πΌβπ)) β§ π β π) β (([,) β (πΌβπ))βπ) = ((1st β((πΌβπ)βπ))[,)(2nd β((πΌβπ)βπ)))) |
126 | 114 | adantlr 713 |
. . . . . . . . . 10
β’ ((((π β§ π β β) β§ β = (πΌβπ)) β§ π β π) β ((1st β((πΌβπ)βπ))[,)(2nd β((πΌβπ)βπ))) = (((π΅βπ)βπ)[,)((πβπ)βπ))) |
127 | 124, 125,
126 | 3eqtrd 2776 |
. . . . . . . . 9
β’ ((((π β§ π β β) β§ β = (πΌβπ)) β§ π β π) β (([,) β β)βπ) = (((π΅βπ)βπ)[,)((πβπ)βπ))) |
128 | 127 | fveq2d 6892 |
. . . . . . . 8
β’ ((((π β§ π β β) β§ β = (πΌβπ)) β§ π β π) β (volβ(([,) β β)βπ)) = (volβ(((π΅βπ)βπ)[,)((πβπ)βπ)))) |
129 | 128 | prodeq2dv 15863 |
. . . . . . 7
β’ (((π β§ π β β) β§ β = (πΌβπ)) β βπ β π (volβ(([,) β β)βπ)) = βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ)))) |
130 | 63 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β β) β π β Fin) |
131 | 69 | fvmpt2 7006 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ (π β π β¦ (1st β((πΌβπ)βπ))) β V) β (π΅βπ) = (π β π β¦ (1st β((πΌβπ)βπ)))) |
132 | 53, 102, 131 | syl2anc 584 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (π΅βπ) = (π β π β¦ (1st β((πΌβπ)βπ)))) |
133 | 132 | feq1d 6699 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β ((π΅βπ):πβΆβ β (π β π β¦ (1st β((πΌβπ)βπ))):πβΆβ)) |
134 | 60, 133 | mpbird 256 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (π΅βπ):πβΆβ) |
135 | 134 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β π) β (π΅βπ):πβΆβ) |
136 | 135, 98 | ffvelcdmd 7084 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β π) β ((π΅βπ)βπ) β β) |
137 | 81 | fvmpt2 7006 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ (π β π β¦ (2nd β((πΌβπ)βπ))) β V) β (πβπ) = (π β π β¦ (2nd β((πΌβπ)βπ)))) |
138 | 53, 109, 137 | syl2anc 584 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (πβπ) = (π β π β¦ (2nd β((πΌβπ)βπ)))) |
139 | 138 | feq1d 6699 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β ((πβπ):πβΆβ β (π β π β¦ (2nd β((πΌβπ)βπ))):πβΆβ)) |
140 | 75, 139 | mpbird 256 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (πβπ):πβΆβ) |
141 | 140 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β π) β (πβπ):πβΆβ) |
142 | 141, 98 | ffvelcdmd 7084 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β π) β ((πβπ)βπ) β β) |
143 | | volicore 45283 |
. . . . . . . . 9
β’ ((((π΅βπ)βπ) β β β§ ((πβπ)βπ) β β) β (volβ(((π΅βπ)βπ)[,)((πβπ)βπ))) β β) |
144 | 136, 142,
143 | syl2anc 584 |
. . . . . . . 8
β’ (((π β§ π β β) β§ π β π) β (volβ(((π΅βπ)βπ)[,)((πβπ)βπ))) β β) |
145 | 130, 144 | fprodrecl 15893 |
. . . . . . 7
β’ ((π β§ π β β) β βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ))) β β) |
146 | 120, 129,
54, 145 | fvmptd 7002 |
. . . . . 6
β’ ((π β§ π β β) β (πΏβ(πΌβπ)) = βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ)))) |
147 | 146 | eqcomd 2738 |
. . . . 5
β’ ((π β§ π β β) β βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ))) = (πΏβ(πΌβπ))) |
148 | 147 | mpteq2dva 5247 |
. . . 4
β’ (π β (π β β β¦ βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ)))) = (π β β β¦ (πΏβ(πΌβπ)))) |
149 | 148 | fveq2d 6892 |
. . 3
β’ (π β
(Ξ£^β(π β β β¦ βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ))))) =
(Ξ£^β(π β β β¦ (πΏβ(πΌβπ))))) |
150 | 47 | simprd 496 |
. . 3
β’ (π β
(Ξ£^β(π β β β¦ (πΏβ(πΌβπ)))) β€ (((voln*βπ)βπ΄) +π πΈ)) |
151 | 149, 150 | eqbrtrd 5169 |
. 2
β’ (π β
(Ξ£^β(π β β β¦ βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ))))) β€ (((voln*βπ)βπ΄) +π πΈ)) |
152 | 85, 118, 151 | jca31 515 |
1
β’ (π β (((π΅:ββΆ(β βm
π) β§ π:ββΆ(β βm
π)) β§ π΄ β βͺ
π β β Xπ β
π (((π΅βπ)βπ)[,)((πβπ)βπ))) β§
(Ξ£^β(π β β β¦ βπ β π (volβ(((π΅βπ)βπ)[,)((πβπ)βπ))))) β€ (((voln*βπ)βπ΄) +π πΈ))) |