Step | Hyp | Ref
| Expression |
1 | | drsprs 18253 |
. . 3
β’ (πΎ β Dirset β πΎ β Proset
) |
2 | | simpl 484 |
. . . . 5
β’ ((πΎ β Dirset β§ π₯ β (π« π΅ β© Fin)) β πΎ β Dirset) |
3 | | elinel1 4195 |
. . . . . . 7
β’ (π₯ β (π« π΅ β© Fin) β π₯ β π« π΅) |
4 | 3 | elpwid 4611 |
. . . . . 6
β’ (π₯ β (π« π΅ β© Fin) β π₯ β π΅) |
5 | 4 | adantl 483 |
. . . . 5
β’ ((πΎ β Dirset β§ π₯ β (π« π΅ β© Fin)) β π₯ β π΅) |
6 | | elinel2 4196 |
. . . . . 6
β’ (π₯ β (π« π΅ β© Fin) β π₯ β Fin) |
7 | 6 | adantl 483 |
. . . . 5
β’ ((πΎ β Dirset β§ π₯ β (π« π΅ β© Fin)) β π₯ β Fin) |
8 | | drsbn0.b |
. . . . . 6
β’ π΅ = (BaseβπΎ) |
9 | | drsdirfi.l |
. . . . . 6
β’ β€ =
(leβπΎ) |
10 | 8, 9 | drsdirfi 18255 |
. . . . 5
β’ ((πΎ β Dirset β§ π₯ β π΅ β§ π₯ β Fin) β βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) |
11 | 2, 5, 7, 10 | syl3anc 1372 |
. . . 4
β’ ((πΎ β Dirset β§ π₯ β (π« π΅ β© Fin)) β βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) |
12 | 11 | ralrimiva 3147 |
. . 3
β’ (πΎ β Dirset β
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) |
13 | 1, 12 | jca 513 |
. 2
β’ (πΎ β Dirset β (πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦)) |
14 | | simpl 484 |
. . 3
β’ ((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β πΎ β Proset ) |
15 | | 0elpw 5354 |
. . . . . . 7
β’ β
β π« π΅ |
16 | | 0fin 9168 |
. . . . . . 7
β’ β
β Fin |
17 | 15, 16 | elini 4193 |
. . . . . 6
β’ β
β (π« π΅ β©
Fin) |
18 | | raleq 3323 |
. . . . . . . 8
β’ (π₯ = β
β (βπ§ β π₯ π§ β€ π¦ β βπ§ β β
π§ β€ π¦)) |
19 | 18 | rexbidv 3179 |
. . . . . . 7
β’ (π₯ = β
β (βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦ β βπ¦ β π΅ βπ§ β β
π§ β€ π¦)) |
20 | 19 | rspcv 3609 |
. . . . . 6
β’ (β
β (π« π΅ β©
Fin) β (βπ₯
β (π« π΅ β©
Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦ β βπ¦ β π΅ βπ§ β β
π§ β€ π¦)) |
21 | 17, 20 | ax-mp 5 |
. . . . 5
β’
(βπ₯ β
(π« π΅ β©
Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦ β βπ¦ β π΅ βπ§ β β
π§ β€ π¦) |
22 | | rexn0 4510 |
. . . . 5
β’
(βπ¦ β
π΅ βπ§ β β
π§ β€ π¦ β π΅ β β
) |
23 | 21, 22 | syl 17 |
. . . 4
β’
(βπ₯ β
(π« π΅ β©
Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦ β π΅ β β
) |
24 | 23 | adantl 483 |
. . 3
β’ ((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β π΅ β β
) |
25 | | raleq 3323 |
. . . . . . 7
β’ (π₯ = {π, π} β (βπ§ β π₯ π§ β€ π¦ β βπ§ β {π, π}π§ β€ π¦)) |
26 | 25 | rexbidv 3179 |
. . . . . 6
β’ (π₯ = {π, π} β (βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦ β βπ¦ β π΅ βπ§ β {π, π}π§ β€ π¦)) |
27 | | simplr 768 |
. . . . . 6
β’ (((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β§ (π β π΅ β§ π β π΅)) β βπ₯ β (π« π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) |
28 | | prelpwi 5447 |
. . . . . . . 8
β’ ((π β π΅ β§ π β π΅) β {π, π} β π« π΅) |
29 | | prfi 9319 |
. . . . . . . . 9
β’ {π, π} β Fin |
30 | 29 | a1i 11 |
. . . . . . . 8
β’ ((π β π΅ β§ π β π΅) β {π, π} β Fin) |
31 | 28, 30 | elind 4194 |
. . . . . . 7
β’ ((π β π΅ β§ π β π΅) β {π, π} β (π« π΅ β© Fin)) |
32 | 31 | adantl 483 |
. . . . . 6
β’ (((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β§ (π β π΅ β§ π β π΅)) β {π, π} β (π« π΅ β© Fin)) |
33 | 26, 27, 32 | rspcdva 3614 |
. . . . 5
β’ (((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β§ (π β π΅ β§ π β π΅)) β βπ¦ β π΅ βπ§ β {π, π}π§ β€ π¦) |
34 | | vex 3479 |
. . . . . . 7
β’ π β V |
35 | | vex 3479 |
. . . . . . 7
β’ π β V |
36 | | breq1 5151 |
. . . . . . 7
β’ (π§ = π β (π§ β€ π¦ β π β€ π¦)) |
37 | | breq1 5151 |
. . . . . . 7
β’ (π§ = π β (π§ β€ π¦ β π β€ π¦)) |
38 | 34, 35, 36, 37 | ralpr 4704 |
. . . . . 6
β’
(βπ§ β
{π, π}π§ β€ π¦ β (π β€ π¦ β§ π β€ π¦)) |
39 | 38 | rexbii 3095 |
. . . . 5
β’
(βπ¦ β
π΅ βπ§ β {π, π}π§ β€ π¦ β βπ¦ β π΅ (π β€ π¦ β§ π β€ π¦)) |
40 | 33, 39 | sylib 217 |
. . . 4
β’ (((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β§ (π β π΅ β§ π β π΅)) β βπ¦ β π΅ (π β€ π¦ β§ π β€ π¦)) |
41 | 40 | ralrimivva 3201 |
. . 3
β’ ((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β βπ β π΅ βπ β π΅ βπ¦ β π΅ (π β€ π¦ β§ π β€ π¦)) |
42 | 8, 9 | isdrs 18251 |
. . 3
β’ (πΎ β Dirset β (πΎ β Proset β§ π΅ β β
β§
βπ β π΅ βπ β π΅ βπ¦ β π΅ (π β€ π¦ β§ π β€ π¦))) |
43 | 14, 24, 41, 42 | syl3anbrc 1344 |
. 2
β’ ((πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦) β πΎ β Dirset) |
44 | 13, 43 | impbii 208 |
1
β’ (πΎ β Dirset β (πΎ β Proset β§
βπ₯ β (π«
π΅ β© Fin)βπ¦ β π΅ βπ§ β π₯ π§ β€ π¦)) |