Step | Hyp | Ref
| Expression |
1 | | evlselvlem.h |
. 2
β’ π» = (π β πΆ, π β πΈ β¦ (π βͺ π)) |
2 | | evlselvlem.c |
. . . . . . 7
β’ πΆ = {π β (β0
βm (πΌ
β π½)) β£ (β‘π β β) β
Fin} |
3 | 2 | psrbagf 21462 |
. . . . . 6
β’ (π β πΆ β π:(πΌ β π½)βΆβ0) |
4 | 3 | ad2antrl 726 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π:(πΌ β π½)βΆβ0) |
5 | | evlselvlem.e |
. . . . . . 7
β’ πΈ = {π β (β0
βm π½)
β£ (β‘π β β) β
Fin} |
6 | 5 | psrbagf 21462 |
. . . . . 6
β’ (π β πΈ β π:π½βΆβ0) |
7 | 6 | ad2antll 727 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π:π½βΆβ0) |
8 | | disjdifr 4471 |
. . . . . 6
β’ ((πΌ β π½) β© π½) = β
|
9 | 8 | a1i 11 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((πΌ β π½) β© π½) = β
) |
10 | 4, 7, 9 | fun2d 6752 |
. . . 4
β’ ((π β§ (π β πΆ β§ π β πΈ)) β (π βͺ π):((πΌ β π½) βͺ π½)βΆβ0) |
11 | | evlselvlem.j |
. . . . . . 7
β’ (π β π½ β πΌ) |
12 | | undifr 4481 |
. . . . . . 7
β’ (π½ β πΌ β ((πΌ β π½) βͺ π½) = πΌ) |
13 | 11, 12 | sylib 217 |
. . . . . 6
β’ (π β ((πΌ β π½) βͺ π½) = πΌ) |
14 | 13 | adantr 481 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((πΌ β π½) βͺ π½) = πΌ) |
15 | 14 | feq2d 6700 |
. . . 4
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((π βͺ π):((πΌ β π½) βͺ π½)βΆβ0 β (π βͺ π):πΌβΆβ0)) |
16 | 10, 15 | mpbid 231 |
. . 3
β’ ((π β§ (π β πΆ β§ π β πΈ)) β (π βͺ π):πΌβΆβ0) |
17 | | unexg 7732 |
. . . . . 6
β’ ((π β πΆ β§ π β πΈ) β (π βͺ π) β V) |
18 | 17 | adantl 482 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β (π βͺ π) β V) |
19 | | 0zd 12566 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β 0 β β€) |
20 | 10 | ffund 6718 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β Fun (π βͺ π)) |
21 | 2 | psrbagfsupp 21464 |
. . . . . . 7
β’ (π β πΆ β π finSupp 0) |
22 | 21 | ad2antrl 726 |
. . . . . 6
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π finSupp 0) |
23 | 5 | psrbagfsupp 21464 |
. . . . . . 7
β’ (π β πΈ β π finSupp 0) |
24 | 23 | ad2antll 727 |
. . . . . 6
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π finSupp 0) |
25 | 22, 24 | fsuppun 9378 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((π βͺ π) supp 0) β Fin) |
26 | 18, 19, 20, 25 | isfsuppd 9362 |
. . . 4
β’ ((π β§ (π β πΆ β§ π β πΈ)) β (π βͺ π) finSupp 0) |
27 | | fcdmnn0fsuppg 12527 |
. . . . 5
β’ (((π βͺ π) β V β§ (π βͺ π):((πΌ β π½) βͺ π½)βΆβ0) β ((π βͺ π) finSupp 0 β (β‘(π βͺ π) β β) β
Fin)) |
28 | 18, 10, 27 | syl2anc 584 |
. . . 4
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((π βͺ π) finSupp 0 β (β‘(π βͺ π) β β) β
Fin)) |
29 | 26, 28 | mpbid 231 |
. . 3
β’ ((π β§ (π β πΆ β§ π β πΈ)) β (β‘(π βͺ π) β β) β
Fin) |
30 | | evlselvlem.i |
. . . . 5
β’ (π β πΌ β π) |
31 | 30 | adantr 481 |
. . . 4
β’ ((π β§ (π β πΆ β§ π β πΈ)) β πΌ β π) |
32 | | evlselvlem.d |
. . . . 5
β’ π· = {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} |
33 | 32 | psrbag 21461 |
. . . 4
β’ (πΌ β π β ((π βͺ π) β π· β ((π βͺ π):πΌβΆβ0 β§ (β‘(π βͺ π) β β) β
Fin))) |
34 | 31, 33 | syl 17 |
. . 3
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((π βͺ π) β π· β ((π βͺ π):πΌβΆβ0 β§ (β‘(π βͺ π) β β) β
Fin))) |
35 | 16, 29, 34 | mpbir2and 711 |
. 2
β’ ((π β§ (π β πΆ β§ π β πΈ)) β (π βͺ π) β π·) |
36 | 30 | adantr 481 |
. . 3
β’ ((π β§ π β π·) β πΌ β π) |
37 | | difssd 4131 |
. . 3
β’ ((π β§ π β π·) β (πΌ β π½) β πΌ) |
38 | | simpr 485 |
. . 3
β’ ((π β§ π β π·) β π β π·) |
39 | 32, 2, 36, 37, 38 | psrbagres 41112 |
. 2
β’ ((π β§ π β π·) β (π βΎ (πΌ β π½)) β πΆ) |
40 | 11 | adantr 481 |
. . 3
β’ ((π β§ π β π·) β π½ β πΌ) |
41 | 32, 5, 36, 40, 38 | psrbagres 41112 |
. 2
β’ ((π β§ π β π·) β (π βΎ π½) β πΈ) |
42 | 32 | psrbagf 21462 |
. . . . . . . 8
β’ (π β π· β π:πΌβΆβ0) |
43 | 42 | adantl 482 |
. . . . . . 7
β’ ((π β§ π β π·) β π:πΌβΆβ0) |
44 | 43 | freld 6720 |
. . . . . 6
β’ ((π β§ π β π·) β Rel π) |
45 | 43 | fdmd 6725 |
. . . . . . 7
β’ ((π β§ π β π·) β dom π = πΌ) |
46 | 40, 12 | sylib 217 |
. . . . . . 7
β’ ((π β§ π β π·) β ((πΌ β π½) βͺ π½) = πΌ) |
47 | 45, 46 | eqtr4d 2775 |
. . . . . 6
β’ ((π β§ π β π·) β dom π = ((πΌ β π½) βͺ π½)) |
48 | 8 | a1i 11 |
. . . . . 6
β’ ((π β§ π β π·) β ((πΌ β π½) β© π½) = β
) |
49 | | reldisjun 6030 |
. . . . . 6
β’ ((Rel
π β§ dom π = ((πΌ β π½) βͺ π½) β§ ((πΌ β π½) β© π½) = β
) β π = ((π βΎ (πΌ β π½)) βͺ (π βΎ π½))) |
50 | 44, 47, 48, 49 | syl3anc 1371 |
. . . . 5
β’ ((π β§ π β π·) β π = ((π βΎ (πΌ β π½)) βͺ (π βΎ π½))) |
51 | 50 | adantrl 714 |
. . . 4
β’ ((π β§ ((π β πΆ β§ π β πΈ) β§ π β π·)) β π = ((π βΎ (πΌ β π½)) βͺ (π βΎ π½))) |
52 | | uneq12 4157 |
. . . . 5
β’ ((π = (π βΎ (πΌ β π½)) β§ π = (π βΎ π½)) β (π βͺ π) = ((π βΎ (πΌ β π½)) βͺ (π βΎ π½))) |
53 | 52 | eqeq2d 2743 |
. . . 4
β’ ((π = (π βΎ (πΌ β π½)) β§ π = (π βΎ π½)) β (π = (π βͺ π) β π = ((π βΎ (πΌ β π½)) βͺ (π βΎ π½)))) |
54 | 51, 53 | syl5ibrcom 246 |
. . 3
β’ ((π β§ ((π β πΆ β§ π β πΈ) β§ π β π·)) β ((π = (π βΎ (πΌ β π½)) β§ π = (π βΎ π½)) β π = (π βͺ π))) |
55 | 4 | ffnd 6715 |
. . . . . . . 8
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π Fn (πΌ β π½)) |
56 | 7 | ffnd 6715 |
. . . . . . . 8
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π Fn π½) |
57 | | fnunres1 6658 |
. . . . . . . 8
β’ ((π Fn (πΌ β π½) β§ π Fn π½ β§ ((πΌ β π½) β© π½) = β
) β ((π βͺ π) βΎ (πΌ β π½)) = π) |
58 | 55, 56, 9, 57 | syl3anc 1371 |
. . . . . . 7
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((π βͺ π) βΎ (πΌ β π½)) = π) |
59 | 58 | eqcomd 2738 |
. . . . . 6
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π = ((π βͺ π) βΎ (πΌ β π½))) |
60 | | fnunres2 6659 |
. . . . . . . 8
β’ ((π Fn (πΌ β π½) β§ π Fn π½ β§ ((πΌ β π½) β© π½) = β
) β ((π βͺ π) βΎ π½) = π) |
61 | 55, 56, 9, 60 | syl3anc 1371 |
. . . . . . 7
β’ ((π β§ (π β πΆ β§ π β πΈ)) β ((π βͺ π) βΎ π½) = π) |
62 | 61 | eqcomd 2738 |
. . . . . 6
β’ ((π β§ (π β πΆ β§ π β πΈ)) β π = ((π βͺ π) βΎ π½)) |
63 | 59, 62 | jca 512 |
. . . . 5
β’ ((π β§ (π β πΆ β§ π β πΈ)) β (π = ((π βͺ π) βΎ (πΌ β π½)) β§ π = ((π βͺ π) βΎ π½))) |
64 | 63 | adantrr 715 |
. . . 4
β’ ((π β§ ((π β πΆ β§ π β πΈ) β§ π β π·)) β (π = ((π βͺ π) βΎ (πΌ β π½)) β§ π = ((π βͺ π) βΎ π½))) |
65 | | reseq1 5973 |
. . . . . 6
β’ (π = (π βͺ π) β (π βΎ (πΌ β π½)) = ((π βͺ π) βΎ (πΌ β π½))) |
66 | 65 | eqeq2d 2743 |
. . . . 5
β’ (π = (π βͺ π) β (π = (π βΎ (πΌ β π½)) β π = ((π βͺ π) βΎ (πΌ β π½)))) |
67 | | reseq1 5973 |
. . . . . 6
β’ (π = (π βͺ π) β (π βΎ π½) = ((π βͺ π) βΎ π½)) |
68 | 67 | eqeq2d 2743 |
. . . . 5
β’ (π = (π βͺ π) β (π = (π βΎ π½) β π = ((π βͺ π) βΎ π½))) |
69 | 66, 68 | anbi12d 631 |
. . . 4
β’ (π = (π βͺ π) β ((π = (π βΎ (πΌ β π½)) β§ π = (π βΎ π½)) β (π = ((π βͺ π) βΎ (πΌ β π½)) β§ π = ((π βͺ π) βΎ π½)))) |
70 | 64, 69 | syl5ibrcom 246 |
. . 3
β’ ((π β§ ((π β πΆ β§ π β πΈ) β§ π β π·)) β (π = (π βͺ π) β (π = (π βΎ (πΌ β π½)) β§ π = (π βΎ π½)))) |
71 | 54, 70 | impbid 211 |
. 2
β’ ((π β§ ((π β πΆ β§ π β πΈ) β§ π β π·)) β ((π = (π βΎ (πΌ β π½)) β§ π = (π βΎ π½)) β π = (π βͺ π))) |
72 | 1, 35, 39, 41, 71 | f1o2d2 41052 |
1
β’ (π β π»:(πΆ Γ πΈ)β1-1-ontoβπ·) |