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

Theorem ramcl 17063
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 12530 . . . 4 0 ∈ V
2 simpr 484 . . . 4 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → 𝑅 ∈ Fin)
3 elmapg 8878 . . . 4 ((ℕ0 ∈ V ∧ 𝑅 ∈ Fin) → (𝐹 ∈ (ℕ0m 𝑅) ↔ 𝐹:𝑅⟶ℕ0))
41, 2, 3sylancr 587 . . 3 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → (𝐹 ∈ (ℕ0m 𝑅) ↔ 𝐹:𝑅⟶ℕ0))
5 oveq1 7438 . . . . . . . . 9 (𝑥 = 0 → (𝑥 Ramsey 𝑓) = (0 Ramsey 𝑓))
65eleq1d 2824 . . . . . . . 8 (𝑥 = 0 → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ (0 Ramsey 𝑓) ∈ ℕ0))
76ralbidv 3176 . . . . . . 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 2824 . . . . . . . 8 (𝑥 = 𝑚 → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ (𝑚 Ramsey 𝑓) ∈ ℕ0))
1110ralbidv 3176 . . . . . . 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 2824 . . . . . . . 8 (𝑥 = (𝑚 + 1) → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
1514ralbidv 3176 . . . . . . 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 2824 . . . . . . . 8 (𝑥 = 𝑀 → ((𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ (𝑀 Ramsey 𝑓) ∈ ℕ0))
1918ralbidv 3176 . . . . . . 7 (𝑥 = 𝑀 → (∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0 ↔ ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0))
2019imbi2d 340 . . . . . 6 (𝑥 = 𝑀 → ((𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑥 Ramsey 𝑓) ∈ ℕ0) ↔ (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0)))
21 elmapi 8888 . . . . . . . 8 (𝑓 ∈ (ℕ0m 𝑅) → 𝑓:𝑅⟶ℕ0)
22 0ramcl 17057 . . . . . . . 8 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ0) → (0 Ramsey 𝑓) ∈ ℕ0)
2321, 22sylan2 593 . . . . . . 7 ((𝑅 ∈ Fin ∧ 𝑓 ∈ (ℕ0m 𝑅)) → (0 Ramsey 𝑓) ∈ ℕ0)
2423ralrimiva 3144 . . . . . 6 (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(0 Ramsey 𝑓) ∈ ℕ0)
25 oveq2 7439 . . . . . . . . . . 11 (𝑓 = 𝑔 → (𝑚 Ramsey 𝑓) = (𝑚 Ramsey 𝑔))
2625eleq1d 2824 . . . . . . . . . 10 (𝑓 = 𝑔 → ((𝑚 Ramsey 𝑓) ∈ ℕ0 ↔ (𝑚 Ramsey 𝑔) ∈ ℕ0))
2726cbvralvw 3235 . . . . . . . . 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 15769 . . . . . . . . . . . . 13 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (𝑓 ∈ (ℕ0m 𝑅) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0)) → Σ𝑘𝑅 (𝑓𝑘) ∈ ℕ0)
32 eqeq2 2747 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 0 → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = 0))
3332anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 0 → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0)))
3433imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = 0 → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
3534albidv 1918 . . . . . . . . . . . . . . . . 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 2747 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑛 → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = 𝑛))
3837anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑛 → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛)))
3938imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑛 → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
4039albidv 1918 . . . . . . . . . . . . . . . . 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 2747 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = (𝑛 + 1) → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)))
4342anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = (𝑛 + 1) → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1))))
4443imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑛 + 1) → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
4544albidv 1918 . . . . . . . . . . . . . . . . 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 2747 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → (Σ𝑘𝑅 (𝑘) = 𝑥 ↔ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)))
4847anbi2d 630 . . . . . . . . . . . . . . . . . . 19 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) ↔ (:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘))))
4948imbi1d 341 . . . . . . . . . . . . . . . . . 18 (𝑥 = Σ𝑘𝑅 (𝑓𝑘) → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑥) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)))
5049albidv 1918 . . . . . . . . . . . . . . . . 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 12586 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑘𝑅) → (𝑘) ∈ ℝ)
5654nn0ge0d 12588 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑘𝑅) → 0 ≤ (𝑘))
5752, 55, 56fsum00 15831 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (Σ𝑘𝑅 (𝑘) = 0 ↔ ∀𝑘𝑅 (𝑘) = 0))
58 fvex 6920 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑘) ∈ V
5958rgenw 3063 . . . . . . . . . . . . . . . . . . . . . 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 5751 . . . . . . . . . . . . . . . . . . . . . 22 (𝑅 × {0}) = (𝑘𝑅 ↦ 0)
6665a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (𝑅 × {0}) = (𝑘𝑅 ↦ 0))
6764, 66eqeq12d 2751 . . . . . . . . . . . . . . . . . . . 20 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → ( = (𝑅 × {0}) ↔ (𝑘𝑅 ↦ (𝑘)) = (𝑘𝑅 ↦ 0)))
6862, 67bitr4d 282 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (Σ𝑘𝑅 (𝑘) = 0 ↔ = (𝑅 × {0})))
69 xpeq1 5703 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑅 = ∅ → (𝑅 × {0}) = (∅ × {0}))
70 0xp 5787 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∅ × {0}) = ∅
7169, 70eqtrdi 2791 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑅 = ∅ → (𝑅 × {0}) = ∅)
7271oveq2d 7447 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑅 = ∅ → ((𝑚 + 1) Ramsey (𝑅 × {0})) = ((𝑚 + 1) Ramsey ∅))
73 simpllr 776 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → 𝑚 ∈ ℕ0)
74 peano2nn0 12564 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℕ0)
7573, 74syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → (𝑚 + 1) ∈ ℕ0)
76 ram0 17056 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑚 + 1) ∈ ℕ0 → ((𝑚 + 1) Ramsey ∅) = (𝑚 + 1))
7775, 76syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → ((𝑚 + 1) Ramsey ∅) = (𝑚 + 1))
7872, 77sylan9eqr 2797 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 = ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) = (𝑚 + 1))
7975adantr 480 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 = ∅) → (𝑚 + 1) ∈ ℕ0)
8078, 79eqeltrd 2839 . . . . . . . . . . . . . . . . . . . . 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 17059 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑚 + 1) ∈ ℕ0𝑅 ∈ Fin ∧ 𝑅 ≠ ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) = 0)
8581, 82, 83, 84syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 ≠ ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) = 0)
86 0nn0 12539 . . . . . . . . . . . . . . . . . . . . . 22 0 ∈ ℕ0
8785, 86eqeltrdi 2847 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) ∧ 𝑅 ≠ ∅) → ((𝑚 + 1) Ramsey (𝑅 × {0})) ∈ ℕ0)
8880, 87pm2.61dane 3027 . . . . . . . . . . . . . . . . . . . 20 ((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) ∧ :𝑅⟶ℕ0) → ((𝑚 + 1) Ramsey (𝑅 × {0})) ∈ ℕ0)
89 oveq2 7439 . . . . . . . . . . . . . . . . . . . . 21 ( = (𝑅 × {0}) → ((𝑚 + 1) Ramsey ) = ((𝑚 + 1) Ramsey (𝑅 × {0})))
9089eleq1d 2824 . . . . . . . . . . . . . . . . . . . 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 1925 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ ∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0) → ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 0) → ((𝑚 + 1) Ramsey ) ∈ ℕ0))
95 ffn 6737 . . . . . . . . . . . . . . . . . . . . . . . . . 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 12527 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ℕ ⊆ ℕ0
106 fss 6753 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑓:𝑅⟶ℕ ∧ ℕ ⊆ ℕ0) → 𝑓:𝑅⟶ℕ0)
107104, 105, 106sylancl 586 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → 𝑓:𝑅⟶ℕ0)
108101nn0cnd 12587 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → 𝑚 ∈ ℂ)
109 ax-1cn 11211 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 1 ∈ ℂ
110 pncan 11512 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2824 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 12565 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 4577 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 1185 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → (𝑓𝑘) ∈ ℕ)
132131nncnd 12280 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → (𝑓𝑘) ∈ ℂ)
133132subid1d 11607 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → ((𝑓𝑘) − 0) = (𝑓𝑘))
134133ifeq2d 4551 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑘) − 1), ((𝑓𝑘) − 0)) = if(𝑘 = 𝑥, ((𝑓𝑘) − 1), (𝑓𝑘)))
135 fveq2 6907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 (𝑘 = 𝑥 → (𝑓𝑘) = (𝑓𝑥))
136135adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ((((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) ∧ 𝑘 = 𝑥) → (𝑓𝑘) = (𝑓𝑥))
137136oveq1d 7446 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) ∧ 𝑘 = 𝑥) → ((𝑓𝑘) − 1) = ((𝑓𝑥) − 1))
138137ifeq1da 4562 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑘) − 1), (𝑓𝑘)) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
139134, 138eqtr2d 2776 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = if(𝑘 = 𝑥, ((𝑓𝑘) − 1), ((𝑓𝑘) − 0)))
140 ovif2 7532 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)) = if(𝑘 = 𝑥, ((𝑓𝑘) − 1), ((𝑓𝑘) − 0))
141139, 140eqtr4di 2793 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)))
142141sumeq2dv 15735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = Σ𝑘𝑅 ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)))
143 simp1 1135 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → 𝑅 ∈ Fin)
144 0cn 11251 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 0 ∈ ℂ
145109, 144ifcli 4578 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 if(𝑘 = 𝑥, 1, 0) ∈ ℂ
146145a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) ∧ 𝑘𝑅) → if(𝑘 = 𝑥, 1, 0) ∈ ℂ)
147143, 132, 146fsumsub 15821 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 ((𝑓𝑘) − if(𝑘 = 𝑥, 1, 0)) = (Σ𝑘𝑅 (𝑓𝑘) − Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0)))
148 elsng 4645 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑘𝑅 → (𝑘 ∈ {𝑥} ↔ 𝑘 = 𝑥))
149148ifbid 4554 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑘𝑅 → if(𝑘 ∈ {𝑥}, 1, 0) = if(𝑘 = 𝑥, 1, 0))
150149sumeq2i 15731 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0)
151 simp3 1137 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → 𝑥𝑅)
152151snssd 4814 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → {𝑥} ⊆ 𝑅)
153 sumhash 16930 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((𝑅 ∈ Fin ∧ {𝑥} ⊆ 𝑅) → Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = (♯‘{𝑥}))
154143, 152, 153syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = (♯‘{𝑥}))
155 hashsng 14405 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑥𝑅 → (♯‘{𝑥}) = 1)
156151, 155syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → (♯‘{𝑥}) = 1)
157154, 156eqtrd 2775 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 ∈ {𝑥}, 1, 0) = 1)
158150, 157eqtr3id 2789 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0) = 1)
159158oveq2d 7447 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → (Σ𝑘𝑅 (𝑓𝑘) − Σ𝑘𝑅 if(𝑘 = 𝑥, 1, 0)) = (Σ𝑘𝑅 (𝑓𝑘) − 1))
160142, 147, 1593eqtrd 2779 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ ∧ 𝑥𝑅) → Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) = (Σ𝑘𝑅 (𝑓𝑘) − 1))
161117, 128, 129, 160syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 12587 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) ∧ 𝑥𝑅) → 𝑛 ∈ ℂ)
167 pncan 11512 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2779 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 6717 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → (:𝑅⟶ℕ0 ↔ (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))):𝑅⟶ℕ0))
172 fveq1 6906 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → (𝑘) = ((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))‘𝑘))
173 equequ1 2022 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑦 = 𝑘 → (𝑦 = 𝑥𝑘 = 𝑥))
174 fveq2 6907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑦 = 𝑘 → (𝑓𝑦) = (𝑓𝑘))
175173, 174ifbieq2d 4557 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑦 = 𝑘 → if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
176 eqid 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))
177 ovex 7464 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ((𝑓𝑥) − 1) ∈ V
178 fvex 6920 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑓𝑘) ∈ V
179177, 178ifex 4581 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)) ∈ V
180175, 176, 179fvmpt 7016 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑘𝑅 → ((𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))‘𝑘) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
181172, 180sylan9eq 2795 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) ∧ 𝑘𝑅) → (𝑘) = if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
182181sumeq2dv 15735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ( = (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) → Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 if(𝑘 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑘)))
183182eqeq1d 2737 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2824 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 8878 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2839 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → (((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) ∈ ℕ0)
196 peano2nn0 12564 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 12563 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2022 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 = 𝑤 → (𝑦 = 𝑥𝑤 = 𝑥))
202 fveq2 6907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 = 𝑤 → (𝑓𝑦) = (𝑓𝑤))
203201, 202ifbieq2d 4557 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 = 𝑤 → if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)) = if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤)))
204203cbvmptv 5261 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) = (𝑤𝑅 ↦ if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤)))
205 eqeq2 2747 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑥 = 𝑧 → (𝑤 = 𝑥𝑤 = 𝑧))
206 fveq2 6907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑥 = 𝑧 → (𝑓𝑥) = (𝑓𝑧))
207206oveq1d 7446 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑥 = 𝑧 → ((𝑓𝑥) − 1) = ((𝑓𝑧) − 1))
208205, 207ifbieq1d 4555 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑥 = 𝑧 → if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤)) = if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤)))
209208mpteq2dv 5250 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑥 = 𝑧 → (𝑤𝑅 ↦ if(𝑤 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑤))) = (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤))))
210204, 209eqtrid 2787 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑥 = 𝑧 → (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))) = (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤))))
211210oveq2d 7447 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑥 = 𝑧 → ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))) = ((𝑚 + 1) Ramsey (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤)))))
212211cbvmptv 5261 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦))))) = (𝑧𝑅 ↦ ((𝑚 + 1) Ramsey (𝑤𝑅 ↦ if(𝑤 = 𝑧, ((𝑓𝑧) − 1), (𝑓𝑤)))))
213200, 103, 104, 212, 190, 195ramub1 17062 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1) ∧ 𝑓:𝑅⟶ℕ)) → ((𝑚 + 1) Ramsey 𝑓) ≤ ((((𝑚 + 1) − 1) Ramsey (𝑥𝑅 ↦ ((𝑚 + 1) Ramsey (𝑦𝑅 ↦ if(𝑦 = 𝑥, ((𝑓𝑥) − 1), (𝑓𝑦)))))) + 1))
214 ramubcl 17052 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 1377 . . . . . . . . . . . . . . . . . . . . . . . . . 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 3098 . . . . . . . . . . . . . . . . . . . . . . . 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 12526 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑓𝑥) ∈ ℕ0 ↔ ((𝑓𝑥) ∈ ℕ ∨ (𝑓𝑥) = 0))
223221, 222sylib 218 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) ∧ 𝑥𝑅) → ((𝑓𝑥) ∈ ℕ ∨ (𝑓𝑥) = 0))
224223ord 864 . . . . . . . . . . . . . . . . . . . . . . . . . 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 1127 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) ∧ ∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0)) ∧ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))) → ((𝑚 + 1) ∈ ℕ ∧ 𝑅 ∈ Fin ∧ 𝑓:𝑅⟶ℕ0))
228 ramz2 17058 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2847 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 3153 . . . . . . . . . . . . . . . . . . . . . . . 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 1927 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 ∈ Fin ∧ 𝑚 ∈ ℕ0) ∧ (∀𝑔 ∈ (ℕ0m 𝑅)(𝑚 Ramsey 𝑔) ∈ ℕ0𝑛 ∈ ℕ0)) → (∀((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = 𝑛) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) → ∀𝑓((𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
238 feq1 6717 . . . . . . . . . . . . . . . . . . . . . . 23 ( = 𝑓 → (:𝑅⟶ℕ0𝑓:𝑅⟶ℕ0))
239 fveq1 6906 . . . . . . . . . . . . . . . . . . . . . . . . 25 ( = 𝑓 → (𝑘) = (𝑓𝑘))
240239sumeq2sdv 15736 . . . . . . . . . . . . . . . . . . . . . . . 24 ( = 𝑓 → Σ𝑘𝑅 (𝑘) = Σ𝑘𝑅 (𝑓𝑘))
241240eqeq1d 2737 . . . . . . . . . . . . . . . . . . . . . . 23 ( = 𝑓 → (Σ𝑘𝑅 (𝑘) = (𝑛 + 1) ↔ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)))
242238, 241anbi12d 632 . . . . . . . . . . . . . . . . . . . . . 22 ( = 𝑓 → ((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) ↔ (𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1))))
243 oveq2 7439 . . . . . . . . . . . . . . . . . . . . . . 23 ( = 𝑓 → ((𝑚 + 1) Ramsey ) = ((𝑚 + 1) Ramsey 𝑓))
244243eleq1d 2824 . . . . . . . . . . . . . . . . . . . . . 22 ( = 𝑓 → (((𝑚 + 1) Ramsey ) ∈ ℕ0 ↔ ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0))
245242, 244imbi12d 344 . . . . . . . . . . . . . . . . . . . . 21 ( = 𝑓 → (((:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey ) ∈ ℕ0) ↔ ((𝑓:𝑅⟶ℕ0 ∧ Σ𝑘𝑅 (𝑓𝑘) = (𝑛 + 1)) → ((𝑚 + 1) Ramsey 𝑓) ∈ ℕ0)))
246245cbvalvw 2033 . . . . . . . . . . . . . . . . . . . 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 12711 . . . . . . . . . . . . . . 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 1994 . . . . . . . . . . . 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 3152 . . . . . . . . 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 12711 . . . . 5 (𝑀 ∈ ℕ0 → (𝑅 ∈ Fin → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0))
266265imp 406 . . . 4 ((𝑀 ∈ ℕ0𝑅 ∈ Fin) → ∀𝑓 ∈ (ℕ0m 𝑅)(𝑀 Ramsey 𝑓) ∈ ℕ0)
267 oveq2 7439 . . . . . 6 (𝑓 = 𝐹 → (𝑀 Ramsey 𝑓) = (𝑀 Ramsey 𝐹))
268267eleq1d 2824 . . . . 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 1116 1 ((𝑀 ∈ ℕ0𝑅 ∈ Fin ∧ 𝐹:𝑅⟶ℕ0) → (𝑀 Ramsey 𝐹) ∈ ℕ0)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 847  w3a 1086  wal 1535   = wceq 1537  wcel 2106  wne 2938  wral 3059  wrex 3068  Vcvv 3478  wss 3963  c0 4339  ifcif 4531  {csn 4631   class class class wbr 5148  cmpt 5231   × cxp 5687   Fn wfn 6558  wf 6559  cfv 6563  (class class class)co 7431  m cmap 8865  Fincfn 8984  cc 11151  0cc0 11153  1c1 11154   + caddc 11156  cle 11294  cmin 11490  cn 12264  0cn0 12524  chash 14366  Σcsu 15719   Ramsey cram 17033
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-rep 5285  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754  ax-inf2 9679  ax-cnex 11209  ax-resscn 11210  ax-1cn 11211  ax-icn 11212  ax-addcl 11213  ax-addrcl 11214  ax-mulcl 11215  ax-mulrcl 11216  ax-mulcom 11217  ax-addass 11218  ax-mulass 11219  ax-distr 11220  ax-i2m1 11221  ax-1ne0 11222  ax-1rid 11223  ax-rnegex 11224  ax-rrecex 11225  ax-cnre 11226  ax-pre-lttri 11227  ax-pre-lttrn 11228  ax-pre-ltadd 11229  ax-pre-mulgt0 11230  ax-pre-sup 11231
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3378  df-reu 3379  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-int 4952  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5583  df-eprel 5589  df-po 5597  df-so 5598  df-fr 5641  df-se 5642  df-we 5643  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-pred 6323  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fo 6569  df-f1o 6570  df-fv 6571  df-isom 6572  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-om 7888  df-1st 8013  df-2nd 8014  df-frecs 8305  df-wrecs 8336  df-recs 8410  df-rdg 8449  df-1o 8505  df-oadd 8509  df-er 8744  df-map 8867  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-sup 9480  df-inf 9481  df-oi 9548  df-dju 9939  df-card 9977  df-pnf 11295  df-mnf 11296  df-xr 11297  df-ltxr 11298  df-le 11299  df-sub 11492  df-neg 11493  df-div 11919  df-nn 12265  df-2 12327  df-3 12328  df-n0 12525  df-xnn0 12598  df-z 12612  df-uz 12877  df-rp 13033  df-ico 13390  df-fz 13545  df-fzo 13692  df-seq 14040  df-exp 14100  df-fac 14310  df-bc 14339  df-hash 14367  df-cj 15135  df-re 15136  df-im 15137  df-sqrt 15271  df-abs 15272  df-clim 15521  df-sum 15720  df-ram 17035
This theorem is referenced by:  ramsey  17064
  Copyright terms: Public domain W3C validator