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 16925

Description: Lemma for vdw 16931. (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 12232	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
3		vdwlem8.d	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ ℕ)
4	3	nncnd 12232	. . . . . . . . 9 ⊢ (𝜑 → 𝐷 ∈ ℂ)
5	2, 4	addcomd 11420	. . . . . . . 8 ⊢ (𝜑 → (𝐴 + 𝐷) = (𝐷 + 𝐴))
6	5	oveq2d 7427	. . . . . . 7 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) = (𝑊 − (𝐷 + 𝐴)))
7		vdwlem8.w	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ ℕ)
8	7	nncnd 12232	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ ℂ)
9	8, 4, 2	subsub4d 11606	. . . . . . 7 ⊢ (𝜑 → ((𝑊 − 𝐷) − 𝐴) = (𝑊 − (𝐷 + 𝐴)))
10	6, 9	eqtr4d 2773	. . . . . 6 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) = ((𝑊 − 𝐷) − 𝐴))
11	10	oveq2d 7427	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) = ((𝐴 + 𝐴) + ((𝑊 − 𝐷) − 𝐴)))
12	8, 4	subcld 11575	. . . . . 6 ⊢ (𝜑 → (𝑊 − 𝐷) ∈ ℂ)
13	2, 2, 12	ppncand 11615	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝐴) + ((𝑊 − 𝐷) − 𝐴)) = (𝐴 + (𝑊 − 𝐷)))
14	11, 13	eqtrd 2770	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) = (𝐴 + (𝑊 − 𝐷)))
15	1, 1	nnaddcld 12268	. . . . 5 ⊢ (𝜑 → (𝐴 + 𝐴) ∈ ℕ)
16		vdwlem8.s	. . . . . . . 8 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐺 “ {𝐶}))
17		cnvimass 6079	. . . . . . . . 9 ⊢ (^◡𝐺 “ {𝐶}) ⊆ dom 𝐺
18		fvex 6903	. . . . . . . . . 10 ⊢ (𝐹‘(𝑥 + 𝑊)) ∈ V
19		vdwlem8.g	. . . . . . . . . 10 ⊢ 𝐺 = (𝑥 ∈ (1...𝑊) ↦ (𝐹‘(𝑥 + 𝑊)))
20	18, 19	dmmpti 6693	. . . . . . . . 9 ⊢ dom 𝐺 = (1...𝑊)
21	17, 20	sseqtri 4017	. . . . . . . 8 ⊢ (^◡𝐺 “ {𝐶}) ⊆ (1...𝑊)
22	16, 21	sstrdi 3993	. . . . . . 7 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (1...𝑊))
23		ssun2 4172	. . . . . . . . 9 ⊢ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷) ⊆ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
24		vdwlem8.k	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
25		uz2m1nn 12911	. . . . . . . . . . 11 ⊢ (𝐾 ∈ (ℤ_≥‘2) → (𝐾 − 1) ∈ ℕ)
26	24, 25	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ)
27	1, 3	nnaddcld 12268	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ℕ)
28		vdwapid1 16912	. . . . . . . . . 10 ⊢ (((𝐾 − 1) ∈ ℕ ∧ (𝐴 + 𝐷) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
29	26, 27, 3, 28	syl3anc 1369	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
30	23, 29	sselid 3979	. . . . . . . 8 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
31		eluz2nn 12872	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
32	24, 31	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ ℕ)
33	32	nncnd 12232	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ ℂ)
34		ax-1cn 11170	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
35		npcan 11473	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 − 1) + 1) = 𝐾)
36	33, 34, 35	sylancl 584	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐾 − 1) + 1) = 𝐾)
37	36	fveq2d 6894	. . . . . . . . . 10 ⊢ (𝜑 → (AP‘((𝐾 − 1) + 1)) = (AP‘𝐾))
38	37	oveqd 7428	. . . . . . . . 9 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = (𝐴(AP‘𝐾)𝐷))
39	26	nnnn0d 12536	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ₀)
40		vdwapun 16911	. . . . . . . . . 10 ⊢ (((𝐾 − 1) ∈ ℕ₀ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
41	39, 1, 3, 40	syl3anc 1369	. . . . . . . . 9 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
42	38, 41	eqtr3d 2772	. . . . . . . 8 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
43	30, 42	eleqtrrd 2834	. . . . . . 7 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (𝐴(AP‘𝐾)𝐷))
44	22, 43	sseldd 3982	. . . . . 6 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (1...𝑊))
45		elfzuz3 13502	. . . . . 6 ⊢ ((𝐴 + 𝐷) ∈ (1...𝑊) → 𝑊 ∈ (ℤ_≥‘(𝐴 + 𝐷)))
46		uznn0sub 12865	. . . . . 6 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + 𝐷)) → (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀)
47	44, 45, 46	3syl 18	. . . . 5 ⊢ (𝜑 → (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀)
48		nnnn0addcl 12506	. . . . 5 ⊢ (((𝐴 + 𝐴) ∈ ℕ ∧ (𝑊 − (𝐴 + 𝐷)) ∈ ℕ₀) → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) ∈ ℕ)
49	15, 47, 48	syl2anc 582	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐴) + (𝑊 − (𝐴 + 𝐷))) ∈ ℕ)
50	14, 49	eqeltrrd 2832	. . 3 ⊢ (𝜑 → (𝐴 + (𝑊 − 𝐷)) ∈ ℕ)
51		1nn 12227	. . . . . . . 8 ⊢ 1 ∈ ℕ
52		f1osng 6873	. . . . . . . 8 ⊢ ((1 ∈ ℕ ∧ 𝐷 ∈ ℕ) → {⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷})
53	51, 3, 52	sylancr 585	. . . . . . 7 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷})
54		f1of 6832	. . . . . . 7 ⊢ ({⟨1, 𝐷⟩}:{1}–1-1-onto→{𝐷} → {⟨1, 𝐷⟩}:{1}⟶{𝐷})
55	53, 54	syl 17	. . . . . 6 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}⟶{𝐷})
56	3	snssd 4811	. . . . . 6 ⊢ (𝜑 → {𝐷} ⊆ ℕ)
57	55, 56	fssd 6734	. . . . 5 ⊢ (𝜑 → {⟨1, 𝐷⟩}:{1}⟶ℕ)
58		1z 12596	. . . . . . 7 ⊢ 1 ∈ ℤ
59		fzsn 13547	. . . . . . 7 ⊢ (1 ∈ ℤ → (1...1) = {1})
60	58, 59	ax-mp 5	. . . . . 6 ⊢ (1...1) = {1}
61	60	feq2i 6708	. . . . 5 ⊢ ({⟨1, 𝐷⟩}:(1...1)⟶ℕ ↔ {⟨1, 𝐷⟩}:{1}⟶ℕ)
62	57, 61	sylibr 233	. . . 4 ⊢ (𝜑 → {⟨1, 𝐷⟩}:(1...1)⟶ℕ)
63		nnex 12222	. . . . 5 ⊢ ℕ ∈ V
64		ovex 7444	. . . . 5 ⊢ (1...1) ∈ V
65	63, 64	elmap 8867	. . . 4 ⊢ ({⟨1, 𝐷⟩} ∈ (ℕ ↑_m (1...1)) ↔ {⟨1, 𝐷⟩}:(1...1)⟶ℕ)
66	62, 65	sylibr 233	. . 3 ⊢ (𝜑 → {⟨1, 𝐷⟩} ∈ (ℕ ↑_m (1...1)))
67	1, 7	nnaddcld 12268	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 + 𝑊) ∈ ℕ)
68	67	adantr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + 𝑊) ∈ ℕ)
69		elfznn0 13598	. . . . . . . . . . . . . 14 ⊢ (𝑚 ∈ (0...(𝐾 − 1)) → 𝑚 ∈ ℕ₀)
70	3	nnnn0d 12536	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐷 ∈ ℕ₀)
71		nn0mulcl 12512	. . . . . . . . . . . . . 14 ⊢ ((𝑚 ∈ ℕ₀ ∧ 𝐷 ∈ ℕ₀) → (𝑚 · 𝐷) ∈ ℕ₀)
72	69, 70, 71	syl2anr 595	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℕ₀)
73		nnnn0addcl 12506	. . . . . . . . . . . . 13 ⊢ (((𝐴 + 𝑊) ∈ ℕ ∧ (𝑚 · 𝐷) ∈ ℕ₀) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ ℕ)
74	68, 72, 73	syl2anc 582	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ ℕ)
75		nnuz 12869	. . . . . . . . . . . 12 ⊢ ℕ = (ℤ_≥‘1)
76	74, 75	eleqtrdi 2841	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (ℤ_≥‘1))
77	16	adantr 479	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐺 “ {𝐶}))
78		eqid 2730	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑚 · 𝐷))
79		oveq1 7418	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = 𝑚 → (𝑛 · 𝐷) = (𝑚 · 𝐷))
80	79	oveq2d 7427	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = 𝑚 → (𝐴 + (𝑛 · 𝐷)) = (𝐴 + (𝑚 · 𝐷)))
81	80	rspceeqv 3632	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑚 ∈ (0...(𝐾 − 1)) ∧ (𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑚 · 𝐷))) → ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))
82	78, 81	mpan2 687	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ (0...(𝐾 − 1)) → ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷)))
83	32	nnnn0d 12536	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐾 ∈ ℕ₀)
84		vdwapval 16910	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ ℕ₀ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ((𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷) ↔ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
85	83, 1, 3, 84	syl3anc 1369	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷) ↔ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))))
86	85	biimpar 476	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ∃𝑛 ∈ (0...(𝐾 − 1))(𝐴 + (𝑚 · 𝐷)) = (𝐴 + (𝑛 · 𝐷))) → (𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷))
87	82, 86	sylan2 591	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (𝐴(AP‘𝐾)𝐷))
88	77, 87	sseldd 3982	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}))
89	18, 19	fnmpti 6692	. . . . . . . . . . . . . . . 16 ⊢ 𝐺 Fn (1...𝑊)
90		fniniseg 7060	. . . . . . . . . . . . . . . 16 ⊢ (𝐺 Fn (1...𝑊) → ((𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}) ↔ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶)))
91	89, 90	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (^◡𝐺 “ {𝐶}) ↔ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶))
92	88, 91	sylib 217	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) ∧ (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶))
93	92	simpld 493	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊))
94		elfzuz3 13502	. . . . . . . . . . . . 13 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) → 𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))))
95		eluzelz 12836	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) → 𝑊 ∈ ℤ)
96		eluzadd 12855	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) ∧ 𝑊 ∈ ℤ) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
97	95, 96	mpdan 683	. . . . . . . . . . . . 13 ⊢ (𝑊 ∈ (ℤ_≥‘(𝐴 + (𝑚 · 𝐷))) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
98	93, 94, 97	3syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑊 + 𝑊) ∈ (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
99	8	2timesd 12459	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · 𝑊) = (𝑊 + 𝑊))
100	99	adantr 479	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (2 · 𝑊) = (𝑊 + 𝑊))
101	2	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝐴 ∈ ℂ)
102	8	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → 𝑊 ∈ ℂ)
103	72	nn0cnd 12538	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑚 · 𝐷) ∈ ℂ)
104	101, 102, 103	add32d 11445	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) = ((𝐴 + (𝑚 · 𝐷)) + 𝑊))
105	104	fveq2d 6894	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = (ℤ_≥‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
106	98, 100, 105	3eltr4d 2846	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (2 · 𝑊) ∈ (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷))))
107		elfzuzb 13499	. . . . . . . . . . 11 ⊢ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ↔ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (ℤ_≥‘1) ∧ (2 · 𝑊) ∈ (ℤ_≥‘((𝐴 + 𝑊) + (𝑚 · 𝐷)))))
108	76, 106, 107	sylanbrc 581	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)))
109	104	fveq2d 6894	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
110		fvoveq1 7434	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝐴 + (𝑚 · 𝐷)) → (𝐹‘(𝑥 + 𝑊)) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
111		fvex 6903	. . . . . . . . . . . . 13 ⊢ (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)) ∈ V
112	110, 19, 111	fvmpt 6997	. . . . . . . . . . . 12 ⊢ ((𝐴 + (𝑚 · 𝐷)) ∈ (1...𝑊) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
113	93, 112	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = (𝐹‘((𝐴 + (𝑚 · 𝐷)) + 𝑊)))
114	92	simprd 494	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐺‘(𝐴 + (𝑚 · 𝐷))) = 𝐶)
115	109, 113, 114	3eqtr2d 2776	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶)
116	108, 115	jca 510	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ∧ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶))
117		eleq1 2819	. . . . . . . . . 10 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ↔ ((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊))))
118		fveqeq2 6899	. . . . . . . . . 10 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → ((𝐹‘𝑥) = 𝐶 ↔ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶))
119	117, 118	anbi12d 629	. . . . . . . . 9 ⊢ (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → ((𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶) ↔ (((𝐴 + 𝑊) + (𝑚 · 𝐷)) ∈ (1...(2 · 𝑊)) ∧ (𝐹‘((𝐴 + 𝑊) + (𝑚 · 𝐷))) = 𝐶)))
120	116, 119	syl5ibrcom 246	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝐾 − 1))) → (𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
121	120	rexlimdva 3153	. . . . . . 7 ⊢ (𝜑 → (∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷)) → (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
122		vdwapval 16910	. . . . . . . 8 ⊢ ((𝐾 ∈ ℕ₀ ∧ (𝐴 + 𝑊) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷))))
123	83, 67, 3, 122	syl3anc 1369	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ↔ ∃𝑚 ∈ (0...(𝐾 − 1))𝑥 = ((𝐴 + 𝑊) + (𝑚 · 𝐷))))
124		vdwlem8.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:(1...(2 · 𝑊))⟶𝑅)
125		ffn 6716	. . . . . . . 8 ⊢ (𝐹:(1...(2 · 𝑊))⟶𝑅 → 𝐹 Fn (1...(2 · 𝑊)))
126		fniniseg 7060	. . . . . . . 8 ⊢ (𝐹 Fn (1...(2 · 𝑊)) → (𝑥 ∈ (^◡𝐹 “ {𝐶}) ↔ (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
127	124, 125, 126	3syl 18	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (^◡𝐹 “ {𝐶}) ↔ (𝑥 ∈ (1...(2 · 𝑊)) ∧ (𝐹‘𝑥) = 𝐶)))
128	121, 123, 127	3imtr4d 293	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((𝐴 + 𝑊)(AP‘𝐾)𝐷) → 𝑥 ∈ (^◡𝐹 “ {𝐶})))
129	128	ssrdv 3987	. . . . 5 ⊢ (𝜑 → ((𝐴 + 𝑊)(AP‘𝐾)𝐷) ⊆ (^◡𝐹 “ {𝐶}))
130		fvsng 7179	. . . . . . . . 9 ⊢ ((1 ∈ ℕ ∧ 𝐷 ∈ ℕ) → ({⟨1, 𝐷⟩}‘1) = 𝐷)
131	51, 3, 130	sylancr 585	. . . . . . . 8 ⊢ (𝜑 → ({⟨1, 𝐷⟩}‘1) = 𝐷)
132	131	oveq2d 7427	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)) = ((𝐴 + (𝑊 − 𝐷)) + 𝐷))
133	2, 12, 4	addassd 11240	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + 𝐷) = (𝐴 + ((𝑊 − 𝐷) + 𝐷)))
134	8, 4	npcand 11579	. . . . . . . 8 ⊢ (𝜑 → ((𝑊 − 𝐷) + 𝐷) = 𝑊)
135	134	oveq2d 7427	. . . . . . 7 ⊢ (𝜑 → (𝐴 + ((𝑊 − 𝐷) + 𝐷)) = (𝐴 + 𝑊))
136	132, 133, 135	3eqtrd 2774	. . . . . 6 ⊢ (𝜑 → ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)) = (𝐴 + 𝑊))
137	136, 131	oveq12d 7429	. . . . 5 ⊢ (𝜑 → (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) = ((𝐴 + 𝑊)(AP‘𝐾)𝐷))
138	136	fveq2d 6894	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))) = (𝐹‘(𝐴 + 𝑊)))
139		vdwapid1 16912	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ ℕ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → 𝐴 ∈ (𝐴(AP‘𝐾)𝐷))
140	32, 1, 3, 139	syl3anc 1369	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ (𝐴(AP‘𝐾)𝐷))
141	16, 140	sseldd 3982	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (^◡𝐺 “ {𝐶}))
142		fniniseg 7060	. . . . . . . . . . . 12 ⊢ (𝐺 Fn (1...𝑊) → (𝐴 ∈ (^◡𝐺 “ {𝐶}) ↔ (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶)))
143	89, 142	ax-mp 5	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (^◡𝐺 “ {𝐶}) ↔ (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶))
144	141, 143	sylib 217	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ∈ (1...𝑊) ∧ (𝐺‘𝐴) = 𝐶))
145	144	simpld 493	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (1...𝑊))
146		fvoveq1 7434	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → (𝐹‘(𝑥 + 𝑊)) = (𝐹‘(𝐴 + 𝑊)))
147		fvex 6903	. . . . . . . . . 10 ⊢ (𝐹‘(𝐴 + 𝑊)) ∈ V
148	146, 19, 147	fvmpt 6997	. . . . . . . . 9 ⊢ (𝐴 ∈ (1...𝑊) → (𝐺‘𝐴) = (𝐹‘(𝐴 + 𝑊)))
149	145, 148	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐺‘𝐴) = (𝐹‘(𝐴 + 𝑊)))
150	144	simprd 494	. . . . . . . 8 ⊢ (𝜑 → (𝐺‘𝐴) = 𝐶)
151	138, 149, 150	3eqtr2d 2776	. . . . . . 7 ⊢ (𝜑 → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))) = 𝐶)
152	151	sneqd 4639	. . . . . 6 ⊢ (𝜑 → {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))} = {𝐶})
153	152	imaeq2d 6058	. . . . 5 ⊢ (𝜑 → (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}) = (^◡𝐹 “ {𝐶}))
154	129, 137, 153	3sstr4d 4028	. . . 4 ⊢ (𝜑 → (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
155	154	ralrimivw 3148	. . 3 ⊢ (𝜑 → ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
156	151	mpteq2dv 5249	. . . . . . . 8 ⊢ (𝜑 → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = (𝑖 ∈ (1...1) ↦ 𝐶))
157		fconstmpt 5737	. . . . . . . 8 ⊢ ((1...1) × {𝐶}) = (𝑖 ∈ (1...1) ↦ 𝐶)
158	156, 157	eqtr4di 2788	. . . . . . 7 ⊢ (𝜑 → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = ((1...1) × {𝐶}))
159	158	rneqd 5936	. . . . . 6 ⊢ (𝜑 → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = ran ((1...1) × {𝐶}))
160		elfz3 13515	. . . . . . . 8 ⊢ (1 ∈ ℤ → 1 ∈ (1...1))
161		ne0i 4333	. . . . . . . 8 ⊢ (1 ∈ (1...1) → (1...1) ≠ ∅)
162	58, 160, 161	mp2b 10	. . . . . . 7 ⊢ (1...1) ≠ ∅
163		rnxp 6168	. . . . . . 7 ⊢ ((1...1) ≠ ∅ → ran ((1...1) × {𝐶}) = {𝐶})
164	162, 163	ax-mp 5	. . . . . 6 ⊢ ran ((1...1) × {𝐶}) = {𝐶}
165	159, 164	eqtrdi 2786	. . . . 5 ⊢ (𝜑 → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))) = {𝐶})
166	165	fveq2d 6894	. . . 4 ⊢ (𝜑 → (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = (♯‘{𝐶}))
167		vdwlem8.c	. . . . 5 ⊢ 𝐶 ∈ V
168		hashsng 14333	. . . . 5 ⊢ (𝐶 ∈ V → (♯‘{𝐶}) = 1)
169	167, 168	ax-mp 5	. . . 4 ⊢ (♯‘{𝐶}) = 1
170	166, 169	eqtrdi 2786	. . 3 ⊢ (𝜑 → (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1)
171		oveq1 7418	. . . . . . . 8 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝑎 + (𝑑‘𝑖)) = ((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))
172	171	oveq1d 7426	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) = (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)))
173		fvoveq1 7434	. . . . . . . . 9 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝐹‘(𝑎 + (𝑑‘𝑖))) = (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))
174	173	sneqd 4639	. . . . . . . 8 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → {(𝐹‘(𝑎 + (𝑑‘𝑖)))} = {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})
175	174	imaeq2d 6058	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) = (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}))
176	172, 175	sseq12d 4014	. . . . . 6 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ↔ (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})))
177	176	ralbidv 3175	. . . . 5 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ↔ ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))})))
178	173	mpteq2dv 5249	. . . . . . 7 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))) = (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))))
179	178	rneqd 5936	. . . . . 6 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖)))) = ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))))
180	179	fveqeq2d 6898	. . . . 5 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1 ↔ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1))
181	177, 180	anbi12d 629	. . . 4 ⊢ (𝑎 = (𝐴 + (𝑊 − 𝐷)) → ((∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1) ↔ (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1)))
182		fveq1 6889	. . . . . . . . . 10 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (𝑑‘𝑖) = ({⟨1, 𝐷⟩}‘𝑖))
183		elfz1eq 13516	. . . . . . . . . . 11 ⊢ (𝑖 ∈ (1...1) → 𝑖 = 1)
184	183	fveq2d 6894	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...1) → ({⟨1, 𝐷⟩}‘𝑖) = ({⟨1, 𝐷⟩}‘1))
185	182, 184	sylan9eq 2790	. . . . . . . . 9 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (𝑑‘𝑖) = ({⟨1, 𝐷⟩}‘1))
186	185	oveq2d 7427	. . . . . . . 8 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → ((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)) = ((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))
187	186, 185	oveq12d 7429	. . . . . . 7 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) = (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)))
188	186	fveq2d 6894	. . . . . . . . 9 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))) = (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))
189	188	sneqd 4639	. . . . . . . 8 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))} = {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})
190	189	imaeq2d 6058	. . . . . . 7 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) = (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))}))
191	187, 190	sseq12d 4014	. . . . . 6 ⊢ ((𝑑 = {⟨1, 𝐷⟩} ∧ 𝑖 ∈ (1...1)) → ((((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ↔ (((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})))
192	191	ralbidva 3173	. . . . 5 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))}) ↔ ∀𝑖 ∈ (1...1)(((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))(AP‘𝐾)({⟨1, 𝐷⟩}‘1)) ⊆ (^◡𝐹 “ {(𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))})))
193	188	mpteq2dva 5247	. . . . . . 7 ⊢ (𝑑 = {⟨1, 𝐷⟩} → (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))) = (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))))
194	193	rneqd 5936	. . . . . 6 ⊢ (𝑑 = {⟨1, 𝐷⟩} → ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖)))) = ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1)))))
195	194	fveqeq2d 6898	. . . . 5 ⊢ (𝑑 = {⟨1, 𝐷⟩} → ((♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + (𝑑‘𝑖))))) = 1 ↔ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘((𝐴 + (𝑊 − 𝐷)) + ({⟨1, 𝐷⟩}‘1))))) = 1))
196	192, 195	anbi12d 629	. . . 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 3623	. . 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 1372	. 2 ⊢ (𝜑 → ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑_m (1...1))(∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1))
199		ovex 7444	. . 3 ⊢ (1...(2 · 𝑊)) ∈ V
200	51	a1i 11	. . 3 ⊢ (𝜑 → 1 ∈ ℕ)
201		eqid 2730	. . 3 ⊢ (1...1) = (1...1)
202	199, 83, 124, 200, 201	vdwpc 16917	. 2 ⊢ (𝜑 → (⟨1, 𝐾⟩ PolyAP 𝐹 ↔ ∃𝑎 ∈ ℕ ∃𝑑 ∈ (ℕ ↑_m (1...1))(∀𝑖 ∈ (1...1)((𝑎 + (𝑑‘𝑖))(AP‘𝐾)(𝑑‘𝑖)) ⊆ (^◡𝐹 “ {(𝐹‘(𝑎 + (𝑑‘𝑖)))}) ∧ (♯‘ran (𝑖 ∈ (1...1) ↦ (𝐹‘(𝑎 + (𝑑‘𝑖))))) = 1)))
203	198, 202	mpbird 256	1 ⊢ (𝜑 → ⟨1, 𝐾⟩ PolyAP 𝐹)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 394 = wceq 1539 ∈ wcel 2104 ≠ wne 2938 ∀wral 3059 ∃wrex 3068 Vcvv 3472 ∪ cun 3945 ⊆ wss 3947 ∅c0 4321 {csn 4627 ⟨cop 4633 class class class wbr 5147 ↦ cmpt 5230 × cxp 5673 ^◡ccnv 5674 dom cdm 5675 ran crn 5676 “ cima 5678 Fn wfn 6537 ⟶wf 6538 –1-1-onto→wf1o 6541 ‘cfv 6542 (class class class)co 7411 ↑_m cmap 8822 Fincfn 8941 ℂcc 11110 0cc0 11112 1c1 11113 + caddc 11115 · cmul 11117 − cmin 11448 ℕcn 12216 2c2 12271 ℕ₀cn0 12476 ℤcz 12562 ℤ_≥cuz 12826 ...cfz 13488 ♯chash 14294 APcvdwa 16902 PolyAP cvdwp 16904

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 1911 ax-6 1969 ax-7 2009 ax-8 2106 ax-9 2114 ax-10 2135 ax-11 2152 ax-12 2169 ax-ext 2701 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7727 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189

This theorem depends on definitions: df-bi 206 df-an 395 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2532 df-eu 2561 df-clab 2708 df-cleq 2722 df-clel 2808 df-nfc 2883 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-reu 3375 df-rab 3431 df-v 3474 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6299 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7858 df-1st 7977 df-2nd 7978 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 df-er 8705 df-map 8824 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-card 9936 df-pnf 11254 df-mnf 11255 df-xr 11256 df-ltxr 11257 df-le 11258 df-sub 11450 df-neg 11451 df-nn 12217 df-2 12279 df-n0 12477 df-z 12563 df-uz 12827 df-fz 13489 df-hash 14295 df-vdwap 16905 df-vdwpc 16907

This theorem is referenced by: vdwlem10 16927

W3C validator