Theorem vdwpc 16958

Description: The predicate " The coloring 𝐹 contains a polychromatic 𝑀-tuple of AP's of length 𝐾". A polychromatic 𝑀-tuple of AP's is a set of AP's with the same base point but different step lengths, such that each individual AP is monochromatic, but the AP's all have mutually distinct colors. (The common basepoint is not required to have the same color as any of the AP's.) (Contributed by Mario Carneiro, 18-Aug-2014.)

Hypotheses

Ref	Expression
vdwmc.1	⊢ 𝑋 ∈ V
vdwmc.2	⊢ (𝜑 → 𝐾 ∈ ℕ0)
vdwmc.3	⊢ (𝜑 → 𝐹:𝑋⟶𝑅)
vdwpc.4	⊢ (𝜑 → 𝑀 ∈ ℕ)
vdwpc.5	⊢ 𝐽 = (1...𝑀)

Assertion

Ref	Expression
vdwpc	⊢ (𝜑 → (⟨𝑀, 𝐾⟩ PolyAP 𝐹 ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m 𝐽)(∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀)))

Distinct variable groups:   𝑎,𝑑,𝑖,𝐹   𝐾,𝑎,𝑑,𝑖   𝐽,𝑑,𝑖   𝑀,𝑎,𝑑,𝑖

Allowed substitution hints:   𝜑(𝑖,𝑎,𝑑)   𝑅(𝑖,𝑎,𝑑)   𝐽(𝑎)   𝑋(𝑖,𝑎,𝑑)

Proof of Theorem vdwpc

