Theorem elqaalem2 26282

Description: Lemma for elqaa 26284. (Contributed by Mario Carneiro, 23-Jul-2014.) (Revised by AV, 3-Oct-2020.)

Hypotheses

Ref	Expression
elqaa.1	⊢ (𝜑 → 𝐴 ∈ ℂ)
elqaa.2	⊢ (𝜑 → 𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}))
elqaa.3	⊢ (𝜑 → (𝐹‘𝐴) = 0)
elqaa.4	⊢ 𝐵 = (coeff‘𝐹)
elqaa.5	⊢ 𝑁 = (𝑘 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ))
elqaa.6	⊢ 𝑅 = (seq0( · , 𝑁)‘(deg‘𝐹))
elqaa.7	⊢ 𝑃 = (𝑥 ∈ V, 𝑦 ∈ V ↦ ((𝑥 · 𝑦) mod (𝑁‘𝐾)))

Assertion

Ref	Expression
elqaalem2	⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑅 mod (𝑁‘𝐾)) = 0)

Distinct variable groups:   𝑘,𝑛,𝑥,𝑦,𝐴   𝐵,𝑘,𝑛   𝜑,𝑘   𝑘,𝐾,𝑛,𝑥,𝑦   𝑘,𝑁,𝑛,𝑥,𝑦   𝑅,𝑘

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑛)   𝐵(𝑥,𝑦)   𝑃(𝑥,𝑦,𝑘,𝑛)   𝑅(𝑥,𝑦,𝑛)   𝐹(𝑥,𝑦,𝑘,𝑛)

Proof of Theorem elqaalem2

