Step | Hyp | Ref
| Expression |
1 | | eqid 2733 |
. . 3
β’ (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π}) = (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π}) |
2 | | 0nn0 12484 |
. . . 4
β’ 0 β
β0 |
3 | 2 | a1i 11 |
. . 3
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β 0 β
β0) |
4 | | simpl1 1192 |
. . 3
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β π
β π) |
5 | | simpl3 1194 |
. . 3
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β πΉ:π
βΆβ0) |
6 | 5 | frnd 6723 |
. . . 4
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β ran πΉ β
β0) |
7 | | nn0ssz 12578 |
. . . . . 6
β’
β0 β β€ |
8 | 6, 7 | sstrdi 3994 |
. . . . 5
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β ran πΉ β β€) |
9 | 5 | fdmd 6726 |
. . . . . . 7
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β dom πΉ = π
) |
10 | | simpl2 1193 |
. . . . . . 7
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β π
β β
) |
11 | 9, 10 | eqnetrd 3009 |
. . . . . 6
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β dom πΉ β β
) |
12 | | dm0rn0 5923 |
. . . . . . 7
β’ (dom
πΉ = β
β ran
πΉ =
β
) |
13 | 12 | necon3bii 2994 |
. . . . . 6
β’ (dom
πΉ β β
β ran
πΉ β
β
) |
14 | 11, 13 | sylib 217 |
. . . . 5
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β ran πΉ β β
) |
15 | | simpr 486 |
. . . . 5
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β βπ₯ β β€ βπ¦ β ran πΉ π¦ β€ π₯) |
16 | | suprzcl2 12919 |
. . . . 5
β’ ((ran
πΉ β β€ β§ ran
πΉ β β
β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β sup(ran πΉ, β, < ) β ran πΉ) |
17 | 8, 14, 15, 16 | syl3anc 1372 |
. . . 4
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β sup(ran πΉ, β, < ) β ran πΉ) |
18 | 6, 17 | sseldd 3983 |
. . 3
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β sup(ran πΉ, β, < ) β
β0) |
19 | 1 | hashbc0 16935 |
. . . . . . 7
β’ (π β V β (π (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) = {β
}) |
20 | 19 | elv 3481 |
. . . . . 6
β’ (π (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) = {β
} |
21 | 20 | feq2i 6707 |
. . . . 5
β’ (π:(π (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0)βΆπ
β π:{β
}βΆπ
) |
22 | 21 | biimpi 215 |
. . . 4
β’ (π:(π (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0)βΆπ
β π:{β
}βΆπ
) |
23 | | simprr 772 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β π:{β
}βΆπ
) |
24 | | 0ex 5307 |
. . . . . . 7
β’ β
β V |
25 | 24 | snid 4664 |
. . . . . 6
β’ β
β {β
} |
26 | | ffvelcdm 7081 |
. . . . . 6
β’ ((π:{β
}βΆπ
β§ β
β {β
})
β (πββ
)
β π
) |
27 | 23, 25, 26 | sylancl 587 |
. . . . 5
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πββ
) β π
) |
28 | | vex 3479 |
. . . . . . 7
β’ π β V |
29 | 28 | pwid 4624 |
. . . . . 6
β’ π β π« π |
30 | 29 | a1i 11 |
. . . . 5
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β π β π« π ) |
31 | 5 | adantr 482 |
. . . . . . . . 9
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β πΉ:π
βΆβ0) |
32 | 31, 27 | ffvelcdmd 7085 |
. . . . . . . 8
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πΉβ(πββ
)) β
β0) |
33 | 32 | nn0red 12530 |
. . . . . . 7
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πΉβ(πββ
)) β
β) |
34 | 33 | rexrd 11261 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πΉβ(πββ
)) β
β*) |
35 | 18 | nn0red 12530 |
. . . . . . . 8
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β sup(ran πΉ, β, < ) β
β) |
36 | 35 | rexrd 11261 |
. . . . . . 7
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β sup(ran πΉ, β, < ) β
β*) |
37 | 36 | adantr 482 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β sup(ran πΉ, β, < ) β
β*) |
38 | | hashxrcl 14314 |
. . . . . . 7
β’ (π β V β
(β―βπ ) β
β*) |
39 | 28, 38 | mp1i 13 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (β―βπ ) β
β*) |
40 | 8 | adantr 482 |
. . . . . . 7
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β ran πΉ β β€) |
41 | 15 | adantr 482 |
. . . . . . 7
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β βπ₯ β β€ βπ¦ β ran πΉ π¦ β€ π₯) |
42 | 31 | ffnd 6716 |
. . . . . . . 8
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β πΉ Fn π
) |
43 | | fnfvelrn 7080 |
. . . . . . . 8
β’ ((πΉ Fn π
β§ (πββ
) β π
) β (πΉβ(πββ
)) β ran πΉ) |
44 | 42, 27, 43 | syl2anc 585 |
. . . . . . 7
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πΉβ(πββ
)) β ran πΉ) |
45 | | suprzub 12920 |
. . . . . . 7
β’ ((ran
πΉ β β€ β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯ β§ (πΉβ(πββ
)) β ran πΉ) β (πΉβ(πββ
)) β€ sup(ran πΉ, β, <
)) |
46 | 40, 41, 44, 45 | syl3anc 1372 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πΉβ(πββ
)) β€ sup(ran πΉ, β, <
)) |
47 | | simprl 770 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β sup(ran πΉ, β, < ) β€ (β―βπ )) |
48 | 34, 37, 39, 46, 47 | xrletrd 13138 |
. . . . 5
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πΉβ(πββ
)) β€ (β―βπ )) |
49 | 25 | a1i 11 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β β
β
{β
}) |
50 | | fvex 6902 |
. . . . . . . 8
β’ (πββ
) β
V |
51 | 50 | snid 4664 |
. . . . . . 7
β’ (πββ
) β {(πββ
)} |
52 | 51 | a1i 11 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (πββ
) β {(πββ
)}) |
53 | | ffn 6715 |
. . . . . . 7
β’ (π:{β
}βΆπ
β π Fn {β
}) |
54 | | elpreima 7057 |
. . . . . . 7
β’ (π Fn {β
} β (β
β (β‘π β {(πββ
)}) β (β
β
{β
} β§ (πββ
) β {(πββ
)}))) |
55 | 23, 53, 54 | 3syl 18 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β (β
β (β‘π β {(πββ
)}) β (β
β
{β
} β§ (πββ
) β {(πββ
)}))) |
56 | 49, 52, 55 | mpbir2and 712 |
. . . . 5
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β β
β (β‘π β {(πββ
)})) |
57 | | fveq2 6889 |
. . . . . . . 8
β’ (π = (πββ
) β (πΉβπ) = (πΉβ(πββ
))) |
58 | 57 | breq1d 5158 |
. . . . . . 7
β’ (π = (πββ
) β ((πΉβπ) β€ (β―βπ§) β (πΉβ(πββ
)) β€ (β―βπ§))) |
59 | 1 | hashbc0 16935 |
. . . . . . . . . . 11
β’ (π§ β V β (π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) = {β
}) |
60 | 59 | elv 3481 |
. . . . . . . . . 10
β’ (π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) = {β
} |
61 | 60 | sseq1i 4010 |
. . . . . . . . 9
β’ ((π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘π β {π}) β {β
} β (β‘π β {π})) |
62 | 24 | snss 4789 |
. . . . . . . . 9
β’ (β
β (β‘π β {π}) β {β
} β (β‘π β {π})) |
63 | 61, 62 | bitr4i 278 |
. . . . . . . 8
β’ ((π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘π β {π}) β β
β (β‘π β {π})) |
64 | | sneq 4638 |
. . . . . . . . . 10
β’ (π = (πββ
) β {π} = {(πββ
)}) |
65 | 64 | imaeq2d 6058 |
. . . . . . . . 9
β’ (π = (πββ
) β (β‘π β {π}) = (β‘π β {(πββ
)})) |
66 | 65 | eleq2d 2820 |
. . . . . . . 8
β’ (π = (πββ
) β (β
β (β‘π β {π}) β β
β (β‘π β {(πββ
)}))) |
67 | 63, 66 | bitrid 283 |
. . . . . . 7
β’ (π = (πββ
) β ((π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘π β {π}) β β
β (β‘π β {(πββ
)}))) |
68 | 58, 67 | anbi12d 632 |
. . . . . 6
β’ (π = (πββ
) β (((πΉβπ) β€ (β―βπ§) β§ (π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘π β {π})) β ((πΉβ(πββ
)) β€ (β―βπ§) β§ β
β (β‘π β {(πββ
)})))) |
69 | | fveq2 6889 |
. . . . . . . 8
β’ (π§ = π β (β―βπ§) = (β―βπ )) |
70 | 69 | breq2d 5160 |
. . . . . . 7
β’ (π§ = π β ((πΉβ(πββ
)) β€ (β―βπ§) β (πΉβ(πββ
)) β€ (β―βπ ))) |
71 | 70 | anbi1d 631 |
. . . . . 6
β’ (π§ = π β (((πΉβ(πββ
)) β€ (β―βπ§) β§ β
β (β‘π β {(πββ
)})) β ((πΉβ(πββ
)) β€ (β―βπ ) β§ β
β (β‘π β {(πββ
)})))) |
72 | 68, 71 | rspc2ev 3624 |
. . . . 5
β’ (((πββ
) β π
β§ π β π« π β§ ((πΉβ(πββ
)) β€ (β―βπ ) β§ β
β (β‘π β {(πββ
)}))) β βπ β π
βπ§ β π« π ((πΉβπ) β€ (β―βπ§) β§ (π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘π β {π}))) |
73 | 27, 30, 48, 56, 72 | syl112anc 1375 |
. . . 4
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:{β
}βΆπ
)) β βπ β π
βπ§ β π« π ((πΉβπ) β€ (β―βπ§) β§ (π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘π β {π}))) |
74 | 22, 73 | sylanr2 682 |
. . 3
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (sup(ran πΉ, β, < ) β€ (β―βπ ) β§ π:(π (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0)βΆπ
)) β βπ β π
βπ§ β π« π ((πΉβπ) β€ (β―βπ§) β§ (π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘π β {π}))) |
75 | 1, 3, 4, 5, 18, 74 | ramub 16943 |
. 2
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β (0 Ramsey πΉ) β€ sup(ran πΉ, β, < )) |
76 | | ffn 6715 |
. . . . 5
β’ (πΉ:π
βΆβ0 β πΉ Fn π
) |
77 | | fvelrnb 6950 |
. . . . 5
β’ (πΉ Fn π
β (sup(ran πΉ, β, < ) β ran πΉ β βπ β π
(πΉβπ) = sup(ran πΉ, β, < ))) |
78 | 5, 76, 77 | 3syl 18 |
. . . 4
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β (sup(ran πΉ, β, < ) β ran πΉ β βπ β π
(πΉβπ) = sup(ran πΉ, β, < ))) |
79 | 17, 78 | mpbid 231 |
. . 3
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β βπ β π
(πΉβπ) = sup(ran πΉ, β, < )) |
80 | 2 | a1i 11 |
. . . . . . . . 9
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β 0 β
β0) |
81 | | simpll1 1213 |
. . . . . . . . 9
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β π
β π) |
82 | | simpll3 1215 |
. . . . . . . . 9
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β πΉ:π
βΆβ0) |
83 | | nnm1nn0 12510 |
. . . . . . . . . 10
β’ ((πΉβπ) β β β ((πΉβπ) β 1) β
β0) |
84 | 83 | ad2antll 728 |
. . . . . . . . 9
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β ((πΉβπ) β 1) β
β0) |
85 | | vex 3479 |
. . . . . . . . . . . . 13
β’ π β V |
86 | 24, 85 | f1osn 6871 |
. . . . . . . . . . . 12
β’
{β¨β
, πβ©}:{β
}β1-1-ontoβ{π} |
87 | | f1of 6831 |
. . . . . . . . . . . 12
β’
({β¨β
, πβ©}:{β
}β1-1-ontoβ{π} β {β¨β
, πβ©}:{β
}βΆ{π}) |
88 | 86, 87 | ax-mp 5 |
. . . . . . . . . . 11
β’
{β¨β
, πβ©}:{β
}βΆ{π} |
89 | | simprl 770 |
. . . . . . . . . . . 12
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β π β π
) |
90 | 89 | snssd 4812 |
. . . . . . . . . . 11
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β {π} β π
) |
91 | | fss 6732 |
. . . . . . . . . . 11
β’
(({β¨β
, πβ©}:{β
}βΆ{π} β§ {π} β π
) β {β¨β
, πβ©}:{β
}βΆπ
) |
92 | 88, 90, 91 | sylancr 588 |
. . . . . . . . . 10
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β {β¨β
,
πβ©}:{β
}βΆπ
) |
93 | | ovex 7439 |
. . . . . . . . . . . 12
β’
(1...((πΉβπ) β 1)) β
V |
94 | 1 | hashbc0 16935 |
. . . . . . . . . . . 12
β’
((1...((πΉβπ) β 1)) β V β ((1...((πΉβπ) β 1))(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) = {β
}) |
95 | 93, 94 | ax-mp 5 |
. . . . . . . . . . 11
β’
((1...((πΉβπ) β 1))(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) = {β
} |
96 | 95 | feq2i 6707 |
. . . . . . . . . 10
β’
({β¨β
, πβ©}:((1...((πΉβπ) β 1))(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0)βΆπ
β {β¨β
, πβ©}:{β
}βΆπ
) |
97 | 92, 96 | sylibr 233 |
. . . . . . . . 9
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β {β¨β
,
πβ©}:((1...((πΉβπ) β 1))(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0)βΆπ
) |
98 | 60 | sseq1i 4010 |
. . . . . . . . . . 11
β’ ((π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘{β¨β
, πβ©} β {π}) β {β
} β (β‘{β¨β
, πβ©} β {π})) |
99 | 24 | snss 4789 |
. . . . . . . . . . 11
β’ (β
β (β‘{β¨β
, πβ©} β {π}) β {β
} β
(β‘{β¨β
, πβ©} β {π})) |
100 | 98, 99 | bitr4i 278 |
. . . . . . . . . 10
β’ ((π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘{β¨β
, πβ©} β {π}) β β
β (β‘{β¨β
, πβ©} β {π})) |
101 | | fzfid 13935 |
. . . . . . . . . . . . . . 15
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β (1...((πΉβπ) β 1)) β Fin) |
102 | | simprr 772 |
. . . . . . . . . . . . . . 15
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β π§ β (1...((πΉβπ) β 1))) |
103 | | ssdomg 8993 |
. . . . . . . . . . . . . . 15
β’
((1...((πΉβπ) β 1)) β Fin β (π§ β (1...((πΉβπ) β 1)) β π§ βΌ (1...((πΉβπ) β 1)))) |
104 | 101, 102,
103 | sylc 65 |
. . . . . . . . . . . . . 14
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β π§ βΌ (1...((πΉβπ) β 1))) |
105 | 101, 102 | ssfid 9264 |
. . . . . . . . . . . . . . 15
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β π§ β Fin) |
106 | | hashdom 14336 |
. . . . . . . . . . . . . . 15
β’ ((π§ β Fin β§ (1...((πΉβπ) β 1)) β Fin) β
((β―βπ§) β€
(β―β(1...((πΉβπ) β 1))) β π§ βΌ (1...((πΉβπ) β 1)))) |
107 | 105, 101,
106 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β ((β―βπ§) β€
(β―β(1...((πΉβπ) β 1))) β π§ βΌ (1...((πΉβπ) β 1)))) |
108 | 104, 107 | mpbird 257 |
. . . . . . . . . . . . 13
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β (β―βπ§) β€
(β―β(1...((πΉβπ) β 1)))) |
109 | 84 | adantr 482 |
. . . . . . . . . . . . . 14
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β ((πΉβπ) β 1) β
β0) |
110 | | hashfz1 14303 |
. . . . . . . . . . . . . 14
β’ (((πΉβπ) β 1) β β0
β (β―β(1...((πΉβπ) β 1))) = ((πΉβπ) β 1)) |
111 | 109, 110 | syl 17 |
. . . . . . . . . . . . 13
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β
(β―β(1...((πΉβπ) β 1))) = ((πΉβπ) β 1)) |
112 | 108, 111 | breqtrd 5174 |
. . . . . . . . . . . 12
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β (β―βπ§) β€ ((πΉβπ) β 1)) |
113 | | hashcl 14313 |
. . . . . . . . . . . . . 14
β’ (π§ β Fin β
(β―βπ§) β
β0) |
114 | 105, 113 | syl 17 |
. . . . . . . . . . . . 13
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β (β―βπ§) β
β0) |
115 | 5 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . 15
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β (πΉβπ) β
β0) |
116 | 115 | adantrr 716 |
. . . . . . . . . . . . . 14
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β (πΉβπ) β
β0) |
117 | 116 | adantr 482 |
. . . . . . . . . . . . 13
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β (πΉβπ) β
β0) |
118 | | nn0ltlem1 12619 |
. . . . . . . . . . . . 13
β’
(((β―βπ§)
β β0 β§ (πΉβπ) β β0) β
((β―βπ§) <
(πΉβπ) β (β―βπ§) β€ ((πΉβπ) β 1))) |
119 | 114, 117,
118 | syl2anc 585 |
. . . . . . . . . . . 12
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β ((β―βπ§) < (πΉβπ) β (β―βπ§) β€ ((πΉβπ) β 1))) |
120 | 112, 119 | mpbird 257 |
. . . . . . . . . . 11
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β (β―βπ§) < (πΉβπ)) |
121 | 24, 85 | fvsn 7176 |
. . . . . . . . . . . . . . 15
β’
({β¨β
, πβ©}ββ
) = π |
122 | | f1ofn 6832 |
. . . . . . . . . . . . . . . . 17
β’
({β¨β
, πβ©}:{β
}β1-1-ontoβ{π} β {β¨β
, πβ©} Fn {β
}) |
123 | | elpreima 7057 |
. . . . . . . . . . . . . . . . 17
β’
({β¨β
, πβ©} Fn {β
} β (β
β
(β‘{β¨β
, πβ©} β {π}) β (β
β {β
} β§
({β¨β
, πβ©}ββ
) β {π}))) |
124 | 86, 122, 123 | mp2b 10 |
. . . . . . . . . . . . . . . 16
β’ (β
β (β‘{β¨β
, πβ©} β {π}) β (β
β
{β
} β§ ({β¨β
, πβ©}ββ
) β {π})) |
125 | 124 | simprbi 498 |
. . . . . . . . . . . . . . 15
β’ (β
β (β‘{β¨β
, πβ©} β {π}) β ({β¨β
, πβ©}ββ
) β
{π}) |
126 | 121, 125 | eqeltrrid 2839 |
. . . . . . . . . . . . . 14
β’ (β
β (β‘{β¨β
, πβ©} β {π}) β π β {π}) |
127 | | elsni 4645 |
. . . . . . . . . . . . . 14
β’ (π β {π} β π = π) |
128 | 126, 127 | syl 17 |
. . . . . . . . . . . . 13
β’ (β
β (β‘{β¨β
, πβ©} β {π}) β π = π) |
129 | 128 | fveq2d 6893 |
. . . . . . . . . . . 12
β’ (β
β (β‘{β¨β
, πβ©} β {π}) β (πΉβπ) = (πΉβπ)) |
130 | 129 | breq2d 5160 |
. . . . . . . . . . 11
β’ (β
β (β‘{β¨β
, πβ©} β {π}) β ((β―βπ§) < (πΉβπ) β (β―βπ§) < (πΉβπ))) |
131 | 120, 130 | syl5ibcom 244 |
. . . . . . . . . 10
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β (β
β (β‘{β¨β
, πβ©} β {π}) β (β―βπ§) < (πΉβπ))) |
132 | 100, 131 | biimtrid 241 |
. . . . . . . . 9
β’
(((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β§ (π β π
β§ π§ β (1...((πΉβπ) β 1)))) β ((π§(π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π})0) β (β‘{β¨β
, πβ©} β {π}) β (β―βπ§) < (πΉβπ))) |
133 | 1, 80, 81, 82, 84, 97, 132 | ramlb 16949 |
. . . . . . . 8
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β ((πΉβπ) β 1) < (0 Ramsey πΉ)) |
134 | | ramubcl 16948 |
. . . . . . . . . . 11
β’ (((0
β β0 β§ π
β π β§ πΉ:π
βΆβ0) β§ (sup(ran
πΉ, β, < ) β
β0 β§ (0 Ramsey πΉ) β€ sup(ran πΉ, β, < ))) β (0 Ramsey πΉ) β
β0) |
135 | 3, 4, 5, 18, 75, 134 | syl32anc 1379 |
. . . . . . . . . 10
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β (0 Ramsey πΉ) β
β0) |
136 | 135 | adantr 482 |
. . . . . . . . 9
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β (0 Ramsey πΉ) β
β0) |
137 | | nn0lem1lt 12624 |
. . . . . . . . 9
β’ (((πΉβπ) β β0 β§ (0 Ramsey
πΉ) β
β0) β ((πΉβπ) β€ (0 Ramsey πΉ) β ((πΉβπ) β 1) < (0 Ramsey πΉ))) |
138 | 116, 136,
137 | syl2anc 585 |
. . . . . . . 8
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β ((πΉβπ) β€ (0 Ramsey πΉ) β ((πΉβπ) β 1) < (0 Ramsey πΉ))) |
139 | 133, 138 | mpbird 257 |
. . . . . . 7
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ (π β π
β§ (πΉβπ) β β)) β (πΉβπ) β€ (0 Ramsey πΉ)) |
140 | 139 | expr 458 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β ((πΉβπ) β β β (πΉβπ) β€ (0 Ramsey πΉ))) |
141 | 135 | adantr 482 |
. . . . . . . 8
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β (0 Ramsey πΉ) β
β0) |
142 | 141 | nn0ge0d 12532 |
. . . . . . 7
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β 0 β€ (0 Ramsey πΉ)) |
143 | | breq1 5151 |
. . . . . . 7
β’ ((πΉβπ) = 0 β ((πΉβπ) β€ (0 Ramsey πΉ) β 0 β€ (0 Ramsey πΉ))) |
144 | 142, 143 | syl5ibrcom 246 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β ((πΉβπ) = 0 β (πΉβπ) β€ (0 Ramsey πΉ))) |
145 | | elnn0 12471 |
. . . . . . 7
β’ ((πΉβπ) β β0 β ((πΉβπ) β β β¨ (πΉβπ) = 0)) |
146 | 115, 145 | sylib 217 |
. . . . . 6
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β ((πΉβπ) β β β¨ (πΉβπ) = 0)) |
147 | 140, 144,
146 | mpjaod 859 |
. . . . 5
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β (πΉβπ) β€ (0 Ramsey πΉ)) |
148 | | breq1 5151 |
. . . . 5
β’ ((πΉβπ) = sup(ran πΉ, β, < ) β ((πΉβπ) β€ (0 Ramsey πΉ) β sup(ran πΉ, β, < ) β€ (0 Ramsey πΉ))) |
149 | 147, 148 | syl5ibcom 244 |
. . . 4
β’ ((((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β§ π β π
) β ((πΉβπ) = sup(ran πΉ, β, < ) β sup(ran πΉ, β, < ) β€ (0 Ramsey
πΉ))) |
150 | 149 | rexlimdva 3156 |
. . 3
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β (βπ β π
(πΉβπ) = sup(ran πΉ, β, < ) β sup(ran πΉ, β, < ) β€ (0 Ramsey
πΉ))) |
151 | 79, 150 | mpd 15 |
. 2
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β sup(ran πΉ, β, < ) β€ (0 Ramsey πΉ)) |
152 | 135 | nn0red 12530 |
. . 3
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β (0 Ramsey πΉ) β β) |
153 | 152, 35 | letri3d 11353 |
. 2
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β ((0 Ramsey πΉ) = sup(ran πΉ, β, < ) β ((0 Ramsey πΉ) β€ sup(ran πΉ, β, < ) β§ sup(ran πΉ, β, < ) β€ (0 Ramsey
πΉ)))) |
154 | 75, 151, 153 | mpbir2and 712 |
1
β’ (((π
β π β§ π
β β
β§ πΉ:π
βΆβ0) β§
βπ₯ β β€
βπ¦ β ran πΉ π¦ β€ π₯) β (0 Ramsey πΉ) = sup(ran πΉ, β, < )) |