Step | Hyp | Ref
| Expression |
1 | | mthmpps.m |
. . . . . . . 8
β’ π = (πΆ βͺ (π· β (π Γ π))) |
2 | | mthmpps.u |
. . . . . . . . . . . . . 14
β’ π = (mThmβπ) |
3 | | eqid 2733 |
. . . . . . . . . . . . . 14
β’
(mPreStβπ) =
(mPreStβπ) |
4 | 2, 3 | mthmsta 34558 |
. . . . . . . . . . . . 13
β’ π β (mPreStβπ) |
5 | | simpr 486 |
. . . . . . . . . . . . 13
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β¨πΆ, π», π΄β© β π) |
6 | 4, 5 | sselid 3980 |
. . . . . . . . . . . 12
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β¨πΆ, π», π΄β© β (mPreStβπ)) |
7 | | mthmpps.d |
. . . . . . . . . . . . 13
β’ π· = (mDVβπ) |
8 | | eqid 2733 |
. . . . . . . . . . . . 13
β’
(mExβπ) =
(mExβπ) |
9 | 7, 8, 3 | elmpst 34516 |
. . . . . . . . . . . 12
β’
(β¨πΆ, π», π΄β© β (mPreStβπ) β ((πΆ β π· β§ β‘πΆ = πΆ) β§ (π» β (mExβπ) β§ π» β Fin) β§ π΄ β (mExβπ))) |
10 | 6, 9 | sylib 217 |
. . . . . . . . . . 11
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β ((πΆ β π· β§ β‘πΆ = πΆ) β§ (π» β (mExβπ) β§ π» β Fin) β§ π΄ β (mExβπ))) |
11 | 10 | simp1d 1143 |
. . . . . . . . . 10
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (πΆ β π· β§ β‘πΆ = πΆ)) |
12 | 11 | simpld 496 |
. . . . . . . . 9
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β πΆ β π·) |
13 | | difssd 4132 |
. . . . . . . . 9
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (π· β (π Γ π)) β π·) |
14 | 12, 13 | unssd 4186 |
. . . . . . . 8
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (πΆ βͺ (π· β (π Γ π))) β π·) |
15 | 1, 14 | eqsstrid 4030 |
. . . . . . 7
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β π β π·) |
16 | 11 | simprd 497 |
. . . . . . . . 9
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β‘πΆ = πΆ) |
17 | | cnvdif 6141 |
. . . . . . . . . . 11
β’ β‘(π· β (π Γ π)) = (β‘π· β β‘(π Γ π)) |
18 | | cnvdif 6141 |
. . . . . . . . . . . . . 14
β’ β‘(((mVRβπ) Γ (mVRβπ)) β I ) = (β‘((mVRβπ) Γ (mVRβπ)) β β‘ I ) |
19 | | cnvxp 6154 |
. . . . . . . . . . . . . . 15
β’ β‘((mVRβπ) Γ (mVRβπ)) = ((mVRβπ) Γ (mVRβπ)) |
20 | | cnvi 6139 |
. . . . . . . . . . . . . . 15
β’ β‘ I = I |
21 | 19, 20 | difeq12i 4120 |
. . . . . . . . . . . . . 14
β’ (β‘((mVRβπ) Γ (mVRβπ)) β β‘ I ) = (((mVRβπ) Γ (mVRβπ)) β I ) |
22 | 18, 21 | eqtri 2761 |
. . . . . . . . . . . . 13
β’ β‘(((mVRβπ) Γ (mVRβπ)) β I ) = (((mVRβπ) Γ (mVRβπ)) β I ) |
23 | | eqid 2733 |
. . . . . . . . . . . . . . 15
β’
(mVRβπ) =
(mVRβπ) |
24 | 23, 7 | mdvval 34484 |
. . . . . . . . . . . . . 14
β’ π· = (((mVRβπ) Γ (mVRβπ)) β I ) |
25 | 24 | cnveqi 5873 |
. . . . . . . . . . . . 13
β’ β‘π· = β‘(((mVRβπ) Γ (mVRβπ)) β I ) |
26 | 22, 25, 24 | 3eqtr4i 2771 |
. . . . . . . . . . . 12
β’ β‘π· = π· |
27 | | cnvxp 6154 |
. . . . . . . . . . . 12
β’ β‘(π Γ π) = (π Γ π) |
28 | 26, 27 | difeq12i 4120 |
. . . . . . . . . . 11
β’ (β‘π· β β‘(π Γ π)) = (π· β (π Γ π)) |
29 | 17, 28 | eqtri 2761 |
. . . . . . . . . 10
β’ β‘(π· β (π Γ π)) = (π· β (π Γ π)) |
30 | 29 | a1i 11 |
. . . . . . . . 9
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β‘(π· β (π Γ π)) = (π· β (π Γ π))) |
31 | 16, 30 | uneq12d 4164 |
. . . . . . . 8
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (β‘πΆ βͺ β‘(π· β (π Γ π))) = (πΆ βͺ (π· β (π Γ π)))) |
32 | 1 | cnveqi 5873 |
. . . . . . . . 9
β’ β‘π = β‘(πΆ βͺ (π· β (π Γ π))) |
33 | | cnvun 6140 |
. . . . . . . . 9
β’ β‘(πΆ βͺ (π· β (π Γ π))) = (β‘πΆ βͺ β‘(π· β (π Γ π))) |
34 | 32, 33 | eqtri 2761 |
. . . . . . . 8
β’ β‘π = (β‘πΆ βͺ β‘(π· β (π Γ π))) |
35 | 31, 34, 1 | 3eqtr4g 2798 |
. . . . . . 7
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β‘π = π) |
36 | 15, 35 | jca 513 |
. . . . . 6
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (π β π· β§ β‘π = π)) |
37 | 10 | simp2d 1144 |
. . . . . 6
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (π» β (mExβπ) β§ π» β Fin)) |
38 | 10 | simp3d 1145 |
. . . . . 6
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β π΄ β (mExβπ)) |
39 | 7, 8, 3 | elmpst 34516 |
. . . . . 6
β’
(β¨π, π», π΄β© β (mPreStβπ) β ((π β π· β§ β‘π = π) β§ (π» β (mExβπ) β§ π» β Fin) β§ π΄ β (mExβπ))) |
40 | 36, 37, 38, 39 | syl3anbrc 1344 |
. . . . 5
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β¨π, π», π΄β© β (mPreStβπ)) |
41 | | mthmpps.r |
. . . . . . . 8
β’ π
= (mStRedβπ) |
42 | | mthmpps.j |
. . . . . . . 8
β’ π½ = (mPPStβπ) |
43 | 41, 42, 2 | elmthm 34556 |
. . . . . . 7
β’
(β¨πΆ, π», π΄β© β π β βπ₯ β π½ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©)) |
44 | 5, 43 | sylib 217 |
. . . . . 6
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β βπ₯ β π½ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©)) |
45 | | eqid 2733 |
. . . . . . . 8
β’
(mClsβπ) =
(mClsβπ) |
46 | | simpll 766 |
. . . . . . . 8
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π β mFS) |
47 | 15 | adantr 482 |
. . . . . . . 8
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π β π·) |
48 | 37 | simpld 496 |
. . . . . . . . 9
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β π» β (mExβπ)) |
49 | 48 | adantr 482 |
. . . . . . . 8
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π» β (mExβπ)) |
50 | 3, 42 | mppspst 34554 |
. . . . . . . . . . . . . . . . . . 19
β’ π½ β (mPreStβπ) |
51 | | simprl 770 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π₯ β π½) |
52 | 50, 51 | sselid 3980 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π₯ β (mPreStβπ)) |
53 | 3 | mpst123 34520 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β (mPreStβπ) β π₯ = β¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β©) |
54 | 52, 53 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π₯ = β¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β©) |
55 | 54 | fveq2d 6893 |
. . . . . . . . . . . . . . . 16
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (π
βπ₯) = (π
ββ¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β©)) |
56 | | simprr 772 |
. . . . . . . . . . . . . . . 16
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©)) |
57 | 55, 56 | eqtr3d 2775 |
. . . . . . . . . . . . . . 15
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (π
ββ¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β©) = (π
ββ¨πΆ, π», π΄β©)) |
58 | 54, 52 | eqeltrrd 2835 |
. . . . . . . . . . . . . . . 16
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β β¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β© β
(mPreStβπ)) |
59 | | mthmpps.v |
. . . . . . . . . . . . . . . . 17
β’ π = (mVarsβπ) |
60 | | eqid 2733 |
. . . . . . . . . . . . . . . . 17
β’ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})) = βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})) |
61 | 59, 3, 41, 60 | msrval 34518 |
. . . . . . . . . . . . . . . 16
β’
(β¨(1st β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β© β
(mPreStβπ) β
(π
ββ¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β©) =
β¨((1st β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))), (2nd
β(1st βπ₯)), (2nd βπ₯)β©) |
62 | 58, 61 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (π
ββ¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β©) =
β¨((1st β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))), (2nd
β(1st βπ₯)), (2nd βπ₯)β©) |
63 | | mthmpps.z |
. . . . . . . . . . . . . . . . . 18
β’ π = βͺ
(π β (π» βͺ {π΄})) |
64 | 59, 3, 41, 63 | msrval 34518 |
. . . . . . . . . . . . . . . . 17
β’
(β¨πΆ, π», π΄β© β (mPreStβπ) β (π
ββ¨πΆ, π», π΄β©) = β¨(πΆ β© (π Γ π)), π», π΄β©) |
65 | 6, 64 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (π
ββ¨πΆ, π», π΄β©) = β¨(πΆ β© (π Γ π)), π», π΄β©) |
66 | 65 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (π
ββ¨πΆ, π», π΄β©) = β¨(πΆ β© (π Γ π)), π», π΄β©) |
67 | 57, 62, 66 | 3eqtr3d 2781 |
. . . . . . . . . . . . . 14
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β β¨((1st
β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))), (2nd
β(1st βπ₯)), (2nd βπ₯)β© = β¨(πΆ β© (π Γ π)), π», π΄β©) |
68 | | fvex 6902 |
. . . . . . . . . . . . . . . 16
β’
(1st β(1st βπ₯)) β V |
69 | 68 | inex1 5317 |
. . . . . . . . . . . . . . 15
β’
((1st β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))) β V |
70 | | fvex 6902 |
. . . . . . . . . . . . . . 15
β’
(2nd β(1st βπ₯)) β V |
71 | | fvex 6902 |
. . . . . . . . . . . . . . 15
β’
(2nd βπ₯) β V |
72 | 69, 70, 71 | otth 5484 |
. . . . . . . . . . . . . 14
β’
(β¨((1st β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))), (2nd
β(1st βπ₯)), (2nd βπ₯)β© = β¨(πΆ β© (π Γ π)), π», π΄β© β (((1st
β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))) = (πΆ β© (π Γ π)) β§ (2nd
β(1st βπ₯)) = π» β§ (2nd βπ₯) = π΄)) |
73 | 67, 72 | sylib 217 |
. . . . . . . . . . . . 13
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (((1st
β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))) = (πΆ β© (π Γ π)) β§ (2nd
β(1st βπ₯)) = π» β§ (2nd βπ₯) = π΄)) |
74 | 73 | simp1d 1143 |
. . . . . . . . . . . 12
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β ((1st
β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))) = (πΆ β© (π Γ π))) |
75 | 73 | simp2d 1144 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (2nd
β(1st βπ₯)) = π») |
76 | 73 | simp3d 1145 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (2nd
βπ₯) = π΄) |
77 | 76 | sneqd 4640 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β {(2nd
βπ₯)} = {π΄}) |
78 | 75, 77 | uneq12d 4164 |
. . . . . . . . . . . . . . . . 17
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)}) = (π» βͺ {π΄})) |
79 | 78 | imaeq2d 6058 |
. . . . . . . . . . . . . . . 16
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) = (π β (π» βͺ {π΄}))) |
80 | 79 | unieqd 4922 |
. . . . . . . . . . . . . . 15
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})) = βͺ (π
β (π» βͺ {π΄}))) |
81 | 80, 63 | eqtr4di 2791 |
. . . . . . . . . . . . . 14
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})) = π) |
82 | 81 | sqxpeqd 5708 |
. . . . . . . . . . . . 13
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)}))) = (π Γ π)) |
83 | 82 | ineq2d 4212 |
. . . . . . . . . . . 12
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β ((1st
β(1st βπ₯)) β© (βͺ (π β ((2nd
β(1st βπ₯)) βͺ {(2nd βπ₯)})) Γ βͺ (π
β ((2nd β(1st βπ₯)) βͺ {(2nd βπ₯)})))) = ((1st
β(1st βπ₯)) β© (π Γ π))) |
84 | 74, 83 | eqtr3d 2775 |
. . . . . . . . . . 11
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (πΆ β© (π Γ π)) = ((1st β(1st
βπ₯)) β© (π Γ π))) |
85 | | inss1 4228 |
. . . . . . . . . . 11
β’ (πΆ β© (π Γ π)) β πΆ |
86 | 84, 85 | eqsstrrdi 4037 |
. . . . . . . . . 10
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β ((1st
β(1st βπ₯)) β© (π Γ π)) β πΆ) |
87 | | eqidd 2734 |
. . . . . . . . . . . . . . 15
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (1st
β(1st βπ₯)) = (1st β(1st
βπ₯))) |
88 | 87, 75, 76 | oteq123d 4888 |
. . . . . . . . . . . . . 14
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β β¨(1st
β(1st βπ₯)), (2nd β(1st
βπ₯)), (2nd
βπ₯)β© =
β¨(1st β(1st βπ₯)), π», π΄β©) |
89 | 54, 88 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π₯ = β¨(1st
β(1st βπ₯)), π», π΄β©) |
90 | 89, 52 | eqeltrrd 2835 |
. . . . . . . . . . . 12
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β β¨(1st
β(1st βπ₯)), π», π΄β© β (mPreStβπ)) |
91 | 7, 8, 3 | elmpst 34516 |
. . . . . . . . . . . . . 14
β’
(β¨(1st β(1st βπ₯)), π», π΄β© β (mPreStβπ) β (((1st
β(1st βπ₯)) β π· β§ β‘(1st β(1st
βπ₯)) =
(1st β(1st βπ₯))) β§ (π» β (mExβπ) β§ π» β Fin) β§ π΄ β (mExβπ))) |
92 | 91 | simp1bi 1146 |
. . . . . . . . . . . . 13
β’
(β¨(1st β(1st βπ₯)), π», π΄β© β (mPreStβπ) β ((1st
β(1st βπ₯)) β π· β§ β‘(1st β(1st
βπ₯)) =
(1st β(1st βπ₯)))) |
93 | 92 | simpld 496 |
. . . . . . . . . . . 12
β’
(β¨(1st β(1st βπ₯)), π», π΄β© β (mPreStβπ) β (1st
β(1st βπ₯)) β π·) |
94 | 90, 93 | syl 17 |
. . . . . . . . . . 11
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (1st
β(1st βπ₯)) β π·) |
95 | 94 | ssdifd 4140 |
. . . . . . . . . 10
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β ((1st
β(1st βπ₯)) β (π Γ π)) β (π· β (π Γ π))) |
96 | | unss12 4182 |
. . . . . . . . . 10
β’
((((1st β(1st βπ₯)) β© (π Γ π)) β πΆ β§ ((1st
β(1st βπ₯)) β (π Γ π)) β (π· β (π Γ π))) β (((1st
β(1st βπ₯)) β© (π Γ π)) βͺ ((1st
β(1st βπ₯)) β (π Γ π))) β (πΆ βͺ (π· β (π Γ π)))) |
97 | 86, 95, 96 | syl2anc 585 |
. . . . . . . . 9
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (((1st
β(1st βπ₯)) β© (π Γ π)) βͺ ((1st
β(1st βπ₯)) β (π Γ π))) β (πΆ βͺ (π· β (π Γ π)))) |
98 | | inundif 4478 |
. . . . . . . . . 10
β’
(((1st β(1st βπ₯)) β© (π Γ π)) βͺ ((1st
β(1st βπ₯)) β (π Γ π))) = (1st β(1st
βπ₯)) |
99 | 98 | eqcomi 2742 |
. . . . . . . . 9
β’
(1st β(1st βπ₯)) = (((1st β(1st
βπ₯)) β© (π Γ π)) βͺ ((1st
β(1st βπ₯)) β (π Γ π))) |
100 | 97, 99, 1 | 3sstr4g 4027 |
. . . . . . . 8
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β (1st
β(1st βπ₯)) β π) |
101 | | ssidd 4005 |
. . . . . . . 8
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π» β π») |
102 | 7, 8, 45, 46, 47, 49, 100, 101 | ss2mcls 34548 |
. . . . . . 7
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β ((1st
β(1st βπ₯))(mClsβπ)π») β (π(mClsβπ)π»)) |
103 | 89, 51 | eqeltrrd 2835 |
. . . . . . . 8
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β β¨(1st
β(1st βπ₯)), π», π΄β© β π½) |
104 | 3, 42, 45 | elmpps 34553 |
. . . . . . . . 9
β’
(β¨(1st β(1st βπ₯)), π», π΄β© β π½ β (β¨(1st
β(1st βπ₯)), π», π΄β© β (mPreStβπ) β§ π΄ β ((1st
β(1st βπ₯))(mClsβπ)π»))) |
105 | 104 | simprbi 498 |
. . . . . . . 8
β’
(β¨(1st β(1st βπ₯)), π», π΄β© β π½ β π΄ β ((1st
β(1st βπ₯))(mClsβπ)π»)) |
106 | 103, 105 | syl 17 |
. . . . . . 7
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π΄ β ((1st
β(1st βπ₯))(mClsβπ)π»)) |
107 | 102, 106 | sseldd 3983 |
. . . . . 6
β’ (((π β mFS β§ β¨πΆ, π», π΄β© β π) β§ (π₯ β π½ β§ (π
βπ₯) = (π
ββ¨πΆ, π», π΄β©))) β π΄ β (π(mClsβπ)π»)) |
108 | 44, 107 | rexlimddv 3162 |
. . . . 5
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β π΄ β (π(mClsβπ)π»)) |
109 | 3, 42, 45 | elmpps 34553 |
. . . . 5
β’
(β¨π, π», π΄β© β π½ β (β¨π, π», π΄β© β (mPreStβπ) β§ π΄ β (π(mClsβπ)π»))) |
110 | 40, 108, 109 | sylanbrc 584 |
. . . 4
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β¨π, π», π΄β© β π½) |
111 | 1 | ineq1i 4208 |
. . . . . . . 8
β’ (π β© (π Γ π)) = ((πΆ βͺ (π· β (π Γ π))) β© (π Γ π)) |
112 | | indir 4275 |
. . . . . . . 8
β’ ((πΆ βͺ (π· β (π Γ π))) β© (π Γ π)) = ((πΆ β© (π Γ π)) βͺ ((π· β (π Γ π)) β© (π Γ π))) |
113 | | disjdifr 4472 |
. . . . . . . . . 10
β’ ((π· β (π Γ π)) β© (π Γ π)) = β
|
114 | | 0ss 4396 |
. . . . . . . . . 10
β’ β
β (πΆ β© (π Γ π)) |
115 | 113, 114 | eqsstri 4016 |
. . . . . . . . 9
β’ ((π· β (π Γ π)) β© (π Γ π)) β (πΆ β© (π Γ π)) |
116 | | ssequn2 4183 |
. . . . . . . . 9
β’ (((π· β (π Γ π)) β© (π Γ π)) β (πΆ β© (π Γ π)) β ((πΆ β© (π Γ π)) βͺ ((π· β (π Γ π)) β© (π Γ π))) = (πΆ β© (π Γ π))) |
117 | 115, 116 | mpbi 229 |
. . . . . . . 8
β’ ((πΆ β© (π Γ π)) βͺ ((π· β (π Γ π)) β© (π Γ π))) = (πΆ β© (π Γ π)) |
118 | 111, 112,
117 | 3eqtri 2765 |
. . . . . . 7
β’ (π β© (π Γ π)) = (πΆ β© (π Γ π)) |
119 | 118 | a1i 11 |
. . . . . 6
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (π β© (π Γ π)) = (πΆ β© (π Γ π))) |
120 | 119 | oteq1d 4885 |
. . . . 5
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β β¨(π β© (π Γ π)), π», π΄β© = β¨(πΆ β© (π Γ π)), π», π΄β©) |
121 | 59, 3, 41, 63 | msrval 34518 |
. . . . . 6
β’
(β¨π, π», π΄β© β (mPreStβπ) β (π
ββ¨π, π», π΄β©) = β¨(π β© (π Γ π)), π», π΄β©) |
122 | 40, 121 | syl 17 |
. . . . 5
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (π
ββ¨π, π», π΄β©) = β¨(π β© (π Γ π)), π», π΄β©) |
123 | 120, 122,
65 | 3eqtr4d 2783 |
. . . 4
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (π
ββ¨π, π», π΄β©) = (π
ββ¨πΆ, π», π΄β©)) |
124 | 110, 123 | jca 513 |
. . 3
β’ ((π β mFS β§ β¨πΆ, π», π΄β© β π) β (β¨π, π», π΄β© β π½ β§ (π
ββ¨π, π», π΄β©) = (π
ββ¨πΆ, π», π΄β©))) |
125 | 124 | ex 414 |
. 2
β’ (π β mFS β (β¨πΆ, π», π΄β© β π β (β¨π, π», π΄β© β π½ β§ (π
ββ¨π, π», π΄β©) = (π
ββ¨πΆ, π», π΄β©)))) |
126 | 41, 42, 2 | mthmi 34557 |
. 2
β’
((β¨π, π», π΄β© β π½ β§ (π
ββ¨π, π», π΄β©) = (π
ββ¨πΆ, π», π΄β©)) β β¨πΆ, π», π΄β© β π) |
127 | 125, 126 | impbid1 224 |
1
β’ (π β mFS β (β¨πΆ, π», π΄β© β π β (β¨π, π», π΄β© β π½ β§ (π
ββ¨π, π», π΄β©) = (π
ββ¨πΆ, π», π΄β©)))) |