vdwlem8 - Metamath Proof Explorer

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

Theorem vdwlem8 16324

Description: Lemma for vdw 16330. (Contributed by Mario Carneiro, 18-Aug-2014.)

**Hypotheses**
Ref	Expression
vdwlem8.r	⊢ (𝜑 → 𝑅 ∈ Fin)
vdwlem8.k	⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
vdwlem8.w	⊢ (𝜑 → 𝑊 ∈ ℕ)
vdwlem8.f	⊢ (𝜑 → 𝐹:(1...(2 · 𝑊))⟶𝑅)
vdwlem8.c	⊢ 𝐶 ∈ V
vdwlem8.a	⊢ (𝜑 → 𝐴 ∈ ℕ)
vdwlem8.d	⊢ (𝜑 → 𝐷 ∈ ℕ)
vdwlem8.s	⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐺 “ {𝐶}))
vdwlem8.g	⊢ 𝐺 = (𝑥 ∈ (1...𝑊) ↦ (𝐹‘(𝑥 + 𝑊)))

**Assertion**
Ref	Expression
vdwlem8	⊢ (𝜑 → ⟨1, 𝐾⟩ PolyAP 𝐹)

Distinct variable groups: 𝑥,𝐴 𝑥,𝐷 𝑥,𝐹 𝜑,𝑥 𝑥,𝐶 𝑥,𝐾 𝑥,𝑊 Allowed substitution hints: 𝑅(𝑥) 𝐺(𝑥)

