Step | Hyp | Ref
| Expression |
1 | | elmapi 8840 |
. . . 4
β’ (π β (π« π΄ βm Ο)
β π:ΟβΆπ« π΄) |
2 | | compss.a |
. . . . . 6
β’ πΉ = (π₯ β π« π΄ β¦ (π΄ β π₯)) |
3 | 2 | isf34lem7 10371 |
. . . . 5
β’ ((π΄ β FinIII β§
π:ΟβΆπ«
π΄ β§ βπ¦ β Ο (πβπ¦) β (πβsuc π¦)) β βͺ ran
π β ran π) |
4 | 3 | 3expia 1122 |
. . . 4
β’ ((π΄ β FinIII β§
π:ΟβΆπ«
π΄) β (βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π)) |
5 | 1, 4 | sylan2 594 |
. . 3
β’ ((π΄ β FinIII β§
π β (π« π΄ βm Ο))
β (βπ¦ β
Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π)) |
6 | 5 | ralrimiva 3147 |
. 2
β’ (π΄ β FinIII β
βπ β (π«
π΄ βm
Ο)(βπ¦ β
Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π)) |
7 | | elmapex 8839 |
. . . . . . . . . . 11
β’ (π β (π« π΄ βm Ο)
β (π« π΄ β
V β§ Ο β V)) |
8 | 7 | simpld 496 |
. . . . . . . . . 10
β’ (π β (π« π΄ βm Ο)
β π« π΄ β
V) |
9 | | pwexb 7750 |
. . . . . . . . . 10
β’ (π΄ β V β π« π΄ β V) |
10 | 8, 9 | sylibr 233 |
. . . . . . . . 9
β’ (π β (π« π΄ βm Ο)
β π΄ β
V) |
11 | 2 | isf34lem2 10365 |
. . . . . . . . 9
β’ (π΄ β V β πΉ:π« π΄βΆπ« π΄) |
12 | 10, 11 | syl 17 |
. . . . . . . 8
β’ (π β (π« π΄ βm Ο)
β πΉ:π« π΄βΆπ« π΄) |
13 | | elmapi 8840 |
. . . . . . . 8
β’ (π β (π« π΄ βm Ο)
β π:ΟβΆπ« π΄) |
14 | | fco 6739 |
. . . . . . . 8
β’ ((πΉ:π« π΄βΆπ« π΄ β§ π:ΟβΆπ« π΄) β (πΉ β π):ΟβΆπ« π΄) |
15 | 12, 13, 14 | syl2anc 585 |
. . . . . . 7
β’ (π β (π« π΄ βm Ο)
β (πΉ β π):ΟβΆπ« π΄) |
16 | | elmapg 8830 |
. . . . . . . 8
β’
((π« π΄ β
V β§ Ο β V) β ((πΉ β π) β (π« π΄ βm Ο) β (πΉ β π):ΟβΆπ« π΄)) |
17 | 7, 16 | syl 17 |
. . . . . . 7
β’ (π β (π« π΄ βm Ο)
β ((πΉ β π) β (π« π΄ βm Ο)
β (πΉ β π):ΟβΆπ« π΄)) |
18 | 15, 17 | mpbird 257 |
. . . . . 6
β’ (π β (π« π΄ βm Ο)
β (πΉ β π) β (π« π΄ βm
Ο)) |
19 | | fveq1 6888 |
. . . . . . . . . 10
β’ (π = (πΉ β π) β (πβπ¦) = ((πΉ β π)βπ¦)) |
20 | | fveq1 6888 |
. . . . . . . . . 10
β’ (π = (πΉ β π) β (πβsuc π¦) = ((πΉ β π)βsuc π¦)) |
21 | 19, 20 | sseq12d 4015 |
. . . . . . . . 9
β’ (π = (πΉ β π) β ((πβπ¦) β (πβsuc π¦) β ((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦))) |
22 | 21 | ralbidv 3178 |
. . . . . . . 8
β’ (π = (πΉ β π) β (βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βπ¦ β Ο ((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦))) |
23 | | rneq 5934 |
. . . . . . . . . . 11
β’ (π = (πΉ β π) β ran π = ran (πΉ β π)) |
24 | | rnco2 6250 |
. . . . . . . . . . 11
β’ ran
(πΉ β π) = (πΉ β ran π) |
25 | 23, 24 | eqtrdi 2789 |
. . . . . . . . . 10
β’ (π = (πΉ β π) β ran π = (πΉ β ran π)) |
26 | 25 | unieqd 4922 |
. . . . . . . . 9
β’ (π = (πΉ β π) β βͺ ran
π = βͺ (πΉ
β ran π)) |
27 | 26, 25 | eleq12d 2828 |
. . . . . . . 8
β’ (π = (πΉ β π) β (βͺ ran
π β ran π β βͺ (πΉ
β ran π) β
(πΉ β ran π))) |
28 | 22, 27 | imbi12d 345 |
. . . . . . 7
β’ (π = (πΉ β π) β ((βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π) β (βπ¦ β Ο ((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦) β βͺ (πΉ β ran π) β (πΉ β ran π)))) |
29 | 28 | rspccv 3610 |
. . . . . 6
β’
(βπ β
(π« π΄
βm Ο)(βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π) β ((πΉ β π) β (π« π΄ βm Ο) β
(βπ¦ β Ο
((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦) β βͺ (πΉ β ran π) β (πΉ β ran π)))) |
30 | 18, 29 | syl5 34 |
. . . . 5
β’
(βπ β
(π« π΄
βm Ο)(βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π) β (π β (π« π΄ βm Ο) β
(βπ¦ β Ο
((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦) β βͺ (πΉ β ran π) β (πΉ β ran π)))) |
31 | | sscon 4138 |
. . . . . . . . 9
β’ ((πβsuc π¦) β (πβπ¦) β (π΄ β (πβπ¦)) β (π΄ β (πβsuc π¦))) |
32 | 13 | ffvelcdmda 7084 |
. . . . . . . . . . . 12
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β (πβπ¦) β π« π΄) |
33 | 32 | elpwid 4611 |
. . . . . . . . . . 11
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β (πβπ¦) β π΄) |
34 | 2 | isf34lem1 10364 |
. . . . . . . . . . 11
β’ ((π΄ β V β§ (πβπ¦) β π΄) β (πΉβ(πβπ¦)) = (π΄ β (πβπ¦))) |
35 | 10, 33, 34 | syl2an2r 684 |
. . . . . . . . . 10
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β (πΉβ(πβπ¦)) = (π΄ β (πβπ¦))) |
36 | | peano2 7878 |
. . . . . . . . . . . . 13
β’ (π¦ β Ο β suc π¦ β
Ο) |
37 | | ffvelcdm 7081 |
. . . . . . . . . . . . 13
β’ ((π:ΟβΆπ« π΄ β§ suc π¦ β Ο) β (πβsuc π¦) β π« π΄) |
38 | 13, 36, 37 | syl2an 597 |
. . . . . . . . . . . 12
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β (πβsuc π¦) β π« π΄) |
39 | 38 | elpwid 4611 |
. . . . . . . . . . 11
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β (πβsuc π¦) β π΄) |
40 | 2 | isf34lem1 10364 |
. . . . . . . . . . 11
β’ ((π΄ β V β§ (πβsuc π¦) β π΄) β (πΉβ(πβsuc π¦)) = (π΄ β (πβsuc π¦))) |
41 | 10, 39, 40 | syl2an2r 684 |
. . . . . . . . . 10
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β (πΉβ(πβsuc π¦)) = (π΄ β (πβsuc π¦))) |
42 | 35, 41 | sseq12d 4015 |
. . . . . . . . 9
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β ((πΉβ(πβπ¦)) β (πΉβ(πβsuc π¦)) β (π΄ β (πβπ¦)) β (π΄ β (πβsuc π¦)))) |
43 | 31, 42 | imbitrrid 245 |
. . . . . . . 8
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β ((πβsuc π¦) β (πβπ¦) β (πΉβ(πβπ¦)) β (πΉβ(πβsuc π¦)))) |
44 | | fvco3 6988 |
. . . . . . . . . 10
β’ ((π:ΟβΆπ« π΄ β§ π¦ β Ο) β ((πΉ β π)βπ¦) = (πΉβ(πβπ¦))) |
45 | 13, 44 | sylan 581 |
. . . . . . . . 9
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β ((πΉ β π)βπ¦) = (πΉβ(πβπ¦))) |
46 | | fvco3 6988 |
. . . . . . . . . 10
β’ ((π:ΟβΆπ« π΄ β§ suc π¦ β Ο) β ((πΉ β π)βsuc π¦) = (πΉβ(πβsuc π¦))) |
47 | 13, 36, 46 | syl2an 597 |
. . . . . . . . 9
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β ((πΉ β π)βsuc π¦) = (πΉβ(πβsuc π¦))) |
48 | 45, 47 | sseq12d 4015 |
. . . . . . . 8
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β (((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦) β (πΉβ(πβπ¦)) β (πΉβ(πβsuc π¦)))) |
49 | 43, 48 | sylibrd 259 |
. . . . . . 7
β’ ((π β (π« π΄ βm Ο)
β§ π¦ β Ο)
β ((πβsuc π¦) β (πβπ¦) β ((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦))) |
50 | 49 | ralimdva 3168 |
. . . . . 6
β’ (π β (π« π΄ βm Ο)
β (βπ¦ β
Ο (πβsuc π¦) β (πβπ¦) β βπ¦ β Ο ((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦))) |
51 | 12 | ffnd 6716 |
. . . . . . . 8
β’ (π β (π« π΄ βm Ο)
β πΉ Fn π« π΄) |
52 | | imassrn 6069 |
. . . . . . . . 9
β’ (πΉ β ran π) β ran πΉ |
53 | 12 | frnd 6723 |
. . . . . . . . 9
β’ (π β (π« π΄ βm Ο)
β ran πΉ β
π« π΄) |
54 | 52, 53 | sstrid 3993 |
. . . . . . . 8
β’ (π β (π« π΄ βm Ο)
β (πΉ β ran π) β π« π΄) |
55 | | fnfvima 7232 |
. . . . . . . . 9
β’ ((πΉ Fn π« π΄ β§ (πΉ β ran π) β π« π΄ β§ βͺ (πΉ β ran π) β (πΉ β ran π)) β (πΉββͺ (πΉ β ran π)) β (πΉ β (πΉ β ran π))) |
56 | 55 | 3expia 1122 |
. . . . . . . 8
β’ ((πΉ Fn π« π΄ β§ (πΉ β ran π) β π« π΄) β (βͺ
(πΉ β ran π) β (πΉ β ran π) β (πΉββͺ (πΉ β ran π)) β (πΉ β (πΉ β ran π)))) |
57 | 51, 54, 56 | syl2anc 585 |
. . . . . . 7
β’ (π β (π« π΄ βm Ο)
β (βͺ (πΉ β ran π) β (πΉ β ran π) β (πΉββͺ (πΉ β ran π)) β (πΉ β (πΉ β ran π)))) |
58 | | incom 4201 |
. . . . . . . . . . . . 13
β’ (dom
πΉ β© ran π) = (ran π β© dom πΉ) |
59 | 13 | frnd 6723 |
. . . . . . . . . . . . . . 15
β’ (π β (π« π΄ βm Ο)
β ran π β
π« π΄) |
60 | 12 | fdmd 6726 |
. . . . . . . . . . . . . . 15
β’ (π β (π« π΄ βm Ο)
β dom πΉ = π«
π΄) |
61 | 59, 60 | sseqtrrd 4023 |
. . . . . . . . . . . . . 14
β’ (π β (π« π΄ βm Ο)
β ran π β dom
πΉ) |
62 | | df-ss 3965 |
. . . . . . . . . . . . . 14
β’ (ran
π β dom πΉ β (ran π β© dom πΉ) = ran π) |
63 | 61, 62 | sylib 217 |
. . . . . . . . . . . . 13
β’ (π β (π« π΄ βm Ο)
β (ran π β© dom
πΉ) = ran π) |
64 | 58, 63 | eqtrid 2785 |
. . . . . . . . . . . 12
β’ (π β (π« π΄ βm Ο)
β (dom πΉ β© ran
π) = ran π) |
65 | 13 | fdmd 6726 |
. . . . . . . . . . . . . 14
β’ (π β (π« π΄ βm Ο)
β dom π =
Ο) |
66 | | peano1 7876 |
. . . . . . . . . . . . . . 15
β’ β
β Ο |
67 | | ne0i 4334 |
. . . . . . . . . . . . . . 15
β’ (β
β Ο β Ο β β
) |
68 | 66, 67 | mp1i 13 |
. . . . . . . . . . . . . 14
β’ (π β (π« π΄ βm Ο)
β Ο β β
) |
69 | 65, 68 | eqnetrd 3009 |
. . . . . . . . . . . . 13
β’ (π β (π« π΄ βm Ο)
β dom π β
β
) |
70 | | dm0rn0 5923 |
. . . . . . . . . . . . . 14
β’ (dom
π = β
β ran
π =
β
) |
71 | 70 | necon3bii 2994 |
. . . . . . . . . . . . 13
β’ (dom
π β β
β ran
π β
β
) |
72 | 69, 71 | sylib 217 |
. . . . . . . . . . . 12
β’ (π β (π« π΄ βm Ο)
β ran π β
β
) |
73 | 64, 72 | eqnetrd 3009 |
. . . . . . . . . . 11
β’ (π β (π« π΄ βm Ο)
β (dom πΉ β© ran
π) β
β
) |
74 | | imadisj 6077 |
. . . . . . . . . . . 12
β’ ((πΉ β ran π) = β
β (dom πΉ β© ran π) = β
) |
75 | 74 | necon3bii 2994 |
. . . . . . . . . . 11
β’ ((πΉ β ran π) β β
β (dom πΉ β© ran π) β β
) |
76 | 73, 75 | sylibr 233 |
. . . . . . . . . 10
β’ (π β (π« π΄ βm Ο)
β (πΉ β ran π) β β
) |
77 | 2 | isf34lem4 10369 |
. . . . . . . . . 10
β’ ((π΄ β V β§ ((πΉ β ran π) β π« π΄ β§ (πΉ β ran π) β β
)) β (πΉββͺ (πΉ β ran π)) = β© (πΉ β (πΉ β ran π))) |
78 | 10, 54, 76, 77 | syl12anc 836 |
. . . . . . . . 9
β’ (π β (π« π΄ βm Ο)
β (πΉββͺ (πΉ
β ran π)) = β© (πΉ
β (πΉ β ran
π))) |
79 | 2 | isf34lem3 10367 |
. . . . . . . . . . 11
β’ ((π΄ β V β§ ran π β π« π΄) β (πΉ β (πΉ β ran π)) = ran π) |
80 | 10, 59, 79 | syl2anc 585 |
. . . . . . . . . 10
β’ (π β (π« π΄ βm Ο)
β (πΉ β (πΉ β ran π)) = ran π) |
81 | 80 | inteqd 4955 |
. . . . . . . . 9
β’ (π β (π« π΄ βm Ο)
β β© (πΉ β (πΉ β ran π)) = β© ran π) |
82 | 78, 81 | eqtrd 2773 |
. . . . . . . 8
β’ (π β (π« π΄ βm Ο)
β (πΉββͺ (πΉ
β ran π)) = β© ran π) |
83 | 82, 80 | eleq12d 2828 |
. . . . . . 7
β’ (π β (π« π΄ βm Ο)
β ((πΉββͺ (πΉ
β ran π)) β
(πΉ β (πΉ β ran π)) β β© ran
π β ran π)) |
84 | 57, 83 | sylibd 238 |
. . . . . 6
β’ (π β (π« π΄ βm Ο)
β (βͺ (πΉ β ran π) β (πΉ β ran π) β β© ran
π β ran π)) |
85 | 50, 84 | imim12d 81 |
. . . . 5
β’ (π β (π« π΄ βm Ο)
β ((βπ¦ β
Ο ((πΉ β π)βπ¦) β ((πΉ β π)βsuc π¦) β βͺ (πΉ β ran π) β (πΉ β ran π)) β (βπ¦ β Ο (πβsuc π¦) β (πβπ¦) β β© ran
π β ran π))) |
86 | 30, 85 | sylcom 30 |
. . . 4
β’
(βπ β
(π« π΄
βm Ο)(βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π) β (π β (π« π΄ βm Ο) β
(βπ¦ β Ο
(πβsuc π¦) β (πβπ¦) β β© ran
π β ran π))) |
87 | 86 | ralrimiv 3146 |
. . 3
β’
(βπ β
(π« π΄
βm Ο)(βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π) β βπ β (π« π΄ βm
Ο)(βπ¦ β
Ο (πβsuc π¦) β (πβπ¦) β β© ran
π β ran π)) |
88 | | isfin3-3 10360 |
. . 3
β’ (π΄ β π β (π΄ β FinIII β
βπ β (π«
π΄ βm
Ο)(βπ¦ β
Ο (πβsuc π¦) β (πβπ¦) β β© ran
π β ran π))) |
89 | 87, 88 | imbitrrid 245 |
. 2
β’ (π΄ β π β (βπ β (π« π΄ βm Ο)(βπ¦ β Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π) β π΄ β FinIII)) |
90 | 6, 89 | impbid2 225 |
1
β’ (π΄ β π β (π΄ β FinIII β
βπ β (π«
π΄ βm
Ο)(βπ¦ β
Ο (πβπ¦) β (πβsuc π¦) β βͺ ran
π β ran π))) |