vdwlem5 - Metamath Proof Explorer

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

Theorem vdwlem5 16914

Description: Lemma for vdw 16923. (Contributed by Mario Carneiro, 12-Sep-2014.)

**Hypotheses**
Ref	Expression
vdwlem3.v	⊢ (𝜑 → 𝑉 ∈ ℕ)
vdwlem3.w	⊢ (𝜑 → 𝑊 ∈ ℕ)
vdwlem4.r	⊢ (𝜑 → 𝑅 ∈ Fin)
vdwlem4.h	⊢ (𝜑 → 𝐻:(1...(𝑊 · (2 · 𝑉)))⟶𝑅)
vdwlem4.f	⊢ 𝐹 = (𝑥 ∈ (1...𝑉) ↦ (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑥 − 1) + 𝑉))))))
vdwlem7.m	⊢ (𝜑 → 𝑀 ∈ ℕ)
vdwlem7.g	⊢ (𝜑 → 𝐺:(1...𝑊)⟶𝑅)
vdwlem7.k	⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
vdwlem7.a	⊢ (𝜑 → 𝐴 ∈ ℕ)
vdwlem7.d	⊢ (𝜑 → 𝐷 ∈ ℕ)
vdwlem7.s	⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐹 “ {𝐺}))
vdwlem6.b	⊢ (𝜑 → 𝐵 ∈ ℕ)
vdwlem6.e	⊢ (𝜑 → 𝐸:(1...𝑀)⟶ℕ)
vdwlem6.s	⊢ (𝜑 → ∀𝑖 ∈ (1...𝑀)((𝐵 + (𝐸‘𝑖))(AP‘𝐾)(𝐸‘𝑖)) ⊆ (^◡𝐺 “ {(𝐺‘(𝐵 + (𝐸‘𝑖)))}))
vdwlem6.j	⊢ 𝐽 = (𝑖 ∈ (1...𝑀) ↦ (𝐺‘(𝐵 + (𝐸‘𝑖))))
vdwlem6.r	⊢ (𝜑 → (♯‘ran 𝐽) = 𝑀)
vdwlem6.t	⊢ 𝑇 = (𝐵 + (𝑊 · ((𝐴 + (𝑉 − 𝐷)) − 1)))
vdwlem6.p	⊢ 𝑃 = (𝑗 ∈ (1...(𝑀 + 1)) ↦ (if(𝑗 = (𝑀 + 1), 0, (𝐸‘𝑗)) + (𝑊 · 𝐷)))

**Assertion**
Ref	Expression
vdwlem5	⊢ (𝜑 → 𝑇 ∈ ℕ)

Distinct variable groups: 𝑥,𝑦,𝐴 𝑖,𝑗,𝑥,𝑦,𝐺 𝑖,𝐾,𝑗,𝑥,𝑦 𝑖,𝐽,𝑗,𝑥 𝑃,𝑖,𝑥 𝜑,𝑖,𝑗,𝑥,𝑦 𝑅,𝑖,𝑥,𝑦 𝐵,𝑖,𝑗,𝑥,𝑦 𝑖,𝐻,𝑥,𝑦 𝑖,𝑀,𝑗,𝑥,𝑦 𝐷,𝑗,𝑥,𝑦 𝑖,𝐸,𝑗,𝑥,𝑦 𝑖,𝑊,𝑗,𝑥,𝑦 𝑇,𝑖,𝑥 𝑥,𝑉,𝑦 Allowed substitution hints: 𝐴(𝑖,𝑗) 𝐷(𝑖) 𝑃(𝑦,𝑗) 𝑅(𝑗) 𝑇(𝑦,𝑗) 𝐹(𝑥,𝑦,𝑖,𝑗) 𝐻(𝑗) 𝐽(𝑦) 𝑉(𝑖,𝑗)