Dummy variables 𝑚 𝑖 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elfznn0 13534	. . 3 ⊢ (𝐾 ∈ (0...(deg‘𝐹)) → 𝐾 ∈ ℕ0)
2		elqaa.6	. . . . 5 ⊢ 𝑅 = (seq0( · , 𝑁)‘(deg‘𝐹))
3	2	fveq2i 6835	. . . 4 ⊢ ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑅) = ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(seq0( · , 𝑁)‘(deg‘𝐹)))
4		nnmulcl 12167	. . . . . 6 ⊢ ((𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑖 · 𝑗) ∈ ℕ)
5	4	adantl 481	. . . . 5 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑖 · 𝑗) ∈ ℕ)
6		elfznn0 13534	. . . . . 6 ⊢ (𝑖 ∈ (0...(deg‘𝐹)) → 𝑖 ∈ ℕ0)
7		elqaa.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
8		elqaa.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}))
9		elqaa.3	. . . . . . . . 9 ⊢ (𝜑 → (𝐹‘𝐴) = 0)
10		elqaa.4	. . . . . . . . 9 ⊢ 𝐵 = (coeff‘𝐹)
11		elqaa.5	. . . . . . . . 9 ⊢ 𝑁 = (𝑘 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ))
12	7, 8, 9, 10, 11, 2	elqaalem1 26281	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ0) → ((𝑁‘𝑖) ∈ ℕ ∧ ((𝐵‘𝑖) · (𝑁‘𝑖)) ∈ ℤ))
13	12	simpld 494	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ0) → (𝑁‘𝑖) ∈ ℕ)
14	13	adantlr 715	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑖 ∈ ℕ0) → (𝑁‘𝑖) ∈ ℕ)
15	6, 14	sylan2 593	. . . . 5 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑖 ∈ (0...(deg‘𝐹))) → (𝑁‘𝑖) ∈ ℕ)
16		eldifi 4081	. . . . . . . 8 ⊢ (𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}) → 𝐹 ∈ (Poly‘ℚ))
17		dgrcl 26192	. . . . . . . 8 ⊢ (𝐹 ∈ (Poly‘ℚ) → (deg‘𝐹) ∈ ℕ0)
18	8, 16, 17	3syl 18	. . . . . . 7 ⊢ (𝜑 → (deg‘𝐹) ∈ ℕ0)
19		nn0uz 12787	. . . . . . 7 ⊢ ℕ0 = (ℤ≥‘0)
20	18, 19	eleqtrdi 2844	. . . . . 6 ⊢ (𝜑 → (deg‘𝐹) ∈ (ℤ≥‘0))
21	20	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → (deg‘𝐹) ∈ (ℤ≥‘0))
22		nnz 12507	. . . . . . . . . 10 ⊢ (𝑖 ∈ ℕ → 𝑖 ∈ ℤ)
23	22	ad2antrl 728	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → 𝑖 ∈ ℤ)
24	7, 8, 9, 10, 11, 2	elqaalem1 26281	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → ((𝑁‘𝐾) ∈ ℕ ∧ ((𝐵‘𝐾) · (𝑁‘𝐾)) ∈ ℤ))
25	24	simpld 494	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → (𝑁‘𝐾) ∈ ℕ)
26	25	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑁‘𝐾) ∈ ℕ)
27	23, 26	zmodcld 13810	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑖 mod (𝑁‘𝐾)) ∈ ℕ0)
28	27	nn0zd 12511	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑖 mod (𝑁‘𝐾)) ∈ ℤ)
29		nnz 12507	. . . . . . . . . 10 ⊢ (𝑗 ∈ ℕ → 𝑗 ∈ ℤ)
30	29	ad2antll 729	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → 𝑗 ∈ ℤ)
31	30, 26	zmodcld 13810	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑗 mod (𝑁‘𝐾)) ∈ ℕ0)
32	31	nn0zd 12511	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑗 mod (𝑁‘𝐾)) ∈ ℤ)
33	26	nnrpd 12945	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑁‘𝐾) ∈ ℝ+)
34		nnre 12150	. . . . . . . . 9 ⊢ (𝑖 ∈ ℕ → 𝑖 ∈ ℝ)
35	34	ad2antrl 728	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → 𝑖 ∈ ℝ)
36		modabs2 13823	. . . . . . . 8 ⊢ ((𝑖 ∈ ℝ ∧ (𝑁‘𝐾) ∈ ℝ+) → ((𝑖 mod (𝑁‘𝐾)) mod (𝑁‘𝐾)) = (𝑖 mod (𝑁‘𝐾)))
37	35, 33, 36	syl2anc 584	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → ((𝑖 mod (𝑁‘𝐾)) mod (𝑁‘𝐾)) = (𝑖 mod (𝑁‘𝐾)))
38		nnre 12150	. . . . . . . . 9 ⊢ (𝑗 ∈ ℕ → 𝑗 ∈ ℝ)
39	38	ad2antll 729	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → 𝑗 ∈ ℝ)
40		modabs2 13823	. . . . . . . 8 ⊢ ((𝑗 ∈ ℝ ∧ (𝑁‘𝐾) ∈ ℝ+) → ((𝑗 mod (𝑁‘𝐾)) mod (𝑁‘𝐾)) = (𝑗 mod (𝑁‘𝐾)))
41	39, 33, 40	syl2anc 584	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → ((𝑗 mod (𝑁‘𝐾)) mod (𝑁‘𝐾)) = (𝑗 mod (𝑁‘𝐾)))
42	28, 23, 32, 30, 33, 37, 41	modmul12d 13846	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (((𝑖 mod (𝑁‘𝐾)) · (𝑗 mod (𝑁‘𝐾))) mod (𝑁‘𝐾)) = ((𝑖 · 𝑗) mod (𝑁‘𝐾)))
43		oveq1 7363	. . . . . . . . . 10 ⊢ (𝑘 = 𝑖 → (𝑘 mod (𝑁‘𝐾)) = (𝑖 mod (𝑁‘𝐾)))
44		eqid 2734	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾))) = (𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))
45		ovex 7389	. . . . . . . . . 10 ⊢ (𝑖 mod (𝑁‘𝐾)) ∈ V
46	43, 44, 45	fvmpt 6939	. . . . . . . . 9 ⊢ (𝑖 ∈ ℕ → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑖) = (𝑖 mod (𝑁‘𝐾)))
47	46	ad2antrl 728	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑖) = (𝑖 mod (𝑁‘𝐾)))
48		oveq1 7363	. . . . . . . . . 10 ⊢ (𝑘 = 𝑗 → (𝑘 mod (𝑁‘𝐾)) = (𝑗 mod (𝑁‘𝐾)))
49		ovex 7389	. . . . . . . . . 10 ⊢ (𝑗 mod (𝑁‘𝐾)) ∈ V
50	48, 44, 49	fvmpt 6939	. . . . . . . . 9 ⊢ (𝑗 ∈ ℕ → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑗) = (𝑗 mod (𝑁‘𝐾)))
51	50	ad2antll 729	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑗) = (𝑗 mod (𝑁‘𝐾)))
52	47, 51	oveq12d 7374	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑖)𝑃((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑗)) = ((𝑖 mod (𝑁‘𝐾))𝑃(𝑗 mod (𝑁‘𝐾))))
53		oveq12 7365	. . . . . . . . . 10 ⊢ ((𝑥 = (𝑖 mod (𝑁‘𝐾)) ∧ 𝑦 = (𝑗 mod (𝑁‘𝐾))) → (𝑥 · 𝑦) = ((𝑖 mod (𝑁‘𝐾)) · (𝑗 mod (𝑁‘𝐾))))
54	53	oveq1d 7371	. . . . . . . . 9 ⊢ ((𝑥 = (𝑖 mod (𝑁‘𝐾)) ∧ 𝑦 = (𝑗 mod (𝑁‘𝐾))) → ((𝑥 · 𝑦) mod (𝑁‘𝐾)) = (((𝑖 mod (𝑁‘𝐾)) · (𝑗 mod (𝑁‘𝐾))) mod (𝑁‘𝐾)))
55		elqaa.7	. . . . . . . . 9 ⊢ 𝑃 = (𝑥 ∈ V, 𝑦 ∈ V ↦ ((𝑥 · 𝑦) mod (𝑁‘𝐾)))
56		ovex 7389	. . . . . . . . 9 ⊢ (((𝑖 mod (𝑁‘𝐾)) · (𝑗 mod (𝑁‘𝐾))) mod (𝑁‘𝐾)) ∈ V
57	54, 55, 56	ovmpoa 7511	. . . . . . . 8 ⊢ (((𝑖 mod (𝑁‘𝐾)) ∈ V ∧ (𝑗 mod (𝑁‘𝐾)) ∈ V) → ((𝑖 mod (𝑁‘𝐾))𝑃(𝑗 mod (𝑁‘𝐾))) = (((𝑖 mod (𝑁‘𝐾)) · (𝑗 mod (𝑁‘𝐾))) mod (𝑁‘𝐾)))
58	45, 49, 57	mp2an 692	. . . . . . 7 ⊢ ((𝑖 mod (𝑁‘𝐾))𝑃(𝑗 mod (𝑁‘𝐾))) = (((𝑖 mod (𝑁‘𝐾)) · (𝑗 mod (𝑁‘𝐾))) mod (𝑁‘𝐾))
59	52, 58	eqtrdi 2785	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑖)𝑃((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑗)) = (((𝑖 mod (𝑁‘𝐾)) · (𝑗 mod (𝑁‘𝐾))) mod (𝑁‘𝐾)))
60		oveq1 7363	. . . . . . . 8 ⊢ (𝑘 = (𝑖 · 𝑗) → (𝑘 mod (𝑁‘𝐾)) = ((𝑖 · 𝑗) mod (𝑁‘𝐾)))
61		ovex 7389	. . . . . . . 8 ⊢ ((𝑖 · 𝑗) mod (𝑁‘𝐾)) ∈ V
62	60, 44, 61	fvmpt 6939	. . . . . . 7 ⊢ ((𝑖 · 𝑗) ∈ ℕ → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(𝑖 · 𝑗)) = ((𝑖 · 𝑗) mod (𝑁‘𝐾)))
63	5, 62	syl 17	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(𝑖 · 𝑗)) = ((𝑖 · 𝑗) mod (𝑁‘𝐾)))
64	42, 59, 63	3eqtr4rd 2780	. . . . 5 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(𝑖 · 𝑗)) = (((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑖)𝑃((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑗)))
65		oveq1 7363	. . . . . . . . 9 ⊢ (𝑘 = (𝑁‘𝑖) → (𝑘 mod (𝑁‘𝐾)) = ((𝑁‘𝑖) mod (𝑁‘𝐾)))
66		ovex 7389	. . . . . . . . 9 ⊢ ((𝑁‘𝑖) mod (𝑁‘𝐾)) ∈ V
67	65, 44, 66	fvmpt 6939	. . . . . . . 8 ⊢ ((𝑁‘𝑖) ∈ ℕ → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(𝑁‘𝑖)) = ((𝑁‘𝑖) mod (𝑁‘𝐾)))
68	14, 67	syl 17	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑖 ∈ ℕ0) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(𝑁‘𝑖)) = ((𝑁‘𝑖) mod (𝑁‘𝐾)))
69		fveq2 6832	. . . . . . . . . 10 ⊢ (𝑘 = 𝑖 → (𝑁‘𝑘) = (𝑁‘𝑖))
70	69	oveq1d 7371	. . . . . . . . 9 ⊢ (𝑘 = 𝑖 → ((𝑁‘𝑘) mod (𝑁‘𝐾)) = ((𝑁‘𝑖) mod (𝑁‘𝐾)))
71		eqid 2734	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))) = (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))
72	70, 71, 66	fvmpt 6939	. . . . . . . 8 ⊢ (𝑖 ∈ ℕ0 → ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝑖) = ((𝑁‘𝑖) mod (𝑁‘𝐾)))
73	72	adantl 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑖 ∈ ℕ0) → ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝑖) = ((𝑁‘𝑖) mod (𝑁‘𝐾)))
74	68, 73	eqtr4d 2772	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑖 ∈ ℕ0) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(𝑁‘𝑖)) = ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝑖))
75	6, 74	sylan2 593	. . . . 5 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑖 ∈ (0...(deg‘𝐹))) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(𝑁‘𝑖)) = ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝑖))
76	5, 15, 21, 64, 75	seqhomo 13970	. . . 4 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘(seq0( · , 𝑁)‘(deg‘𝐹))) = (seq0(𝑃, (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))))‘(deg‘𝐹)))
77	3, 76	eqtrid 2781	. . 3 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑅) = (seq0(𝑃, (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))))‘(deg‘𝐹)))
78	1, 77	sylan2 593	. 2 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑅) = (seq0(𝑃, (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))))‘(deg‘𝐹)))
79		0zd 12498	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℤ)
80	4	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑖 · 𝑗) ∈ ℕ)
81	19, 79, 13, 80	seqf 13944	. . . . . . 7 ⊢ (𝜑 → seq0( · , 𝑁):ℕ0⟶ℕ)
82	81, 18	ffvelcdmd 7028	. . . . . 6 ⊢ (𝜑 → (seq0( · , 𝑁)‘(deg‘𝐹)) ∈ ℕ)
83	2, 82	eqeltrid 2838	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ ℕ)
84	83	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → 𝑅 ∈ ℕ)
85		oveq1 7363	. . . . 5 ⊢ (𝑘 = 𝑅 → (𝑘 mod (𝑁‘𝐾)) = (𝑅 mod (𝑁‘𝐾)))
86		ovex 7389	. . . . 5 ⊢ (𝑅 mod (𝑁‘𝐾)) ∈ V
87	85, 44, 86	fvmpt 6939	. . . 4 ⊢ (𝑅 ∈ ℕ → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑅) = (𝑅 mod (𝑁‘𝐾)))
88	84, 87	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑅) = (𝑅 mod (𝑁‘𝐾)))
89	1, 88	sylan2 593	. 2 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → ((𝑘 ∈ ℕ ↦ (𝑘 mod (𝑁‘𝐾)))‘𝑅) = (𝑅 mod (𝑁‘𝐾)))
90		oveq12 7365	. . . . . . 7 ⊢ ((𝑥 = 𝑖 ∧ 𝑦 = 𝑗) → (𝑥 · 𝑦) = (𝑖 · 𝑗))
91	90	oveq1d 7371	. . . . . 6 ⊢ ((𝑥 = 𝑖 ∧ 𝑦 = 𝑗) → ((𝑥 · 𝑦) mod (𝑁‘𝐾)) = ((𝑖 · 𝑗) mod (𝑁‘𝐾)))
92	91, 55, 61	ovmpoa 7511	. . . . 5 ⊢ ((𝑖 ∈ V ∧ 𝑗 ∈ V) → (𝑖𝑃𝑗) = ((𝑖 · 𝑗) mod (𝑁‘𝐾)))
93	92	el2v 3445	. . . 4 ⊢ (𝑖𝑃𝑗) = ((𝑖 · 𝑗) mod (𝑁‘𝐾))
94		nn0mulcl 12435	. . . . . 6 ⊢ ((𝑖 ∈ ℕ0 ∧ 𝑗 ∈ ℕ0) → (𝑖 · 𝑗) ∈ ℕ0)
95	94	nn0zd 12511	. . . . 5 ⊢ ((𝑖 ∈ ℕ0 ∧ 𝑗 ∈ ℕ0) → (𝑖 · 𝑗) ∈ ℤ)
96	1, 25	sylan2 593	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑁‘𝐾) ∈ ℕ)
97		zmodcl 13809	. . . . 5 ⊢ (((𝑖 · 𝑗) ∈ ℤ ∧ (𝑁‘𝐾) ∈ ℕ) → ((𝑖 · 𝑗) mod (𝑁‘𝐾)) ∈ ℕ0)
98	95, 96, 97	syl2anr 597	. . . 4 ⊢ (((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) ∧ (𝑖 ∈ ℕ0 ∧ 𝑗 ∈ ℕ0)) → ((𝑖 · 𝑗) mod (𝑁‘𝐾)) ∈ ℕ0)
99	93, 98	eqeltrid 2838	. . 3 ⊢ (((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) ∧ (𝑖 ∈ ℕ0 ∧ 𝑗 ∈ ℕ0)) → (𝑖𝑃𝑗) ∈ ℕ0)
100		fveq2 6832	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑚 → (𝐵‘𝑘) = (𝐵‘𝑚))
101	100	oveq1d 7371	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑚 → ((𝐵‘𝑘) · 𝑛) = ((𝐵‘𝑚) · 𝑛))
102	101	eleq1d 2819	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑚 → (((𝐵‘𝑘) · 𝑛) ∈ ℤ ↔ ((𝐵‘𝑚) · 𝑛) ∈ ℤ))
103	102	rabbidv 3404	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑚 → {𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ} = {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
104	103	infeq1d 9379	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑚 → inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ) = inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
105	104	cbvmptv 5200	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < )) = (𝑚 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
106	11, 105	eqtri 2757	. . . . . . . . . . 11 ⊢ 𝑁 = (𝑚 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
107	7, 8, 9, 10, 106, 2	elqaalem1 26281	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝑁‘𝑘) ∈ ℕ ∧ ((𝐵‘𝑘) · (𝑁‘𝑘)) ∈ ℤ))
108	107	simpld 494	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝑁‘𝑘) ∈ ℕ)
109	108	adantlr 715	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (𝑁‘𝑘) ∈ ℕ)
110	109	nnzd 12512	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (𝑁‘𝑘) ∈ ℤ)
111	25	adantr 480	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (𝑁‘𝐾) ∈ ℕ)
112	110, 111	zmodcld 13810	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → ((𝑁‘𝑘) mod (𝑁‘𝐾)) ∈ ℕ0)
113	112	fmpttd 7058	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ ℕ0) → (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))):ℕ0⟶ℕ0)
114	1, 113	sylan2 593	. . . 4 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))):ℕ0⟶ℕ0)
115		ffvelcdm 7024	. . . 4 ⊢ (((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))):ℕ0⟶ℕ0 ∧ 𝑖 ∈ ℕ0) → ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝑖) ∈ ℕ0)
116	114, 6, 115	syl2an 596	. . 3 ⊢ (((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) ∧ 𝑖 ∈ (0...(deg‘𝐹))) → ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝑖) ∈ ℕ0)
117		c0ex 11124	. . . . 5 ⊢ 0 ∈ V
118		vex 3442	. . . . 5 ⊢ 𝑖 ∈ V
119		oveq12 7365	. . . . . . 7 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑖) → (𝑥 · 𝑦) = (0 · 𝑖))
120	119	oveq1d 7371	. . . . . 6 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑖) → ((𝑥 · 𝑦) mod (𝑁‘𝐾)) = ((0 · 𝑖) mod (𝑁‘𝐾)))
121		ovex 7389	. . . . . 6 ⊢ ((0 · 𝑖) mod (𝑁‘𝐾)) ∈ V
122	120, 55, 121	ovmpoa 7511	. . . . 5 ⊢ ((0 ∈ V ∧ 𝑖 ∈ V) → (0𝑃𝑖) = ((0 · 𝑖) mod (𝑁‘𝐾)))
123	117, 118, 122	mp2an 692	. . . 4 ⊢ (0𝑃𝑖) = ((0 · 𝑖) mod (𝑁‘𝐾))
124		nn0cn 12409	. . . . . . 7 ⊢ (𝑖 ∈ ℕ0 → 𝑖 ∈ ℂ)
125	124	mul02d 11329	. . . . . 6 ⊢ (𝑖 ∈ ℕ0 → (0 · 𝑖) = 0)
126	125	oveq1d 7371	. . . . 5 ⊢ (𝑖 ∈ ℕ0 → ((0 · 𝑖) mod (𝑁‘𝐾)) = (0 mod (𝑁‘𝐾)))
127	96	nnrpd 12945	. . . . . 6 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑁‘𝐾) ∈ ℝ+)
128		0mod 13820	. . . . . 6 ⊢ ((𝑁‘𝐾) ∈ ℝ+ → (0 mod (𝑁‘𝐾)) = 0)
129	127, 128	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (0 mod (𝑁‘𝐾)) = 0)
130	126, 129	sylan9eqr 2791	. . . 4 ⊢ (((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) ∧ 𝑖 ∈ ℕ0) → ((0 · 𝑖) mod (𝑁‘𝐾)) = 0)
131	123, 130	eqtrid 2781	. . 3 ⊢ (((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) ∧ 𝑖 ∈ ℕ0) → (0𝑃𝑖) = 0)
132		oveq12 7365	. . . . . . 7 ⊢ ((𝑥 = 𝑖 ∧ 𝑦 = 0) → (𝑥 · 𝑦) = (𝑖 · 0))
133	132	oveq1d 7371	. . . . . 6 ⊢ ((𝑥 = 𝑖 ∧ 𝑦 = 0) → ((𝑥 · 𝑦) mod (𝑁‘𝐾)) = ((𝑖 · 0) mod (𝑁‘𝐾)))
134		ovex 7389	. . . . . 6 ⊢ ((𝑖 · 0) mod (𝑁‘𝐾)) ∈ V
135	133, 55, 134	ovmpoa 7511	. . . . 5 ⊢ ((𝑖 ∈ V ∧ 0 ∈ V) → (𝑖𝑃0) = ((𝑖 · 0) mod (𝑁‘𝐾)))
136	118, 117, 135	mp2an 692	. . . 4 ⊢ (𝑖𝑃0) = ((𝑖 · 0) mod (𝑁‘𝐾))
137	124	mul01d 11330	. . . . . 6 ⊢ (𝑖 ∈ ℕ0 → (𝑖 · 0) = 0)
138	137	oveq1d 7371	. . . . 5 ⊢ (𝑖 ∈ ℕ0 → ((𝑖 · 0) mod (𝑁‘𝐾)) = (0 mod (𝑁‘𝐾)))
139	138, 129	sylan9eqr 2791	. . . 4 ⊢ (((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) ∧ 𝑖 ∈ ℕ0) → ((𝑖 · 0) mod (𝑁‘𝐾)) = 0)
140	136, 139	eqtrid 2781	. . 3 ⊢ (((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) ∧ 𝑖 ∈ ℕ0) → (𝑖𝑃0) = 0)
141		simpr 484	. . 3 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → 𝐾 ∈ (0...(deg‘𝐹)))
142	18	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (deg‘𝐹) ∈ ℕ0)
143	1	adantl 481	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → 𝐾 ∈ ℕ0)
144		fveq2 6832	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (𝑁‘𝑘) = (𝑁‘𝐾))
145	144	oveq1d 7371	. . . . . 6 ⊢ (𝑘 = 𝐾 → ((𝑁‘𝑘) mod (𝑁‘𝐾)) = ((𝑁‘𝐾) mod (𝑁‘𝐾)))
146		ovex 7389	. . . . . 6 ⊢ ((𝑁‘𝐾) mod (𝑁‘𝐾)) ∈ V
147	145, 71, 146	fvmpt 6939	. . . . 5 ⊢ (𝐾 ∈ ℕ0 → ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝐾) = ((𝑁‘𝐾) mod (𝑁‘𝐾)))
148	143, 147	syl 17	. . . 4 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝐾) = ((𝑁‘𝐾) mod (𝑁‘𝐾)))
149	96	nncnd 12159	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑁‘𝐾) ∈ ℂ)
150	96	nnne0d 12193	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑁‘𝐾) ≠ 0)
151	149, 150	dividd 11913	. . . . . 6 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → ((𝑁‘𝐾) / (𝑁‘𝐾)) = 1)
152		1z 12519	. . . . . 6 ⊢ 1 ∈ ℤ
153	151, 152	eqeltrdi 2842	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → ((𝑁‘𝐾) / (𝑁‘𝐾)) ∈ ℤ)
154	96	nnred 12158	. . . . . 6 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑁‘𝐾) ∈ ℝ)
155		mod0 13794	. . . . . 6 ⊢ (((𝑁‘𝐾) ∈ ℝ ∧ (𝑁‘𝐾) ∈ ℝ+) → (((𝑁‘𝐾) mod (𝑁‘𝐾)) = 0 ↔ ((𝑁‘𝐾) / (𝑁‘𝐾)) ∈ ℤ))
156	154, 127, 155	syl2anc 584	. . . . 5 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (((𝑁‘𝐾) mod (𝑁‘𝐾)) = 0 ↔ ((𝑁‘𝐾) / (𝑁‘𝐾)) ∈ ℤ))
157	153, 156	mpbird 257	. . . 4 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → ((𝑁‘𝐾) mod (𝑁‘𝐾)) = 0)
158	148, 157	eqtrd 2769	. . 3 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → ((𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾)))‘𝐾) = 0)
159	99, 116, 131, 140, 141, 142, 158	seqz 13971	. 2 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (seq0(𝑃, (𝑘 ∈ ℕ0 ↦ ((𝑁‘𝑘) mod (𝑁‘𝐾))))‘(deg‘𝐹)) = 0)
160	78, 89, 159	3eqtr3d 2777	1 ⊢ ((𝜑 ∧ 𝐾 ∈ (0...(deg‘𝐹))) → (𝑅 mod (𝑁‘𝐾)) = 0)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113  {crab 3397  Vcvv 3438   ∖ cdif 3896  {csn 4578   ↦ cmpt 5177  ⟶wf 6486  ‘cfv 6490  (class class class)co 7356   ∈ cmpo 7358  infcinf 9342  ℂcc 11022  ℝcr 11023  0cc0 11024  1c1 11025   · cmul 11029   < clt 11164   / cdiv 11792  ℕcn 12143  ℕ₀cn0 12399  ℤcz 12486  ℤ_≥cuz 12749  ℚcq 12859  ℝ⁺crp 12903  ...cfz 13421   mod cmo 13787  seqcseq 13922  0_𝑝c0p 25624  Polycply 26143  coeffccoe 26145  degcdgr 26146

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 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-inf2 9548  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101  ax-pre-sup 11102

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-er 8633  df-map 8763  df-pm 8764  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-sup 9343  df-inf 9344  df-oi 9413  df-card 9849  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-div 11793  df-nn 12144  df-2 12206  df-3 12207  df-n0 12400  df-z 12487  df-uz 12750  df-q 12860  df-rp 12904  df-fz 13422  df-fzo 13569  df-fl 13710  df-mod 13788  df-seq 13923  df-exp 13983  df-hash 14252  df-cj 15020  df-re 15021  df-im 15022  df-sqrt 15156  df-abs 15157  df-clim 15409  df-rlim 15410  df-sum 15608  df-0p 25625  df-ply 26147  df-coe 26149  df-dgr 26150

This theorem is referenced by:  elqaalem3  26283