Step | Hyp | Ref
| Expression |
1 | | firest 17375 |
. . . 4
β’
(fiβ(({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) βΎt Xπ β
π΄ π)) = ((fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) βΎt Xπ β
π΄ π) |
2 | | snex 5431 |
. . . . . . . 8
β’ {βͺ (βtβπΉ)} β V |
3 | | ptrest.0 |
. . . . . . . . . 10
β’ (π β π΄ β π) |
4 | | fvex 6902 |
. . . . . . . . . . 11
β’ (πΉβπ’) β V |
5 | 4 | rgenw 3066 |
. . . . . . . . . 10
β’
βπ’ β
π΄ (πΉβπ’) β V |
6 | | eqid 2733 |
. . . . . . . . . . 11
β’ (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) = (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) |
7 | 6 | mpoexxg 8059 |
. . . . . . . . . 10
β’ ((π΄ β π β§ βπ’ β π΄ (πΉβπ’) β V) β (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β V) |
8 | 3, 5, 7 | sylancl 587 |
. . . . . . . . 9
β’ (π β (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β V) |
9 | | rnexg 7892 |
. . . . . . . . 9
β’ ((π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β V β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β V) |
10 | 8, 9 | syl 17 |
. . . . . . . 8
β’ (π β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β V) |
11 | | unexg 7733 |
. . . . . . . 8
β’ (({βͺ (βtβπΉ)} β V β§ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β V) β ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β V) |
12 | 2, 10, 11 | sylancr 588 |
. . . . . . 7
β’ (π β ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β V) |
13 | | ptrest.2 |
. . . . . . . . 9
β’ ((π β§ π β π΄) β π β π) |
14 | 13 | ralrimiva 3147 |
. . . . . . . 8
β’ (π β βπ β π΄ π β π) |
15 | | ixpexg 8913 |
. . . . . . . 8
β’
(βπ β
π΄ π β π β Xπ β π΄ π β V) |
16 | 14, 15 | syl 17 |
. . . . . . 7
β’ (π β Xπ β
π΄ π β V) |
17 | | restval 17369 |
. . . . . . 7
β’ ((({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β V β§ Xπ β
π΄ π β V) β (({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) βΎt Xπ β
π΄ π) = ran (π₯ β ({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β¦ (π₯ β© Xπ β π΄ π))) |
18 | 12, 16, 17 | syl2anc 585 |
. . . . . 6
β’ (π β (({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) βΎt Xπ β
π΄ π) = ran (π₯ β ({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β¦ (π₯ β© Xπ β π΄ π))) |
19 | | mptun 6694 |
. . . . . . . . 9
β’ (π₯ β ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β¦ (π₯ β© Xπ β π΄ π)) = ((π₯ β {βͺ
(βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) βͺ (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π))) |
20 | 19 | rneqi 5935 |
. . . . . . . 8
β’ ran
(π₯ β ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β¦ (π₯ β© Xπ β π΄ π)) = ran ((π₯ β {βͺ
(βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) βͺ (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π))) |
21 | | rnun 6143 |
. . . . . . . 8
β’ ran
((π₯ β {βͺ (βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) βͺ (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π))) = (ran (π₯ β {βͺ
(βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) βͺ ran (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π))) |
22 | 20, 21 | eqtri 2761 |
. . . . . . 7
β’ ran
(π₯ β ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β¦ (π₯ β© Xπ β π΄ π)) = (ran (π₯ β {βͺ
(βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) βͺ ran (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π))) |
23 | | elsni 4645 |
. . . . . . . . . . . . . 14
β’ (π₯ β {βͺ (βtβπΉ)} β π₯ = βͺ
(βtβπΉ)) |
24 | 23 | ineq1d 4211 |
. . . . . . . . . . . . 13
β’ (π₯ β {βͺ (βtβπΉ)} β (π₯ β© Xπ β π΄ π) = (βͺ
(βtβπΉ) β© Xπ β π΄ π)) |
25 | 24 | mpteq2ia 5251 |
. . . . . . . . . . . 12
β’ (π₯ β {βͺ (βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) = (π₯ β {βͺ
(βtβπΉ)} β¦ (βͺ
(βtβπΉ) β© Xπ β π΄ π)) |
26 | | fvex 6902 |
. . . . . . . . . . . . . 14
β’
(βtβπΉ) β V |
27 | 26 | uniex 7728 |
. . . . . . . . . . . . 13
β’ βͺ (βtβπΉ) β V |
28 | 27 | inex1 5317 |
. . . . . . . . . . . . 13
β’ (βͺ (βtβπΉ) β© Xπ β π΄ π) β V |
29 | | fmptsn 7162 |
. . . . . . . . . . . . 13
β’ ((βͺ (βtβπΉ) β V β§ (βͺ (βtβπΉ) β© Xπ β π΄ π) β V) β {β¨βͺ (βtβπΉ), (βͺ
(βtβπΉ) β© Xπ β π΄ π)β©} = (π₯ β {βͺ
(βtβπΉ)} β¦ (βͺ
(βtβπΉ) β© Xπ β π΄ π))) |
30 | 27, 28, 29 | mp2an 691 |
. . . . . . . . . . . 12
β’
{β¨βͺ (βtβπΉ), (βͺ
(βtβπΉ) β© Xπ β π΄ π)β©} = (π₯ β {βͺ
(βtβπΉ)} β¦ (βͺ
(βtβπΉ) β© Xπ β π΄ π)) |
31 | 25, 30 | eqtr4i 2764 |
. . . . . . . . . . 11
β’ (π₯ β {βͺ (βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) = {β¨βͺ
(βtβπΉ), (βͺ
(βtβπΉ) β© Xπ β π΄ π)β©} |
32 | 31 | rneqi 5935 |
. . . . . . . . . 10
β’ ran
(π₯ β {βͺ (βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) = ran {β¨βͺ
(βtβπΉ), (βͺ
(βtβπΉ) β© Xπ β π΄ π)β©} |
33 | 27 | rnsnop 6221 |
. . . . . . . . . 10
β’ ran
{β¨βͺ (βtβπΉ), (βͺ
(βtβπΉ) β© Xπ β π΄ π)β©} = {(βͺ
(βtβπΉ) β© Xπ β π΄ π)} |
34 | 32, 33 | eqtri 2761 |
. . . . . . . . 9
β’ ran
(π₯ β {βͺ (βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) = {(βͺ
(βtβπΉ) β© Xπ β π΄ π)} |
35 | | ptrest.1 |
. . . . . . . . . . . . . . . 16
β’ (π β πΉ:π΄βΆTop) |
36 | 35 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΄) β (πΉβπ) β Top) |
37 | | inss1 4228 |
. . . . . . . . . . . . . . 15
β’ (βͺ (πΉβπ) β© π) β βͺ
(πΉβπ) |
38 | | eqid 2733 |
. . . . . . . . . . . . . . . 16
β’ βͺ (πΉβπ) = βͺ (πΉβπ) |
39 | 38 | restuni 22658 |
. . . . . . . . . . . . . . 15
β’ (((πΉβπ) β Top β§ (βͺ (πΉβπ) β© π) β βͺ
(πΉβπ)) β (βͺ
(πΉβπ) β© π) = βͺ ((πΉβπ) βΎt (βͺ (πΉβπ) β© π))) |
40 | 36, 37, 39 | sylancl 587 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΄) β (βͺ
(πΉβπ) β© π) = βͺ ((πΉβπ) βΎt (βͺ (πΉβπ) β© π))) |
41 | | fvex 6902 |
. . . . . . . . . . . . . . . . 17
β’ (πΉβπ) β V |
42 | 38 | restin 22662 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉβπ) β V β§ π β π) β ((πΉβπ) βΎt π) = ((πΉβπ) βΎt (π β© βͺ (πΉβπ)))) |
43 | 41, 13, 42 | sylancr 588 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΄) β ((πΉβπ) βΎt π) = ((πΉβπ) βΎt (π β© βͺ (πΉβπ)))) |
44 | | incom 4201 |
. . . . . . . . . . . . . . . . 17
β’ (π β© βͺ (πΉβπ)) = (βͺ (πΉβπ) β© π) |
45 | 44 | oveq2i 7417 |
. . . . . . . . . . . . . . . 16
β’ ((πΉβπ) βΎt (π β© βͺ (πΉβπ))) = ((πΉβπ) βΎt (βͺ (πΉβπ) β© π)) |
46 | 43, 45 | eqtrdi 2789 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΄) β ((πΉβπ) βΎt π) = ((πΉβπ) βΎt (βͺ (πΉβπ) β© π))) |
47 | 46 | unieqd 4922 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΄) β βͺ
((πΉβπ) βΎt π) = βͺ
((πΉβπ) βΎt (βͺ (πΉβπ) β© π))) |
48 | 40, 47 | eqtr4d 2776 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΄) β (βͺ
(πΉβπ) β© π) = βͺ ((πΉβπ) βΎt π)) |
49 | 48 | ixpeq2dva 8903 |
. . . . . . . . . . . 12
β’ (π β Xπ β
π΄ (βͺ (πΉβπ) β© π) = Xπ β π΄ βͺ ((πΉβπ) βΎt π)) |
50 | | ixpin 8914 |
. . . . . . . . . . . 12
β’ Xπ β
π΄ (βͺ (πΉβπ) β© π) = (Xπ β π΄ βͺ (πΉβπ) β© Xπ β π΄ π) |
51 | | nfcv 2904 |
. . . . . . . . . . . . . 14
β’
β²π¦βͺ ((πΉβπ) βΎt π) |
52 | | nfcv 2904 |
. . . . . . . . . . . . . . . 16
β’
β²π(πΉβπ¦) |
53 | | nfcv 2904 |
. . . . . . . . . . . . . . . 16
β’
β²π
βΎt |
54 | | nfcsb1v 3918 |
. . . . . . . . . . . . . . . 16
β’
β²πβ¦π¦ / πβ¦π |
55 | 52, 53, 54 | nfov 7436 |
. . . . . . . . . . . . . . 15
β’
β²π((πΉβπ¦) βΎt β¦π¦ / πβ¦π) |
56 | 55 | nfuni 4915 |
. . . . . . . . . . . . . 14
β’
β²πβͺ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π) |
57 | | fveq2 6889 |
. . . . . . . . . . . . . . . 16
β’ (π = π¦ β (πΉβπ) = (πΉβπ¦)) |
58 | | csbeq1a 3907 |
. . . . . . . . . . . . . . . 16
β’ (π = π¦ β π = β¦π¦ / πβ¦π) |
59 | 57, 58 | oveq12d 7424 |
. . . . . . . . . . . . . . 15
β’ (π = π¦ β ((πΉβπ) βΎt π) = ((πΉβπ¦) βΎt β¦π¦ / πβ¦π)) |
60 | 59 | unieqd 4922 |
. . . . . . . . . . . . . 14
β’ (π = π¦ β βͺ ((πΉβπ) βΎt π) = βͺ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π)) |
61 | 51, 56, 60 | cbvixp 8905 |
. . . . . . . . . . . . 13
β’ Xπ β
π΄ βͺ ((πΉβπ) βΎt π) = Xπ¦ β π΄ βͺ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π) |
62 | | ixpeq2 8902 |
. . . . . . . . . . . . . 14
β’
(βπ¦ β
π΄ βͺ ((π
β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = βͺ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π) β Xπ¦ β π΄ βͺ ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = Xπ¦ β π΄ βͺ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π)) |
63 | | ovex 7439 |
. . . . . . . . . . . . . . . 16
β’ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π) β V |
64 | | nfcv 2904 |
. . . . . . . . . . . . . . . . 17
β’
β²ππ¦ |
65 | | eqid 2733 |
. . . . . . . . . . . . . . . . 17
β’ (π β π΄ β¦ ((πΉβπ) βΎt π)) = (π β π΄ β¦ ((πΉβπ) βΎt π)) |
66 | 64, 55, 59, 65 | fvmptf 7017 |
. . . . . . . . . . . . . . . 16
β’ ((π¦ β π΄ β§ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π) β V) β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = ((πΉβπ¦) βΎt β¦π¦ / πβ¦π)) |
67 | 63, 66 | mpan2 690 |
. . . . . . . . . . . . . . 15
β’ (π¦ β π΄ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = ((πΉβπ¦) βΎt β¦π¦ / πβ¦π)) |
68 | 67 | unieqd 4922 |
. . . . . . . . . . . . . 14
β’ (π¦ β π΄ β βͺ ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = βͺ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π)) |
69 | 62, 68 | mprg 3068 |
. . . . . . . . . . . . 13
β’ Xπ¦ β
π΄ βͺ ((π
β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = Xπ¦ β π΄ βͺ ((πΉβπ¦) βΎt β¦π¦ / πβ¦π) |
70 | 61, 69 | eqtr4i 2764 |
. . . . . . . . . . . 12
β’ Xπ β
π΄ βͺ ((πΉβπ) βΎt π) = Xπ¦ β π΄ βͺ ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) |
71 | 49, 50, 70 | 3eqtr3g 2796 |
. . . . . . . . . . 11
β’ (π β (Xπ β
π΄ βͺ (πΉβπ) β© Xπ β π΄ π) = Xπ¦ β π΄ βͺ ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ¦)) |
72 | | eqid 2733 |
. . . . . . . . . . . . . 14
β’
(βtβπΉ) = (βtβπΉ) |
73 | 72 | ptuni 23090 |
. . . . . . . . . . . . 13
β’ ((π΄ β π β§ πΉ:π΄βΆTop) β Xπ β
π΄ βͺ (πΉβπ) = βͺ
(βtβπΉ)) |
74 | 3, 35, 73 | syl2anc 585 |
. . . . . . . . . . . 12
β’ (π β Xπ β
π΄ βͺ (πΉβπ) = βͺ
(βtβπΉ)) |
75 | 74 | ineq1d 4211 |
. . . . . . . . . . 11
β’ (π β (Xπ β
π΄ βͺ (πΉβπ) β© Xπ β π΄ π) = (βͺ
(βtβπΉ) β© Xπ β π΄ π)) |
76 | | resttop 22656 |
. . . . . . . . . . . . . 14
β’ (((πΉβπ) β Top β§ π β π) β ((πΉβπ) βΎt π) β Top) |
77 | 36, 13, 76 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΄) β ((πΉβπ) βΎt π) β Top) |
78 | 77 | fmpttd 7112 |
. . . . . . . . . . . 12
β’ (π β (π β π΄ β¦ ((πΉβπ) βΎt π)):π΄βΆTop) |
79 | | eqid 2733 |
. . . . . . . . . . . . 13
β’
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) = (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) |
80 | 79 | ptuni 23090 |
. . . . . . . . . . . 12
β’ ((π΄ β π β§ (π β π΄ β¦ ((πΉβπ) βΎt π)):π΄βΆTop) β Xπ¦ β
π΄ βͺ ((π
β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))) |
81 | 3, 78, 80 | syl2anc 585 |
. . . . . . . . . . 11
β’ (π β Xπ¦ β
π΄ βͺ ((π
β π΄ β¦ ((πΉβπ) βΎt π))βπ¦) = βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))) |
82 | 71, 75, 81 | 3eqtr3d 2781 |
. . . . . . . . . 10
β’ (π β (βͺ (βtβπΉ) β© Xπ β π΄ π) = βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))) |
83 | 82 | sneqd 4640 |
. . . . . . . . 9
β’ (π β {(βͺ (βtβπΉ) β© Xπ β π΄ π)} = {βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))}) |
84 | 34, 83 | eqtrid 2785 |
. . . . . . . 8
β’ (π β ran (π₯ β {βͺ
(βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) = {βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))}) |
85 | | vex 3479 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ π€ β V |
86 | 85 | elixp 8895 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π€ β Xπ β
π΄ π β (π€ Fn π΄ β§ βπ β π΄ (π€βπ) β π)) |
87 | 86 | simprbi 498 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π€ β Xπ β
π΄ π β βπ β π΄ (π€βπ) β π) |
88 | | nfcsb1v 3918 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
β²πβ¦π’ / πβ¦π |
89 | 88 | nfel2 2922 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
β²π(π€βπ’) β β¦π’ / πβ¦π |
90 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = π’ β (π€βπ) = (π€βπ’)) |
91 | | csbeq1a 3907 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = π’ β π = β¦π’ / πβ¦π) |
92 | 90, 91 | eleq12d 2828 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = π’ β ((π€βπ) β π β (π€βπ’) β β¦π’ / πβ¦π)) |
93 | 89, 92 | rspc 3601 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π’ β π΄ β (βπ β π΄ (π€βπ) β π β (π€βπ’) β β¦π’ / πβ¦π)) |
94 | 87, 93 | syl5 34 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π’ β π΄ β (π€ β Xπ β π΄ π β (π€βπ’) β β¦π’ / πβ¦π)) |
95 | 94 | pm4.71d 563 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π’ β π΄ β (π€ β Xπ β π΄ π β (π€ β Xπ β π΄ π β§ (π€βπ’) β β¦π’ / πβ¦π))) |
96 | 95 | anbi2d 630 |
. . . . . . . . . . . . . . . . . . 19
β’ (π’ β π΄ β (((π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£) β§ π€ β Xπ β π΄ π) β ((π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£) β§ (π€ β Xπ β π΄ π β§ (π€βπ’) β β¦π’ / πβ¦π)))) |
97 | | an4 655 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π€ β βͺ (βtβπΉ) β§ (π€βπ’) β π£) β§ (π€ β Xπ β π΄ π β§ (π€βπ’) β β¦π’ / πβ¦π)) β ((π€ β βͺ
(βtβπΉ) β§ π€ β Xπ β π΄ π) β§ ((π€βπ’) β π£ β§ (π€βπ’) β β¦π’ / πβ¦π))) |
98 | | elin 3964 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π€βπ’) β (π£ β© β¦π’ / πβ¦π) β ((π€βπ’) β π£ β§ (π€βπ’) β β¦π’ / πβ¦π)) |
99 | 98 | anbi2i 624 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π€ β βͺ (βtβπΉ) β§ π€ β Xπ β π΄ π) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π)) β ((π€ β βͺ
(βtβπΉ) β§ π€ β Xπ β π΄ π) β§ ((π€βπ’) β π£ β§ (π€βπ’) β β¦π’ / πβ¦π))) |
100 | 97, 99 | bitr4i 278 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π€ β βͺ (βtβπΉ) β§ (π€βπ’) β π£) β§ (π€ β Xπ β π΄ π β§ (π€βπ’) β β¦π’ / πβ¦π)) β ((π€ β βͺ
(βtβπΉ) β§ π€ β Xπ β π΄ π) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π))) |
101 | 96, 100 | bitrdi 287 |
. . . . . . . . . . . . . . . . . 18
β’ (π’ β π΄ β (((π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£) β§ π€ β Xπ β π΄ π) β ((π€ β βͺ
(βtβπΉ) β§ π€ β Xπ β π΄ π) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π)))) |
102 | | elin 3964 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π€ β (βͺ (βtβπΉ) β© Xπ β π΄ π) β (π€ β βͺ
(βtβπΉ) β§ π€ β Xπ β π΄ π)) |
103 | 82 | eleq2d 2820 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π€ β (βͺ
(βtβπΉ) β© Xπ β π΄ π) β π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))))) |
104 | 102, 103 | bitr3id 285 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β ((π€ β βͺ
(βtβπΉ) β§ π€ β Xπ β π΄ π) β π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))))) |
105 | 104 | anbi1d 631 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (((π€ β βͺ
(βtβπΉ) β§ π€ β Xπ β π΄ π) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π)) β (π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π)))) |
106 | 101, 105 | sylan9bbr 512 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π’ β π΄) β (((π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£) β§ π€ β Xπ β π΄ π) β (π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π)))) |
107 | 106 | abbidv 2802 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π’ β π΄) β {π€ β£ ((π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£) β§ π€ β Xπ β π΄ π)} = {π€ β£ (π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π))}) |
108 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π€ β βͺ (βtβπΉ) β¦ (π€βπ’)) = (π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) |
109 | 108 | mptpreima 6235 |
. . . . . . . . . . . . . . . . . . 19
β’ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) = {π€ β βͺ
(βtβπΉ) β£ (π€βπ’) β π£} |
110 | | df-rab 3434 |
. . . . . . . . . . . . . . . . . . 19
β’ {π€ β βͺ (βtβπΉ) β£ (π€βπ’) β π£} = {π€ β£ (π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£)} |
111 | 109, 110 | eqtr2i 2762 |
. . . . . . . . . . . . . . . . . 18
β’ {π€ β£ (π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£)} = (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) |
112 | | abid2 2872 |
. . . . . . . . . . . . . . . . . 18
β’ {π€ β£ π€ β Xπ β π΄ π} = Xπ β π΄ π |
113 | 111, 112 | ineq12i 4210 |
. . . . . . . . . . . . . . . . 17
β’ ({π€ β£ (π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£)} β© {π€ β£ π€ β Xπ β π΄ π}) = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) |
114 | | inab 4299 |
. . . . . . . . . . . . . . . . 17
β’ ({π€ β£ (π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£)} β© {π€ β£ π€ β Xπ β π΄ π}) = {π€ β£ ((π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£) β§ π€ β Xπ β π΄ π)} |
115 | 113, 114 | eqtr3i 2763 |
. . . . . . . . . . . . . . . 16
β’ ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) = {π€ β£ ((π€ β βͺ
(βtβπΉ) β§ (π€βπ’) β π£) β§ π€ β Xπ β π΄ π)} |
116 | | eqid 2733 |
. . . . . . . . . . . . . . . . . 18
β’ (π€ β βͺ (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) = (π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) |
117 | 116 | mptpreima 6235 |
. . . . . . . . . . . . . . . . 17
β’ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π)) = {π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β£ (π€βπ’) β (π£ β© β¦π’ / πβ¦π)} |
118 | | df-rab 3434 |
. . . . . . . . . . . . . . . . 17
β’ {π€ β βͺ (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β£ (π€βπ’) β (π£ β© β¦π’ / πβ¦π)} = {π€ β£ (π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π))} |
119 | 117, 118 | eqtri 2761 |
. . . . . . . . . . . . . . . 16
β’ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π)) = {π€ β£ (π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β§ (π€βπ’) β (π£ β© β¦π’ / πβ¦π))} |
120 | 107, 115,
119 | 3eqtr4g 2798 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π’ β π΄) β ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π))) |
121 | 120 | eqeq2d 2744 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π΄) β (π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) β π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π)))) |
122 | 121 | rexbidv 3179 |
. . . . . . . . . . . . 13
β’ ((π β§ π’ β π΄) β (βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) β βπ£ β (πΉβπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π)))) |
123 | | ineq1 4205 |
. . . . . . . . . . . . . . . 16
β’ (π£ = π¦ β (π£ β© β¦π’ / πβ¦π) = (π¦ β© β¦π’ / πβ¦π)) |
124 | 123 | imaeq2d 6058 |
. . . . . . . . . . . . . . 15
β’ (π£ = π¦ β (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π)) = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π))) |
125 | 124 | eqeq2d 2744 |
. . . . . . . . . . . . . 14
β’ (π£ = π¦ β (π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π)) β π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π)))) |
126 | 125 | cbvrexvw 3236 |
. . . . . . . . . . . . 13
β’
(βπ£ β
(πΉβπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π£ β© β¦π’ / πβ¦π)) β βπ¦ β (πΉβπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π))) |
127 | 122, 126 | bitrdi 287 |
. . . . . . . . . . . 12
β’ ((π β§ π’ β π΄) β (βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) β βπ¦ β (πΉβπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π)))) |
128 | | vex 3479 |
. . . . . . . . . . . . . . 15
β’ π¦ β V |
129 | 128 | inex1 5317 |
. . . . . . . . . . . . . 14
β’ (π¦ β© β¦π’ / πβ¦π) β V |
130 | 129 | a1i 11 |
. . . . . . . . . . . . 13
β’ (((π β§ π’ β π΄) β§ π¦ β (πΉβπ’)) β (π¦ β© β¦π’ / πβ¦π) β V) |
131 | | ovex 7439 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉβπ’) βΎt β¦π’ / πβ¦π) β V |
132 | | nfcv 2904 |
. . . . . . . . . . . . . . . . . 18
β’
β²ππ’ |
133 | | nfcv 2904 |
. . . . . . . . . . . . . . . . . . 19
β’
β²π(πΉβπ’) |
134 | 133, 53, 88 | nfov 7436 |
. . . . . . . . . . . . . . . . . 18
β’
β²π((πΉβπ’) βΎt β¦π’ / πβ¦π) |
135 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π’ β (πΉβπ) = (πΉβπ’)) |
136 | 135, 91 | oveq12d 7424 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π’ β ((πΉβπ) βΎt π) = ((πΉβπ’) βΎt β¦π’ / πβ¦π)) |
137 | 132, 134,
136, 65 | fvmptf 7017 |
. . . . . . . . . . . . . . . . 17
β’ ((π’ β π΄ β§ ((πΉβπ’) βΎt β¦π’ / πβ¦π) β V) β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) = ((πΉβπ’) βΎt β¦π’ / πβ¦π)) |
138 | 131, 137 | mpan2 690 |
. . . . . . . . . . . . . . . 16
β’ (π’ β π΄ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) = ((πΉβπ’) βΎt β¦π’ / πβ¦π)) |
139 | 138 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π’ β π΄) β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) = ((πΉβπ’) βΎt β¦π’ / πβ¦π)) |
140 | 139 | eleq2d 2820 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π΄) β (π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β π£ β ((πΉβπ’) βΎt β¦π’ / πβ¦π))) |
141 | | nfv 1918 |
. . . . . . . . . . . . . . . . 17
β’
β²π(π β§ π’ β π΄) |
142 | | nfcsb1v 3918 |
. . . . . . . . . . . . . . . . . 18
β’
β²πβ¦π’ / πβ¦π |
143 | 88, 142 | nfel 2918 |
. . . . . . . . . . . . . . . . 17
β’
β²πβ¦π’ / πβ¦π β β¦π’ / πβ¦π |
144 | 141, 143 | nfim 1900 |
. . . . . . . . . . . . . . . 16
β’
β²π((π β§ π’ β π΄) β β¦π’ / πβ¦π β β¦π’ / πβ¦π) |
145 | | eleq1w 2817 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π’ β (π β π΄ β π’ β π΄)) |
146 | 145 | anbi2d 630 |
. . . . . . . . . . . . . . . . 17
β’ (π = π’ β ((π β§ π β π΄) β (π β§ π’ β π΄))) |
147 | | csbeq1a 3907 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π’ β π = β¦π’ / πβ¦π) |
148 | 91, 147 | eleq12d 2828 |
. . . . . . . . . . . . . . . . 17
β’ (π = π’ β (π β π β β¦π’ / πβ¦π β β¦π’ / πβ¦π)) |
149 | 146, 148 | imbi12d 345 |
. . . . . . . . . . . . . . . 16
β’ (π = π’ β (((π β§ π β π΄) β π β π) β ((π β§ π’ β π΄) β β¦π’ / πβ¦π β β¦π’ / πβ¦π))) |
150 | 144, 149,
13 | chvarfv 2234 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π’ β π΄) β β¦π’ / πβ¦π β β¦π’ / πβ¦π) |
151 | | elrest 17370 |
. . . . . . . . . . . . . . 15
β’ (((πΉβπ’) β V β§ β¦π’ / πβ¦π β β¦π’ / πβ¦π) β (π£ β ((πΉβπ’) βΎt β¦π’ / πβ¦π) β βπ¦ β (πΉβπ’)π£ = (π¦ β© β¦π’ / πβ¦π))) |
152 | 4, 150, 151 | sylancr 588 |
. . . . . . . . . . . . . 14
β’ ((π β§ π’ β π΄) β (π£ β ((πΉβπ’) βΎt β¦π’ / πβ¦π) β βπ¦ β (πΉβπ’)π£ = (π¦ β© β¦π’ / πβ¦π))) |
153 | 140, 152 | bitrd 279 |
. . . . . . . . . . . . 13
β’ ((π β§ π’ β π΄) β (π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β βπ¦ β (πΉβπ’)π£ = (π¦ β© β¦π’ / πβ¦π))) |
154 | | imaeq2 6054 |
. . . . . . . . . . . . . . 15
β’ (π£ = (π¦ β© β¦π’ / πβ¦π) β (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£) = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π))) |
155 | 154 | eqeq2d 2744 |
. . . . . . . . . . . . . 14
β’ (π£ = (π¦ β© β¦π’ / πβ¦π) β (π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£) β π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π)))) |
156 | 155 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β§ π’ β π΄) β§ π£ = (π¦ β© β¦π’ / πβ¦π)) β (π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£) β π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π)))) |
157 | 130, 153,
156 | rexxfr2d 5409 |
. . . . . . . . . . . 12
β’ ((π β§ π’ β π΄) β (βπ£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£) β βπ¦ β (πΉβπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β (π¦ β© β¦π’ / πβ¦π)))) |
158 | 127, 157 | bitr4d 282 |
. . . . . . . . . . 11
β’ ((π β§ π’ β π΄) β (βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) β βπ£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£))) |
159 | 158 | rexbidva 3177 |
. . . . . . . . . 10
β’ (π β (βπ’ β π΄ βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) β βπ’ β π΄ βπ£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£))) |
160 | 159 | abbidv 2802 |
. . . . . . . . 9
β’ (π β {π₯ β£ βπ’ β π΄ βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π)} = {π₯ β£ βπ’ β π΄ βπ£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)}) |
161 | | eqid 2733 |
. . . . . . . . . . 11
β’ (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π)) = (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π)) |
162 | 161 | rnmpt 5953 |
. . . . . . . . . 10
β’ ran
(π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π)) = {π¦ β£ βπ₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))π¦ = (π₯ β© Xπ β π΄ π)} |
163 | | nfre1 3283 |
. . . . . . . . . . 11
β’
β²π₯βπ₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))π¦ = (π₯ β© Xπ β π΄ π) |
164 | | nfv 1918 |
. . . . . . . . . . 11
β’
β²π¦βπ’ β π΄ βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) |
165 | 27 | mptex 7222 |
. . . . . . . . . . . . . . . 16
β’ (π€ β βͺ (βtβπΉ) β¦ (π€βπ’)) β V |
166 | 165 | cnvex 7913 |
. . . . . . . . . . . . . . 15
β’ β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β V |
167 | 166 | imaex 7904 |
. . . . . . . . . . . . . 14
β’ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β V |
168 | 167 | rgen2w 3067 |
. . . . . . . . . . . . 13
β’
βπ’ β
π΄ βπ£ β (πΉβπ’)(β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β V |
169 | | ineq1 4205 |
. . . . . . . . . . . . . . 15
β’ (π₯ = (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β (π₯ β© Xπ β π΄ π) = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π)) |
170 | 169 | eqeq2d 2744 |
. . . . . . . . . . . . . 14
β’ (π₯ = (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β (π¦ = (π₯ β© Xπ β π΄ π) β π¦ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π))) |
171 | 6, 170 | rexrnmpo 7545 |
. . . . . . . . . . . . 13
β’
(βπ’ β
π΄ βπ£ β (πΉβπ’)(β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β V β (βπ₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))π¦ = (π₯ β© Xπ β π΄ π) β βπ’ β π΄ βπ£ β (πΉβπ’)π¦ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π))) |
172 | 168, 171 | ax-mp 5 |
. . . . . . . . . . . 12
β’
(βπ₯ β ran
(π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))π¦ = (π₯ β© Xπ β π΄ π) β βπ’ β π΄ βπ£ β (πΉβπ’)π¦ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π)) |
173 | | eqeq1 2737 |
. . . . . . . . . . . . 13
β’ (π¦ = π₯ β (π¦ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) β π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π))) |
174 | 173 | 2rexbidv 3220 |
. . . . . . . . . . . 12
β’ (π¦ = π₯ β (βπ’ β π΄ βπ£ β (πΉβπ’)π¦ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π) β βπ’ β π΄ βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π))) |
175 | 172, 174 | bitrid 283 |
. . . . . . . . . . 11
β’ (π¦ = π₯ β (βπ₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))π¦ = (π₯ β© Xπ β π΄ π) β βπ’ β π΄ βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π))) |
176 | 163, 164,
175 | cbvabw 2807 |
. . . . . . . . . 10
β’ {π¦ β£ βπ₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))π¦ = (π₯ β© Xπ β π΄ π)} = {π₯ β£ βπ’ β π΄ βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π)} |
177 | 162, 176 | eqtri 2761 |
. . . . . . . . 9
β’ ran
(π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π)) = {π₯ β£ βπ’ β π΄ βπ£ β (πΉβπ’)π₯ = ((β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£) β© Xπ β π΄ π)} |
178 | | eqid 2733 |
. . . . . . . . . 10
β’ (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)) = (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)) |
179 | 178 | rnmpo 7539 |
. . . . . . . . 9
β’ ran
(π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)) = {π₯ β£ βπ’ β π΄ βπ£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’)π₯ = (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)} |
180 | 160, 177,
179 | 3eqtr4g 2798 |
. . . . . . . 8
β’ (π β ran (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π)) = ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£))) |
181 | 84, 180 | uneq12d 4164 |
. . . . . . 7
β’ (π β (ran (π₯ β {βͺ
(βtβπΉ)} β¦ (π₯ β© Xπ β π΄ π)) βͺ ran (π₯ β ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)) β¦ (π₯ β© Xπ β π΄ π))) = ({βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)))) |
182 | 22, 181 | eqtrid 2785 |
. . . . . 6
β’ (π β ran (π₯ β ({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) β¦ (π₯ β© Xπ β π΄ π)) = ({βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)))) |
183 | 18, 182 | eqtrd 2773 |
. . . . 5
β’ (π β (({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) βΎt Xπ β
π΄ π) = ({βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)))) |
184 | 183 | fveq2d 6893 |
. . . 4
β’ (π β (fiβ(({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))) βΎt Xπ β
π΄ π)) = (fiβ({βͺ (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£))))) |
185 | 1, 184 | eqtr3id 2787 |
. . 3
β’ (π β ((fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) βΎt Xπ β
π΄ π) = (fiβ({βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£))))) |
186 | 185 | fveq2d 6893 |
. 2
β’ (π β
(topGenβ((fiβ({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) βΎt Xπ β
π΄ π)) = (topGenβ(fiβ({βͺ (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)))))) |
187 | | eqid 2733 |
. . . . . 6
β’ βͺ (βtβπΉ) = βͺ
(βtβπΉ) |
188 | 72, 187, 6 | ptval2 23097 |
. . . . 5
β’ ((π΄ β π β§ πΉ:π΄βΆTop) β
(βtβπΉ) = (topGenβ(fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))))) |
189 | 3, 35, 188 | syl2anc 585 |
. . . 4
β’ (π β
(βtβπΉ) = (topGenβ(fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))))) |
190 | 189 | oveq1d 7421 |
. . 3
β’ (π β
((βtβπΉ) βΎt Xπ β
π΄ π) = ((topGenβ(fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))))) βΎt Xπ β
π΄ π)) |
191 | | fvex 6902 |
. . . 4
β’
(fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) β V |
192 | | tgrest 22655 |
. . . 4
β’
(((fiβ({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) β V β§ Xπ β
π΄ π β V) β
(topGenβ((fiβ({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) βΎt Xπ β
π΄ π)) = ((topGenβ(fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))))) βΎt Xπ β
π΄ π)) |
193 | 191, 16, 192 | sylancr 588 |
. . 3
β’ (π β
(topGenβ((fiβ({βͺ
(βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) βΎt Xπ β
π΄ π)) = ((topGenβ(fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£))))) βΎt Xπ β
π΄ π)) |
194 | 190, 193 | eqtr4d 2776 |
. 2
β’ (π β
((βtβπΉ) βΎt Xπ β
π΄ π) = (topGenβ((fiβ({βͺ (βtβπΉ)} βͺ ran (π’ β π΄, π£ β (πΉβπ’) β¦ (β‘(π€ β βͺ
(βtβπΉ) β¦ (π€βπ’)) β π£)))) βΎt Xπ β
π΄ π))) |
195 | | eqid 2733 |
. . . 4
β’ βͺ (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) = βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) |
196 | 79, 195, 178 | ptval2 23097 |
. . 3
β’ ((π΄ β π β§ (π β π΄ β¦ ((πΉβπ) βΎt π)):π΄βΆTop) β
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) = (topGenβ(fiβ({βͺ (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)))))) |
197 | 3, 78, 196 | syl2anc 585 |
. 2
β’ (π β
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) = (topGenβ(fiβ({βͺ (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))} βͺ ran (π’ β π΄, π£ β ((π β π΄ β¦ ((πΉβπ) βΎt π))βπ’) β¦ (β‘(π€ β βͺ
(βtβ(π β π΄ β¦ ((πΉβπ) βΎt π))) β¦ (π€βπ’)) β π£)))))) |
198 | 186, 194,
197 | 3eqtr4d 2783 |
1
β’ (π β
((βtβπΉ) βΎt Xπ β
π΄ π) = (βtβ(π β π΄ β¦ ((πΉβπ) βΎt π)))) |