Step | Hyp | Ref
| Expression |
1 | | cnveq 5871 |
. . . . . 6
β’ (π = πΊ β β‘π = β‘πΊ) |
2 | 1 | imaeq1d 6056 |
. . . . 5
β’ (π = πΊ β (β‘π β {π}) = (β‘πΊ β {π})) |
3 | 2 | sseq2d 4013 |
. . . 4
β’ (π = πΊ β ((π₯πΆπ) β (β‘π β {π}) β (π₯πΆπ) β (β‘πΊ β {π}))) |
4 | 3 | anbi2d 629 |
. . 3
β’ (π = πΊ β (((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})) β ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘πΊ β {π})))) |
5 | 4 | 2rexbidv 3219 |
. 2
β’ (π = πΊ β (βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})) β βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘πΊ β {π})))) |
6 | | rami.s |
. . 3
β’ (π β π β π) |
7 | | rami.x |
. . . . 5
β’ (π β (π Ramsey πΉ) β
β0) |
8 | | rami.m |
. . . . . 6
β’ (π β π β
β0) |
9 | | rami.r |
. . . . . 6
β’ (π β π
β π) |
10 | | rami.f |
. . . . . 6
β’ (π β πΉ:π
βΆβ0) |
11 | | rami.c |
. . . . . . . 8
β’ πΆ = (π β V, π β β0 β¦ {π β π« π β£ (β―βπ) = π}) |
12 | | eqid 2732 |
. . . . . . . 8
β’ {π β β0
β£ βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} = {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} |
13 | 11, 12 | ramtcl2 16940 |
. . . . . . 7
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β ((π Ramsey πΉ) β β0 β {π β β0
β£ βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} β β
)) |
14 | 11, 12 | ramtcl 16939 |
. . . . . . 7
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β ((π Ramsey πΉ) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} β β
)) |
15 | 13, 14 | bitr4d 281 |
. . . . . 6
β’ ((π β β0
β§ π
β π β§ πΉ:π
βΆβ0) β ((π Ramsey πΉ) β β0 β (π Ramsey πΉ) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))})) |
16 | 8, 9, 10, 15 | syl3anc 1371 |
. . . . 5
β’ (π β ((π Ramsey πΉ) β β0 β (π Ramsey πΉ) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))})) |
17 | 7, 16 | mpbid 231 |
. . . 4
β’ (π β (π Ramsey πΉ) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))}) |
18 | | breq1 5150 |
. . . . . . . 8
β’ (π = (π Ramsey πΉ) β (π β€ (β―βπ ) β (π Ramsey πΉ) β€ (β―βπ ))) |
19 | 18 | imbi1d 341 |
. . . . . . 7
β’ (π = (π Ramsey πΉ) β ((π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))) β ((π Ramsey πΉ) β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))))) |
20 | 19 | albidv 1923 |
. . . . . 6
β’ (π = (π Ramsey πΉ) β (βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))) β βπ ((π Ramsey πΉ) β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))))) |
21 | 20 | elrab 3682 |
. . . . 5
β’ ((π Ramsey πΉ) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} β ((π Ramsey πΉ) β β0 β§
βπ ((π Ramsey πΉ) β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))))) |
22 | 21 | simprbi 497 |
. . . 4
β’ ((π Ramsey πΉ) β {π β β0 β£
βπ (π β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))} β βπ ((π Ramsey πΉ) β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
23 | 17, 22 | syl 17 |
. . 3
β’ (π β βπ ((π Ramsey πΉ) β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
24 | | rami.l |
. . 3
β’ (π β (π Ramsey πΉ) β€ (β―βπ)) |
25 | | fveq2 6888 |
. . . . . 6
β’ (π = π β (β―βπ ) = (β―βπ)) |
26 | 25 | breq2d 5159 |
. . . . 5
β’ (π = π β ((π Ramsey πΉ) β€ (β―βπ ) β (π Ramsey πΉ) β€ (β―βπ))) |
27 | | oveq1 7412 |
. . . . . . 7
β’ (π = π β (π πΆπ) = (ππΆπ)) |
28 | 27 | oveq2d 7421 |
. . . . . 6
β’ (π = π β (π
βm (π πΆπ)) = (π
βm (ππΆπ))) |
29 | | pweq 4615 |
. . . . . . . 8
β’ (π = π β π« π = π« π) |
30 | 29 | rexeqdv 3326 |
. . . . . . 7
β’ (π = π β (βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})) β βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
31 | 30 | rexbidv 3178 |
. . . . . 6
β’ (π = π β (βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})) β βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
32 | 28, 31 | raleqbidv 3342 |
. . . . 5
β’ (π = π β (βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})) β βπ β (π
βm (ππΆπ))βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π})))) |
33 | 26, 32 | imbi12d 344 |
. . . 4
β’ (π = π β (((π Ramsey πΉ) β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))) β ((π Ramsey πΉ) β€ (β―βπ) β βπ β (π
βm (ππΆπ))βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))))) |
34 | 33 | spcgv 3586 |
. . 3
β’ (π β π β (βπ ((π Ramsey πΉ) β€ (β―βπ ) β βπ β (π
βm (π πΆπ))βπ β π
βπ₯ β π« π ((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))) β ((π Ramsey πΉ) β€ (β―βπ) β βπ β (π
βm (ππΆπ))βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))))) |
35 | 6, 23, 24, 34 | syl3c 66 |
. 2
β’ (π β βπ β (π
βm (ππΆπ))βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘π β {π}))) |
36 | | rami.g |
. . 3
β’ (π β πΊ:(ππΆπ)βΆπ
) |
37 | | ovex 7438 |
. . . 4
β’ (ππΆπ) β V |
38 | | elmapg 8829 |
. . . 4
β’ ((π
β π β§ (ππΆπ) β V) β (πΊ β (π
βm (ππΆπ)) β πΊ:(ππΆπ)βΆπ
)) |
39 | 9, 37, 38 | sylancl 586 |
. . 3
β’ (π β (πΊ β (π
βm (ππΆπ)) β πΊ:(ππΆπ)βΆπ
)) |
40 | 36, 39 | mpbird 256 |
. 2
β’ (π β πΊ β (π
βm (ππΆπ))) |
41 | 5, 35, 40 | rspcdva 3613 |
1
β’ (π β βπ β π
βπ₯ β π« π((πΉβπ) β€ (β―βπ₯) β§ (π₯πΆπ) β (β‘πΊ β {π}))) |