Step | Hyp | Ref
| Expression |
1 | | fullthinc.d |
. 2
β’ (π β π· β ThinCat) |
2 | | fullthinc.f |
. 2
β’ (π β πΉ(πΆ Func π·)πΊ) |
3 | | fullthinc.b |
. . . . . 6
β’ π΅ = (BaseβπΆ) |
4 | | fullthinc.j |
. . . . . 6
β’ π½ = (Hom βπ·) |
5 | | fullthinc.h |
. . . . . 6
β’ π» = (Hom βπΆ) |
6 | 3, 4, 5 | isfull2 17827 |
. . . . 5
β’ (πΉ(πΆ Full π·)πΊ β (πΉ(πΆ Func π·)πΊ β§ βπ₯ β π΅ βπ¦ β π΅ (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)))) |
7 | | foeq2 6773 |
. . . . . . . 8
β’ ((π₯π»π¦) = β
β ((π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)) β (π₯πΊπ¦):β
βontoβ((πΉβπ₯)π½(πΉβπ¦)))) |
8 | | fo00 6840 |
. . . . . . . . 9
β’ ((π₯πΊπ¦):β
βontoβ((πΉβπ₯)π½(πΉβπ¦)) β ((π₯πΊπ¦) = β
β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
)) |
9 | 8 | simprbi 497 |
. . . . . . . 8
β’ ((π₯πΊπ¦):β
βontoβ((πΉβπ₯)π½(πΉβπ¦)) β ((πΉβπ₯)π½(πΉβπ¦)) = β
) |
10 | 7, 9 | syl6bi 252 |
. . . . . . 7
β’ ((π₯π»π¦) = β
β ((π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)) β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) |
11 | 10 | com12 32 |
. . . . . 6
β’ ((π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)) β ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) |
12 | 11 | 2ralimi 3122 |
. . . . 5
β’
(βπ₯ β
π΅ βπ¦ β π΅ (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)) β βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) |
13 | 6, 12 | simplbiim 505 |
. . . 4
β’ (πΉ(πΆ Full π·)πΊ β βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) |
14 | 13 | adantl 482 |
. . 3
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ πΉ(πΆ Full π·)πΊ) β βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) |
15 | | simplr 767 |
. . . 4
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) β πΉ(πΆ Func π·)πΊ) |
16 | | imor 851 |
. . . . . . . 8
β’ (((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (Β¬ (π₯π»π¦) = β
β¨ ((πΉβπ₯)π½(πΉβπ¦)) = β
)) |
17 | | simplr 767 |
. . . . . . . . . . . . . . . 16
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β πΉ(πΆ Func π·)πΊ) |
18 | | simprl 769 |
. . . . . . . . . . . . . . . 16
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β π₯ β π΅) |
19 | | simprr 771 |
. . . . . . . . . . . . . . . 16
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β π¦ β π΅) |
20 | 3, 5, 4, 17, 18, 19 | funcf2 17783 |
. . . . . . . . . . . . . . 15
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β (π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦))) |
21 | 20 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦))) |
22 | | simpr 485 |
. . . . . . . . . . . . . . 15
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β Β¬ (π₯π»π¦) = β
) |
23 | 22 | neqned 2946 |
. . . . . . . . . . . . . 14
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (π₯π»π¦) β β
) |
24 | | fdomne0 47069 |
. . . . . . . . . . . . . 14
β’ (((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β§ (π₯π»π¦) β β
) β ((π₯πΊπ¦) β β
β§ ((πΉβπ₯)π½(πΉβπ¦)) β β
)) |
25 | 21, 23, 24 | syl2anc 584 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β ((π₯πΊπ¦) β β
β§ ((πΉβπ₯)π½(πΉβπ¦)) β β
)) |
26 | 25 | simprd 496 |
. . . . . . . . . . . 12
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β ((πΉβπ₯)π½(πΉβπ¦)) β β
) |
27 | | simplll 773 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β π· β ThinCat) |
28 | | eqid 2731 |
. . . . . . . . . . . . . . 15
β’
(Baseβπ·) =
(Baseβπ·) |
29 | 17 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β πΉ(πΆ Func π·)πΊ) |
30 | 3, 28, 29 | funcf1 17781 |
. . . . . . . . . . . . . 14
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β πΉ:π΅βΆ(Baseβπ·)) |
31 | 18 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β π₯ β π΅) |
32 | 30, 31 | ffvelcdmd 7056 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (πΉβπ₯) β (Baseβπ·)) |
33 | 19 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β π¦ β π΅) |
34 | 30, 33 | ffvelcdmd 7056 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (πΉβπ¦) β (Baseβπ·)) |
35 | | eqidd 2732 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (Baseβπ·) = (Baseβπ·)) |
36 | 4 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β π½ = (Hom βπ·)) |
37 | 27, 32, 34, 35, 36 | thincn0eu 47205 |
. . . . . . . . . . . 12
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (((πΉβπ₯)π½(πΉβπ¦)) β β
β β!π π β ((πΉβπ₯)π½(πΉβπ¦)))) |
38 | 26, 37 | mpbid 231 |
. . . . . . . . . . 11
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β β!π π β ((πΉβπ₯)π½(πΉβπ¦))) |
39 | | eusn 4711 |
. . . . . . . . . . 11
β’
(β!π π β ((πΉβπ₯)π½(πΉβπ¦)) β βπ((πΉβπ₯)π½(πΉβπ¦)) = {π}) |
40 | 38, 39 | sylib 217 |
. . . . . . . . . 10
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β βπ((πΉβπ₯)π½(πΉβπ¦)) = {π}) |
41 | 25 | simpld 495 |
. . . . . . . . . 10
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (π₯πΊπ¦) β β
) |
42 | | foconst 6791 |
. . . . . . . . . . . . 13
β’ (((π₯πΊπ¦):(π₯π»π¦)βΆ{π} β§ (π₯πΊπ¦) β β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ{π}) |
43 | | feq3 6671 |
. . . . . . . . . . . . . . 15
β’ (((πΉβπ₯)π½(πΉβπ¦)) = {π} β ((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β (π₯πΊπ¦):(π₯π»π¦)βΆ{π})) |
44 | 43 | anbi1d 630 |
. . . . . . . . . . . . . 14
β’ (((πΉβπ₯)π½(πΉβπ¦)) = {π} β (((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β§ (π₯πΊπ¦) β β
) β ((π₯πΊπ¦):(π₯π»π¦)βΆ{π} β§ (π₯πΊπ¦) β β
))) |
45 | | foeq3 6774 |
. . . . . . . . . . . . . 14
β’ (((πΉβπ₯)π½(πΉβπ¦)) = {π} β ((π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)) β (π₯πΊπ¦):(π₯π»π¦)βontoβ{π})) |
46 | 44, 45 | imbi12d 344 |
. . . . . . . . . . . . 13
β’ (((πΉβπ₯)π½(πΉβπ¦)) = {π} β ((((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β§ (π₯πΊπ¦) β β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) β (((π₯πΊπ¦):(π₯π»π¦)βΆ{π} β§ (π₯πΊπ¦) β β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ{π}))) |
47 | 42, 46 | mpbiri 257 |
. . . . . . . . . . . 12
β’ (((πΉβπ₯)π½(πΉβπ¦)) = {π} β (((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β§ (π₯πΊπ¦) β β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)))) |
48 | 47 | exlimiv 1933 |
. . . . . . . . . . 11
β’
(βπ((πΉβπ₯)π½(πΉβπ¦)) = {π} β (((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β§ (π₯πΊπ¦) β β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)))) |
49 | 48 | imp 407 |
. . . . . . . . . 10
β’
((βπ((πΉβπ₯)π½(πΉβπ¦)) = {π} β§ ((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β§ (π₯πΊπ¦) β β
)) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
50 | 40, 21, 41, 49 | syl12anc 835 |
. . . . . . . . 9
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ Β¬ (π₯π»π¦) = β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
51 | 20 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦))) |
52 | | feq3 6671 |
. . . . . . . . . . . . . 14
β’ (((πΉβπ₯)π½(πΉβπ¦)) = β
β ((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β (π₯πΊπ¦):(π₯π»π¦)βΆβ
)) |
53 | 52 | adantl 482 |
. . . . . . . . . . . . 13
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β ((π₯πΊπ¦):(π₯π»π¦)βΆ((πΉβπ₯)π½(πΉβπ¦)) β (π₯πΊπ¦):(π₯π»π¦)βΆβ
)) |
54 | 51, 53 | mpbid 231 |
. . . . . . . . . . . 12
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯πΊπ¦):(π₯π»π¦)βΆβ
) |
55 | | f00 6744 |
. . . . . . . . . . . 12
β’ ((π₯πΊπ¦):(π₯π»π¦)βΆβ
β ((π₯πΊπ¦) = β
β§ (π₯π»π¦) = β
)) |
56 | 54, 55 | sylib 217 |
. . . . . . . . . . 11
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β ((π₯πΊπ¦) = β
β§ (π₯π»π¦) = β
)) |
57 | 56 | simprd 496 |
. . . . . . . . . 10
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯π»π¦) = β
) |
58 | 56 | simpld 495 |
. . . . . . . . . 10
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯πΊπ¦) = β
) |
59 | | simpr 485 |
. . . . . . . . . 10
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β ((πΉβπ₯)π½(πΉβπ¦)) = β
) |
60 | 8 | biimpri 227 |
. . . . . . . . . . . 12
β’ (((π₯πΊπ¦) = β
β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯πΊπ¦):β
βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
61 | 60, 7 | imbitrrid 245 |
. . . . . . . . . . 11
β’ ((π₯π»π¦) = β
β (((π₯πΊπ¦) = β
β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)))) |
62 | 61 | imp 407 |
. . . . . . . . . 10
β’ (((π₯π»π¦) = β
β§ ((π₯πΊπ¦) = β
β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
)) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
63 | 57, 58, 59, 62 | syl12anc 835 |
. . . . . . . . 9
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
64 | 50, 63 | jaodan 956 |
. . . . . . . 8
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ (Β¬ (π₯π»π¦) = β
β¨ ((πΉβπ₯)π½(πΉβπ¦)) = β
)) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
65 | 16, 64 | sylan2b 594 |
. . . . . . 7
β’ ((((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β§ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
66 | 65 | ex 413 |
. . . . . 6
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ (π₯ β π΅ β§ π¦ β π΅)) β (((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
) β (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)))) |
67 | 66 | ralimdvva 3203 |
. . . . 5
β’ ((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β (βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
) β βπ₯ β π΅ βπ¦ β π΅ (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦)))) |
68 | 67 | imp 407 |
. . . 4
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) β βπ₯ β π΅ βπ¦ β π΅ (π₯πΊπ¦):(π₯π»π¦)βontoβ((πΉβπ₯)π½(πΉβπ¦))) |
69 | 15, 68, 6 | sylanbrc 583 |
. . 3
β’ (((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β§ βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
)) β πΉ(πΆ Full π·)πΊ) |
70 | 14, 69 | impbida 799 |
. 2
β’ ((π· β ThinCat β§ πΉ(πΆ Func π·)πΊ) β (πΉ(πΆ Full π·)πΊ β βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
))) |
71 | 1, 2, 70 | syl2anc 584 |
1
β’ (π β (πΉ(πΆ Full π·)πΊ β βπ₯ β π΅ βπ¦ β π΅ ((π₯π»π¦) = β
β ((πΉβπ₯)π½(πΉβπ¦)) = β
))) |