Step | Hyp | Ref
| Expression |
1 | | eqidd 2734 |
. . . . . . 7
β’ ((π β§ π β β) β {β¨π΄, (πΉβπ)β©} = {β¨π΄, (πΉβπ)β©}) |
2 | | ovnovollem1.a |
. . . . . . . . 9
β’ (π β π΄ β π) |
3 | 2 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β β) β π΄ β π) |
4 | | ovnovollem1.f |
. . . . . . . . . 10
β’ (π β πΉ β ((β Γ β)
βm β)) |
5 | | elmapi 8840 |
. . . . . . . . . 10
β’ (πΉ β ((β Γ
β) βm β) β πΉ:ββΆ(β Γ
β)) |
6 | 4, 5 | syl 17 |
. . . . . . . . 9
β’ (π β πΉ:ββΆ(β Γ
β)) |
7 | 6 | ffvelcdmda 7084 |
. . . . . . . 8
β’ ((π β§ π β β) β (πΉβπ) β (β Γ
β)) |
8 | | fsng 7132 |
. . . . . . . 8
β’ ((π΄ β π β§ (πΉβπ) β (β Γ β)) β
({β¨π΄, (πΉβπ)β©}:{π΄}βΆ{(πΉβπ)} β {β¨π΄, (πΉβπ)β©} = {β¨π΄, (πΉβπ)β©})) |
9 | 3, 7, 8 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β β) β ({β¨π΄, (πΉβπ)β©}:{π΄}βΆ{(πΉβπ)} β {β¨π΄, (πΉβπ)β©} = {β¨π΄, (πΉβπ)β©})) |
10 | 1, 9 | mpbird 257 |
. . . . . 6
β’ ((π β§ π β β) β {β¨π΄, (πΉβπ)β©}:{π΄}βΆ{(πΉβπ)}) |
11 | 7 | snssd 4812 |
. . . . . 6
β’ ((π β§ π β β) β {(πΉβπ)} β (β Γ
β)) |
12 | 10, 11 | fssd 6733 |
. . . . 5
β’ ((π β§ π β β) β {β¨π΄, (πΉβπ)β©}:{π΄}βΆ(β Γ
β)) |
13 | | reex 11198 |
. . . . . . . 8
β’ β
β V |
14 | 13, 13 | xpex 7737 |
. . . . . . 7
β’ (β
Γ β) β V |
15 | 14 | a1i 11 |
. . . . . 6
β’ ((π β§ π β β) β (β Γ
β) β V) |
16 | | snex 5431 |
. . . . . . 7
β’ {π΄} β V |
17 | 16 | a1i 11 |
. . . . . 6
β’ ((π β§ π β β) β {π΄} β V) |
18 | 15, 17 | elmapd 8831 |
. . . . 5
β’ ((π β§ π β β) β ({β¨π΄, (πΉβπ)β©} β ((β Γ β)
βm {π΄})
β {β¨π΄, (πΉβπ)β©}:{π΄}βΆ(β Γ
β))) |
19 | 12, 18 | mpbird 257 |
. . . 4
β’ ((π β§ π β β) β {β¨π΄, (πΉβπ)β©} β ((β Γ β)
βm {π΄})) |
20 | | ovnovollem1.i |
. . . 4
β’ πΌ = (π β β β¦ {β¨π΄, (πΉβπ)β©}) |
21 | 19, 20 | fmptd 7111 |
. . 3
β’ (π β πΌ:ββΆ((β Γ β)
βm {π΄})) |
22 | | ovexd 7441 |
. . . 4
β’ (π β ((β Γ β)
βm {π΄})
β V) |
23 | | nnex 12215 |
. . . . 5
β’ β
β V |
24 | 23 | a1i 11 |
. . . 4
β’ (π β β β
V) |
25 | 22, 24 | elmapd 8831 |
. . 3
β’ (π β (πΌ β (((β Γ β)
βm {π΄})
βm β) β πΌ:ββΆ((β Γ β)
βm {π΄}))) |
26 | 21, 25 | mpbird 257 |
. 2
β’ (π β πΌ β (((β Γ β)
βm {π΄})
βm β)) |
27 | | ovnovollem1.s |
. . . . . 6
β’ (π β π΅ β βͺ ran
([,) β πΉ)) |
28 | | icof 43904 |
. . . . . . . . . . 11
β’
[,):(β* Γ β*)βΆπ«
β* |
29 | 28 | a1i 11 |
. . . . . . . . . 10
β’ (π β [,):(β*
Γ β*)βΆπ«
β*) |
30 | | rexpssxrxp 11256 |
. . . . . . . . . . 11
β’ (β
Γ β) β (β* Γ
β*) |
31 | 30 | a1i 11 |
. . . . . . . . . 10
β’ (π β (β Γ β)
β (β* Γ β*)) |
32 | 29, 31, 6 | fcoss 43895 |
. . . . . . . . 9
β’ (π β ([,) β πΉ):ββΆπ«
β*) |
33 | 32 | ffnd 6716 |
. . . . . . . 8
β’ (π β ([,) β πΉ) Fn β) |
34 | | fniunfv 7243 |
. . . . . . . 8
β’ (([,)
β πΉ) Fn β
β βͺ π β β (([,) β πΉ)βπ) = βͺ ran ([,)
β πΉ)) |
35 | 33, 34 | syl 17 |
. . . . . . 7
β’ (π β βͺ π β β (([,) β πΉ)βπ) = βͺ ran ([,)
β πΉ)) |
36 | 35 | eqcomd 2739 |
. . . . . 6
β’ (π β βͺ ran ([,) β πΉ) = βͺ
π β β (([,)
β πΉ)βπ)) |
37 | 27, 36 | sseqtrd 4022 |
. . . . 5
β’ (π β π΅ β βͺ
π β β (([,)
β πΉ)βπ)) |
38 | | ovnovollem1.b |
. . . . . 6
β’ (π β π΅ β π) |
39 | | fvex 6902 |
. . . . . . . 8
β’ (([,)
β πΉ)βπ) β V |
40 | 23, 39 | iunex 7952 |
. . . . . . 7
β’ βͺ π β β (([,) β πΉ)βπ) β V |
41 | 40 | a1i 11 |
. . . . . 6
β’ (π β βͺ π β β (([,) β πΉ)βπ) β V) |
42 | 16 | a1i 11 |
. . . . . 6
β’ (π β {π΄} β V) |
43 | 2 | snn0d 4779 |
. . . . . 6
β’ (π β {π΄} β β
) |
44 | 38, 41, 42, 43 | mapss2 43890 |
. . . . 5
β’ (π β (π΅ β βͺ
π β β (([,)
β πΉ)βπ) β (π΅ βm {π΄}) β (βͺ π β β (([,) β πΉ)βπ) βm {π΄}))) |
45 | 37, 44 | mpbid 231 |
. . . 4
β’ (π β (π΅ βm {π΄}) β (βͺ π β β (([,) β πΉ)βπ) βm {π΄})) |
46 | | nfv 1918 |
. . . . . . 7
β’
β²ππ |
47 | | fvexd 6904 |
. . . . . . 7
β’ ((π β§ π β β) β ([,)β(πΉβπ)) β V) |
48 | 46, 24, 47, 2 | iunmapsn 43902 |
. . . . . 6
β’ (π β βͺ π β β (([,)β(πΉβπ)) βm {π΄}) = (βͺ
π β β
([,)β(πΉβπ)) βm {π΄})) |
49 | 48 | eqcomd 2739 |
. . . . 5
β’ (π β (βͺ π β β ([,)β(πΉβπ)) βm {π΄}) = βͺ
π β β
(([,)β(πΉβπ)) βm {π΄})) |
50 | | elmapfun 8857 |
. . . . . . . . . 10
β’ (πΉ β ((β Γ
β) βm β) β Fun πΉ) |
51 | 4, 50 | syl 17 |
. . . . . . . . 9
β’ (π β Fun πΉ) |
52 | 51 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β β) β Fun πΉ) |
53 | | simpr 486 |
. . . . . . . . 9
β’ ((π β§ π β β) β π β β) |
54 | 6 | fdmd 6726 |
. . . . . . . . . . 11
β’ (π β dom πΉ = β) |
55 | 54 | eqcomd 2739 |
. . . . . . . . . 10
β’ (π β β = dom πΉ) |
56 | 55 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π β β) β β = dom πΉ) |
57 | 53, 56 | eleqtrd 2836 |
. . . . . . . 8
β’ ((π β§ π β β) β π β dom πΉ) |
58 | | fvco 6987 |
. . . . . . . 8
β’ ((Fun
πΉ β§ π β dom πΉ) β (([,) β πΉ)βπ) = ([,)β(πΉβπ))) |
59 | 52, 57, 58 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β β) β (([,) β πΉ)βπ) = ([,)β(πΉβπ))) |
60 | 59 | iuneq2dv 5021 |
. . . . . 6
β’ (π β βͺ π β β (([,) β πΉ)βπ) = βͺ π β β
([,)β(πΉβπ))) |
61 | 60 | oveq1d 7421 |
. . . . 5
β’ (π β (βͺ π β β (([,) β πΉ)βπ) βm {π΄}) = (βͺ
π β β
([,)β(πΉβπ)) βm {π΄})) |
62 | 10 | ffund 6719 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β Fun {β¨π΄, (πΉβπ)β©}) |
63 | | id 22 |
. . . . . . . . . . . . . . 15
β’ (π β β β π β
β) |
64 | | snex 5431 |
. . . . . . . . . . . . . . . 16
β’
{β¨π΄, (πΉβπ)β©} β V |
65 | 64 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β β β
{β¨π΄, (πΉβπ)β©} β V) |
66 | 20 | fvmpt2 7007 |
. . . . . . . . . . . . . . 15
β’ ((π β β β§
{β¨π΄, (πΉβπ)β©} β V) β (πΌβπ) = {β¨π΄, (πΉβπ)β©}) |
67 | 63, 65, 66 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ (π β β β (πΌβπ) = {β¨π΄, (πΉβπ)β©}) |
68 | 67 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (πΌβπ) = {β¨π΄, (πΉβπ)β©}) |
69 | 68 | funeqd 6568 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (Fun (πΌβπ) β Fun {β¨π΄, (πΉβπ)β©})) |
70 | 62, 69 | mpbird 257 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β Fun (πΌβπ)) |
71 | 70 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β {π΄}) β Fun (πΌβπ)) |
72 | | simpr 486 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β π β {π΄}) |
73 | 68 | dmeqd 5904 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β dom (πΌβπ) = dom {β¨π΄, (πΉβπ)β©}) |
74 | 10 | fdmd 6726 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β dom {β¨π΄, (πΉβπ)β©} = {π΄}) |
75 | 73, 74 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β dom (πΌβπ) = {π΄}) |
76 | 75 | eleq2d 2820 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (π β dom (πΌβπ) β π β {π΄})) |
77 | 76 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β (π β dom (πΌβπ) β π β {π΄})) |
78 | 72, 77 | mpbird 257 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β {π΄}) β π β dom (πΌβπ)) |
79 | | fvco 6987 |
. . . . . . . . . 10
β’ ((Fun
(πΌβπ) β§ π β dom (πΌβπ)) β (([,) β (πΌβπ))βπ) = ([,)β((πΌβπ)βπ))) |
80 | 71, 78, 79 | syl2anc 585 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β {π΄}) β (([,) β (πΌβπ))βπ) = ([,)β((πΌβπ)βπ))) |
81 | 67 | fveq1d 6891 |
. . . . . . . . . . . 12
β’ (π β β β ((πΌβπ)βπ) = ({β¨π΄, (πΉβπ)β©}βπ)) |
82 | 81 | ad2antlr 726 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β ((πΌβπ)βπ) = ({β¨π΄, (πΉβπ)β©}βπ)) |
83 | | elsni 4645 |
. . . . . . . . . . . . 13
β’ (π β {π΄} β π = π΄) |
84 | 83 | fveq2d 6893 |
. . . . . . . . . . . 12
β’ (π β {π΄} β ({β¨π΄, (πΉβπ)β©}βπ) = ({β¨π΄, (πΉβπ)β©}βπ΄)) |
85 | 84 | adantl 483 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β ({β¨π΄, (πΉβπ)β©}βπ) = ({β¨π΄, (πΉβπ)β©}βπ΄)) |
86 | | fvexd 6904 |
. . . . . . . . . . . . 13
β’ (π β (πΉβπ) β V) |
87 | | fvsng 7175 |
. . . . . . . . . . . . 13
β’ ((π΄ β π β§ (πΉβπ) β V) β ({β¨π΄, (πΉβπ)β©}βπ΄) = (πΉβπ)) |
88 | 2, 86, 87 | syl2anc 585 |
. . . . . . . . . . . 12
β’ (π β ({β¨π΄, (πΉβπ)β©}βπ΄) = (πΉβπ)) |
89 | 88 | ad2antrr 725 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β {π΄}) β ({β¨π΄, (πΉβπ)β©}βπ΄) = (πΉβπ)) |
90 | 82, 85, 89 | 3eqtrd 2777 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β {π΄}) β ((πΌβπ)βπ) = (πΉβπ)) |
91 | 90 | fveq2d 6893 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β {π΄}) β ([,)β((πΌβπ)βπ)) = ([,)β(πΉβπ))) |
92 | | eqidd 2734 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β {π΄}) β ([,)β(πΉβπ)) = ([,)β(πΉβπ))) |
93 | 80, 91, 92 | 3eqtrd 2777 |
. . . . . . . 8
β’ (((π β§ π β β) β§ π β {π΄}) β (([,) β (πΌβπ))βπ) = ([,)β(πΉβπ))) |
94 | 93 | ixpeq2dva 8903 |
. . . . . . 7
β’ ((π β§ π β β) β Xπ β
{π΄} (([,) β (πΌβπ))βπ) = Xπ β {π΄} ([,)β(πΉβπ))) |
95 | | fvex 6902 |
. . . . . . . . 9
β’
([,)β(πΉβπ)) β V |
96 | 16, 95 | ixpconst 8898 |
. . . . . . . 8
β’ Xπ β
{π΄} ([,)β(πΉβπ)) = (([,)β(πΉβπ)) βm {π΄}) |
97 | 96 | a1i 11 |
. . . . . . 7
β’ ((π β§ π β β) β Xπ β
{π΄} ([,)β(πΉβπ)) = (([,)β(πΉβπ)) βm {π΄})) |
98 | 94, 97 | eqtrd 2773 |
. . . . . 6
β’ ((π β§ π β β) β Xπ β
{π΄} (([,) β (πΌβπ))βπ) = (([,)β(πΉβπ)) βm {π΄})) |
99 | 98 | iuneq2dv 5021 |
. . . . 5
β’ (π β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ) = βͺ π β β
(([,)β(πΉβπ)) βm {π΄})) |
100 | 49, 61, 99 | 3eqtr4d 2783 |
. . . 4
β’ (π β (βͺ π β β (([,) β πΉ)βπ) βm {π΄}) = βͺ
π β β Xπ β
{π΄} (([,) β (πΌβπ))βπ)) |
101 | 45, 100 | sseqtrd 4022 |
. . 3
β’ (π β (π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ)) |
102 | | ovnovollem1.z |
. . . 4
β’ (π β π =
(Ξ£^β((vol β [,)) β πΉ))) |
103 | | nfcv 2904 |
. . . . . . 7
β’
β²ππΉ |
104 | | ressxr 11255 |
. . . . . . . . . 10
β’ β
β β* |
105 | | xpss2 5696 |
. . . . . . . . . 10
β’ (β
β β* β (β Γ β) β (β
Γ β*)) |
106 | 104, 105 | ax-mp 5 |
. . . . . . . . 9
β’ (β
Γ β) β (β Γ β*) |
107 | 106 | a1i 11 |
. . . . . . . 8
β’ (π β (β Γ β)
β (β Γ β*)) |
108 | 6, 107 | fssd 6733 |
. . . . . . 7
β’ (π β πΉ:ββΆ(β Γ
β*)) |
109 | 103, 108 | volicofmpt 44700 |
. . . . . 6
β’ (π β ((vol β [,)) β
πΉ) = (π β β β¦
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))))) |
110 | 67 | coeq2d 5861 |
. . . . . . . . . . . . . . 15
β’ (π β β β ([,)
β (πΌβπ)) = ([,) β {β¨π΄, (πΉβπ)β©})) |
111 | 110 | fveq1d 6891 |
. . . . . . . . . . . . . 14
β’ (π β β β (([,)
β (πΌβπ))βπ΄) = (([,) β {β¨π΄, (πΉβπ)β©})βπ΄)) |
112 | 111 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (([,) β (πΌβπ))βπ΄) = (([,) β {β¨π΄, (πΉβπ)β©})βπ΄)) |
113 | | snidg 4662 |
. . . . . . . . . . . . . . . . 17
β’ (π΄ β π β π΄ β {π΄}) |
114 | 2, 113 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (π β π΄ β {π΄}) |
115 | | dmsnopg 6210 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉβπ) β V β dom {β¨π΄, (πΉβπ)β©} = {π΄}) |
116 | 86, 115 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (π β dom {β¨π΄, (πΉβπ)β©} = {π΄}) |
117 | 114, 116 | eleqtrrd 2837 |
. . . . . . . . . . . . . . 15
β’ (π β π΄ β dom {β¨π΄, (πΉβπ)β©}) |
118 | 117 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β π΄ β dom {β¨π΄, (πΉβπ)β©}) |
119 | | fvco 6987 |
. . . . . . . . . . . . . 14
β’ ((Fun
{β¨π΄, (πΉβπ)β©} β§ π΄ β dom {β¨π΄, (πΉβπ)β©}) β (([,) β {β¨π΄, (πΉβπ)β©})βπ΄) = ([,)β({β¨π΄, (πΉβπ)β©}βπ΄))) |
120 | 62, 118, 119 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β (([,) β
{β¨π΄, (πΉβπ)β©})βπ΄) = ([,)β({β¨π΄, (πΉβπ)β©}βπ΄))) |
121 | | fvexd 6904 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β) β (πΉβπ) β V) |
122 | 3, 121, 87 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β ({β¨π΄, (πΉβπ)β©}βπ΄) = (πΉβπ)) |
123 | | 1st2nd2 8011 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉβπ) β (β Γ β) β
(πΉβπ) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
124 | 7, 123 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β) β (πΉβπ) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
125 | 122, 124 | eqtrd 2773 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β ({β¨π΄, (πΉβπ)β©}βπ΄) = β¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) |
126 | 125 | fveq2d 6893 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β
([,)β({β¨π΄,
(πΉβπ)β©}βπ΄)) = ([,)ββ¨(1st
β(πΉβπ)), (2nd
β(πΉβπ))β©)) |
127 | | df-ov 7409 |
. . . . . . . . . . . . . . . 16
β’
((1st β(πΉβπ))[,)(2nd β(πΉβπ))) = ([,)ββ¨(1st
β(πΉβπ)), (2nd
β(πΉβπ))β©) |
128 | 127 | eqcomi 2742 |
. . . . . . . . . . . . . . 15
β’
([,)ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ))) |
129 | 128 | a1i 11 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β β) β
([,)ββ¨(1st β(πΉβπ)), (2nd β(πΉβπ))β©) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) |
130 | 126, 129 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β
([,)β({β¨π΄,
(πΉβπ)β©}βπ΄)) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) |
131 | 112, 120,
130 | 3eqtrd 2777 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (([,) β (πΌβπ))βπ΄) = ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) |
132 | 131 | fveq2d 6893 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (volβ(([,)
β (πΌβπ))βπ΄)) = (volβ((1st
β(πΉβπ))[,)(2nd
β(πΉβπ))))) |
133 | | xp1st 8004 |
. . . . . . . . . . . . 13
β’ ((πΉβπ) β (β Γ β) β
(1st β(πΉβπ)) β β) |
134 | 7, 133 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (1st
β(πΉβπ)) β
β) |
135 | | xp2nd 8005 |
. . . . . . . . . . . . 13
β’ ((πΉβπ) β (β Γ β) β
(2nd β(πΉβπ)) β β) |
136 | 7, 135 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (2nd
β(πΉβπ)) β
β) |
137 | | volicore 45284 |
. . . . . . . . . . . 12
β’
(((1st β(πΉβπ)) β β β§ (2nd
β(πΉβπ)) β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) β β) |
138 | 134, 136,
137 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) β β) |
139 | 132, 138 | eqeltrd 2834 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (volβ(([,)
β (πΌβπ))βπ΄)) β β) |
140 | 139 | recnd 11239 |
. . . . . . . . 9
β’ ((π β§ π β β) β (volβ(([,)
β (πΌβπ))βπ΄)) β β) |
141 | | 2fveq3 6894 |
. . . . . . . . . 10
β’ (π = π΄ β (volβ(([,) β (πΌβπ))βπ)) = (volβ(([,) β (πΌβπ))βπ΄))) |
142 | 141 | prodsn 15903 |
. . . . . . . . 9
β’ ((π΄ β π β§ (volβ(([,) β (πΌβπ))βπ΄)) β β) β βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)) = (volβ(([,) β (πΌβπ))βπ΄))) |
143 | 3, 140, 142 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ π β β) β βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)) = (volβ(([,) β (πΌβπ))βπ΄))) |
144 | 143, 132 | eqtr2d 2774 |
. . . . . . 7
β’ ((π β§ π β β) β
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ)))) = βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))) |
145 | 144 | mpteq2dva 5248 |
. . . . . 6
β’ (π β (π β β β¦
(volβ((1st β(πΉβπ))[,)(2nd β(πΉβπ))))) = (π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))) |
146 | 109, 145 | eqtrd 2773 |
. . . . 5
β’ (π β ((vol β [,)) β
πΉ) = (π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))) |
147 | 146 | fveq2d 6893 |
. . . 4
β’ (π β
(Ξ£^β((vol β [,)) β πΉ)) =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))))) |
148 | 102, 147 | eqtrd 2773 |
. . 3
β’ (π β π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))))) |
149 | 101, 148 | jca 513 |
. 2
β’ (π β ((π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ) β§ π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))))) |
150 | | fveq1 6888 |
. . . . . . . . 9
β’ (π = πΌ β (πβπ) = (πΌβπ)) |
151 | 150 | coeq2d 5861 |
. . . . . . . 8
β’ (π = πΌ β ([,) β (πβπ)) = ([,) β (πΌβπ))) |
152 | 151 | fveq1d 6891 |
. . . . . . 7
β’ (π = πΌ β (([,) β (πβπ))βπ) = (([,) β (πΌβπ))βπ)) |
153 | 152 | ixpeq2dv 8904 |
. . . . . 6
β’ (π = πΌ β Xπ β {π΄} (([,) β (πβπ))βπ) = Xπ β {π΄} (([,) β (πΌβπ))βπ)) |
154 | 153 | iuneq2d 5026 |
. . . . 5
β’ (π = πΌ β βͺ
π β β Xπ β
{π΄} (([,) β (πβπ))βπ) = βͺ π β β Xπ β
{π΄} (([,) β (πΌβπ))βπ)) |
155 | 154 | sseq2d 4014 |
. . . 4
β’ (π = πΌ β ((π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πβπ))βπ) β (π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ))) |
156 | | simpl 484 |
. . . . . . . . . . . 12
β’ ((π = πΌ β§ π β {π΄}) β π = πΌ) |
157 | 156 | fveq1d 6891 |
. . . . . . . . . . 11
β’ ((π = πΌ β§ π β {π΄}) β (πβπ) = (πΌβπ)) |
158 | 157 | coeq2d 5861 |
. . . . . . . . . 10
β’ ((π = πΌ β§ π β {π΄}) β ([,) β (πβπ)) = ([,) β (πΌβπ))) |
159 | 158 | fveq1d 6891 |
. . . . . . . . 9
β’ ((π = πΌ β§ π β {π΄}) β (([,) β (πβπ))βπ) = (([,) β (πΌβπ))βπ)) |
160 | 159 | fveq2d 6893 |
. . . . . . . 8
β’ ((π = πΌ β§ π β {π΄}) β (volβ(([,) β (πβπ))βπ)) = (volβ(([,) β (πΌβπ))βπ))) |
161 | 160 | prodeq2dv 15864 |
. . . . . . 7
β’ (π = πΌ β βπ β {π΄} (volβ(([,) β (πβπ))βπ)) = βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))) |
162 | 161 | mpteq2dv 5250 |
. . . . . 6
β’ (π = πΌ β (π β β β¦ βπ β {π΄} (volβ(([,) β (πβπ))βπ))) = (π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))) |
163 | 162 | fveq2d 6893 |
. . . . 5
β’ (π = πΌ β
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πβπ))βπ)))) =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))))) |
164 | 163 | eqeq2d 2744 |
. . . 4
β’ (π = πΌ β (π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πβπ))βπ)))) β π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))))) |
165 | 155, 164 | anbi12d 632 |
. . 3
β’ (π = πΌ β (((π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πβπ))βπ) β§ π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πβπ))βπ))))) β ((π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ) β§ π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ))))))) |
166 | 165 | rspcev 3613 |
. 2
β’ ((πΌ β (((β Γ
β) βm {π΄}) βm β) β§ ((π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πΌβπ))βπ) β§ π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πΌβπ))βπ)))))) β βπ β (((β Γ β)
βm {π΄})
βm β)((π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πβπ))βπ) β§ π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πβπ))βπ)))))) |
167 | 26, 149, 166 | syl2anc 585 |
1
β’ (π β βπ β (((β Γ β)
βm {π΄})
βm β)((π΅ βm {π΄}) β βͺ π β β Xπ β {π΄} (([,) β (πβπ))βπ) β§ π =
(Ξ£^β(π β β β¦ βπ β {π΄} (volβ(([,) β (πβπ))βπ)))))) |