Proof of Theorem vdwlem8 Dummy variables 𝑎 𝑑 𝑖 𝑚 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		vdwlem8.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℕ)
2	1	nncnd 11654	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
3		vdwlem8.d	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ ℕ)
4	3	nncnd 11654	. . . . . . . . 9 ⊢ (𝜑 → 𝐷 ∈ ℂ)
5	2, 4	addcomd 10842	. . . . . . . 8 ⊢ (𝜑 → (𝐴 + 𝐷) = (𝐷 + 𝐴))
6	5	oveq2d 7172	. . . . . . 7 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) = (𝑊 − (𝐷 + 𝐴)))
7		vdwlem8.w	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ ℕ)
8	7	nncnd 11654	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ ℂ)
9	8, 4, 2	subsub4d 11028	. . . . . . 7 ⊢ (𝜑 → ((𝑊 − 𝐷) − 𝐴) = (𝑊 − (𝐷 + 𝐴)))
10	6, 9	eqtr4d 2859	. . . . . 6 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) = ((𝑊 − 𝐷) − 𝐴))
11	10	oveq2d 7172	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) = ((𝐴 + 𝐴) + ((𝑊 − 𝐷) − 𝐴)))
12	8, 4	subcld 10997	. . . . . 6 ⊢ (𝜑 → (𝑊 − 𝐷) ∈ ℂ)
13	2, 2, 12	ppncand 11037	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝐴) + ((𝑊 − 𝐷) − 𝐴)) = (𝐴 + (𝑊 − 𝐷)))
14	11, 13	eqtrd 2856	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) = (𝐴 + (𝑊 − 𝐷)))
15	1, 1	nnaddcld 11690	. . . . 5 ⊢ (𝜑 → (𝐴 + 𝐴) ∈ ℕ)
16		vdwlem8.s	. . . . . . . 8 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐺 “ {𝐶}))
17		cnvimass 5949	. . . . . . . . 9 ⊢ (^◡𝐺 “ {𝐶}) ⊆ dom 𝐺
18		fvex 6683	. . . . . . . . . 10 ⊢ (𝐹‘(𝑥 + 𝑊)) ∈ V
19		vdwlem8.g	. . . . . . . . . 10 ⊢ 𝐺 = (𝑥 ∈ (1...𝑊) ↦ (𝐹‘(𝑥 + 𝑊)))
20	18, 19	dmmpti 6492	. . . . . . . . 9 ⊢ dom 𝐺 = (1...𝑊)
21	17, 20	sseqtri 4003	. . . . . . . 8 ⊢ (^◡𝐺 “ {𝐶}) ⊆ (1...𝑊)
22	16, 21	sstrdi 3979	. . . . . . 7 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (1...𝑊))
23		ssun2 4149	. . . . . . . . 9 ⊢ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷) ⊆ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
24		vdwlem8.k	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
25		uz2m1nn 12324	. . . . . . . . . . 11 ⊢ (𝐾 ∈ (ℤ_≥‘2) → (𝐾 − 1) ∈ ℕ)
26	24, 25	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ)
27	1, 3	nnaddcld 11690	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ℕ)
28		vdwapid1 16311	. . . . . . . . . 10 ⊢ (((𝐾 − 1) ∈ ℕ ∧ (𝐴 + 𝐷) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
29	26, 27, 3, 28	syl3anc 1367	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
30	23, 29	sseldi 3965	. . . . . . . 8 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
31		eluz2nn 12285	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
32	24, 31	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ ℕ)
33	32	nncnd 11654	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ ℂ)
34		ax-1cn 10595	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
35		npcan 10895	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 − 1) + 1) = 𝐾)
36	33, 34, 35	sylancl 588	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐾 − 1) + 1) = 𝐾)
37	36	fveq2d 6674	. . . . . . . . . 10 ⊢ (𝜑 → (AP‘((𝐾 − 1) + 1)) = (AP‘𝐾))
38	37	oveqd 7173	. . . . . . . . 9 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = (𝐴(AP‘𝐾)𝐷))
39	26	nnnn0d 11956	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ₀)
40		vdwapun 16310	. . . . . . . . . 10 ⊢ (((𝐾 − 1) ∈ ℕ₀ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
41	39, 1, 3, 40	syl3anc 1367	. . . . . . . . 9 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
42	38, 41	eqtr3d 2858	. . . . . . . 8 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
43	30, 42	eleqtrrd 2916	. . . . . . 7 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (𝐴(AP‘𝐾)𝐷))
44	22, 43	sseldd 3968	. . . . . 6 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (1...𝑊))
45		elfzuz3 12906	. . . . . 6 ⊢ ((𝐴 + 𝐷) ∈ (1...𝑊) → 𝑊 ∈ (ℤ_≥‘(𝐴 + 𝐷)))
46		uznn0sub 12278	. . . . . 6 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + 𝐷)) → (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀)
47	44, 45, 46	3syl 18	. . . . 5 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀)
48		nnnn0addcl 11928	. . . . 5 ⊢ (((𝐴 + 𝐴) ∈ ℕ ∧ (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀) → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) ∈ ℕ)
49	15, 47, 48	syl2anc 586	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) ∈ ℕ)
50	14, 49	eqeltrrd 2914	. . 3 ⊢ (𝜑 → (𝐴 + (𝑊 − 𝐷)) ∈ ℕ)
51		1nn 11649	. . . . . . . 8 ⊢ 1 ∈ ℕ
52		f1osng 6655	. . . . . . . 8 ⊢ ((1 ∈ ℕ ∧ 𝐷 ∈ ℕ) → {⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷})
53	51, 3, 52	sylancr 589	. . . . . . 7 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷})
54		f1of 6615	. . . . . . 7 ⊢ ({⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷} → {⟨1, 𝐷⟩}:{1}⟶{𝐷})
55	53, 54	syl 17	. . . . . 6 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}⟶{𝐷})
56	3	snssd 4742	. . . . . 6 ⊢ (𝜑 → {𝐷} ⊆ ℕ)
57	55, 56	fssd 6528	. . . . 5 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}⟶ℕ)
58		1z 12013	. . . . . . 7 ⊢ 1 ∈ ℤ
59		fzsn 12950	. . . . . . 7 ⊢ (1 ∈ ℤ → (1...1) = {1})
60	58, 59	ax-mp 5	. . . . . 6 ⊢ (1...1) = {1}
61	60	feq2i 6506	. . . . 5 ⊢ ({⟨1, 𝐷⟩}:(1...1)⟶ℕ ↔ {⟨1, 𝐷⟩}:{1}⟶ℕ)
62	57, 61	sylibr 236	. . . 4 ⊢ (𝜑 → {⟨1, 𝐷⟩}:(1...1)⟶ℕ)
63		nnex 11644	. . . . 5 ⊢ ℕ ∈ V
64		ovex 7189	. . . . 5 ⊢ (1...1) ∈ V
65	63, 64	elmap 8435	. . . 4 ⊢ ({⟨1, 𝐷⟩} ∈ (ℕ ↑_m (1...1)) ↔ {⟨1, 𝐷⟩}:(1...1)⟶ℕ)
66	62, 65	sylibr 236	. . 3 ⊢ (𝜑 → {⟨1, 𝐷⟩} ∈ (ℕ ↑_m (1...1)))
67	1, 7	nnaddcld 11690	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 + 𝑊) ∈ ℕ)
68	67	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + 𝑊) ∈ ℕ)
69		elfznn0 13001	. . . . . . . . . . . . . 14 ⊢ (𝑚 ∈ (0...(𝐾 − 1)) → 𝑚 ∈ ℕ₀)
70	3	nnnn0d 11956	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐷 ∈ ℕ₀)
71		nn0mulcl 11934	. . . . . . . . . . . . . 14 ⊢ ((𝑚 ∈ ℕ₀ ∧ 𝐷 ∈ ℕ₀) → (𝑚 · 𝐷) ∈ ℕ₀)
72	69, 70, 71	syl2anr 598	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℕ₀)
73		nnnn0addcl 11928	. . . . . . . . . . . . 13 ⊢ (((𝐴 + 𝑊) ∈ ℕ ∧ (𝑚 · 𝐷) ∈ ℕ₀) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ ℕ)
74	68, 72, 73	syl2anc 586	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ ℕ)
75		nnuz 12282	. . . . . . . . . . . 12 ⊢ ℕ = (ℤ_≥‘1)
76	74, 75	eleqtrdi 2923	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (ℤ_≥‘1))
77	16	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐺 “ {𝐶}))
78		eqid 2821	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑚 · 𝐷))
79		oveq1 7163	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = 𝑚 → (𝑛 · 𝐷) = (𝑚 · 𝐷))
80	79	oveq2d 7172	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = 𝑚 → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (𝑚 · 𝐷)))
81	80	rspceeqv 3638	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑚 ∈ (0...(𝐾 − 1)) ∧ (𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑚 · 𝐷))) → ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))
82	78, 81	mpan2 689	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ (0...(𝐾 − 1)) → ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))
83	32	nnnn0d 11956	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐾 ∈ ℕ₀)
84		vdwapval 16309	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ ℕ₀ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷) ↔ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
85	83, 1, 3, 84	syl3anc 1367	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷) ↔ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
86	85	biimpar 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))) → (𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷))
87	82, 86	sylan2 594	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷))
88	77, 87	sseldd 3968	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}))
89	18, 19	fnmpti 6491	. . . . . . . . . . . . . . . 16 ⊢ 𝐺 Fn (1...𝑊)
90		fniniseg 6830	. . . . . . . . . . . . . . . 16 ⊢ (𝐺 Fn (1...𝑊) → ((𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}) ↔ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶)))
91	89, 90	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}) ↔ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶))
92	88, 91	sylib 220	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶))
93	92	simpld 497	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊))
94		elfzuz3 12906	. . . . . . . . . . . . 13 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) → 𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))))
95		eluzelz 12254	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) → 𝑊 ∈ ℤ)
96		eluzadd 12274	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) ∧ 𝑊 ∈ ℤ) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
97	95, 96	mpdan 685	. . . . . . . . . . . . 13 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
98	93, 94, 97	3syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
99	8	2timesd 11881	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · 𝑊) = (𝑊 + 𝑊))
100	99	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (2 · 𝑊) = (𝑊 + 𝑊))
101	2	adantr 483	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐴 ∈ ℂ)
102	8	adantr 483	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑊 ∈ ℂ)
103	72	nn0cnd 11958	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℂ)
104	101, 102, 103	add32d 10867	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) = ((𝐴 + (𝑚 · 𝐷)) + 𝑊))
105	104	fveq2d 6674	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
106	98, 100, 105	3eltr4d 2928	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (2 · 𝑊) ∈ (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷))))
107		elfzuzb 12903	. . . . . . . . . . 11 ⊢ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ↔ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (ℤ_≥‘1) ∧ (2 · 𝑊) ∈ (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷)))))
108	76, 106, 107	sylanbrc 585	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)))
109	104	fveq2d 6674	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
110		fvoveq1 7179	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝐴 + (𝑚 · 𝐷)) → (𝐹‘(𝑥 + 𝑊)) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
111		fvex 6683	. . . . . . . . . . . . 13 ⊢ (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)) ∈ V
112	110, 19, 111	fvmpt 6768	. . . . . . . . . . . 12 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
113	93, 112	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
114	92	simprd 498	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶)
115	109, 113, 114	3eqtr2d 2862	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶)
116	108, 115	jca 514	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ∧ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶))
117		eleq1 2900	. . . . . . . . . 10 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ↔ ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊))))
118		fveqeq2 6679	. . . . . . . . . 10 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → ((𝐹‘𝑥) = 𝐶 ↔ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶))
119	117, 118	anbi12d 632	. . . . . . . . 9 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → ((𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶) ↔ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ∧ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶)))
120	116, 119	syl5ibrcom 249	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
121	120	rexlimdva 3284	. . . . . . 7 ⊢ (𝜑 → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
122		vdwapval 16309	. . . . . . . 8 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝐴 + 𝑊) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷))))
123	83, 67, 3, 122	syl3anc 1367	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷))))
124		vdwlem8.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:(1...(2 · 𝑊))⟶𝑅)
125		ffn 6514	. . . . . . . 8 ⊢ (𝐹:(1...(2 · 𝑊))⟶𝑅 → 𝐹 Fn (1...(2 · 𝑊)))
126		fniniseg 6830	. . . . . . . 8 ⊢ (𝐹 Fn (1...(2 · 𝑊)) → (𝑥 ∈ (^◡𝐹 “ {𝐶}) ↔ (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
127	124, 125, 126	3syl 18	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (^◡𝐹 “ {𝐶}) ↔ (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
128	121, 123, 127	3imtr4d 296	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) → 𝑥 ∈ (^◡𝐹 “ {𝐶})))
129	128	ssrdv 3973	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ⊆ (^◡𝐹 “ {𝐶}))
130		fvsng 6942	. . . . . . . . 9 ⊢ ((1 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ({⟨1, 𝐷⟩}‘1) = 𝐷)
131	51, 3, 130	sylancr 589	. . . . . . . 8 ⊢ (𝜑 → ({⟨1, 𝐷⟩}‘1) = 𝐷)
132	131	oveq2d 7172	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)) = ((𝐴 + (𝑊 − 𝐷)) + 𝐷))
133	2, 12, 4	addassd 10663	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + 𝐷) = (𝐴 + ((𝑊 − 𝐷) + 𝐷)))
134	8, 4	npcand 11001	. . . . . . . 8 ⊢ (𝜑 → ((𝑊 − 𝐷) + 𝐷) = 𝑊)
135	134	oveq2d 7172	. . . . . . 7 ⊢ (𝜑 → (𝐴 + ((𝑊 − 𝐷) + 𝐷)) = (𝐴 + 𝑊))
136	132, 133, 135	3eqtrd 2860	. . . . . 6 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)) = (𝐴 + 𝑊))
137	136, 131	oveq12d 7174	. . . . 5 ⊢ (𝜑 → (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) = ((𝐴 + 𝑊)(AP‘𝐾)𝐷))
138	136	fveq2d 6674	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))) = (𝐹‘(𝐴 + 𝑊)))
139		vdwapid1 16311	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ ℕ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐴 ∈ (𝐴(AP‘𝐾)𝐷))
140	32, 1, 3, 139	syl3anc 1367	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ (𝐴(AP‘𝐾)𝐷))
141	16, 140	sseldd 3968	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (^◡𝐺 “ {𝐶}))
142		fniniseg 6830	. . . . . . . . . . . 12 ⊢ (𝐺 Fn (1...𝑊) → (𝐴 ∈ (^◡𝐺 “ {𝐶}) ↔ (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶)))
143	89, 142	ax-mp 5	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (^◡𝐺 “ {𝐶}) ↔ (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶))
144	141, 143	sylib 220	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶))
145	144	simpld 497	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (1...𝑊))
146		fvoveq1 7179	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → (𝐹‘(𝑥 + 𝑊)) = (𝐹‘(𝐴 + 𝑊)))
147		fvex 6683	. . . . . . . . . 10 ⊢ (𝐹‘(𝐴 + 𝑊)) ∈ V
148	146, 19, 147	fvmpt 6768	. . . . . . . . 9 ⊢ (𝐴 ∈ (1...𝑊) → (𝐺‘𝐴) = (𝐹‘(𝐴 + 𝑊)))
149	145, 148	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐺‘𝐴) = (𝐹‘(𝐴 + 𝑊)))
150	144	simprd 498	. . . . . . . 8 ⊢ (𝜑 → (𝐺‘𝐴) = 𝐶)
151	138, 149, 150	3eqtr2d 2862	. . . . . . 7 ⊢ (𝜑 → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))) = 𝐶)
152	151	sneqd 4579	. . . . . 6 ⊢ (𝜑 → {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))} = {𝐶})
153	152	imaeq2d 5929	. . . . 5 ⊢ (𝜑 → (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}) = (^◡𝐹 “ {𝐶}))
154	129, 137, 153	3sstr4d 4014	. . . 4 ⊢ (𝜑 → (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
155	154	ralrimivw 3183	. . 3 ⊢ (𝜑 → ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
156	151	mpteq2dv 5162	. . . . . . . 8 ⊢ (𝜑 → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = (𝑖 ∈ (1...1) ↦ 𝐶))
157		fconstmpt 5614	. . . . . . . 8 ⊢ ((1...1) × {𝐶}) = (𝑖 ∈ (1...1) ↦ 𝐶)
158	156, 157	syl6eqr 2874	. . . . . . 7 ⊢ (𝜑 → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = ((1...1) × {𝐶}))
159	158	rneqd 5808	. . . . . 6 ⊢ (𝜑 → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = ran ((1...1) × {𝐶}))
160		elfz3 12918	. . . . . . . 8 ⊢ (1 ∈ ℤ → 1 ∈ (1...1))
161		ne0i 4300	. . . . . . . 8 ⊢ (1 ∈ (1...1) → (1...1) ≠ ∅)
162	58, 160, 161	mp2b 10	. . . . . . 7 ⊢ (1...1) ≠ ∅
163		rnxp 6027	. . . . . . 7 ⊢ ((1...1) ≠ ∅ → ran ((1...1) × {𝐶}) = {𝐶})
164	162, 163	ax-mp 5	. . . . . 6 ⊢ ran ((1...1) × {𝐶}) = {𝐶}
165	159, 164	syl6eq 2872	. . . . 5 ⊢ (𝜑 → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = {𝐶})
166	165	fveq2d 6674	. . . 4 ⊢ (𝜑 → (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = (♯‘{𝐶}))
167		vdwlem8.c	. . . . 5 ⊢ 𝐶 ∈ V
168		hashsng 13731	. . . . 5 ⊢ (𝐶 ∈ V → (♯‘{𝐶}) = 1)
169	167, 168	ax-mp 5	. . . 4 ⊢ (♯‘{𝐶}) = 1
170	166, 169	syl6eq 2872	. . 3 ⊢ (𝜑 → (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1)
171		oveq1 7163	. . . . . . . 8 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝑎 + (𝑑‘𝑖)) = ((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))
172	171	oveq1d 7171	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) = (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)))
173		fvoveq1 7179	. . . . . . . . 9 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝐹‘(𝑎 + (𝑑‘𝑖))) = (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))
174	173	sneqd 4579	. . . . . . . 8 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → {(𝐹‘(𝑎 + (𝑑‘𝑖)))} = {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})
175	174	imaeq2d 5929	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) = (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}))
176	172, 175	sseq12d 4000	. . . . . 6 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ↔ (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})))
177	176	ralbidv 3197	. . . . 5 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ↔ ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})))
178	173	mpteq2dv 5162	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))) = (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))))
179	178	rneqd 5808	. . . . . 6 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))) = ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))))
180	179	fveqeq2d 6678	. . . . 5 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1 ↔ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1))
181	177, 180	anbi12d 632	. . . 4 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1) ↔ (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1)))
182		fveq1 6669	. . . . . . . . . 10 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (𝑑‘𝑖) = ({⟨1, 𝐷⟩}‘𝑖))
183		elfz1eq 12919	. . . . . . . . . . 11 ⊢ (𝑖 ∈ (1...1) → 𝑖 = 1)
184	183	fveq2d 6674	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...1) → ({⟨1, 𝐷⟩}‘𝑖) = ({⟨1, 𝐷⟩}‘1))
185	182, 184	sylan9eq 2876	. . . . . . . . 9 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (𝑑‘𝑖) = ({⟨1, 𝐷⟩}‘1))
186	185	oveq2d 7172	. . . . . . . 8 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → ((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)) = ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))
187	186, 185	oveq12d 7174	. . . . . . 7 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) = (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)))
188	186	fveq2d 6674	. . . . . . . . 9 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))) = (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))
189	188	sneqd 4579	. . . . . . . 8 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))} = {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})
190	189	imaeq2d 5929	. . . . . . 7 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) = (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
191	187, 190	sseq12d 4000	. . . . . 6 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → ((((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ↔ (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})))
192	191	ralbidva 3196	. . . . 5 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ↔ ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})))
193	188	mpteq2dva 5161	. . . . . . 7 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))) = (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))))
194	193	rneqd 5808	. . . . . 6 ⊢ (𝑑 = {⟨1, 𝐷⟩} → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))) = ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))))
195	194	fveqeq2d 6678	. . . . 5 ⊢ (𝑑 = {⟨1, 𝐷⟩} → ((♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1 ↔ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1))
196	192, 195	anbi12d 632	. . . 4 ⊢ (𝑑 = {⟨1, 𝐷⟩} → ((∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1) ↔ (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1)))
197	181, 196	rspc2ev 3635	. . 3 ⊢ (((𝐴 + (𝑊 − 𝐷)) ∈ ℕ ∧ {⟨1, 𝐷⟩} ∈ (ℕ ↑_m (1...1)) ∧ (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1)) → ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑_m (1...1))(∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1))
198	50, 66, 155, 170, 197	syl112anc 1370	. 2 ⊢ (𝜑 → ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑_m (1...1))(∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1))
199		ovex 7189	. . 3 ⊢ (1...(2 · 𝑊)) ∈ V
200	51	a1i 11	. . 3 ⊢ (𝜑 → 1 ∈ ℕ)
201		eqid 2821	. . 3 ⊢ (1...1) = (1...1)
202	199, 83, 124, 200, 201	vdwpc 16316	. 2 ⊢ (𝜑 → (⟨1, 𝐾⟩ PolyAP 𝐹 ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑_m (1...1))(∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1)))
203	198, 202	mpbird 259	1 ⊢ (𝜑 → ⟨1, 𝐾⟩ PolyAP 𝐹)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 398 = wceq 1537 ∈ wcel 2114 ≠ wne 3016 ∀wral 3138 ∃wrex 3139 Vcvv 3494 ∪ cun 3934 ⊆ wss 3936 ∅c0 4291 {csn 4567 ⟨cop 4573 class class class wbr 5066 ↦ cmpt 5146 × cxp 5553 ^◡ccnv 5554 dom cdm 5555 ran crn 5556 “ cima 5558 Fn wfn 6350 ⟶wf 6351 –1-1-onto→wf1o 6354 ‘cfv 6355 (class class class)co 7156 ↑_m cmap 8406 Fincfn 8509 ℂcc 10535 0cc0 10537 1c1 10538 + caddc 10540 · cmul 10542 − cmin 10870 ℕcn 11638 2c2 11693 ℕ₀cn0 11898 ℤcz 11982 ℤ_≥cuz 12244 ...cfz 12893 ♯chash 13691 APcvdwa 16301 PolyAP cvdwp 16303

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2793 ax-rep 5190 ax-sep 5203 ax-nul 5210 ax-pow 5266 ax-pr 5330 ax-un 7461 ax-cnex 10593 ax-resscn 10594 ax-1cn 10595 ax-icn 10596 ax-addcl 10597 ax-addrcl 10598 ax-mulcl 10599 ax-mulrcl 10600 ax-mulcom 10601 ax-addass 10602 ax-mulass 10603 ax-distr 10604 ax-i2m1 10605 ax-1ne0 10606 ax-1rid 10607 ax-rnegex 10608 ax-rrecex 10609 ax-cnre 10610 ax-pre-lttri 10611 ax-pre-lttrn 10612 ax-pre-ltadd 10613 ax-pre-mulgt0 10614

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1540 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2800 df-cleq 2814 df-clel 2893 df-nfc 2963 df-ne 3017 df-nel 3124 df-ral 3143 df-rex 3144 df-reu 3145 df-rab 3147 df-v 3496 df-sbc 3773 df-csb 3884 df-dif 3939 df-un 3941 df-in 3943 df-ss 3952 df-pss 3954 df-nul 4292 df-if 4468 df-pw 4541 df-sn 4568 df-pr 4570 df-tp 4572 df-op 4574 df-uni 4839 df-int 4877 df-iun 4921 df-br 5067 df-opab 5129 df-mpt 5147 df-tr 5173 df-id 5460 df-eprel 5465 df-po 5474 df-so 5475 df-fr 5514 df-we 5516 df-xp 5561 df-rel 5562 df-cnv 5563 df-co 5564 df-dm 5565 df-rn 5566 df-res 5567 df-ima 5568 df-pred 6148 df-ord 6194 df-on 6195 df-lim 6196 df-suc 6197 df-iota 6314 df-fun 6357 df-fn 6358 df-f 6359 df-f1 6360 df-fo 6361 df-f1o 6362 df-fv 6363 df-riota 7114 df-ov 7159 df-oprab 7160 df-mpo 7161 df-om 7581 df-1st 7689 df-2nd 7690 df-wrecs 7947 df-recs 8008 df-rdg 8046 df-1o 8102 df-er 8289 df-map 8408 df-en 8510 df-dom 8511 df-sdom 8512 df-fin 8513 df-card 9368 df-pnf 10677 df-mnf 10678 df-xr 10679 df-ltxr 10680 df-le 10681 df-sub 10872 df-neg 10873 df-nn 11639 df-2 11701 df-n0 11899 df-z 11983 df-uz 12245 df-fz 12894 df-hash 13692 df-vdwap 16304 df-vdwpc 16306

This theorem is referenced by: vdwlem10 16326

W3C validator