Step | Hyp | Ref
| Expression |
1 | | ovnovollem2.i |
. . . . . . . . 9
β’ (π β πΌ β (((β Γ β)
βm {π΄})
βm β)) |
2 | | elmapi 8840 |
. . . . . . . . 9
β’ (πΌ β (((β Γ
β) βm {π΄}) βm β) β πΌ:ββΆ((β
Γ β) βm {π΄})) |
3 | 1, 2 | syl 17 |
. . . . . . . 8
β’ (π β πΌ:ββΆ((β Γ β)
βm {π΄})) |
4 | 3 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β β) β πΌ:ββΆ((β Γ β)
βm {π΄})) |
5 | | simpr 486 |
. . . . . . 7
β’ ((π β§ π β β) β π β β) |
6 | 4, 5 | ffvelcdmd 7085 |
. . . . . 6
β’ ((π β§ π β β) β (πΌβπ) β ((β Γ β)
βm {π΄})) |
7 | | elmapi 8840 |
. . . . . 6
β’ ((πΌβπ) β ((β Γ β)
βm {π΄})
β (πΌβπ):{π΄}βΆ(β Γ
β)) |
8 | 6, 7 | syl 17 |
. . . . 5
β’ ((π β§ π β β) β (πΌβπ):{π΄}βΆ(β Γ
β)) |
9 | | ovnovollem2.a |
. . . . . . 7
β’ (π β π΄ β π) |
10 | | snidg 4662 |
. . . . . . 7
β’ (π΄ β π β π΄ β {π΄}) |
11 | 9, 10 | syl 17 |
. . . . . 6
β’ (π β π΄ β {π΄}) |
12 | 11 | adantr 482 |
. . . . 5
β’ ((π β§ π β β) β π΄ β {π΄}) |
13 | 8, 12 | ffvelcdmd 7085 |
. . . 4
β’ ((π β§ π β β) β ((πΌβπ)βπ΄) β (β Γ
β)) |
14 | | ovnovollem2.f |
. . . 4
β’ πΉ = (π β β β¦ ((πΌβπ)βπ΄)) |
15 | 13, 14 | fmptd 7111 |
. . 3
β’ (π β πΉ:ββΆ(β Γ
β)) |
16 | | reex 11198 |
. . . . . 6
β’ β
β V |
17 | 16, 16 | xpex 7737 |
. . . . 5
β’ (β
Γ β) β V |
18 | | nnex 12215 |
. . . . 5
β’ β
β V |
19 | 17, 18 | elmap 8862 |
. . . 4
β’ (πΉ β ((β Γ
β) βm β) β πΉ:ββΆ(β Γ
β)) |
20 | 19 | a1i 11 |
. . 3
β’ (π β (πΉ β ((β Γ β)
βm β) β πΉ:ββΆ(β Γ
β))) |
21 | 15, 20 | mpbird 257 |
. 2
β’ (π β πΉ β ((β Γ β)
βm β)) |
22 | | ovnovollem2.s |
. . . . . 6
β’ (π β (π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ)) |
23 | | elsni 4645 |
. . . . . . . . . . . . 13
β’ (π β {π΄} β π = π΄) |
24 | 23 | fveq2d 6893 |
. . . . . . . . . . . 12
β’ (π β {π΄} β (([,) β (πΌβπ))βπ) = (([,) β (πΌβπ))βπ΄)) |
25 | 24 | adantl 483 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β (([,) β (πΌβπ))βπ) = (([,) β (πΌβπ))βπ΄)) |
26 | | elmapfun 8857 |
. . . . . . . . . . . . . 14
β’ ((πΌβπ) β ((β Γ β)
βm {π΄})
β Fun (πΌβπ)) |
27 | 6, 26 | syl 17 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β Fun (πΌβπ)) |
28 | 8 | fdmd 6726 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β dom (πΌβπ) = {π΄}) |
29 | 28 | eqcomd 2739 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β {π΄} = dom (πΌβπ)) |
30 | 12, 29 | eleqtrd 2836 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β π΄ β dom (πΌβπ)) |
31 | | fvco 6987 |
. . . . . . . . . . . . 13
β’ ((Fun
(πΌβπ) β§ π΄ β dom (πΌβπ)) β (([,) β (πΌβπ))βπ΄) = ([,)β((πΌβπ)βπ΄))) |
32 | 27, 30, 31 | syl2anc 585 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (([,) β (πΌβπ))βπ΄) = ([,)β((πΌβπ)βπ΄))) |
33 | 32 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β (([,) β (πΌβπ))βπ΄) = ([,)β((πΌβπ)βπ΄))) |
34 | | id 22 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β π β
β) |
35 | | fvexd 6904 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β ((πΌβπ)βπ΄) β V) |
36 | 14 | fvmpt2 7007 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β β§ ((πΌβπ)βπ΄) β V) β (πΉβπ) = ((πΌβπ)βπ΄)) |
37 | 34, 35, 36 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ (π β β β (πΉβπ) = ((πΌβπ)βπ΄)) |
38 | 37 | eqcomd 2739 |
. . . . . . . . . . . . . . 15
β’ (π β β β ((πΌβπ)βπ΄) = (πΉβπ)) |
39 | 38 | fveq2d 6893 |
. . . . . . . . . . . . . 14
β’ (π β β β
([,)β((πΌβπ)βπ΄)) = ([,)β(πΉβπ))) |
40 | 39 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β ([,)β((πΌβπ)βπ΄)) = ([,)β(πΉβπ))) |
41 | 15 | ffund 6719 |
. . . . . . . . . . . . . . . 16
β’ (π β Fun πΉ) |
42 | 41 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β Fun πΉ) |
43 | 14, 13 | dmmptd 6693 |
. . . . . . . . . . . . . . . . . 18
β’ (π β dom πΉ = β) |
44 | 43 | eqcomd 2739 |
. . . . . . . . . . . . . . . . 17
β’ (π β β = dom πΉ) |
45 | 44 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β β = dom πΉ) |
46 | 5, 45 | eleqtrd 2836 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β π β dom πΉ) |
47 | | fvco 6987 |
. . . . . . . . . . . . . . 15
β’ ((Fun
πΉ β§ π β dom πΉ) β (([,) β πΉ)βπ) = ([,)β(πΉβπ))) |
48 | 42, 46, 47 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β (([,) β πΉ)βπ) = ([,)β(πΉβπ))) |
49 | 48 | eqcomd 2739 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β ([,)β(πΉβπ)) = (([,) β πΉ)βπ)) |
50 | 40, 49 | eqtrd 2773 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β ([,)β((πΌβπ)βπ΄)) = (([,) β πΉ)βπ)) |
51 | 50 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β ([,)β((πΌβπ)βπ΄)) = (([,) β πΉ)βπ)) |
52 | 25, 33, 51 | 3eqtrd 2777 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β {π΄}) β (([,) β (πΌβπ))βπ) = (([,) β πΉ)βπ)) |
53 | 52 | ixpeq2dva 8903 |
. . . . . . . . 9
β’ ((π β§ π β β) β Xπ β
{π΄} (([,) β (πΌβπ))βπ) = Xπ β {π΄} (([,) β πΉ)βπ)) |
54 | | snex 5431 |
. . . . . . . . . . 11
β’ {π΄} β V |
55 | | fvex 6902 |
. . . . . . . . . . 11
β’ (([,)
β πΉ)βπ) β V |
56 | 54, 55 | ixpconst 8898 |
. . . . . . . . . 10
β’ Xπ β
{π΄} (([,) β πΉ)βπ) = ((([,) β πΉ)βπ) βm {π΄}) |
57 | 56 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β β) β Xπ β
{π΄} (([,) β πΉ)βπ) = ((([,) β πΉ)βπ) βm {π΄})) |
58 | 53, 57 | eqtrd 2773 |
. . . . . . . 8
β’ ((π β§ π β β) β Xπ β
{π΄} (([,) β (πΌβπ))βπ) = ((([,) β πΉ)βπ) βm {π΄})) |
59 | 58 | iuneq2dv 5021 |
. . . . . . 7
β’ (π β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ) = βͺ π β β ((([,) β
πΉ)βπ) βm {π΄})) |
60 | | nfv 1918 |
. . . . . . . 8
β’
β²ππ |
61 | 18 | a1i 11 |
. . . . . . . 8
β’ (π β β β
V) |
62 | | fvexd 6904 |
. . . . . . . 8
β’ ((π β§ π β β) β (([,) β πΉ)βπ) β V) |
63 | 60, 61, 62, 9 | iunmapsn 43902 |
. . . . . . 7
β’ (π β βͺ π β β ((([,) β πΉ)βπ) βm {π΄}) = (βͺ
π β β (([,)
β πΉ)βπ) βm {π΄})) |
64 | 59, 63 | eqtrd 2773 |
. . . . . 6
β’ (π β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ) = (βͺ
π β β (([,)
β πΉ)βπ) βm {π΄})) |
65 | 22, 64 | sseqtrd 4022 |
. . . . 5
β’ (π β (π΅ βm {π΄}) β (βͺ π β β (([,) β πΉ)βπ) βm {π΄})) |
66 | | ovnovollem2.b |
. . . . . 6
β’ (π β π΅ β π) |
67 | 18, 55 | iunex 7952 |
. . . . . . 7
β’ βͺ π β β (([,) β πΉ)βπ) β V |
68 | 67 | a1i 11 |
. . . . . 6
β’ (π β βͺ π β β (([,) β πΉ)βπ) β V) |
69 | 54 | a1i 11 |
. . . . . 6
β’ (π β {π΄} β V) |
70 | 11 | ne0d 4335 |
. . . . . 6
β’ (π β {π΄} β β
) |
71 | 66, 68, 69, 70 | mapss2 43890 |
. . . . 5
β’ (π β (π΅ β βͺ
π β β (([,)
β πΉ)βπ) β (π΅ βm {π΄}) β (βͺ π β β (([,) β πΉ)βπ) βm {π΄}))) |
72 | 65, 71 | mpbird 257 |
. . . 4
β’ (π β π΅ β βͺ
π β β (([,)
β πΉ)βπ)) |
73 | | icof 43904 |
. . . . . . . 8
β’
[,):(β* Γ β*)βΆπ«
β* |
74 | 73 | a1i 11 |
. . . . . . 7
β’ (π β [,):(β*
Γ β*)βΆπ«
β*) |
75 | | rexpssxrxp 11256 |
. . . . . . . 8
β’ (β
Γ β) β (β* Γ
β*) |
76 | 75 | a1i 11 |
. . . . . . 7
β’ (π β (β Γ β)
β (β* Γ β*)) |
77 | 74, 76, 15 | fcoss 43895 |
. . . . . 6
β’ (π β ([,) β πΉ):ββΆπ«
β*) |
78 | 77 | ffnd 6716 |
. . . . 5
β’ (π β ([,) β πΉ) Fn β) |
79 | | fniunfv 7243 |
. . . . 5
β’ (([,)
β πΉ) Fn β
β βͺ π β β (([,) β πΉ)βπ) = βͺ ran ([,)
β πΉ)) |
80 | 78, 79 | syl 17 |
. . . 4
β’ (π β βͺ π β β (([,) β πΉ)βπ) = βͺ ran ([,)
β πΉ)) |
81 | 72, 80 | sseqtrd 4022 |
. . 3
β’ (π β π΅ β βͺ ran
([,) β πΉ)) |
82 | | ovnovollem2.z |
. . . 4
β’ (π β π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))))) |
83 | | nfcv 2904 |
. . . . . . 7
β’
β²ππΉ |
84 | | ressxr 11255 |
. . . . . . . . . 10
β’ β
β β* |
85 | | xpss2 5696 |
. . . . . . . . . 10
β’ (β
β β* β (β Γ β) β (β
Γ β*)) |
86 | 84, 85 | ax-mp 5 |
. . . . . . . . 9
β’ (β
Γ β) β (β Γ β*) |
87 | 86 | a1i 11 |
. . . . . . . 8
β’ (π β (β Γ β)
β (β Γ β*)) |
88 | 15, 87 | fssd 6733 |
. . . . . . 7
β’ (π β πΉ:ββΆ(β Γ
β*)) |
89 | 83, 88 | volicofmpt 44700 |
. . . . . 6
β’ (π β ((vol β [,)) β
πΉ) = (π β β β¦
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))))) |
90 | 9 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π β β) β π΄ β π) |
91 | | fvexd 6904 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β β) β ((πΌβπ)βπ΄) β V) |
92 | 5, 91, 36 | syl2anc 585 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β) β (πΉβπ) = ((πΌβπ)βπ΄)) |
93 | 92, 13 | eqeltrd 2834 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β (πΉβπ) β (β Γ
β)) |
94 | | 1st2nd2 8011 |
. . . . . . . . . . . . . . . 16
β’ ((πΉβπ) β (β Γ β) β
(πΉβπ) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
95 | 93, 94 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β (πΉβπ) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
96 | 95 | fveq2d 6893 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β ([,)β(πΉβπ)) = ([,)ββ¨(1st
β(πΉβπ)), (2nd
β(πΉβπ))β©)) |
97 | | df-ov 7409 |
. . . . . . . . . . . . . . . 16
β’
((1st β(πΉβπ))[,)(2nd β(πΉβπ))) = ([,)ββ¨(1st
β(πΉβπ)), (2nd
β(πΉβπ))β©) |
98 | 97 | eqcomi 2742 |
. . . . . . . . . . . . . . 15
β’
([,)ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ))) |
99 | 98 | a1i 11 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β
([,)ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) |
100 | 48, 96, 99 | 3eqtrd 2777 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (([,) β πΉ)βπ) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) |
101 | 32, 50, 100 | 3eqtrd 2777 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (([,) β (πΌβπ))βπ΄) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) |
102 | 101 | fveq2d 6893 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (volβ(([,)
β (πΌβπ))βπ΄)) = (volβ((1st
β(πΉβπ))[,)(2nd
β(πΉβπ))))) |
103 | | xp1st 8004 |
. . . . . . . . . . . . 13
β’ ((πΉβπ) β (β Γ β) β
(1st β(πΉβπ)) β β) |
104 | 93, 103 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (1st
β(πΉβπ)) β
β) |
105 | | xp2nd 8005 |
. . . . . . . . . . . . 13
β’ ((πΉβπ) β (β Γ β) β
(2nd β(πΉβπ)) β β) |
106 | 93, 105 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (2nd
β(πΉβπ)) β
β) |
107 | | volicore 45284 |
. . . . . . . . . . . 12
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) β β) |
108 | 104, 106,
107 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) β β) |
109 | 102, 108 | eqeltrd 2834 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (volβ(([,)
β (πΌβπ))βπ΄)) β β) |
110 | 109 | recnd 11239 |
. . . . . . . . 9
β’ ((π β§ π β β) β (volβ(([,)
β (πΌβπ))βπ΄)) β β) |
111 | | 2fveq3 6894 |
. . . . . . . . . 10
β’ (π = π΄ β (volβ(([,) β (πΌβπ))βπ)) = (volβ(([,) β (πΌβπ))βπ΄))) |
112 | 111 | prodsn 15903 |
. . . . . . . . 9
β’ ((π΄ β π β§ (volβ(([,) β (πΌβπ))βπ΄)) β β) β βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)) = (volβ(([,) β (πΌβπ))βπ΄))) |
113 | 90, 110, 112 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ π β β) β βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)) = (volβ(([,) β (πΌβπ))βπ΄))) |
114 | 113, 102 | eqtr2d 2774 |
. . . . . . 7
β’ ((π β§ π β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) = βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))) |
115 | 114 | mpteq2dva 5248 |
. . . . . 6
β’ (π β (π β β β¦
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ))))) = (π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))) |
116 | 89, 115 | eqtrd 2773 |
. . . . 5
β’ (π β ((vol β [,)) β
πΉ) = (π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))) |
117 | 116 | fveq2d 6893 |
. . . 4
β’ (π β
(Ξ£^β((vol β [,)) β πΉ)) =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))))) |
118 | 82, 117 | eqtr4d 2776 |
. . 3
β’ (π β π =
(Ξ£^β((vol β [,)) β πΉ))) |
119 | 81, 118 | jca 513 |
. 2
β’ (π β (π΅ β βͺ ran
([,) β πΉ) β§ π =
(Ξ£^β((vol β [,)) β πΉ)))) |
120 | | coeq2 5857 |
. . . . . . 7
β’ (π = πΉ β ([,) β π) = ([,) β πΉ)) |
121 | 120 | rneqd 5936 |
. . . . . 6
β’ (π = πΉ β ran ([,) β π) = ran ([,) β πΉ)) |
122 | 121 | unieqd 4922 |
. . . . 5
β’ (π = πΉ β βͺ ran
([,) β π) = βͺ ran ([,) β πΉ)) |
123 | 122 | sseq2d 4014 |
. . . 4
β’ (π = πΉ β (π΅ β βͺ ran
([,) β π) β
π΅ β βͺ ran ([,) β πΉ))) |
124 | | coeq2 5857 |
. . . . . 6
β’ (π = πΉ β ((vol β [,)) β π) = ((vol β [,)) β
πΉ)) |
125 | 124 | fveq2d 6893 |
. . . . 5
β’ (π = πΉ β
(Ξ£^β((vol β [,)) β π)) =
(Ξ£^β((vol β [,)) β πΉ))) |
126 | 125 | eqeq2d 2744 |
. . . 4
β’ (π = πΉ β (π =
(Ξ£^β((vol β [,)) β π)) β π =
(Ξ£^β((vol β [,)) β πΉ)))) |
127 | 123, 126 | anbi12d 632 |
. . 3
β’ (π = πΉ β ((π΅ β βͺ ran
([,) β π) β§ π =
(Ξ£^β((vol β [,)) β π))) β (π΅ β βͺ ran
([,) β πΉ) β§ π =
(Ξ£^β((vol β [,)) β πΉ))))) |
128 | 127 | rspcev 3613 |
. 2
β’ ((πΉ β ((β Γ
β) βm β) β§ (π΅ β βͺ ran
([,) β πΉ) β§ π =
(Ξ£^β((vol β [,)) β πΉ)))) β βπ β ((β Γ
β) βm β)(π΅ β βͺ ran
([,) β π) β§ π =
(Ξ£^β((vol β [,)) β π)))) |
129 | 21, 119, 128 | syl2anc 585 |
1
β’ (π β βπ β ((β Γ β)
βm β)(π΅ β βͺ ran
([,) β π) β§ π =
(Ξ£^β((vol β [,)) β π)))) |