Step | Hyp | Ref
| Expression |
1 | | df-ram 16934 |
. . 3
β’ Ramsey =
(π β
β0, π
β V β¦ inf({π
β β0 β£ βπ (π β€ (β―βπ ) β βπ β (dom π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)))}, β*, <
)) |
2 | 1 | a1i 11 |
. 2
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β Ramsey =
(π β
β0, π
β V β¦ inf({π
β β0 β£ βπ (π β€ (β―βπ ) β βπ β (dom π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)))}, β*, <
))) |
3 | | simplrr 777 |
. . . . . . . . . . . 12
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β π = πΉ) |
4 | 3 | dmeqd 5906 |
. . . . . . . . . . 11
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β dom π = dom πΉ) |
5 | | simpll3 1215 |
. . . . . . . . . . . 12
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β πΉ:π
βΆβ0) |
6 | 5 | fdmd 6729 |
. . . . . . . . . . 11
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β dom πΉ = π
) |
7 | 4, 6 | eqtrd 2773 |
. . . . . . . . . 10
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β dom π = π
) |
8 | | simplrl 776 |
. . . . . . . . . . . . 13
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β π = π) |
9 | 8 | eqeq2d 2744 |
. . . . . . . . . . . 12
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β
((β―βπ¦) = π β (β―βπ¦) = π)) |
10 | 9 | rabbidv 3441 |
. . . . . . . . . . 11
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β {π¦ β π« π β£ (β―βπ¦) = π} = {π¦ β π« π β£ (β―βπ¦) = π}) |
11 | | vex 3479 |
. . . . . . . . . . . 12
β’ π β V |
12 | | simpll1 1213 |
. . . . . . . . . . . 12
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β π β
β0) |
13 | | ramval.c |
. . . . . . . . . . . . 13
β’ πΆ = (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π}) |
14 | 13 | hashbcval 16935 |
. . . . . . . . . . . 12
β’ ((π β V β§ π β β0)
β (π πΆπ) = {π¦ β π« π β£ (β―βπ¦) = π}) |
15 | 11, 12, 14 | sylancr 588 |
. . . . . . . . . . 11
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β (π πΆπ) = {π¦ β π« π β£ (β―βπ¦) = π}) |
16 | 10, 15 | eqtr4d 2776 |
. . . . . . . . . 10
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β {π¦ β π« π β£ (β―βπ¦) = π} = (π πΆπ)) |
17 | 7, 16 | oveq12d 7427 |
. . . . . . . . 9
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β (dom
π βm {π¦ β π« π β£ (β―βπ¦) = π}) = (π
βm (π πΆπ))) |
18 | 17 | raleqdv 3326 |
. . . . . . . 8
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β
(βπ β (dom
π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)) β βπ β (π
βm (π πΆπ))βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)))) |
19 | | simpr 486 |
. . . . . . . . . . . . 13
β’ ((π = π β§ π = πΉ) β π = πΉ) |
20 | 19 | dmeqd 5906 |
. . . . . . . . . . . 12
β’ ((π = π β§ π = πΉ) β dom π = dom πΉ) |
21 | | fdm 6727 |
. . . . . . . . . . . . 13
β’ (πΉ:π
βΆβ0 β dom πΉ = π
) |
22 | 21 | 3ad2ant3 1136 |
. . . . . . . . . . . 12
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β dom
πΉ = π
) |
23 | 20, 22 | sylan9eqr 2795 |
. . . . . . . . . . 11
β’ (((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β dom π = π
) |
24 | 23 | ad2antrr 725 |
. . . . . . . . . 10
β’
(((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β dom π = π
) |
25 | 3 | ad2antrr 725 |
. . . . . . . . . . . . . 14
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β π = πΉ) |
26 | 25 | fveq1d 6894 |
. . . . . . . . . . . . 13
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (πβπ) = (πΉβπ)) |
27 | 26 | breq1d 5159 |
. . . . . . . . . . . 12
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β ((πβπ) β€ (β―βπ₯) β (πΉβπ) β€ (β―βπ₯))) |
28 | 8 | ad2antrr 725 |
. . . . . . . . . . . . . . . 16
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β π = π) |
29 | 28 | oveq2d 7425 |
. . . . . . . . . . . . . . 15
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (π₯πΆπ) = (π₯πΆπ)) |
30 | | vex 3479 |
. . . . . . . . . . . . . . . 16
β’ π₯ β V |
31 | 12 | ad2antrr 725 |
. . . . . . . . . . . . . . . . 17
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β π β
β0) |
32 | 28, 31 | eqeltrd 2834 |
. . . . . . . . . . . . . . . 16
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β π β β0) |
33 | 13 | hashbcval 16935 |
. . . . . . . . . . . . . . . 16
β’ ((π₯ β V β§ π β β0)
β (π₯πΆπ) = {π¦ β π« π₯ β£ (β―βπ¦) = π}) |
34 | 30, 32, 33 | sylancr 588 |
. . . . . . . . . . . . . . 15
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (π₯πΆπ) = {π¦ β π« π₯ β£ (β―βπ¦) = π}) |
35 | 29, 34 | eqtr3d 2775 |
. . . . . . . . . . . . . 14
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (π₯πΆπ) = {π¦ β π« π₯ β£ (β―βπ¦) = π}) |
36 | 35 | sseq1d 4014 |
. . . . . . . . . . . . 13
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β ((π₯πΆπ) β (β‘π β {π}) β {π¦ β π« π₯ β£ (β―βπ¦) = π} β (β‘π β {π}))) |
37 | | rabss 4070 |
. . . . . . . . . . . . . 14
β’ ({π¦ β π« π₯ β£ (β―βπ¦) = π} β (β‘π β {π}) β βπ¦ β π« π₯((β―βπ¦) = π β π¦ β (β‘π β {π}))) |
38 | 35 | eleq2d 2820 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (π¦ β (π₯πΆπ) β π¦ β {π¦ β π« π₯ β£ (β―βπ¦) = π})) |
39 | | rabid 3453 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π¦ β {π¦ β π« π₯ β£ (β―βπ¦) = π} β (π¦ β π« π₯ β§ (β―βπ¦) = π)) |
40 | 38, 39 | bitrdi 287 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (π¦ β (π₯πΆπ) β (π¦ β π« π₯ β§ (β―βπ¦) = π))) |
41 | 40 | biimpar 479 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ (π¦ β π« π₯ β§ (β―βπ¦) = π)) β π¦ β (π₯πΆπ)) |
42 | | elpwi 4610 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π₯ β π« π β π₯ β π ) |
43 | 42 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β π₯ β π ) |
44 | 13 | hashbcss 16937 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β V β§ π₯ β π β§ π β β0) β (π₯πΆπ) β (π πΆπ)) |
45 | 11, 43, 31, 44 | mp3an2i 1467 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (π₯πΆπ) β (π πΆπ)) |
46 | 45 | sselda 3983 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ π¦ β (π₯πΆπ)) β π¦ β (π πΆπ)) |
47 | 41, 46 | syldan 592 |
. . . . . . . . . . . . . . . . . 18
β’
(((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ (π¦ β π« π₯ β§ (β―βπ¦) = π)) β π¦ β (π πΆπ)) |
48 | | elmapi 8843 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π
βm (π πΆπ)) β π:(π πΆπ)βΆπ
) |
49 | 48 | ad3antlr 730 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ (π¦ β π« π₯ β§ (β―βπ¦) = π)) β π:(π πΆπ)βΆπ
) |
50 | | ffn 6718 |
. . . . . . . . . . . . . . . . . . 19
β’ (π:(π πΆπ)βΆπ
β π Fn (π πΆπ)) |
51 | | fniniseg 7062 |
. . . . . . . . . . . . . . . . . . 19
β’ (π Fn (π πΆπ) β (π¦ β (β‘π β {π}) β (π¦ β (π πΆπ) β§ (πβπ¦) = π))) |
52 | 49, 50, 51 | 3syl 18 |
. . . . . . . . . . . . . . . . . 18
β’
(((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ (π¦ β π« π₯ β§ (β―βπ¦) = π)) β (π¦ β (β‘π β {π}) β (π¦ β (π πΆπ) β§ (πβπ¦) = π))) |
53 | 47, 52 | mpbirand 706 |
. . . . . . . . . . . . . . . . 17
β’
(((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ (π¦ β π« π₯ β§ (β―βπ¦) = π)) β (π¦ β (β‘π β {π}) β (πβπ¦) = π)) |
54 | 53 | anassrs 469 |
. . . . . . . . . . . . . . . 16
β’
((((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ π¦ β π« π₯) β§ (β―βπ¦) = π) β (π¦ β (β‘π β {π}) β (πβπ¦) = π)) |
55 | 54 | pm5.74da 803 |
. . . . . . . . . . . . . . 15
β’
(((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β§ π¦ β π« π₯) β (((β―βπ¦) = π β π¦ β (β‘π β {π})) β ((β―βπ¦) = π β (πβπ¦) = π))) |
56 | 55 | ralbidva 3176 |
. . . . . . . . . . . . . 14
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (βπ¦ β π« π₯((β―βπ¦) = π β π¦ β (β‘π β {π})) β βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π))) |
57 | 37, 56 | bitrid 283 |
. . . . . . . . . . . . 13
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β ({π¦ β π« π₯ β£ (β―βπ¦) = π} β (β‘π β {π}) β βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π))) |
58 | 36, 57 | bitr2d 280 |
. . . . . . . . . . . 12
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π) β (π₯πΆπ) β (β‘π β {π}))) |
59 | 27, 58 | anbi12d 632 |
. . . . . . . . . . 11
β’
((((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β§ π₯ β π« π ) β (((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)) β ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
60 | 59 | rexbidva 3177 |
. . . . . . . . . 10
β’
(((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β (βπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)) β βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
61 | 24, 60 | rexeqbidv 3344 |
. . . . . . . . 9
β’
(((((π β
β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β§ π β (π
βm (π πΆπ))) β (βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)) β βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
62 | 61 | ralbidva 3176 |
. . . . . . . 8
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β
(βπ β (π
βm (π πΆπ))βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
63 | 18, 62 | bitrd 279 |
. . . . . . 7
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β
(βπ β (dom
π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
64 | 63 | imbi2d 341 |
. . . . . 6
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β ((π β€ (β―βπ ) β βπ β (dom π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π))) β (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))))) |
65 | 64 | albidv 1924 |
. . . . 5
β’ ((((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β§ π β β0) β
(βπ (π β€ (β―βπ ) β βπ β (dom π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π))) β βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))))) |
66 | 65 | rabbidva 3440 |
. . . 4
β’ (((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (dom π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)))} = {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))}) |
67 | | ramval.t |
. . . 4
β’ π = {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} |
68 | 66, 67 | eqtr4di 2791 |
. . 3
β’ (((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (dom π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)))} = π) |
69 | 68 | infeq1d 9472 |
. 2
β’ (((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β§ (π = π β§ π = πΉ)) β inf({π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (dom π βm {π¦ β π« π β£ (β―βπ¦) = π})βπ β dom πβπ₯ β π« π ((πβπ) β€ (β―βπ₯) β§ βπ¦ β π« π₯((β―βπ¦) = π β (πβπ¦) = π)))}, β*, < ) = inf(π, β*, <
)) |
70 | | simp1 1137 |
. 2
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β π β
β0) |
71 | | simp3 1139 |
. . 3
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β πΉ:π
βΆβ0) |
72 | | simp2 1138 |
. . 3
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β π
β π) |
73 | 71, 72 | fexd 7229 |
. 2
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β πΉ β V) |
74 | | xrltso 13120 |
. . . 4
β’ < Or
β* |
75 | 74 | infex 9488 |
. . 3
β’ inf(π, β*, < )
β V |
76 | 75 | a1i 11 |
. 2
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β
inf(π, β*,
< ) β V) |
77 | 2, 69, 70, 73, 76 | ovmpod 7560 |
1
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β (π Ramsey πΉ) = inf(π, β*, <
)) |