Dummy variables 𝑓 𝑘 𝑚 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		vdwpc.4	. 2 ⊢ (𝜑 → 𝑀 ∈ ℕ)
2		vdwmc.2	. 2 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
3		vdwmc.3	. . 3 ⊢ (𝜑 → 𝐹:𝑋⟶𝑅)
4		vdwmc.1	. . 3 ⊢ 𝑋 ∈ V
5		fex 7203	. . 3 ⊢ ((𝐹:𝑋⟶𝑅 ∧ 𝑋 ∈ V) → 𝐹 ∈ V)
6	3, 4, 5	sylancl 586	. 2 ⊢ (𝜑 → 𝐹 ∈ V)
7		df-br 5111	. . . 4 ⊢ (⟨𝑀, 𝐾⟩ PolyAP 𝐹 ↔ ⟨⟨𝑀, 𝐾⟩, 𝐹⟩ ∈ PolyAP )
8		df-vdwpc 16948	. . . . 5 ⊢ PolyAP = {⟨⟨𝑚, 𝑘⟩, 𝑓⟩ ∣ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m (1...𝑚))(∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚)}
9	8	eleq2i 2821	. . . 4 ⊢ (⟨⟨𝑀, 𝐾⟩, 𝐹⟩ ∈ PolyAP ↔ ⟨⟨𝑀, 𝐾⟩, 𝐹⟩ ∈ {⟨⟨𝑚, 𝑘⟩, 𝑓⟩ ∣ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m (1...𝑚))(∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚)})
10	7, 9	bitri 275	. . 3 ⊢ (⟨𝑀, 𝐾⟩ PolyAP 𝐹 ↔ ⟨⟨𝑀, 𝐾⟩, 𝐹⟩ ∈ {⟨⟨𝑚, 𝑘⟩, 𝑓⟩ ∣ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m (1...𝑚))(∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚)})
11		simp1 1136	. . . . . . . . 9 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → 𝑚 = 𝑀)
12	11	oveq2d 7406	. . . . . . . 8 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (1...𝑚) = (1...𝑀))
13		vdwpc.5	. . . . . . . 8 ⊢ 𝐽 = (1...𝑀)
14	12, 13	eqtr4di 2783	. . . . . . 7 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (1...𝑚) = 𝐽)
15	14	oveq2d 7406	. . . . . 6 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (ℕ ↑m (1...𝑚)) = (ℕ ↑m 𝐽))
16		simp2 1137	. . . . . . . . . . 11 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → 𝑘 = 𝐾)
17	16	fveq2d 6865	. . . . . . . . . 10 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (AP‘𝑘) = (AP‘𝐾))
18	17	oveqd 7407	. . . . . . . . 9 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → ((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) = ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)))
19		simp3 1138	. . . . . . . . . . 11 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → 𝑓 = 𝐹)
20	19	cnveqd 5842	. . . . . . . . . 10 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → ◡𝑓 = ◡𝐹)
21	19	fveq1d 6863	. . . . . . . . . . 11 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (𝑓‘(𝑎 + (𝑑‘𝑖))) = (𝐹‘(𝑎 + (𝑑‘𝑖))))
22	21	sneqd 4604	. . . . . . . . . 10 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → {(𝑓‘(𝑎 + (𝑑‘𝑖)))} = {(𝐹‘(𝑎 + (𝑑‘𝑖)))})
23	20, 22	imaeq12d 6035	. . . . . . . . 9 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) = (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}))
24	18, 23	sseq12d 3983	. . . . . . . 8 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ↔ ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))})))
25	14, 24	raleqbidv 3321	. . . . . . 7 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ↔ ∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))})))
26	14, 21	mpteq12dv 5197	. . . . . . . . . 10 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖)))) = (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))))
27	26	rneqd 5905	. . . . . . . . 9 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖)))) = ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))))
28	27	fveq2d 6865	. . . . . . . 8 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))))
29	28, 11	eqeq12d 2746	. . . . . . 7 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → ((♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚 ↔ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀))
30	25, 29	anbi12d 632	. . . . . 6 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → ((∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚) ↔ (∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀)))
31	15, 30	rexeqbidv 3322	. . . . 5 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (∃𝑑 ∈ (ℕ ↑m (1...𝑚))(∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚) ↔ ∃𝑑 ∈ (ℕ ↑m 𝐽)(∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀)))
32	31	rexbidv 3158	. . . 4 ⊢ ((𝑚 = 𝑀 ∧ 𝑘 = 𝐾 ∧ 𝑓 = 𝐹) → (∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m (1...𝑚))(∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚) ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m 𝐽)(∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀)))
33	32	eloprabga 7501	. . 3 ⊢ ((𝑀 ∈ ℕ ∧ 𝐾 ∈ ℕ0 ∧ 𝐹 ∈ V) → (⟨⟨𝑀, 𝐾⟩, 𝐹⟩ ∈ {⟨⟨𝑚, 𝑘⟩, 𝑓⟩ ∣ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m (1...𝑚))(∀𝑖 ∈ (1...𝑚)((𝑎 + (𝑑‘𝑖))(AP‘𝑘)(𝑑‘𝑖)) ⊆ (◡𝑓 “ {(𝑓‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...𝑚) ↦ (𝑓‘(𝑎 + (𝑑‘𝑖))))) = 𝑚)} ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m 𝐽)(∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀)))
34	10, 33	bitrid 283	. 2 ⊢ ((𝑀 ∈ ℕ ∧ 𝐾 ∈ ℕ0 ∧ 𝐹 ∈ V) → (⟨𝑀, 𝐾⟩ PolyAP 𝐹 ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m 𝐽)(∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀)))
35	1, 2, 6, 34	syl3anc 1373	1 ⊢ (𝜑 → (⟨𝑀, 𝐾⟩ PolyAP 𝐹 ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑m 𝐽)(∀𝑖 ∈ 𝐽 ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ 𝐽 ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 𝑀)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  ∀wral 3045  ∃wrex 3054  Vcvv 3450   ⊆ wss 3917  {csn 4592  ⟨cop 4598   class class class wbr 5110   ↦ cmpt 5191  ^◡ccnv 5640  ran crn 5642   “ cima 5644  ⟶wf 6510  ‘cfv 6514  (class class class)co 7390  {coprab 7391   ↑_m cmap 8802  1c1 11076   + caddc 11078  ℕcn 12193  ℕ₀cn0 12449  ...cfz 13475  ♯chash 14302  APcvdwa 16943   PolyAP cvdwp 16945

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 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pr 5390

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-ov 7393  df-oprab 7394  df-vdwpc 16948

This theorem is referenced by:  vdwlem6  16964  vdwlem7  16965  vdwlem8  16966  vdwlem11  16969