Step | Hyp | Ref
| Expression |
1 | | df-fmla 34325 |
. . 3
β’ Fmla =
(π β suc Ο
β¦ dom ((β
Sat β
)βπ)) |
2 | | fveq2 6889 |
. . . 4
β’ (π = suc π β ((β
Sat β
)βπ) = ((β
Sat
β
)βsuc π)) |
3 | 2 | dmeqd 5904 |
. . 3
β’ (π = suc π β dom ((β
Sat
β
)βπ) = dom
((β
Sat β
)βsuc π)) |
4 | | omsucelsucb 8455 |
. . . 4
β’ (π β Ο β suc π β suc
Ο) |
5 | 4 | biimpi 215 |
. . 3
β’ (π β Ο β suc π β suc
Ο) |
6 | | fvex 6902 |
. . . . 5
β’ ((β
Sat β
)βsuc π)
β V |
7 | 6 | dmex 7899 |
. . . 4
β’ dom
((β
Sat β
)βsuc π) β V |
8 | 7 | a1i 11 |
. . 3
β’ (π β Ο β dom
((β
Sat β
)βsuc π) β V) |
9 | 1, 3, 5, 8 | fvmptd3 7019 |
. 2
β’ (π β Ο β
(Fmlaβsuc π) = dom
((β
Sat β
)βsuc π)) |
10 | | satf0sucom 34353 |
. . . . 5
β’ (suc
π β suc Ο β
((β
Sat β
)βsuc π) = (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βsuc π)) |
11 | 5, 10 | syl 17 |
. . . 4
β’ (π β Ο β ((β
Sat β
)βsuc π) =
(rec((π β V β¦
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βsuc π)) |
12 | | nnon 7858 |
. . . . 5
β’ (π β Ο β π β On) |
13 | | rdgsuc 8421 |
. . . . 5
β’ (π β On β (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βsuc π) = ((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ))) |
14 | 12, 13 | syl 17 |
. . . 4
β’ (π β Ο β
(rec((π β V β¦
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βsuc π) = ((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ))) |
15 | 11, 14 | eqtrd 2773 |
. . 3
β’ (π β Ο β ((β
Sat β
)βsuc π) =
((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ))) |
16 | 15 | dmeqd 5904 |
. 2
β’ (π β Ο β dom
((β
Sat β
)βsuc π) = dom ((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ))) |
17 | | elelsuc 6435 |
. . . . . . . 8
β’ (π β Ο β π β suc
Ο) |
18 | | satf0sucom 34353 |
. . . . . . . . 9
β’ (π β suc Ο β
((β
Sat β
)βπ) = (rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) |
19 | 18 | eqcomd 2739 |
. . . . . . . 8
β’ (π β suc Ο β
(rec((π β V β¦
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) = ((β
Sat β
)βπ)) |
20 | 17, 19 | syl 17 |
. . . . . . 7
β’ (π β Ο β
(rec((π β V β¦
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ) = ((β
Sat β
)βπ)) |
21 | 20 | fveq2d 6893 |
. . . . . 6
β’ (π β Ο β ((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) = ((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β((β
Sat
β
)βπ))) |
22 | | eqidd 2734 |
. . . . . . 7
β’ (π β Ο β (π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})) = (π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))) |
23 | | id 22 |
. . . . . . . . 9
β’ (π = ((β
Sat
β
)βπ) β
π = ((β
Sat
β
)βπ)) |
24 | | rexeq 3322 |
. . . . . . . . . . . . 13
β’ (π = ((β
Sat
β
)βπ) β
(βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β
βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)))) |
25 | 24 | orbi1d 916 |
. . . . . . . . . . . 12
β’ (π = ((β
Sat
β
)βπ) β
((βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)) β (βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))) |
26 | 25 | rexeqbi1dv 3335 |
. . . . . . . . . . 11
β’ (π = ((β
Sat
β
)βπ) β
(βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)) β βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))) |
27 | 26 | anbi2d 630 |
. . . . . . . . . 10
β’ (π = ((β
Sat
β
)βπ) β
((π¦ = β
β§
βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) β (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))))) |
28 | 27 | opabbidv 5214 |
. . . . . . . . 9
β’ (π = ((β
Sat
β
)βπ) β
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} = {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) |
29 | 23, 28 | uneq12d 4164 |
. . . . . . . 8
β’ (π = ((β
Sat
β
)βπ) β
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) = (((β
Sat β
)βπ) βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})) |
30 | 29 | adantl 483 |
. . . . . . 7
β’ ((π β Ο β§ π = ((β
Sat
β
)βπ)) β
(π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) = (((β
Sat β
)βπ) βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})) |
31 | | fvex 6902 |
. . . . . . . 8
β’ ((β
Sat β
)βπ)
β V |
32 | 31 | a1i 11 |
. . . . . . 7
β’ (π β Ο β ((β
Sat β
)βπ)
β V) |
33 | | peano1 7876 |
. . . . . . . . . . . . 13
β’ β
β Ο |
34 | | eleq1 2822 |
. . . . . . . . . . . . 13
β’ (π¦ = β
β (π¦ β Ο β β
β Ο)) |
35 | 33, 34 | mpbiri 258 |
. . . . . . . . . . . 12
β’ (π¦ = β
β π¦ β
Ο) |
36 | 35 | adantr 482 |
. . . . . . . . . . 11
β’ ((π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) β π¦ β Ο) |
37 | 36 | pm4.71ri 562 |
. . . . . . . . . 10
β’ ((π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) β (π¦ β Ο β§ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))))) |
38 | 37 | opabbii 5215 |
. . . . . . . . 9
β’
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} = {β¨π₯, π¦β© β£ (π¦ β Ο β§ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))))} |
39 | | omex 9635 |
. . . . . . . . . . . 12
β’ Ο
β V |
40 | | id 22 |
. . . . . . . . . . . . 13
β’ (Ο
β V β Ο β V) |
41 | | unab 4298 |
. . . . . . . . . . . . . . . . 17
β’ ({π₯ β£ βπ£ β ((β
Sat
β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£))} βͺ {π₯ β£ βπ β Ο π₯ =
βππ(1st βπ’)}) = {π₯ β£ (βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} |
42 | 31 | abrexex 7946 |
. . . . . . . . . . . . . . . . . 18
β’ {π₯ β£ βπ£ β ((β
Sat
β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£))} β
V |
43 | 39 | abrexex 7946 |
. . . . . . . . . . . . . . . . . 18
β’ {π₯ β£ βπ β Ο π₯ =
βππ(1st βπ’)} β V |
44 | 42, 43 | unex 7730 |
. . . . . . . . . . . . . . . . 17
β’ ({π₯ β£ βπ£ β ((β
Sat
β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£))} βͺ {π₯ β£ βπ β Ο π₯ =
βππ(1st βπ’)}) β V |
45 | 41, 44 | eqeltrri 2831 |
. . . . . . . . . . . . . . . 16
β’ {π₯ β£ (βπ£ β ((β
Sat
β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} β V |
46 | 45 | a1i 11 |
. . . . . . . . . . . . . . 15
β’
(((Ο β V β§ π¦ β Ο) β§ π’ β ((β
Sat β
)βπ)) β {π₯ β£ (βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} β V) |
47 | 46 | ralrimiva 3147 |
. . . . . . . . . . . . . 14
β’ ((Ο
β V β§ π¦ β
Ο) β βπ’
β ((β
Sat β
)βπ){π₯ β£ (βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} β V) |
48 | | abrexex2g 7948 |
. . . . . . . . . . . . . 14
β’
((((β
Sat β
)βπ) β V β§ βπ’ β ((β
Sat β
)βπ){π₯ β£ (βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} β V) β {π₯ β£ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} β V) |
49 | 31, 47, 48 | sylancr 588 |
. . . . . . . . . . . . 13
β’ ((Ο
β V β§ π¦ β
Ο) β {π₯ β£
βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} β V) |
50 | 40, 49 | opabex3rd 7950 |
. . . . . . . . . . . 12
β’ (Ο
β V β {β¨π₯,
π¦β© β£ (π¦ β Ο β§
βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} β V) |
51 | 39, 50 | ax-mp 5 |
. . . . . . . . . . 11
β’
{β¨π₯, π¦β© β£ (π¦ β Ο β§
βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} β V |
52 | | simpr 486 |
. . . . . . . . . . . . 13
β’ ((π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) β βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) |
53 | 52 | anim2i 618 |
. . . . . . . . . . . 12
β’ ((π¦ β Ο β§ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))) β (π¦ β Ο β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))) |
54 | 53 | ssopab2i 5550 |
. . . . . . . . . . 11
β’
{β¨π₯, π¦β© β£ (π¦ β Ο β§ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))))} β {β¨π₯, π¦β© β£ (π¦ β Ο β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} |
55 | 51, 54 | ssexi 5322 |
. . . . . . . . . 10
β’
{β¨π₯, π¦β© β£ (π¦ β Ο β§ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))))} β V |
56 | 55 | a1i 11 |
. . . . . . . . 9
β’ (π β Ο β
{β¨π₯, π¦β© β£ (π¦ β Ο β§ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))))} β V) |
57 | 38, 56 | eqeltrid 2838 |
. . . . . . . 8
β’ (π β Ο β
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} β V) |
58 | | unexg 7733 |
. . . . . . . 8
β’
((((β
Sat β
)βπ) β V β§ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} β V) β (((β
Sat
β
)βπ) βͺ
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) β V) |
59 | 31, 57, 58 | sylancr 588 |
. . . . . . 7
β’ (π β Ο β
(((β
Sat β
)βπ) βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) β V) |
60 | 22, 30, 32, 59 | fvmptd 7003 |
. . . . . 6
β’ (π β Ο β ((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β((β
Sat
β
)βπ)) =
(((β
Sat β
)βπ) βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})) |
61 | 21, 60 | eqtrd 2773 |
. . . . 5
β’ (π β Ο β ((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) = (((β
Sat β
)βπ) βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})) |
62 | 61 | dmeqd 5904 |
. . . 4
β’ (π β Ο β dom
((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) = dom (((β
Sat β
)βπ) βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})) |
63 | | dmun 5909 |
. . . 4
β’ dom
(((β
Sat β
)βπ) βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) = (dom ((β
Sat
β
)βπ) βͺ dom
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) |
64 | 62, 63 | eqtrdi 2789 |
. . 3
β’ (π β Ο β dom
((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) = (dom ((β
Sat β
)βπ) βͺ dom {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})) |
65 | | fmlafv 34360 |
. . . . . 6
β’ (π β suc Ο β
(Fmlaβπ) = dom
((β
Sat β
)βπ)) |
66 | 17, 65 | syl 17 |
. . . . 5
β’ (π β Ο β
(Fmlaβπ) = dom
((β
Sat β
)βπ)) |
67 | 66 | eqcomd 2739 |
. . . 4
β’ (π β Ο β dom
((β
Sat β
)βπ) = (Fmlaβπ)) |
68 | | dmopab 5914 |
. . . . . 6
β’ dom
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} = {π₯ β£ βπ¦(π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} |
69 | 68 | a1i 11 |
. . . . 5
β’ (π β Ο β dom
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} = {π₯ β£ βπ¦(π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) |
70 | | 0ex 5307 |
. . . . . . . 8
β’ β
β V |
71 | 70 | isseti 3490 |
. . . . . . 7
β’
βπ¦ π¦ = β
|
72 | | 19.41v 1954 |
. . . . . . 7
β’
(βπ¦(π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) β (βπ¦ π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))) |
73 | 71, 72 | mpbiran 708 |
. . . . . 6
β’
(βπ¦(π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) β βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))) |
74 | 73 | abbii 2803 |
. . . . 5
β’ {π₯ β£ βπ¦(π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} = {π₯ β£ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))} |
75 | 69, 74 | eqtrdi 2789 |
. . . 4
β’ (π β Ο β dom
{β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))} = {π₯ β£ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))}) |
76 | 67, 75 | uneq12d 4164 |
. . 3
β’ (π β Ο β (dom
((β
Sat β
)βπ) βͺ dom {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}) = ((Fmlaβπ) βͺ {π₯ β£ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))})) |
77 | 64, 76 | eqtrd 2773 |
. 2
β’ (π β Ο β dom
((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))}))β(rec((π β V β¦ (π βͺ {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ’ β π (βπ£ β π π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’)))})), {β¨π₯, π¦β© β£ (π¦ = β
β§ βπ β Ο βπ β Ο π₯ = (πβππ))})βπ)) = ((Fmlaβπ) βͺ {π₯ β£ βπ’ β ((β
Sat β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))})) |
78 | 9, 16, 77 | 3eqtrd 2777 |
1
β’ (π β Ο β
(Fmlaβsuc π) =
((Fmlaβπ) βͺ
{π₯ β£ βπ’ β ((β
Sat
β
)βπ)(βπ£ β ((β
Sat β
)βπ)π₯ = ((1st βπ’)βΌπ(1st
βπ£)) β¨
βπ β Ο
π₯ =
βππ(1st βπ’))})) |