**Proof of Theorem vdwlem5**
Step	Hyp	Ref	Expression
1		vdwlem6.t	. 2 ⊢ 𝑇 = (𝐵 + (𝑊 · ((𝐴 + (𝑉 − 𝐷)) − 1)))
2		vdwlem6.b	. . 3 ⊢ (𝜑 → 𝐵 ∈ ℕ)
3		vdwlem3.w	. . . . 5 ⊢ (𝜑 → 𝑊 ∈ ℕ)
4	3	nnnn0d 12528	. . . 4 ⊢ (𝜑 → 𝑊 ∈ ℕ₀)
5		vdwlem7.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℕ)
6		vdwlem3.v	. . . . . . . . . 10 ⊢ (𝜑 → 𝑉 ∈ ℕ)
7	6	nncnd 12224	. . . . . . . . 9 ⊢ (𝜑 → 𝑉 ∈ ℂ)
8		vdwlem7.d	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ ℕ)
9	8	nncnd 12224	. . . . . . . . 9 ⊢ (𝜑 → 𝐷 ∈ ℂ)
10	7, 9	subcld 11567	. . . . . . . 8 ⊢ (𝜑 → (𝑉 − 𝐷) ∈ ℂ)
11	5	nncnd 12224	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℂ)
12	10, 11	npcand 11571	. . . . . . 7 ⊢ (𝜑 → (((𝑉 − 𝐷) − 𝐴) + 𝐴) = (𝑉 − 𝐷))
13	7, 9, 11	subsub4d 11598	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑉 − 𝐷) − 𝐴) = (𝑉 − (𝐷 + 𝐴)))
14	9, 11	addcomd 11412	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐷 + 𝐴) = (𝐴 + 𝐷))
15	14	oveq2d 7421	. . . . . . . . . 10 ⊢ (𝜑 → (𝑉 − (𝐷 + 𝐴)) = (𝑉 − (𝐴 + 𝐷)))
16	13, 15	eqtrd 2772	. . . . . . . . 9 ⊢ (𝜑 → ((𝑉 − 𝐷) − 𝐴) = (𝑉 − (𝐴 + 𝐷)))
17		cnvimass 6077	. . . . . . . . . . . . 13 ⊢ (^◡𝐹 “ {𝐺}) ⊆ dom 𝐹
18		vdwlem4.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Fin)
19		vdwlem4.h	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐻:(1...(𝑊 · (2 · 𝑉)))⟶𝑅)
20		vdwlem4.f	. . . . . . . . . . . . . 14 ⊢ 𝐹 = (𝑥 ∈ (1...𝑉) ↦ (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑥 − 1) + 𝑉))))))
21	6, 3, 18, 19, 20	vdwlem4 16913	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹:(1...𝑉)⟶(𝑅 ↑_m (1...𝑊)))
22	17, 21	fssdm 6734	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡𝐹 “ {𝐺}) ⊆ (1...𝑉))
23		vdwlem7.s	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) ⊆ (^◡𝐹 “ {𝐺}))
24		ssun2 4172	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷) ⊆ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
25		vdwlem7.k	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
26		uz2m1nn 12903	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ (ℤ_≥‘2) → (𝐾 − 1) ∈ ℕ)
27	25, 26	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ)
28	5, 8	nnaddcld 12260	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ℕ)
29		vdwapid1 16904	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 − 1) ∈ ℕ ∧ (𝐴 + 𝐷) ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
30	27, 28, 8, 29	syl3anc 1371	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷))
31	24, 30	sselid 3979	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
32		eluz2nn 12864	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
33	25, 32	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐾 ∈ ℕ)
34	33	nncnd 12224	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐾 ∈ ℂ)
35		ax-1cn 11164	. . . . . . . . . . . . . . . . . 18 ⊢ 1 ∈ ℂ
36		npcan 11465	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 − 1) + 1) = 𝐾)
37	34, 35, 36	sylancl 586	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐾 − 1) + 1) = 𝐾)
38	37	fveq2d 6892	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (AP‘((𝐾 − 1) + 1)) = (AP‘𝐾))
39	38	oveqd 7422	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = (𝐴(AP‘𝐾)𝐷))
40		nnm1nn0 12509	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ ℕ → (𝐾 − 1) ∈ ℕ₀)
41	33, 40	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ₀)
42		vdwapun 16903	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 − 1) ∈ ℕ₀ ∧ 𝐴 ∈ ℕ ∧ 𝐷 ∈ ℕ) → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
43	41, 5, 8, 42	syl3anc 1371	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴(AP‘((𝐾 − 1) + 1))𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
44	39, 43	eqtr3d 2774	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴(AP‘𝐾)𝐷) = ({𝐴} ∪ ((𝐴 + 𝐷)(AP‘(𝐾 − 1))𝐷)))
45	31, 44	eleqtrrd 2836	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (𝐴(AP‘𝐾)𝐷))
46	23, 45	sseldd 3982	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (^◡𝐹 “ {𝐺}))
47	22, 46	sseldd 3982	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 + 𝐷) ∈ (1...𝑉))
48		elfzuz3 13494	. . . . . . . . . . 11 ⊢ ((𝐴 + 𝐷) ∈ (1...𝑉) → 𝑉 ∈ (ℤ_≥‘(𝐴 + 𝐷)))
49	47, 48	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑉 ∈ (ℤ_≥‘(𝐴 + 𝐷)))
50		uznn0sub 12857	. . . . . . . . . 10 ⊢ (𝑉 ∈ (ℤ_≥‘(𝐴 + 𝐷)) → (𝑉 − (𝐴 + 𝐷)) ∈ ℕ₀)
51	49, 50	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑉 − (𝐴 + 𝐷)) ∈ ℕ₀)
52	16, 51	eqeltrd 2833	. . . . . . . 8 ⊢ (𝜑 → ((𝑉 − 𝐷) − 𝐴) ∈ ℕ₀)
53		nn0nnaddcl 12499	. . . . . . . 8 ⊢ ((((𝑉 − 𝐷) − 𝐴) ∈ ℕ₀ ∧ 𝐴 ∈ ℕ) → (((𝑉 − 𝐷) − 𝐴) + 𝐴) ∈ ℕ)
54	52, 5, 53	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (((𝑉 − 𝐷) − 𝐴) + 𝐴) ∈ ℕ)
55	12, 54	eqeltrrd 2834	. . . . . 6 ⊢ (𝜑 → (𝑉 − 𝐷) ∈ ℕ)
56	5, 55	nnaddcld 12260	. . . . 5 ⊢ (𝜑 → (𝐴 + (𝑉 − 𝐷)) ∈ ℕ)
57		nnm1nn0 12509	. . . . 5 ⊢ ((𝐴 + (𝑉 − 𝐷)) ∈ ℕ → ((𝐴 + (𝑉 − 𝐷)) − 1) ∈ ℕ₀)
58	56, 57	syl 17	. . . 4 ⊢ (𝜑 → ((𝐴 + (𝑉 − 𝐷)) − 1) ∈ ℕ₀)
59	4, 58	nn0mulcld 12533	. . 3 ⊢ (𝜑 → (𝑊 · ((𝐴 + (𝑉 − 𝐷)) − 1)) ∈ ℕ₀)
60		nnnn0addcl 12498	. . 3 ⊢ ((𝐵 ∈ ℕ ∧ (𝑊 · ((𝐴 + (𝑉 − 𝐷)) − 1)) ∈ ℕ₀) → (𝐵 + (𝑊 · ((𝐴 + (𝑉 − 𝐷)) − 1))) ∈ ℕ)
61	2, 59, 60	syl2anc 584	. 2 ⊢ (𝜑 → (𝐵 + (𝑊 · ((𝐴 + (𝑉 − 𝐷)) − 1))) ∈ ℕ)
62	1, 61	eqeltrid 2837	1 ⊢ (𝜑 → 𝑇 ∈ ℕ)

