Step | Hyp | Ref
| Expression |
1 | | df-fmla 34325 |
. . 3
β’ Fmla =
(π β suc Ο
β¦ dom ((β
Sat β
)βπ)) |
2 | 1 | fveq1i 6890 |
. 2
β’
(FmlaβΟ) = ((π β suc Ο β¦ dom ((β
Sat
β
)βπ))βΟ) |
3 | | omex 9635 |
. . 3
β’ Ο
β V |
4 | | eqidd 2734 |
. . . 4
β’ (Ο
β V β (π β
suc Ο β¦ dom ((β
Sat β
)βπ)) = (π β suc Ο β¦ dom ((β
Sat
β
)βπ))) |
5 | | fveq2 6889 |
. . . . . 6
β’ (π = Ο β ((β
Sat
β
)βπ) =
((β
Sat β
)βΟ)) |
6 | 5 | dmeqd 5904 |
. . . . 5
β’ (π = Ο β dom ((β
Sat β
)βπ) = dom
((β
Sat β
)βΟ)) |
7 | 6 | adantl 483 |
. . . 4
β’ ((Ο
β V β§ π = Ο)
β dom ((β
Sat β
)βπ) = dom ((β
Sat
β
)βΟ)) |
8 | | sucidg 6443 |
. . . 4
β’ (Ο
β V β Ο β suc Ο) |
9 | | fvex 6902 |
. . . . . 6
β’ ((β
Sat β
)βΟ) β V |
10 | 9 | dmex 7899 |
. . . . 5
β’ dom
((β
Sat β
)βΟ) β V |
11 | 10 | a1i 11 |
. . . 4
β’ (Ο
β V β dom ((β
Sat β
)βΟ) β
V) |
12 | 4, 7, 8, 11 | fvmptd 7003 |
. . 3
β’ (Ο
β V β ((π β
suc Ο β¦ dom ((β
Sat β
)βπ))βΟ) = dom ((β
Sat
β
)βΟ)) |
13 | 3, 12 | ax-mp 5 |
. 2
β’ ((π β suc Ο β¦ dom
((β
Sat β
)βπ))βΟ) = dom ((β
Sat
β
)βΟ) |
14 | 3 | sucid 6444 |
. . . . . 6
β’ Ο
β suc Ο |
15 | | satf0sucom 34353 |
. . . . . 6
β’ (Ο
β suc Ο β ((β
Sat β
)βΟ) = (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βΟ)) |
16 | 14, 15 | ax-mp 5 |
. . . . 5
β’ ((β
Sat β
)βΟ) = (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βΟ) |
17 | | limom 7868 |
. . . . . 6
β’ Lim
Ο |
18 | | rdglim2a 8430 |
. . . . . 6
β’ ((Ο
β V β§ Lim Ο) β (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βΟ) = βͺ π β Ο (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) |
19 | 3, 17, 18 | mp2an 691 |
. . . . 5
β’
(rec((π β V
β¦ (π βͺ
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βΟ) = βͺ π β Ο (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) |
20 | 16, 19 | eqtri 2761 |
. . . 4
β’ ((β
Sat β
)βΟ) = βͺ π β Ο (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) |
21 | 20 | dmeqi 5903 |
. . 3
β’ dom
((β
Sat β
)βΟ) = dom βͺ
π β Ο
(rec((π β V β¦
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) |
22 | | dmiun 5912 |
. . 3
β’ dom
βͺ π β Ο (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) = βͺ π β Ο dom (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) |
23 | | elelsuc 6435 |
. . . . . 6
β’ (π β Ο β π β suc
Ο) |
24 | | fmlafv 34360 |
. . . . . 6
β’ (π β suc Ο β
(Fmlaβπ) = dom
((β
Sat β
)βπ)) |
25 | 23, 24 | syl 17 |
. . . . 5
β’ (π β Ο β
(Fmlaβπ) = dom
((β
Sat β
)βπ)) |
26 | | satf0sucom 34353 |
. . . . . . 7
β’ (π β suc Ο β
((β
Sat β
)βπ) = (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) |
27 | 23, 26 | syl 17 |
. . . . . 6
β’ (π β Ο β ((β
Sat β
)βπ) =
(rec((π β V β¦
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) |
28 | 27 | dmeqd 5904 |
. . . . 5
β’ (π β Ο β dom
((β
Sat β
)βπ) = dom (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) |
29 | 25, 28 | eqtr2d 2774 |
. . . 4
β’ (π β Ο β dom
(rec((π β V β¦
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) = (Fmlaβπ)) |
30 | 29 | iuneq2i 5018 |
. . 3
β’ βͺ π β Ο dom (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) = βͺ π β Ο
(Fmlaβπ) |
31 | 21, 22, 30 | 3eqtri 2765 |
. 2
β’ dom
((β
Sat β
)βΟ) = βͺ
π β Ο
(Fmlaβπ) |
32 | 2, 13, 31 | 3eqtri 2765 |
1
β’
(FmlaβΟ) = βͺ π β Ο
(Fmlaβπ) |