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 16504

Description: Lemma for vdw 16510. (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 11811	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
3		vdwlem8.d	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ ℕ)
4	3	nncnd 11811	. . . . . . . . 9 ⊢ (𝜑 → 𝐷 ∈ ℂ)
5	2, 4	addcomd 10999	. . . . . . . 8 ⊢ (𝜑 → (𝐴 + 𝐷) = (𝐷 + 𝐴))
6	5	oveq2d 7207	. . . . . . 7 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) = (𝑊 − (𝐷 + 𝐴)))
7		vdwlem8.w	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ ℕ)
8	7	nncnd 11811	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ ℂ)
9	8, 4, 2	subsub4d 11185	. . . . . . 7 ⊢ (𝜑 → ((𝑊 − 𝐷) − 𝐴) = (𝑊 − (𝐷 + 𝐴)))
10	6, 9	eqtr4d 2774	. . . . . 6 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) = ((𝑊 − 𝐷) − 𝐴))
11	10	oveq2d 7207	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) = ((𝐴 + 𝐴) + ((𝑊 − 𝐷) − 𝐴)))
12	8, 4	subcld 11154	. . . . . 6 ⊢ (𝜑 → (𝑊 − 𝐷) ∈ ℂ)
13	2, 2, 12	ppncand 11194	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝐴) + ((𝑊 − 𝐷) − 𝐴)) = (𝐴 + (𝑊 − 𝐷)))
14	11, 13	eqtrd 2771	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) = (𝐴 + (𝑊 − 𝐷)))
15	1, 1	nnaddcld 11847	. . . . 5 ⊢ (𝜑 → (𝐴 + 𝐴) ∈ ℕ)
16		vdwlem8.s	. . . . . . . 8 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐺 “ {𝐶}))
17		cnvimass 5934	. . . . . . . . 9 ⊢ (^◡𝐺 “ {𝐶}) ⊆ dom 𝐺
18		fvex 6708	. . . . . . . . . 10 ⊢ (𝐹‘(𝑥 + 𝑊)) ∈ V
19		vdwlem8.g	. . . . . . . . . 10 ⊢ 𝐺 = (𝑥 ∈ (1...𝑊) ↦ (𝐹‘(𝑥 + 𝑊)))
20	18, 19	dmmpti 6500	. . . . . . . . 9 ⊢ dom 𝐺 = (1...𝑊)
21	17, 20	sseqtri 3923	. . . . . . . 8 ⊢ (^◡𝐺 “ {𝐶}) ⊆ (1...𝑊)
22	16, 21	sstrdi 3899	. . . . . . 7 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (1...𝑊))
23		ssun2 4073	. . . . . . . . 9 ⊢ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷) ⊆ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
24		vdwlem8.k	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
25		uz2m1nn 12484	. . . . . . . . . . 11 ⊢ (𝐾 ∈ (ℤ_≥‘2) → (𝐾 − 1) ∈ ℕ)
26	24, 25	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ)
27	1, 3	nnaddcld 11847	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ℕ)
28		vdwapid1 16491	. . . . . . . . . 10 ⊢ (((𝐾 − 1) ∈ ℕ ∧ (𝐴 + 𝐷) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
29	26, 27, 3, 28	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
30	23, 29	sseldi 3885	. . . . . . . 8 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
31		eluz2nn 12445	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
32	24, 31	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ ℕ)
33	32	nncnd 11811	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ ℂ)
34		ax-1cn 10752	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
35		npcan 11052	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 − 1) + 1) = 𝐾)
36	33, 34, 35	sylancl 589	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐾 − 1) + 1) = 𝐾)
37	36	fveq2d 6699	. . . . . . . . . 10 ⊢ (𝜑 → (AP‘((𝐾 − 1) + 1)) = (AP‘𝐾))
38	37	oveqd 7208	. . . . . . . . 9 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = (𝐴(AP‘𝐾)𝐷))
39	26	nnnn0d 12115	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ₀)
40		vdwapun 16490	. . . . . . . . . 10 ⊢ (((𝐾 − 1) ∈ ℕ₀ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
41	39, 1, 3, 40	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
42	38, 41	eqtr3d 2773	. . . . . . . 8 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
43	30, 42	eleqtrrd 2834	. . . . . . 7 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (𝐴(AP‘𝐾)𝐷))
44	22, 43	sseldd 3888	. . . . . 6 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (1...𝑊))
45		elfzuz3 13074	. . . . . 6 ⊢ ((𝐴 + 𝐷) ∈ (1...𝑊) → 𝑊 ∈ (ℤ_≥‘(𝐴 + 𝐷)))
46		uznn0sub 12438	. . . . . 6 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + 𝐷)) → (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀)
47	44, 45, 46	3syl 18	. . . . 5 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀)
48		nnnn0addcl 12085	. . . . 5 ⊢ (((𝐴 + 𝐴) ∈ ℕ ∧ (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀) → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) ∈ ℕ)
49	15, 47, 48	syl2anc 587	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) ∈ ℕ)
50	14, 49	eqeltrrd 2832	. . 3 ⊢ (𝜑 → (𝐴 + (𝑊 − 𝐷)) ∈ ℕ)
51		1nn 11806	. . . . . . . 8 ⊢ 1 ∈ ℕ
52		f1osng 6679	. . . . . . . 8 ⊢ ((1 ∈ ℕ ∧ 𝐷 ∈ ℕ) → {⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷})
53	51, 3, 52	sylancr 590	. . . . . . 7 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷})
54		f1of 6639	. . . . . . 7 ⊢ ({⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷} → {⟨1, 𝐷⟩}:{1}⟶{𝐷})
55	53, 54	syl 17	. . . . . 6 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}⟶{𝐷})
56	3	snssd 4708	. . . . . 6 ⊢ (𝜑 → {𝐷} ⊆ ℕ)
57	55, 56	fssd 6541	. . . . 5 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}⟶ℕ)
58		1z 12172	. . . . . . 7 ⊢ 1 ∈ ℤ
59		fzsn 13119	. . . . . . 7 ⊢ (1 ∈ ℤ → (1...1) = {1})
60	58, 59	ax-mp 5	. . . . . 6 ⊢ (1...1) = {1}
61	60	feq2i 6515	. . . . 5 ⊢ ({⟨1, 𝐷⟩}:(1...1)⟶ℕ ↔ {⟨1, 𝐷⟩}:{1}⟶ℕ)
62	57, 61	sylibr 237	. . . 4 ⊢ (𝜑 → {⟨1, 𝐷⟩}:(1...1)⟶ℕ)
63		nnex 11801	. . . . 5 ⊢ ℕ ∈ V
64		ovex 7224	. . . . 5 ⊢ (1...1) ∈ V
65	63, 64	elmap 8530	. . . 4 ⊢ ({⟨1, 𝐷⟩} ∈ (ℕ ↑_m (1...1)) ↔ {⟨1, 𝐷⟩}:(1...1)⟶ℕ)
66	62, 65	sylibr 237	. . 3 ⊢ (𝜑 → {⟨1, 𝐷⟩} ∈ (ℕ ↑_m (1...1)))
67	1, 7	nnaddcld 11847	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 + 𝑊) ∈ ℕ)
68	67	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + 𝑊) ∈ ℕ)
69		elfznn0 13170	. . . . . . . . . . . . . 14 ⊢ (𝑚 ∈ (0...(𝐾 − 1)) → 𝑚 ∈ ℕ₀)
70	3	nnnn0d 12115	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐷 ∈ ℕ₀)
71		nn0mulcl 12091	. . . . . . . . . . . . . 14 ⊢ ((𝑚 ∈ ℕ₀ ∧ 𝐷 ∈ ℕ₀) → (𝑚 · 𝐷) ∈ ℕ₀)
72	69, 70, 71	syl2anr 600	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℕ₀)
73		nnnn0addcl 12085	. . . . . . . . . . . . 13 ⊢ (((𝐴 + 𝑊) ∈ ℕ ∧ (𝑚 · 𝐷) ∈ ℕ₀) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ ℕ)
74	68, 72, 73	syl2anc 587	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ ℕ)
75		nnuz 12442	. . . . . . . . . . . 12 ⊢ ℕ = (ℤ_≥‘1)
76	74, 75	eleqtrdi 2841	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (ℤ_≥‘1))
77	16	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐺 “ {𝐶}))
78		eqid 2736	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑚 · 𝐷))
79		oveq1 7198	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = 𝑚 → (𝑛 · 𝐷) = (𝑚 · 𝐷))
80	79	oveq2d 7207	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = 𝑚 → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (𝑚 · 𝐷)))
81	80	rspceeqv 3542	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑚 ∈ (0...(𝐾 − 1)) ∧ (𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑚 · 𝐷))) → ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))
82	78, 81	mpan2 691	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ (0...(𝐾 − 1)) → ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))
83	32	nnnn0d 12115	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐾 ∈ ℕ₀)
84		vdwapval 16489	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ ℕ₀ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷) ↔ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
85	83, 1, 3, 84	syl3anc 1373	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷) ↔ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
86	85	biimpar 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))) → (𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷))
87	82, 86	sylan2 596	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷))
88	77, 87	sseldd 3888	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}))
89	18, 19	fnmpti 6499	. . . . . . . . . . . . . . . 16 ⊢ 𝐺 Fn (1...𝑊)
90		fniniseg 6858	. . . . . . . . . . . . . . . 16 ⊢ (𝐺 Fn (1...𝑊) → ((𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}) ↔ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶)))
91	89, 90	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}) ↔ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶))
92	88, 91	sylib 221	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶))
93	92	simpld 498	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊))
94		elfzuz3 13074	. . . . . . . . . . . . 13 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) → 𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))))
95		eluzelz 12413	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) → 𝑊 ∈ ℤ)
96		eluzadd 12434	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) ∧ 𝑊 ∈ ℤ) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
97	95, 96	mpdan 687	. . . . . . . . . . . . 13 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
98	93, 94, 97	3syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
99	8	2timesd 12038	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · 𝑊) = (𝑊 + 𝑊))
100	99	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (2 · 𝑊) = (𝑊 + 𝑊))
101	2	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐴 ∈ ℂ)
102	8	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑊 ∈ ℂ)
103	72	nn0cnd 12117	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℂ)
104	101, 102, 103	add32d 11024	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) = ((𝐴 + (𝑚 · 𝐷)) + 𝑊))
105	104	fveq2d 6699	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
106	98, 100, 105	3eltr4d 2846	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (2 · 𝑊) ∈ (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷))))
107		elfzuzb 13071	. . . . . . . . . . 11 ⊢ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ↔ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (ℤ_≥‘1) ∧ (2 · 𝑊) ∈ (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷)))))
108	76, 106, 107	sylanbrc 586	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)))
109	104	fveq2d 6699	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
110		fvoveq1 7214	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝐴 + (𝑚 · 𝐷)) → (𝐹‘(𝑥 + 𝑊)) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
111		fvex 6708	. . . . . . . . . . . . 13 ⊢ (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)) ∈ V
112	110, 19, 111	fvmpt 6796	. . . . . . . . . . . 12 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
113	93, 112	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
114	92	simprd 499	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶)
115	109, 113, 114	3eqtr2d 2777	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶)
116	108, 115	jca 515	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ∧ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶))
117		eleq1 2818	. . . . . . . . . 10 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ↔ ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊))))
118		fveqeq2 6704	. . . . . . . . . 10 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → ((𝐹‘𝑥) = 𝐶 ↔ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶))
119	117, 118	anbi12d 634	. . . . . . . . 9 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → ((𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶) ↔ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ∧ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶)))
120	116, 119	syl5ibrcom 250	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
121	120	rexlimdva 3193	. . . . . . 7 ⊢ (𝜑 → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
122		vdwapval 16489	. . . . . . . 8 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝐴 + 𝑊) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷))))
123	83, 67, 3, 122	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷))))
124		vdwlem8.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:(1...(2 · 𝑊))⟶𝑅)
125		ffn 6523	. . . . . . . 8 ⊢ (𝐹:(1...(2 · 𝑊))⟶𝑅 → 𝐹 Fn (1...(2 · 𝑊)))
126		fniniseg 6858	. . . . . . . 8 ⊢ (𝐹 Fn (1...(2 · 𝑊)) → (𝑥 ∈ (^◡𝐹 “ {𝐶}) ↔ (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
127	124, 125, 126	3syl 18	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (^◡𝐹 “ {𝐶}) ↔ (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
128	121, 123, 127	3imtr4d 297	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) → 𝑥 ∈ (^◡𝐹 “ {𝐶})))
129	128	ssrdv 3893	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ⊆ (^◡𝐹 “ {𝐶}))
130		fvsng 6973	. . . . . . . . 9 ⊢ ((1 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ({⟨1, 𝐷⟩}‘1) = 𝐷)
131	51, 3, 130	sylancr 590	. . . . . . . 8 ⊢ (𝜑 → ({⟨1, 𝐷⟩}‘1) = 𝐷)
132	131	oveq2d 7207	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)) = ((𝐴 + (𝑊 − 𝐷)) + 𝐷))
133	2, 12, 4	addassd 10820	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + 𝐷) = (𝐴 + ((𝑊 − 𝐷) + 𝐷)))
134	8, 4	npcand 11158	. . . . . . . 8 ⊢ (𝜑 → ((𝑊 − 𝐷) + 𝐷) = 𝑊)
135	134	oveq2d 7207	. . . . . . 7 ⊢ (𝜑 → (𝐴 + ((𝑊 − 𝐷) + 𝐷)) = (𝐴 + 𝑊))
136	132, 133, 135	3eqtrd 2775	. . . . . 6 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)) = (𝐴 + 𝑊))
137	136, 131	oveq12d 7209	. . . . 5 ⊢ (𝜑 → (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) = ((𝐴 + 𝑊)(AP‘𝐾)𝐷))
138	136	fveq2d 6699	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))) = (𝐹‘(𝐴 + 𝑊)))
139		vdwapid1 16491	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ ℕ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐴 ∈ (𝐴(AP‘𝐾)𝐷))
140	32, 1, 3, 139	syl3anc 1373	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ (𝐴(AP‘𝐾)𝐷))
141	16, 140	sseldd 3888	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (^◡𝐺 “ {𝐶}))
142		fniniseg 6858	. . . . . . . . . . . 12 ⊢ (𝐺 Fn (1...𝑊) → (𝐴 ∈ (^◡𝐺 “ {𝐶}) ↔ (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶)))
143	89, 142	ax-mp 5	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (^◡𝐺 “ {𝐶}) ↔ (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶))
144	141, 143	sylib 221	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶))
145	144	simpld 498	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (1...𝑊))
146		fvoveq1 7214	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → (𝐹‘(𝑥 + 𝑊)) = (𝐹‘(𝐴 + 𝑊)))
147		fvex 6708	. . . . . . . . . 10 ⊢ (𝐹‘(𝐴 + 𝑊)) ∈ V
148	146, 19, 147	fvmpt 6796	. . . . . . . . 9 ⊢ (𝐴 ∈ (1...𝑊) → (𝐺‘𝐴) = (𝐹‘(𝐴 + 𝑊)))
149	145, 148	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐺‘𝐴) = (𝐹‘(𝐴 + 𝑊)))
150	144	simprd 499	. . . . . . . 8 ⊢ (𝜑 → (𝐺‘𝐴) = 𝐶)
151	138, 149, 150	3eqtr2d 2777	. . . . . . 7 ⊢ (𝜑 → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))) = 𝐶)
152	151	sneqd 4539	. . . . . 6 ⊢ (𝜑 → {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))} = {𝐶})
153	152	imaeq2d 5914	. . . . 5 ⊢ (𝜑 → (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}) = (^◡𝐹 “ {𝐶}))
154	129, 137, 153	3sstr4d 3934	. . . 4 ⊢ (𝜑 → (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
155	154	ralrimivw 3096	. . 3 ⊢ (𝜑 → ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
156	151	mpteq2dv 5136	. . . . . . . 8 ⊢ (𝜑 → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = (𝑖 ∈ (1...1) ↦ 𝐶))
157		fconstmpt 5596	. . . . . . . 8 ⊢ ((1...1) × {𝐶}) = (𝑖 ∈ (1...1) ↦ 𝐶)
158	156, 157	eqtr4di 2789	. . . . . . 7 ⊢ (𝜑 → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = ((1...1) × {𝐶}))
159	158	rneqd 5792	. . . . . 6 ⊢ (𝜑 → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = ran ((1...1) × {𝐶}))
160		elfz3 13087	. . . . . . . 8 ⊢ (1 ∈ ℤ → 1 ∈ (1...1))
161		ne0i 4235	. . . . . . . 8 ⊢ (1 ∈ (1...1) → (1...1) ≠ ∅)
162	58, 160, 161	mp2b 10	. . . . . . 7 ⊢ (1...1) ≠ ∅
163		rnxp 6013	. . . . . . 7 ⊢ ((1...1) ≠ ∅ → ran ((1...1) × {𝐶}) = {𝐶})
164	162, 163	ax-mp 5	. . . . . 6 ⊢ ran ((1...1) × {𝐶}) = {𝐶}
165	159, 164	eqtrdi 2787	. . . . 5 ⊢ (𝜑 → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = {𝐶})
166	165	fveq2d 6699	. . . 4 ⊢ (𝜑 → (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = (♯‘{𝐶}))
167		vdwlem8.c	. . . . 5 ⊢ 𝐶 ∈ V
168		hashsng 13901	. . . . 5 ⊢ (𝐶 ∈ V → (♯‘{𝐶}) = 1)
169	167, 168	ax-mp 5	. . . 4 ⊢ (♯‘{𝐶}) = 1
170	166, 169	eqtrdi 2787	. . 3 ⊢ (𝜑 → (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1)
171		oveq1 7198	. . . . . . . 8 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝑎 + (𝑑‘𝑖)) = ((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))
172	171	oveq1d 7206	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) = (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)))
173		fvoveq1 7214	. . . . . . . . 9 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝐹‘(𝑎 + (𝑑‘𝑖))) = (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))
174	173	sneqd 4539	. . . . . . . 8 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → {(𝐹‘(𝑎 + (𝑑‘𝑖)))} = {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})
175	174	imaeq2d 5914	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) = (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}))
176	172, 175	sseq12d 3920	. . . . . 6 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ↔ (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})))
177	176	ralbidv 3108	. . . . 5 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ↔ ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})))
178	173	mpteq2dv 5136	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))) = (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))))
179	178	rneqd 5792	. . . . . 6 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))) = ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))))
180	179	fveqeq2d 6703	. . . . 5 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1 ↔ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1))
181	177, 180	anbi12d 634	. . . 4 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1) ↔ (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1)))
182		fveq1 6694	. . . . . . . . . 10 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (𝑑‘𝑖) = ({⟨1, 𝐷⟩}‘𝑖))
183		elfz1eq 13088	. . . . . . . . . . 11 ⊢ (𝑖 ∈ (1...1) → 𝑖 = 1)
184	183	fveq2d 6699	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...1) → ({⟨1, 𝐷⟩}‘𝑖) = ({⟨1, 𝐷⟩}‘1))
185	182, 184	sylan9eq 2791	. . . . . . . . 9 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (𝑑‘𝑖) = ({⟨1, 𝐷⟩}‘1))
186	185	oveq2d 7207	. . . . . . . 8 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → ((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)) = ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))
187	186, 185	oveq12d 7209	. . . . . . 7 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) = (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)))
188	186	fveq2d 6699	. . . . . . . . 9 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))) = (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))
189	188	sneqd 4539	. . . . . . . 8 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))} = {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})
190	189	imaeq2d 5914	. . . . . . 7 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) = (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
191	187, 190	sseq12d 3920	. . . . . 6 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → ((((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ↔ (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})))
192	191	ralbidva 3107	. . . . 5 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ↔ ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})))
193	188	mpteq2dva 5135	. . . . . . 7 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))) = (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))))
194	193	rneqd 5792	. . . . . 6 ⊢ (𝑑 = {⟨1, 𝐷⟩} → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))) = ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))))
195	194	fveqeq2d 6703	. . . . 5 ⊢ (𝑑 = {⟨1, 𝐷⟩} → ((♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1 ↔ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1))
196	192, 195	anbi12d 634	. . . 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 3539	. . 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 1376	. 2 ⊢ (𝜑 → ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑_m (1...1))(∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1))
199		ovex 7224	. . 3 ⊢ (1...(2 · 𝑊)) ∈ V
200	51	a1i 11	. . 3 ⊢ (𝜑 → 1 ∈ ℕ)
201		eqid 2736	. . 3 ⊢ (1...1) = (1...1)
202	199, 83, 124, 200, 201	vdwpc 16496	. 2 ⊢ (𝜑 → (⟨1, 𝐾⟩ PolyAP 𝐹 ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑_m (1...1))(∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1)))
203	198, 202	mpbird 260	1 ⊢ (𝜑 → ⟨1, 𝐾⟩ PolyAP 𝐹)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 399 = wceq 1543 ∈ wcel 2112 ≠ wne 2932 ∀wral 3051 ∃wrex 3052 Vcvv 3398 ∪ cun 3851 ⊆ wss 3853 ∅c0 4223 {csn 4527 ⟨cop 4533 class class class wbr 5039 ↦ cmpt 5120 × cxp 5534 ^◡ccnv 5535 dom cdm 5536 ran crn 5537 “ cima 5539 Fn wfn 6353 ⟶wf 6354 –1-1-onto→wf1o 6357 ‘cfv 6358 (class class class)co 7191 ↑_m cmap 8486 Fincfn 8604 ℂcc 10692 0cc0 10694 1c1 10695 + caddc 10697 · cmul 10699 − cmin 11027 ℕcn 11795 2c2 11850 ℕ₀cn0 12055 ℤcz 12141 ℤ_≥cuz 12403 ...cfz 13060 ♯chash 13861 APcvdwa 16481 PolyAP cvdwp 16483

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1803 ax-4 1817 ax-5 1918 ax-6 1976 ax-7 2018 ax-8 2114 ax-9 2122 ax-10 2143 ax-11 2160 ax-12 2177 ax-ext 2708 ax-rep 5164 ax-sep 5177 ax-nul 5184 ax-pow 5243 ax-pr 5307 ax-un 7501 ax-cnex 10750 ax-resscn 10751 ax-1cn 10752 ax-icn 10753 ax-addcl 10754 ax-addrcl 10755 ax-mulcl 10756 ax-mulrcl 10757 ax-mulcom 10758 ax-addass 10759 ax-mulass 10760 ax-distr 10761 ax-i2m1 10762 ax-1ne0 10763 ax-1rid 10764 ax-rnegex 10765 ax-rrecex 10766 ax-cnre 10767 ax-pre-lttri 10768 ax-pre-lttrn 10769 ax-pre-ltadd 10770 ax-pre-mulgt0 10771

This theorem depends on definitions: df-bi 210 df-an 400 df-or 848 df-3or 1090 df-3an 1091 df-tru 1546 df-fal 1556 df-ex 1788 df-nf 1792 df-sb 2073 df-mo 2539 df-eu 2568 df-clab 2715 df-cleq 2728 df-clel 2809 df-nfc 2879 df-ne 2933 df-nel 3037 df-ral 3056 df-rex 3057 df-reu 3058 df-rab 3060 df-v 3400 df-sbc 3684 df-csb 3799 df-dif 3856 df-un 3858 df-in 3860 df-ss 3870 df-pss 3872 df-nul 4224 df-if 4426 df-pw 4501 df-sn 4528 df-pr 4530 df-tp 4532 df-op 4534 df-uni 4806 df-int 4846 df-iun 4892 df-br 5040 df-opab 5102 df-mpt 5121 df-tr 5147 df-id 5440 df-eprel 5445 df-po 5453 df-so 5454 df-fr 5494 df-we 5496 df-xp 5542 df-rel 5543 df-cnv 5544 df-co 5545 df-dm 5546 df-rn 5547 df-res 5548 df-ima 5549 df-pred 6140 df-ord 6194 df-on 6195 df-lim 6196 df-suc 6197 df-iota 6316 df-fun 6360 df-fn 6361 df-f 6362 df-f1 6363 df-fo 6364 df-f1o 6365 df-fv 6366 df-riota 7148 df-ov 7194 df-oprab 7195 df-mpo 7196 df-om 7623 df-1st 7739 df-2nd 7740 df-wrecs 8025 df-recs 8086 df-rdg 8124 df-1o 8180 df-er 8369 df-map 8488 df-en 8605 df-dom 8606 df-sdom 8607 df-fin 8608 df-card 9520 df-pnf 10834 df-mnf 10835 df-xr 10836 df-ltxr 10837 df-le 10838 df-sub 11029 df-neg 11030 df-nn 11796 df-2 11858 df-n0 12056 df-z 12142 df-uz 12404 df-fz 13061 df-hash 13862 df-vdwap 16484 df-vdwpc 16486

This theorem is referenced by: vdwlem10 16506

W3C validator