Colors of variables: wff setvar class

Syntax hints: → wi 4 = wceq 1541 ∈ wcel 2106 ∀wral 3061 ∪ cun 3945 ⊆ wss 3947 ifcif 4527 {csn 4627 ↦ cmpt 5230 ^◡ccnv 5674 ran crn 5676 “ cima 5678 ⟶wf 6536 ‘cfv 6540 (class class class)co 7405 ↑_m cmap 8816 Fincfn 8935 ℂcc 11104 0cc0 11106 1c1 11107 + caddc 11109 · cmul 11111 − cmin 11440 ℕcn 12208 2c2 12263 ℕ₀cn0 12468 ℤ_≥cuz 12818 ...cfz 13480 ♯chash 14286 APcvdwa 16894

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-reu 3377 df-rab 3433 df-v 3476 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-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 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-om 7852 df-1st 7971 df-2nd 7972 df-frecs 8262 df-wrecs 8293 df-recs 8367 df-rdg 8406 df-er 8699 df-map 8818 df-en 8936 df-dom 8937 df-sdom 8938 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11442 df-neg 11443 df-nn 12209 df-2 12271 df-n0 12469 df-z 12555 df-uz 12819 df-fz 13481 df-vdwap 16897

This theorem is referenced by: vdwlem6 16915

W3C validator