MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ramcl Structured version   Visualization version   GIF version

Theorem ramcl 17067
Description: Ramsey's theorem: the Ramsey number is an integer for every finite coloring and set of upper bounds. (Contributed by Mario Carneiro, 23-Apr-2015.)
Assertion
Ref Expression
ramcl ((𝑀 ∈ ℕ0𝑅 ∈ Fin ∧ 𝐹:𝑅⟶ℕ0) → (𝑀 Ramsey 𝐹) ∈ ℕ0)

Proof of Theorem ramcl
Dummy variables 𝑓 𝑥 𝑔 𝑘 𝑚 𝑛 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nn0ex 12532 . . . 4 0 ∈ V
2 simpr 484 . . . 4 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → 𝑅 ∈ Fin)
3 elmapg 8879 . . . 4 ((ℕ0 ∈ V ∧ 𝑅 ∈ Fin) → (𝐹 ∈ (ℕ0m 𝑅) ↔ 𝐹:𝑅⟶ℕ0))
41, 2, 3sylancr 587 . . 3 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → (𝐹 ∈ (ℕ0m 𝑅) ↔ 𝐹:𝑅⟶ℕ0))
5 oveq1 7438 . . . . . . . . 9 (𝑥 = 0 → (𝑥 Ramsey 𝑓) = (0 Ramsey 𝑓))
65eleq1d 2826 . . . . . . . 8 (𝑥 = 0 → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ (0 Ramsey 𝑓) ∈ ℕ0))
76ralbidv 3178 . . . . . . 7 (𝑥 = 0 → (∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ ∀𝑓 ∈ (ℕ0m 𝑅)(0 Ramsey 𝑓) ∈ ℕ0))
87imbi2d 340 . . . . . 6 (𝑥 = 0 → ((𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0) ↔ (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(0 Ramsey 𝑓) ∈ ℕ0)))
9 oveq1 7438 . . . . . . . . 9 (𝑥 = 𝑚 → (𝑥 Ramsey 𝑓) = (𝑚 Ramsey 𝑓))
109eleq1d 2826 . . . . . . . 8 (𝑥 = 𝑚 → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ (𝑚 Ramsey 𝑓) ∈ ℕ0))
1110ralbidv 3178 . . . . . . 7 (𝑥 = 𝑚 → (∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ ∀𝑓 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑓) ∈ ℕ0))
1211imbi2d 340 . . . . . 6 (𝑥 = 𝑚 → ((𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0) ↔ (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑓) ∈ ℕ0)))
13 oveq1 7438 . . . . . . . . 9 (𝑥 = (𝑚 + 1) → (𝑥 Ramsey 𝑓) = ((𝑚 + 1) Ramsey 𝑓))
1413eleq1d 2826 . . . . . . . 8 (𝑥 = (𝑚 + 1) → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
1514ralbidv 3178 . . . . . . 7 (𝑥 = (𝑚 + 1) → (∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ ∀𝑓 ∈ (ℕ0m 𝑅)((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
1615imbi2d 340 . . . . . 6 (𝑥 = (𝑚 + 1) → ((𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0) ↔ (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
17 oveq1 7438 . . . . . . . . 9 (𝑥 = 𝑀 → (𝑥 Ramsey 𝑓) = (𝑀 Ramsey 𝑓))
1817eleq1d 2826 . . . . . . . 8 (𝑥 = 𝑀 → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ (𝑀 Ramsey 𝑓) ∈ ℕ0))
1918ralbidv 3178 . . . . . . 7 (𝑥 = 𝑀 → (∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0))
2019imbi2d 340 . . . . . 6 (𝑥 = 𝑀 → ((𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0) ↔ (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0)))
21 elmapi 8889 . . . . . . . 8 (𝑓 ∈ (ℕ0m 𝑅) → 𝑓:𝑅⟶ℕ0)
22 0ramcl 17061 . . . . . . . 8 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ0) → (0 Ramsey 𝑓) ∈ ℕ0)
2321, 22sylan2 593 . . . . . . 7 ((𝑅 ∈ Fin ∧ 𝑓 ∈ (ℕ0m 𝑅)) → (0 Ramsey 𝑓) ∈ ℕ0)
2423ralrimiva 3146 . . . . . 6 (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(0 Ramsey 𝑓) ∈ ℕ0)
25 oveq2 7439 . . . . . . . . . . 11 (𝑓 = 𝑔 → (𝑚 Ramsey 𝑓) = (𝑚 Ramsey 𝑔))
2625eleq1d 2826 . . . . . . . . . 10 (𝑓 = 𝑔 → ((𝑚 Ramsey 𝑓) ∈ ℕ0 ↔ (𝑚 Ramsey 𝑔) ∈ ℕ0))
2726cbvralvw 3237 . . . . . . . . 9 (∀𝑓 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑓) ∈ ℕ0 ↔ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)
28 simpll 767 . . . . . . . . . . . . . 14 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) → 𝑅 ∈ Fin)
2921ad2antrl 728 . . . . . . . . . . . . . . 15 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) → 𝑓:𝑅⟶ℕ0)
3029ffvelcdmda 7104 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) ∧ 𝑘𝑅) → (𝑓𝑘) ∈ ℕ0)
3128, 30fsumnn0cl 15772 . . . . . . . . . . . . 13 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) → Σ𝑘𝑅 (𝑓𝑘) ∈ ℕ0)
32 eqeq2 2749 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 0 → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = 0))
3332anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 0 → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0)))
3433imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = 0 → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
3534albidv 1920 . . . . . . . . . . . . . . . . 17 (𝑥 = 0 → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
3635imbi2d 340 . . . . . . . . . . . . . . . 16 (𝑥 = 0 → ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ↔ (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))))
37 eqeq2 2749 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑛 → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = 𝑛))
3837anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑛 → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛)))
3938imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑛 → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
4039albidv 1920 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑛 → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
4140imbi2d 340 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑛 → ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ↔ (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))))
42 eqeq2 2749 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = (𝑛 + 1) → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)))
4342anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = (𝑛 + 1) → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1))))
4443imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑛 + 1) → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
4544albidv 1920 . . . . . . . . . . . . . . . . 17 (𝑥 = (𝑛 + 1) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
4645imbi2d 340 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑛 + 1) → ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ↔ (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))))
47 eqeq2 2749 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)))
4847anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘))))
4948imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
5049albidv 1920 . . . . . . . . . . . . . . . . 17 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
5150imbi2d 340 . . . . . . . . . . . . . . . 16 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ↔ (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))))
52 simplll 775 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → 𝑅 ∈ Fin)
53 ffvelcdm 7101 . . . . . . . . . . . . . . . . . . . . . . . 24 ((:𝑅⟶ℕ0𝑘𝑅) → (𝑘) ∈ ℕ0)
5453adantll 714 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑘𝑅) → (𝑘) ∈ ℕ0)
5554nn0red 12588 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑘𝑅) → (𝑘) ∈ ℝ)
5654nn0ge0d 12590 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑘𝑅) → 0 ≤ (𝑘))
5752, 55, 56fsum00 15834 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (Σ𝑘𝑅 (𝑘) = 0 ↔ ∀𝑘𝑅 (𝑘) = 0))
58 fvex 6919 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑘) ∈ V
5958rgenw 3065 . . . . . . . . . . . . . . . . . . . . . 22 𝑘𝑅 (𝑘) ∈ V
60 mpteqb 7035 . . . . . . . . . . . . . . . . . . . . . 22 (∀𝑘𝑅 (𝑘) ∈ V → ((𝑘𝑅 ↦ (𝑘)) = (𝑘𝑅 ↦ 0) ↔ ∀𝑘𝑅 (𝑘) = 0))
6159, 60ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 ((𝑘𝑅 ↦ (𝑘)) = (𝑘𝑅 ↦ 0) ↔ ∀𝑘𝑅 (𝑘) = 0)
6257, 61bitr4di 289 . . . . . . . . . . . . . . . . . . . 20 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (Σ𝑘𝑅 (𝑘) = 0 ↔ (𝑘𝑅 ↦ (𝑘)) = (𝑘𝑅 ↦ 0)))
63 simpr 484 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → :𝑅⟶ℕ0)
6463feqmptd 6977 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → = (𝑘𝑅 ↦ (𝑘)))
65 fconstmpt 5747 . . . . . . . . . . . . . . . . . . . . . 22 (𝑅 × {0}) = (𝑘𝑅 ↦ 0)
6665a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (𝑅 × {0}) = (𝑘𝑅 ↦ 0))
6764, 66eqeq12d 2753 . . . . . . . . . . . . . . . . . . . 20 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → ( = (𝑅 × {0}) ↔ (𝑘𝑅 ↦ (𝑘)) = (𝑘𝑅 ↦ 0)))
6862, 67bitr4d 282 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (Σ𝑘𝑅 (𝑘) = 0 ↔ = (𝑅 × {0})))
69 xpeq1 5699 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑅 = ∅ → (𝑅 × {0}) = (∅ × {0}))
70 0xp 5784 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∅ × {0}) = ∅
7169, 70eqtrdi 2793 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑅 = ∅ → (𝑅 × {0}) = ∅)
7271oveq2d 7447 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑅 = ∅ → ((𝑚 + 1) Ramsey (𝑅 × {0})) = ((𝑚 + 1) Ramsey ∅))
73 simpllr 776 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → 𝑚 ∈ ℕ0)
74 peano2nn0 12566 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℕ0)
7573, 74syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (𝑚 + 1) ∈ ℕ0)
76 ram0 17060 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑚 + 1) ∈ ℕ0 → ((𝑚 + 1) Ramsey ∅) = (𝑚 + 1))
7775, 76syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → ((𝑚 + 1) Ramsey ∅) = (𝑚 + 1))
7872, 77sylan9eqr 2799 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 = ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) = (𝑚 + 1))
7975adantr 480 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 = ∅) → (𝑚 + 1) ∈ ℕ0)
8078, 79eqeltrd 2841 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 = ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) ∈ ℕ0)
8175adantr 480 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 ≠ ∅) → (𝑚 + 1) ∈ ℕ0)
82 simp-4l 783 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 ≠ ∅) → 𝑅 ∈ Fin)
83 simpr 484 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 ≠ ∅) → 𝑅 ≠ ∅)
84 ramz 17063 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑚 + 1) ∈ ℕ0𝑅 ∈ Fin ∧ 𝑅 ≠ ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) = 0)
8581, 82, 83, 84syl3anc 1373 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 ≠ ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) = 0)
86 0nn0 12541 . . . . . . . . . . . . . . . . . . . . . 22 0 ∈ ℕ0
8785, 86eqeltrdi 2849 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 ≠ ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) ∈ ℕ0)
8880, 87pm2.61dane 3029 . . . . . . . . . . . . . . . . . . . 20 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → ((𝑚 + 1) Ramsey (𝑅 × {0})) ∈ ℕ0)
89 oveq2 7439 . . . . . . . . . . . . . . . . . . . . 21 ( = (𝑅 × {0}) → ((𝑚 + 1) Ramsey ) = ((𝑚 + 1) Ramsey (𝑅 × {0})))
9089eleq1d 2826 . . . . . . . . . . . . . . . . . . . 20 ( = (𝑅 × {0}) → (((𝑚 + 1) Ramsey ) ∈ ℕ0 ↔ ((𝑚 + 1) Ramsey (𝑅 × {0})) ∈ ℕ0))
9188, 90syl5ibrcom 247 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → ( = (𝑅 × {0}) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))
9268, 91sylbid 240 . . . . . . . . . . . . . . . . . 18 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (Σ𝑘𝑅 (𝑘) = 0 → ((𝑚 + 1) Ramsey ) ∈ ℕ0))
9392expimpd 453 . . . . . . . . . . . . . . . . 17 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))
9493alrimiv 1927 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))
95 ffn 6736 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑓:𝑅⟶ℕ0𝑓 Fn 𝑅)
9695ad2antrl 728 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → 𝑓 Fn 𝑅)
97 ffnfv 7139 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑓:𝑅⟶ℕ ↔ (𝑓 Fn 𝑅 ∧ ∀𝑥𝑅 (𝑓𝑥) ∈ ℕ))
9897baib 535 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑓 Fn 𝑅 → (𝑓:𝑅⟶ℕ ↔ ∀𝑥𝑅 (𝑓𝑥) ∈ ℕ))
9996, 98syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → (𝑓:𝑅⟶ℕ ↔ ∀𝑥𝑅 (𝑓𝑥) ∈ ℕ))
100 simplr 769 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) → 𝑚 ∈ ℕ0)
101100ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → 𝑚 ∈ ℕ0)
102101, 74syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (𝑚 + 1) ∈ ℕ0)
103 simp-4l 783 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → 𝑅 ∈ Fin)
104 simprr 773 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → 𝑓:𝑅⟶ℕ)
105 nnssnn0 12529 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ℕ ⊆ ℕ0
106 fss 6752 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑓:𝑅⟶ℕ ∧ ℕ ⊆ ℕ0) → 𝑓:𝑅⟶ℕ0)
107104, 105, 106sylancl 586 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → 𝑓:𝑅⟶ℕ0)
108101nn0cnd 12589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → 𝑚 ∈ ℂ)
109 ax-1cn 11213 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 1 ∈ ℂ
110 pncan 11514 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑚 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑚 + 1) − 1) = 𝑚)
111108, 109, 110sylancl 586 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → ((𝑚 + 1) − 1) = 𝑚)
112111oveq1d 7446 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) = (𝑚 Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))))
113 oveq2 7439 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑔 = (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))) → (𝑚 Ramsey 𝑔) = (𝑚 Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))))
114113eleq1d 2826 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑔 = (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))) → ((𝑚 Ramsey 𝑔) ∈ ℕ0 ↔ (𝑚 Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) ∈ ℕ0))
115 simprl 771 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) → ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)
116115ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)
117103adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → 𝑅 ∈ Fin)
118117mptexd 7244 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) ∈ V)
119 simpllr 776 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))
120104ffvelcdmda 7104 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → (𝑓𝑥) ∈ ℕ)
121 nnm1nn0 12567 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑓𝑥) ∈ ℕ → ((𝑓𝑥) − 1) ∈ ℕ0)
122120, 121syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → ((𝑓𝑥) − 1) ∈ ℕ0)
123122adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) ∧ 𝑦𝑅) → ((𝑓𝑥) − 1) ∈ ℕ0)
124107adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → 𝑓:𝑅⟶ℕ0)
125124ffvelcdmda 7104 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) ∧ 𝑦𝑅) → (𝑓𝑦) ∈ ℕ0)
126123, 125ifcld 4572 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) ∧ 𝑦𝑅) → if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)) ∈ ℕ0)
127126fmpttd 7135 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))):𝑅⟶ℕ0)
128 simplrr 778 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → 𝑓:𝑅⟶ℕ)
129 simpr 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → 𝑥𝑅)
130 ffvelcdm 7101 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 44 ((𝑓:𝑅⟶ℕ ∧ 𝑘𝑅) → (𝑓𝑘) ∈ ℕ)
1311303ad2antl2 1187 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → (𝑓𝑘) ∈ ℕ)
132131nncnd 12282 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → (𝑓𝑘) ∈ ℂ)
133132subid1d 11609 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → ((𝑓𝑘) − 0) = (𝑓𝑘))
134133ifeq2d 4546 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑘) − 1), ((𝑓𝑘) − 0)) = if(𝑘 = 𝑥, ((𝑓𝑘) − 1), (𝑓𝑘)))
135 fveq2 6906 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (𝑘 = 𝑥 → (𝑓𝑘) = (𝑓𝑥))
136135adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ((((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) ∧ 𝑘 = 𝑥) → (𝑓𝑘) = (𝑓𝑥))
137136oveq1d 7446 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) ∧ 𝑘 = 𝑥) → ((𝑓𝑘) − 1) = ((𝑓𝑥) − 1))
138137ifeq1da 4557 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑘) − 1), (𝑓𝑘)) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
139134, 138eqtr2d 2778 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = if(𝑘 = 𝑥, ((𝑓𝑘) − 1), ((𝑓𝑘) − 0)))
140 ovif2 7532 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)) = if(𝑘 = 𝑥, ((𝑓𝑘) − 1), ((𝑓𝑘) − 0))
141139, 140eqtr4di 2795 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)))
142141sumeq2dv 15738 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = Σ𝑘𝑅 ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)))
143 simp1 1137 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → 𝑅 ∈ Fin)
144 0cn 11253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 0 ∈ ℂ
145109, 144ifcli 4573 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 if(𝑘 = 𝑥, 1, 0) ∈ ℂ
146145a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, 1, 0) ∈ ℂ)
147143, 132, 146fsumsub 15824 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)) = (Σ𝑘𝑅 (𝑓𝑘) − Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0)))
148 elsng 4640 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑘𝑅 → (𝑘 ∈ {𝑥} ↔ 𝑘 = 𝑥))
149148ifbid 4549 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑘𝑅 → if(𝑘 ∈ {𝑥}, 1, 0) = if(𝑘 = 𝑥, 1, 0))
150149sumeq2i 15734 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0)
151 simp3 1139 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → 𝑥𝑅)
152151snssd 4809 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → {𝑥} ⊆ 𝑅)
153 sumhash 16934 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((𝑅 ∈ Fin ∧ {𝑥} ⊆ 𝑅) → Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = (♯‘{𝑥}))
154143, 152, 153syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = (♯‘{𝑥}))
155 hashsng 14408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑥𝑅 → (♯‘{𝑥}) = 1)
156151, 155syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → (♯‘{𝑥}) = 1)
157154, 156eqtrd 2777 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = 1)
158150, 157eqtr3id 2791 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0) = 1)
159158oveq2d 7447 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → (Σ𝑘𝑅 (𝑓𝑘) − Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0)) = (Σ𝑘𝑅 (𝑓𝑘) − 1))
160142, 147, 1593eqtrd 2781 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = (Σ𝑘𝑅 (𝑓𝑘) − 1))
161117, 128, 129, 160syl3anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = (Σ𝑘𝑅 (𝑓𝑘) − 1))
162 simplrl 777 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))
163162oveq1d 7446 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → (Σ𝑘𝑅 (𝑓𝑘) − 1) = ((𝑛 + 1) − 1))
164 simplrr 778 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) → 𝑛 ∈ ℕ0)
165164ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → 𝑛 ∈ ℕ0)
166165nn0cnd 12589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → 𝑛 ∈ ℂ)
167 pncan 11514 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑛 + 1) − 1) = 𝑛)
168166, 109, 167sylancl 586 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → ((𝑛 + 1) − 1) = 𝑛)
169161, 163, 1683eqtrd 2781 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = 𝑛)
170127, 169jca 511 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → ((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))):𝑅⟶ℕ0 ∧ Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = 𝑛))
171 feq1 6716 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → (:𝑅⟶ℕ0 ↔ (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))):𝑅⟶ℕ0))
172 fveq1 6905 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → (𝑘) = ((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))‘𝑘))
173 equequ1 2024 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑦 = 𝑘 → (𝑦 = 𝑥𝑘 = 𝑥))
174 fveq2 6906 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑦 = 𝑘 → (𝑓𝑦) = (𝑓𝑘))
175173, 174ifbieq2d 4552 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑦 = 𝑘 → if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
176 eqid 2737 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))
177 ovex 7464 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((𝑓𝑥) − 1) ∈ V
178 fvex 6919 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑓𝑘) ∈ V
179177, 178ifex 4576 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) ∈ V
180175, 176, 179fvmpt 7016 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑘𝑅 → ((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))‘𝑘) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
181172, 180sylan9eq 2797 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) ∧ 𝑘𝑅) → (𝑘) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
182181sumeq2dv 15738 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
183182eqeq1d 2739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → (Σ𝑘𝑅 (𝑘) = 𝑛 ↔ Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = 𝑛))
184171, 183anbi12d 632 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) ↔ ((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))):𝑅⟶ℕ0 ∧ Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = 𝑛)))
185 oveq2 7439 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → ((𝑚 + 1) Ramsey ) = ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))
186185eleq1d 2826 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → (((𝑚 + 1) Ramsey ) ∈ ℕ0 ↔ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))) ∈ ℕ0))
187184, 186imbi12d 344 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ (((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))):𝑅⟶ℕ0 ∧ Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = 𝑛) → ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))) ∈ ℕ0)))
188187spcgv 3596 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) ∈ V → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → (((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))):𝑅⟶ℕ0 ∧ Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = 𝑛) → ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))) ∈ ℕ0)))
189118, 119, 170, 188syl3c 66 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))) ∈ ℕ0)
190189fmpttd 7135 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))):𝑅⟶ℕ0)
191 elmapg 8879 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((ℕ0 ∈ V ∧ 𝑅 ∈ Fin) → ((𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))) ∈ (ℕ0m 𝑅) ↔ (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))):𝑅⟶ℕ0))
1921, 103, 191sylancr 587 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → ((𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))) ∈ (ℕ0m 𝑅) ↔ (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))):𝑅⟶ℕ0))
193190, 192mpbird 257 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))) ∈ (ℕ0m 𝑅))
194114, 116, 193rspcdva 3623 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (𝑚 Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) ∈ ℕ0)
195112, 194eqeltrd 2841 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) ∈ ℕ0)
196 peano2nn0 12566 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) ∈ ℕ0 → ((((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) + 1) ∈ ℕ0)
197195, 196syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → ((((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) + 1) ∈ ℕ0)
198 nn0p1nn 12565 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℕ)
199100, 198syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) → (𝑚 + 1) ∈ ℕ)
200199ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (𝑚 + 1) ∈ ℕ)
201 equequ1 2024 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 = 𝑤 → (𝑦 = 𝑥𝑤 = 𝑥))
202 fveq2 6906 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 = 𝑤 → (𝑓𝑦) = (𝑓𝑤))
203201, 202ifbieq2d 4552 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 = 𝑤 → if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)) = if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤)))
204203cbvmptv 5255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) = (𝑤𝑅 ↦ if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤)))
205 eqeq2 2749 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑥 = 𝑧 → (𝑤 = 𝑥𝑤 = 𝑧))
206 fveq2 6906 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑥 = 𝑧 → (𝑓𝑥) = (𝑓𝑧))
207206oveq1d 7446 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑥 = 𝑧 → ((𝑓𝑥) − 1) = ((𝑓𝑧) − 1))
208205, 207ifbieq1d 4550 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑥 = 𝑧 → if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤)) = if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤)))
209208mpteq2dv 5244 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑥 = 𝑧 → (𝑤𝑅 ↦ if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤))) = (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤))))
210204, 209eqtrid 2789 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑥 = 𝑧 → (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) = (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤))))
211210oveq2d 7447 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑥 = 𝑧 → ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))) = ((𝑚 + 1) Ramsey (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤)))))
212211cbvmptv 5255 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))) = (𝑧𝑅 ↦ ((𝑚 + 1) Ramsey (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤)))))
213200, 103, 104, 212, 190, 195ramub1 17066 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → ((𝑚 + 1) Ramsey 𝑓) ≤ ((((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) + 1))
214 ramubcl 17056 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((𝑚 + 1) ∈ ℕ0𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ0) ∧ (((((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) + 1) ∈ ℕ0 ∧ ((𝑚 + 1) Ramsey 𝑓) ≤ ((((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) + 1))) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)
215102, 103, 107, 197, 213, 214syl32anc 1380 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)
216215expr 456 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)) → (𝑓:𝑅⟶ℕ → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
217216adantrl 716 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → (𝑓:𝑅⟶ℕ → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
21899, 217sylbird 260 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → (∀𝑥𝑅 (𝑓𝑥) ∈ ℕ → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
219 rexnal 3100 . . . . . . . . . . . . . . . . . . . . . . . 24 (∃𝑥𝑅 ¬ (𝑓𝑥) ∈ ℕ ↔ ¬ ∀𝑥𝑅 (𝑓𝑥) ∈ ℕ)
220 simprl 771 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → 𝑓:𝑅⟶ℕ0)
221220ffvelcdmda 7104 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ 𝑥𝑅) → (𝑓𝑥) ∈ ℕ0)
222 elnn0 12528 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑓𝑥) ∈ ℕ0 ↔ ((𝑓𝑥) ∈ ℕ ∨ (𝑓𝑥) = 0))
223221, 222sylib 218 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ 𝑥𝑅) → ((𝑓𝑥) ∈ ℕ ∨ (𝑓𝑥) = 0))
224223ord 865 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ 𝑥𝑅) → (¬ (𝑓𝑥) ∈ ℕ → (𝑓𝑥) = 0))
225199ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → (𝑚 + 1) ∈ ℕ)
226 simp-4l 783 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → 𝑅 ∈ Fin)
227225, 226, 2203jca 1129 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → ((𝑚 + 1) ∈ ℕ ∧ 𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ0))
228 ramz2 17062 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((𝑚 + 1) ∈ ℕ ∧ 𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ0) ∧ (𝑥𝑅 ∧ (𝑓𝑥) = 0)) → ((𝑚 + 1) Ramsey 𝑓) = 0)
229227, 228sylan 580 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ (𝑥𝑅 ∧ (𝑓𝑥) = 0)) → ((𝑚 + 1) Ramsey 𝑓) = 0)
230229, 86eqeltrdi 2849 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ (𝑥𝑅 ∧ (𝑓𝑥) = 0)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)
231230expr 456 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ 𝑥𝑅) → ((𝑓𝑥) = 0 → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
232224, 231syld 47 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ 𝑥𝑅) → (¬ (𝑓𝑥) ∈ ℕ → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
233232rexlimdva 3155 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → (∃𝑥𝑅 ¬ (𝑓𝑥) ∈ ℕ → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
234219, 233biimtrrid 243 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → (¬ ∀𝑥𝑅 (𝑓𝑥) ∈ ℕ → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
235218, 234pm2.61d 179 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)
236235exp31 419 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → ((𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
237236alrimdv 1929 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → ∀𝑓((𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
238 feq1 6716 . . . . . . . . . . . . . . . . . . . . . . 23 ( = 𝑓 → (:𝑅⟶ℕ0𝑓:𝑅⟶ℕ0))
239 fveq1 6905 . . . . . . . . . . . . . . . . . . . . . . . . 25 ( = 𝑓 → (𝑘) = (𝑓𝑘))
240239sumeq2sdv 15739 . . . . . . . . . . . . . . . . . . . . . . . 24 ( = 𝑓 → Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘))
241240eqeq1d 2739 . . . . . . . . . . . . . . . . . . . . . . 23 ( = 𝑓 → (Σ𝑘𝑅 (𝑘) = (𝑛 + 1) ↔ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)))
242238, 241anbi12d 632 . . . . . . . . . . . . . . . . . . . . . 22 ( = 𝑓 → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) ↔ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))))
243 oveq2 7439 . . . . . . . . . . . . . . . . . . . . . . 23 ( = 𝑓 → ((𝑚 + 1) Ramsey ) = ((𝑚 + 1) Ramsey 𝑓))
244243eleq1d 2826 . . . . . . . . . . . . . . . . . . . . . 22 ( = 𝑓 → (((𝑚 + 1) Ramsey ) ∈ ℕ0 ↔ ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
245242, 244imbi12d 344 . . . . . . . . . . . . . . . . . . . . 21 ( = 𝑓 → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
246245cbvalvw 2035 . . . . . . . . . . . . . . . . . . . 20 (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ∀𝑓((𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
247237, 246imbitrrdi 252 . . . . . . . . . . . . . . . . . . 19 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
248247anassrs 467 . . . . . . . . . . . . . . . . . 18 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ 𝑛 ∈ ℕ0) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
249248expcom 413 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ0 → (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))))
250249a2d 29 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ0 → ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) → (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))))
25136, 41, 46, 51, 94, 250nn0ind 12713 . . . . . . . . . . . . . . 15 𝑘𝑅 (𝑓𝑘) ∈ ℕ0 → (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
252251com12 32 . . . . . . . . . . . . . 14 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → (Σ𝑘𝑅 (𝑓𝑘) ∈ ℕ0 → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
253252adantrl 716 . . . . . . . . . . . . 13 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) → (Σ𝑘𝑅 (𝑓𝑘) ∈ ℕ0 → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
25431, 253mpd 15 . . . . . . . . . . . 12 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))
255240biantrud 531 . . . . . . . . . . . . . . 15 ( = 𝑓 → (:𝑅⟶ℕ0 ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘))))
256255, 238bitr3d 281 . . . . . . . . . . . . . 14 ( = 𝑓 → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) ↔ 𝑓:𝑅⟶ℕ0))
257256, 244imbi12d 344 . . . . . . . . . . . . 13 ( = 𝑓 → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ (𝑓:𝑅⟶ℕ0 → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
258257spvv 1996 . . . . . . . . . . . 12 (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → (𝑓:𝑅⟶ℕ0 → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
259254, 29, 258sylc 65 . . . . . . . . . . 11 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)
260259expr 456 . . . . . . . . . 10 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ 𝑓 ∈ (ℕ0m 𝑅)) → (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0 → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
261260ralrimdva 3154 . . . . . . . . 9 ((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) → (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0 → ∀𝑓 ∈ (ℕ0m 𝑅)((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
26227, 261biimtrid 242 . . . . . . . 8 ((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) → (∀𝑓 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑓) ∈ ℕ0 → ∀𝑓 ∈ (ℕ0m 𝑅)((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
263262expcom 413 . . . . . . 7 (𝑚 ∈ ℕ0 → (𝑅 ∈ Fin → (∀𝑓 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑓) ∈ ℕ0 → ∀𝑓 ∈ (ℕ0m 𝑅)((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
264263a2d 29 . . . . . 6 (𝑚 ∈ ℕ0 → ((𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑓) ∈ ℕ0) → (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
2658, 12, 16, 20, 24, 264nn0ind 12713 . . . . 5 (𝑀 ∈ ℕ0 → (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0))
266265imp 406 . . . 4 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0)
267 oveq2 7439 . . . . . 6 (𝑓 = 𝐹 → (𝑀 Ramsey 𝑓) = (𝑀 Ramsey 𝐹))
268267eleq1d 2826 . . . . 5 (𝑓 = 𝐹 → ((𝑀 Ramsey 𝑓) ∈ ℕ0 ↔ (𝑀 Ramsey 𝐹) ∈ ℕ0))
269268rspccv 3619 . . . 4 (∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0 → (𝐹 ∈ (ℕ0m 𝑅) → (𝑀 Ramsey 𝐹) ∈ ℕ0))
270266, 269syl 17 . . 3 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → (𝐹 ∈ (ℕ0m 𝑅) → (𝑀 Ramsey 𝐹) ∈ ℕ0))
2714, 270sylbird 260 . 2 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → (𝐹:𝑅⟶ℕ0 → (𝑀 Ramsey 𝐹) ∈ ℕ0))
2722713impia 1118 1 ((𝑀 ∈ ℕ0𝑅 ∈ Fin ∧ 𝐹:𝑅⟶ℕ0) → (𝑀 Ramsey 𝐹) ∈ ℕ0)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 848  w3a 1087  wal 1538   = wceq 1540  wcel 2108  wne 2940  wral 3061  wrex 3070  Vcvv 3480  wss 3951  c0 4333  ifcif 4525  {csn 4626   class class class wbr 5143  cmpt 5225   × cxp 5683   Fn wfn 6556  wf 6557  cfv 6561  (class class class)co 7431  m cmap 8866  Fincfn 8985  cc 11153  0cc0 11155  1c1 11156   + caddc 11158  cle 11296  cmin 11492  cn 12266  0cn0 12526  chash 14369  Σcsu 15722   Ramsey cram 17037
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755  ax-inf2 9681  ax-cnex 11211  ax-resscn 11212  ax-1cn 11213  ax-icn 11214  ax-addcl 11215  ax-addrcl 11216  ax-mulcl 11217  ax-mulrcl 11218  ax-mulcom 11219  ax-addass 11220  ax-mulass 11221  ax-distr 11222  ax-i2m1 11223  ax-1ne0 11224  ax-1rid 11225  ax-rnegex 11226  ax-rrecex 11227  ax-cnre 11228  ax-pre-lttri 11229  ax-pre-lttrn 11230  ax-pre-ltadd 11231  ax-pre-mulgt0 11232  ax-pre-sup 11233
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-int 4947  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-se 5638  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-isom 6570  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-om 7888  df-1st 8014  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-1o 8506  df-oadd 8510  df-er 8745  df-map 8868  df-en 8986  df-dom 8987  df-sdom 8988  df-fin 8989  df-sup 9482  df-inf 9483  df-oi 9550  df-dju 9941  df-card 9979  df-pnf 11297  df-mnf 11298  df-xr 11299  df-ltxr 11300  df-le 11301  df-sub 11494  df-neg 11495  df-div 11921  df-nn 12267  df-2 12329  df-3 12330  df-n0 12527  df-xnn0 12600  df-z 12614  df-uz 12879  df-rp 13035  df-ico 13393  df-fz 13548  df-fzo 13695  df-seq 14043  df-exp 14103  df-fac 14313  df-bc 14342  df-hash 14370  df-cj 15138  df-re 15139  df-im 15140  df-sqrt 15274  df-abs 15275  df-clim 15524  df-sum 15723  df-ram 17039
This theorem is referenced by:  ramsey  17068
  Copyright terms: Public domain W3C validator