dchrisumlem1 - Metamath Proof Explorer

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

Theorem dchrisumlem1 27400

Description: Lemma for dchrisum 27403. Lemma 9.4.1 of [Shapiro], p. 377. (Contributed by Mario Carneiro, 2-May-2016.)

**Hypotheses**
Ref	Expression
rpvmasum.z	⊢ 𝑍 = (ℤ/nℤ‘𝑁)
rpvmasum.l	⊢ 𝐿 = (ℤRHom‘𝑍)
rpvmasum.a	⊢ (𝜑 → 𝑁 ∈ ℕ)
rpvmasum.g	⊢ 𝐺 = (DChr‘𝑁)
rpvmasum.d	⊢ 𝐷 = (Base‘𝐺)
rpvmasum.1	⊢ 1 = (0_g‘𝐺)
dchrisum.b	⊢ (𝜑 → 𝑋 ∈ 𝐷)
dchrisum.n1	⊢ (𝜑 → 𝑋 ≠ 1 )
dchrisum.2	⊢ (𝑛 = 𝑥 → 𝐴 = 𝐵)
dchrisum.3	⊢ (𝜑 → 𝑀 ∈ ℕ)
dchrisum.4	⊢ ((𝜑 ∧ 𝑛 ∈ ℝ⁺) → 𝐴 ∈ ℝ)
dchrisum.5	⊢ ((𝜑 ∧ (𝑛 ∈ ℝ⁺ ∧ 𝑥 ∈ ℝ⁺) ∧ (𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥)) → 𝐵 ≤ 𝐴)
dchrisum.6	⊢ (𝜑 → (𝑛 ∈ ℝ⁺ ↦ 𝐴) ⇝_𝑟 0)
dchrisum.7	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑛)) · 𝐴))
dchrisum.9	⊢ (𝜑 → 𝑅 ∈ ℝ)
dchrisum.10	⊢ (𝜑 → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)

**Assertion**
Ref	Expression
dchrisumlem1	⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)

Distinct variable groups: 𝑢,𝑛,𝑥 1 ,𝑛,𝑥 𝑛,𝐹,𝑢,𝑥 𝑥,𝐴 𝑛,𝑁,𝑢,𝑥 𝜑,𝑛,𝑢,𝑥 𝑅,𝑛,𝑢,𝑥 𝑈,𝑛,𝑢,𝑥 𝐵,𝑛 𝑛,𝑍,𝑥 𝐷,𝑛,𝑥 𝑛,𝐿,𝑢,𝑥 𝑛,𝑀,𝑢,𝑥 𝑛,𝑋,𝑢,𝑥 Allowed substitution hints: 𝐴(𝑢,𝑛) 𝐵(𝑥,𝑢) 𝐷(𝑢) 1 (𝑢) 𝐺(𝑥,𝑢,𝑛) 𝑍(𝑢)

Proof of Theorem dchrisumlem1 Dummy variables 𝑘 𝑚 𝑖 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fzodisj 13654	. . . . . 6 ⊢ ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅
2	1	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅)
3		rpvmasum.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
4	3	nnnn0d 12503	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
5	4	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
6		nn0re 12451	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℝ)
7	6	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℝ)
8	3	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ)
9	7, 8	nndivred 12240	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 / 𝑁) ∈ ℝ)
10	8	nnrpd 12993	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℝ⁺)
11		nn0ge0 12467	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 0 ≤ 𝑈)
12	11	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ 𝑈)
13	7, 10, 12	divge0d 13035	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ (𝑈 / 𝑁))
14		flge0nn0 13782	. . . . . . . . 9 ⊢ (((𝑈 / 𝑁) ∈ ℝ ∧ 0 ≤ (𝑈 / 𝑁)) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
15	9, 13, 14	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
16	5, 15	nn0mulcld 12508	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀)
17		flle 13761	. . . . . . . . 9 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
18	9, 17	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
19		reflcl 13758	. . . . . . . . . 10 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
20	9, 19	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
21	20, 7, 10	lemuldiv2d 13045	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈 ↔ (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁)))
22	18, 21	mpbird 257	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)
23		fznn0 13580	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
24	23	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
25	16, 22, 24	mpbir2and 713	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈))
26		fzosplit 13653	. . . . . 6 ⊢ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
27	25, 26	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
28		fzofi 13939	. . . . . 6 ⊢ (0..^𝑈) ∈ Fin
29	28	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^𝑈) ∈ Fin)
30		rpvmasum.g	. . . . . 6 ⊢ 𝐺 = (DChr‘𝑁)
31		rpvmasum.z	. . . . . 6 ⊢ 𝑍 = (ℤ/nℤ‘𝑁)
32		rpvmasum.d	. . . . . 6 ⊢ 𝐷 = (Base‘𝐺)
33		rpvmasum.l	. . . . . 6 ⊢ 𝐿 = (ℤRHom‘𝑍)
34		dchrisum.b	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
35	34	ad2antrr 726	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → 𝑋 ∈ 𝐷)
36		elfzoelz 13620	. . . . . . 7 ⊢ (𝑛 ∈ (0..^𝑈) → 𝑛 ∈ ℤ)
37	36	adantl 481	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → 𝑛 ∈ ℤ)
38	30, 31, 32, 33, 35, 37	dchrzrhcl 27156	. . . . 5 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
39	2, 27, 29, 38	fsumsplit 15707	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))))
40		oveq2 7395	. . . . . . . . . . . 12 ⊢ (𝑘 = 0 → (𝑁 · 𝑘) = (𝑁 · 0))
41	40	oveq2d 7403	. . . . . . . . . . 11 ⊢ (𝑘 = 0 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 0)))
42	41	sumeq1d 15666	. . . . . . . . . 10 ⊢ (𝑘 = 0 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)))
43	42	eqeq1d 2731	. . . . . . . . 9 ⊢ (𝑘 = 0 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0))
44	43	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = 0 → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0)))
45		oveq2 7395	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑚 → (𝑁 · 𝑘) = (𝑁 · 𝑚))
46	45	oveq2d 7403	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑚 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 𝑚)))
47	46	sumeq1d 15666	. . . . . . . . . 10 ⊢ (𝑘 = 𝑚 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)))
48	47	eqeq1d 2731	. . . . . . . . 9 ⊢ (𝑘 = 𝑚 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0))
49	48	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = 𝑚 → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0)))
50		oveq2 7395	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑚 + 1) → (𝑁 · 𝑘) = (𝑁 · (𝑚 + 1)))
51	50	oveq2d 7403	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑚 + 1) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (𝑚 + 1))))
52	51	sumeq1d 15666	. . . . . . . . . 10 ⊢ (𝑘 = (𝑚 + 1) → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)))
53	52	eqeq1d 2731	. . . . . . . . 9 ⊢ (𝑘 = (𝑚 + 1) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0))
54	53	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = (𝑚 + 1) → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)))
55		oveq2 7395	. . . . . . . . . . . 12 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑘) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
56	55	oveq2d 7403	. . . . . . . . . . 11 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))))
57	56	sumeq1d 15666	. . . . . . . . . 10 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)))
58	57	eqeq1d 2731	. . . . . . . . 9 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
59	58	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)))
60	3	nncnd 12202	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℂ)
61	60	mul01d 11373	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 · 0) = 0)
62	61	oveq2d 7403	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(𝑁 · 0)) = (0..^0))
63		fzo0 13644	. . . . . . . . . . 11 ⊢ (0..^0) = ∅
64	62, 63	eqtrdi 2780	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(𝑁 · 0)) = ∅)
65	64	sumeq1d 15666	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)))
66		sum0 15687	. . . . . . . . 9 ⊢ Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)) = 0
67	65, 66	eqtrdi 2780	. . . . . . . 8 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0)
68		oveq1 7394	. . . . . . . . . . 11 ⊢ (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
69		fzodisj 13654	. . . . . . . . . . . . . 14 ⊢ ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅
70	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅)
71		nn0re 12451	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℝ)
72	71	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℝ)
73	72	lep1d 12114	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ≤ (𝑚 + 1))
74		peano2re 11347	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℝ → (𝑚 + 1) ∈ ℝ)
75	72, 74	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑚 + 1) ∈ ℝ)
76	3	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ)
77	76	nnred 12201	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℝ)
78	76	nngt0d 12235	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 0 < 𝑁)
79		lemul2 12035	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑚 ∈ ℝ ∧ (𝑚 + 1) ∈ ℝ ∧ (𝑁 ∈ ℝ ∧ 0 < 𝑁)) → (𝑚 ≤ (𝑚 + 1) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
80	72, 75, 77, 78, 79	syl112anc 1376	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑚 ≤ (𝑚 + 1) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
81	73, 80	mpbid 232	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1)))
82		nn0mulcl 12478	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
83	4, 82	sylan 580	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
84		nn0uz 12835	. . . . . . . . . . . . . . . . 17 ⊢ ℕ₀ = (ℤ_≥‘0)
85	83, 84	eleqtrdi 2838	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ (ℤ_≥‘0))
86		nn0p1nn 12481	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → (𝑚 + 1) ∈ ℕ)
87		nnmulcl 12210	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ (𝑚 + 1) ∈ ℕ) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
88	3, 86, 87	syl2an 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
89	88	nnzd 12556	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℤ)
90		elfz5 13477	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 · 𝑚) ∈ (ℤ_≥‘0) ∧ (𝑁 · (𝑚 + 1)) ∈ ℤ) → ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
91	85, 89, 90	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
92	81, 91	mpbird 257	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))))
93		fzosplit 13653	. . . . . . . . . . . . . 14 ⊢ ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
94	92, 93	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
95		fzofi 13939	. . . . . . . . . . . . . 14 ⊢ (0..^(𝑁 · (𝑚 + 1))) ∈ Fin
96	95	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) ∈ Fin)
97	34	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑋 ∈ 𝐷)
98		elfzoelz 13620	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (0..^(𝑁 · (𝑚 + 1))) → 𝑛 ∈ ℤ)
99	98	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑛 ∈ ℤ)
100	30, 31, 32, 33, 97, 99	dchrzrhcl 27156	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
101	70, 94, 96, 100	fsumsplit 15707	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
102	76	nncnd 12202	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℂ)
103	72	recnd 11202	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℂ)
104		1cnd 11169	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 1 ∈ ℂ)
105	102, 103, 104	adddid 11198	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + (𝑁 · 1)))
106	102	mulridd 11191	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 1) = 𝑁)
107	106	oveq2d 7403	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚) + (𝑁 · 1)) = ((𝑁 · 𝑚) + 𝑁))
108	105, 107	eqtrd 2764	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + 𝑁))
109	108	oveq2d 7403	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1))) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
110	109	sumeq1d 15666	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
111		oveq2 7395	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · 𝑚) + 𝑁))
112	111	oveq2d 7403	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
113	112	sumeq1d 15666	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
114		oveq2 7395	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → (0..^𝑘) = (0..^𝑁))
115	114	sumeq1d 15666	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
116	113, 115	eqeq12d 2745	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑁 → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛))))
117	83	nn0zd 12555	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
118	117	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
119		nn0z 12554	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℤ)
120		zaddcl 12573	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 · 𝑚) ∈ ℤ ∧ 𝑘 ∈ ℤ) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
121	117, 119, 120	syl2an 596	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
122		peano2zm 12576	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
123	121, 122	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
124	34	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑋 ∈ 𝐷)
125		elfzelz 13485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)) → 𝑛 ∈ ℤ)
126	125	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑛 ∈ ℤ)
127	30, 31, 32, 33, 124, 126	dchrzrhcl 27156	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
128		2fveq3 6863	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = (𝑖 + (𝑁 · 𝑚)) → (𝑋‘(𝐿‘𝑛)) = (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
129	118, 118, 123, 127, 128	fsumshftm 15747	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
130		fzoval 13621	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
131	121, 130	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
132	131	sumeq1d 15666	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)))
133	119	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℤ)
134		fzoval 13621	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℤ → (0..^𝑘) = (0...(𝑘 − 1)))
135	133, 134	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (0...(𝑘 − 1)))
136	118	zcnd 12639	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℂ)
137	136	subidd 11521	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) − (𝑁 · 𝑚)) = 0)
138	121	zcnd 12639	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℂ)
139		1cnd 11169	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 1 ∈ ℂ)
140	138, 139, 136	sub32d 11565	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1))
141		nn0cn 12452	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℂ)
142	141	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℂ)
143	136, 142	pncan2d 11535	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) = 𝑘)
144	143	oveq1d 7402	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1) = (𝑘 − 1))
145	140, 144	eqtrd 2764	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = (𝑘 − 1))
146	137, 145	oveq12d 7405	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))) = (0...(𝑘 − 1)))
147	135, 146	eqtr4d 2767	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))))
148	147	sumeq1d 15666	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
149	129, 132, 148	3eqtr4d 2774	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
150	3	nnzd 12556	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑁 ∈ ℤ)
151		nn0z 12554	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℤ)
152		dvdsmul1 16247	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑁 ∈ ℤ ∧ 𝑚 ∈ ℤ) → 𝑁 ∥ (𝑁 · 𝑚))
153	150, 151, 152	syl2an 596	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∥ (𝑁 · 𝑚))
154	153	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ (𝑁 · 𝑚))
155		elfzoelz 13620	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑖 ∈ (0..^𝑘) → 𝑖 ∈ ℤ)
156	155	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℤ)
157	156	zcnd 12639	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℂ)
158	136	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑁 · 𝑚) ∈ ℂ)
159	157, 158	pncan2d 11535	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝑖 + (𝑁 · 𝑚)) − 𝑖) = (𝑁 · 𝑚))
160	154, 159	breqtrrd 5135	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖))
161	76	nnnn0d 12503	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
162	161	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∈ ℕ₀)
163		zaddcl 12573	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑖 ∈ ℤ ∧ (𝑁 · 𝑚) ∈ ℤ) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
164	155, 118, 163	syl2anr 597	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
165	31, 33	zndvds 21459	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝑖 + (𝑁 · 𝑚)) ∈ ℤ ∧ 𝑖 ∈ ℤ) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
166	162, 164, 156, 165	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
167	160, 166	mpbird 257	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖))
168	167	fveq2d 6862	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = (𝑋‘(𝐿‘𝑖)))
169	168	sumeq2dv 15668	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)))
170		2fveq3 6863	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑖 = 𝑛 → (𝑋‘(𝐿‘𝑖)) = (𝑋‘(𝐿‘𝑛)))
171	170	cbvsumv 15662	. . . . . . . . . . . . . . . . . . 19 ⊢ Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))
172	169, 171	eqtrdi 2780	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
173	149, 172	eqtrd 2764	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
174	173	ralrimiva 3125	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
175	116, 174, 161	rspcdva 3589	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
176		fveq2 6858	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = (𝐿‘𝑛) → (𝑋‘𝑘) = (𝑋‘(𝐿‘𝑛)))
177	3	nnne0d 12236	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑁 ≠ 0)
178		ifnefalse 4500	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ≠ 0 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
179	177, 178	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
180		fzofi 13939	. . . . . . . . . . . . . . . . . . 19 ⊢ (0..^𝑁) ∈ Fin
181	179, 180	eqeltrdi 2836	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) ∈ Fin)
182		eqid 2729	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘𝑍) = (Base‘𝑍)
183	33	reseq1i 5946	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))) = ((ℤRHom‘𝑍) ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))
184		eqid 2729	. . . . . . . . . . . . . . . . . . . 20 ⊢ if(𝑁 = 0, ℤ, (0..^𝑁)) = if(𝑁 = 0, ℤ, (0..^𝑁))
185	31, 182, 183, 184	znf1o 21461	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ ℕ₀ → (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))):if(𝑁 = 0, ℤ, (0..^𝑁))–1-1-onto→(Base‘𝑍))
186	4, 185	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))):if(𝑁 = 0, ℤ, (0..^𝑁))–1-1-onto→(Base‘𝑍))
187		fvres 6877	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ if(𝑁 = 0, ℤ, (0..^𝑁)) → ((𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))‘𝑛) = (𝐿‘𝑛))
188	187	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑛 ∈ if(𝑁 = 0, ℤ, (0..^𝑁))) → ((𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))‘𝑛) = (𝐿‘𝑛))
189	30, 31, 32, 182, 34	dchrf 27153	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋:(Base‘𝑍)⟶ℂ)
190	189	ffvelcdmda 7056	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (Base‘𝑍)) → (𝑋‘𝑘) ∈ ℂ)
191	176, 181, 186, 188, 190	fsumf1o 15689	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = Σ𝑛 ∈ if (𝑁 = 0, ℤ, (0..^𝑁))(𝑋‘(𝐿‘𝑛)))
192		rpvmasum.1	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 = (0_g‘𝐺)
193	30, 31, 32, 192, 34, 182	dchrsum 27180	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = if(𝑋 = 1 , (ϕ‘𝑁), 0))
194		dchrisum.n1	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋 ≠ 1 )
195		ifnefalse 4500	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ≠ 1 → if(𝑋 = 1 , (ϕ‘𝑁), 0) = 0)
196	194, 195	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑋 = 1 , (ϕ‘𝑁), 0) = 0)
197	193, 196	eqtrd 2764	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = 0)
198	179	sumeq1d 15666	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑛 ∈ if (𝑁 = 0, ℤ, (0..^𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
199	191, 197, 198	3eqtr3rd 2773	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)) = 0)
200	199	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)) = 0)
201	110, 175, 200	3eqtrd 2768	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)
202	201	oveq2d 7403	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + 0))
203		00id 11349	. . . . . . . . . . . . 13 ⊢ (0 + 0) = 0
204	202, 203	eqtr2di 2781	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 0 = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
205	101, 204	eqeq12d 2745	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0 ↔ (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)))))
206	68, 205	imbitrrid 246	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0))
207	206	expcom 413	. . . . . . . . 9 ⊢ (𝑚 ∈ ℕ₀ → (𝜑 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)))
208	207	a2d 29	. . . . . . . 8 ⊢ (𝑚 ∈ ℕ₀ → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0) → (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)))
209	44, 49, 54, 59, 67, 208	nn0ind 12629	. . . . . . 7 ⊢ ((⌊‘(𝑈 / 𝑁)) ∈ ℕ₀ → (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
210	209	impcom 407	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
211	15, 210	syldan 591	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
212		modval 13833	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ ℝ ∧ 𝑁 ∈ ℝ⁺) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
213	7, 10, 212	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
214	213	oveq2d 7403	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))))
215	16	nn0cnd 12505	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℂ)
216		nn0cn 12452	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℂ)
217	216	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℂ)
218	215, 217	pncan3d 11536	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))) = 𝑈)
219	214, 218	eqtr2d 2765	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
220	219	oveq2d 7403	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
221	220	sumeq1d 15666	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
222		nn0z 12554	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℤ)
223		zmodcl 13853	. . . . . . . 8 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ ℕ₀)
224	222, 3, 223	syl2anr 597	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ ℕ₀)
225	174	ralrimiva 3125	. . . . . . . 8 ⊢ (𝜑 → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
226	225	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
227		oveq2 7395	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑚) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
228	227	oveq1d 7402	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))
229	227, 228	oveq12d 7405	. . . . . . . . . 10 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)))
230	229	sumeq1d 15666	. . . . . . . . 9 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)))
231	230	eqeq1d 2731	. . . . . . . 8 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))))
232		oveq2 7395	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
233	232	oveq2d 7403	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
234	233	sumeq1d 15666	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
235		oveq2 7395	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → (0..^𝑘) = (0..^(𝑈 mod 𝑁)))
236	235	sumeq1d 15666	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
237	234, 236	eqeq12d 2745	. . . . . . . 8 ⊢ (𝑘 = (𝑈 mod 𝑁) → (Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
238	231, 237	rspc2va 3600	. . . . . . 7 ⊢ ((((⌊‘(𝑈 / 𝑁)) ∈ ℕ₀ ∧ (𝑈 mod 𝑁) ∈ ℕ₀) ∧ ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
239	15, 224, 226, 238	syl21anc 837	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
240	221, 239	eqtrd 2764	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
241	211, 240	oveq12d 7405	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
242		fzofi 13939	. . . . . . 7 ⊢ (0..^(𝑈 mod 𝑁)) ∈ Fin
243	242	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^(𝑈 mod 𝑁)) ∈ Fin)
244	34	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑋 ∈ 𝐷)
245		elfzoelz 13620	. . . . . . . 8 ⊢ (𝑛 ∈ (0..^(𝑈 mod 𝑁)) → 𝑛 ∈ ℤ)
246	245	adantl 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑛 ∈ ℤ)
247	30, 31, 32, 33, 244, 246	dchrzrhcl 27156	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
248	243, 247	fsumcl 15699	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
249	248	addlidd 11375	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
250	39, 241, 249	3eqtrd 2768	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
251	250	fveq2d 6862	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
252		oveq2 7395	. . . . . 6 ⊢ (𝑢 = (𝑈 mod 𝑁) → (0..^𝑢) = (0..^(𝑈 mod 𝑁)))
253	252	sumeq1d 15666	. . . . 5 ⊢ (𝑢 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
254	253	fveq2d 6862	. . . 4 ⊢ (𝑢 = (𝑈 mod 𝑁) → (abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
255	254	breq1d 5117	. . 3 ⊢ (𝑢 = (𝑈 mod 𝑁) → ((abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅 ↔ (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅))
256		dchrisum.10	. . . 4 ⊢ (𝜑 → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
257	256	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
258		zmodfzo 13856	. . . 4 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
259	222, 3, 258	syl2anr 597	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
260	255, 257, 259	rspcdva 3589	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
261	251, 260	eqbrtrd 5129	1 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ≠ wne 2925 ∀wral 3044 ∪ cun 3912 ∩ cin 3913 ∅c0 4296 ifcif 4488 class class class wbr 5107 ↦ cmpt 5188 ↾ cres 5640 –1-1-onto→wf1o 6510 ‘cfv 6511 (class class class)co 7387 Fincfn 8918 ℂcc 11066 ℝcr 11067 0cc0 11068 1c1 11069 + caddc 11071 · cmul 11073 < clt 11208 ≤ cle 11209 − cmin 11405 / cdiv 11835 ℕcn 12186 ℕ₀cn0 12442 ℤcz 12529 ℤ_≥cuz 12793 ℝ⁺crp 12951 ...cfz 13468 ..^cfzo 13615 ⌊cfl 13752 mod cmo 13831 abscabs 15200 ⇝_𝑟 crli 15451 Σcsu 15652 ∥ cdvds 16222 ϕcphi 16734 Basecbs 17179 0_gc0g 17402 ℤRHomczrh 21409 ℤ/nℤczn 21412 DChrcdchr 27143

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 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5234 ax-sep 5251 ax-nul 5261 ax-pow 5320 ax-pr 5387 ax-un 7711 ax-inf2 9594 ax-cnex 11124 ax-resscn 11125 ax-1cn 11126 ax-icn 11127 ax-addcl 11128 ax-addrcl 11129 ax-mulcl 11130 ax-mulrcl 11131 ax-mulcom 11132 ax-addass 11133 ax-mulass 11134 ax-distr 11135 ax-i2m1 11136 ax-1ne0 11137 ax-1rid 11138 ax-rnegex 11139 ax-rrecex 11140 ax-cnre 11141 ax-pre-lttri 11142 ax-pre-lttrn 11143 ax-pre-ltadd 11144 ax-pre-mulgt0 11145 ax-pre-sup 11146 ax-addf 11147 ax-mulf 11148

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3354 df-reu 3355 df-rab 3406 df-v 3449 df-sbc 3754 df-csb 3863 df-dif 3917 df-un 3919 df-in 3921 df-ss 3931 df-pss 3934 df-nul 4297 df-if 4489 df-pw 4565 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4872 df-int 4911 df-iun 4957 df-br 5108 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5533 df-eprel 5538 df-po 5546 df-so 5547 df-fr 5591 df-se 5592 df-we 5593 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-pred 6274 df-ord 6335 df-on 6336 df-lim 6337 df-suc 6338 df-iota 6464 df-fun 6513 df-fn 6514 df-f 6515 df-f1 6516 df-fo 6517 df-f1o 6518 df-fv 6519 df-isom 6520 df-riota 7344 df-ov 7390 df-oprab 7391 df-mpo 7392 df-of 7653 df-om 7843 df-1st 7968 df-2nd 7969 df-tpos 8205 df-frecs 8260 df-wrecs 8291 df-recs 8340 df-rdg 8378 df-1o 8434 df-oadd 8438 df-er 8671 df-ec 8673 df-qs 8677 df-map 8801 df-en 8919 df-dom 8920 df-sdom 8921 df-fin 8922 df-sup 9393 df-inf 9394 df-oi 9463 df-card 9892 df-pnf 11210 df-mnf 11211 df-xr 11212 df-ltxr 11213 df-le 11214 df-sub 11407 df-neg 11408 df-div 11836 df-nn 12187 df-2 12249 df-3 12250 df-4 12251 df-5 12252 df-6 12253 df-7 12254 df-8 12255 df-9 12256 df-n0 12443 df-xnn0 12516 df-z 12530 df-dec 12650 df-uz 12794 df-rp 12952 df-fz 13469 df-fzo 13616 df-fl 13754 df-mod 13832 df-seq 13967 df-exp 14027 df-hash 14296 df-cj 15065 df-re 15066 df-im 15067 df-sqrt 15201 df-abs 15202 df-clim 15454 df-sum 15653 df-dvds 16223 df-gcd 16465 df-phi 16736 df-struct 17117 df-sets 17134 df-slot 17152 df-ndx 17164 df-base 17180 df-ress 17201 df-plusg 17233 df-mulr 17234 df-starv 17235 df-sca 17236 df-vsca 17237 df-ip 17238 df-tset 17239 df-ple 17240 df-ds 17242 df-unif 17243 df-0g 17404 df-imas 17471 df-qus 17472 df-mgm 18567 df-sgrp 18646 df-mnd 18662 df-mhm 18710 df-grp 18868 df-minusg 18869 df-sbg 18870 df-mulg 19000 df-subg 19055 df-nsg 19056 df-eqg 19057 df-ghm 19145 df-cmn 19712 df-abl 19713 df-mgp 20050 df-rng 20062 df-ur 20091 df-ring 20144 df-cring 20145 df-oppr 20246 df-dvdsr 20266 df-unit 20267 df-invr 20297 df-rhm 20381 df-subrng 20455 df-subrg 20479 df-lmod 20768 df-lss 20838 df-lsp 20878 df-sra 21080 df-rgmod 21081 df-lidl 21118 df-rsp 21119 df-2idl 21160 df-cnfld 21265 df-zring 21357 df-zrh 21413 df-zn 21416 df-dchr 27144

This theorem is referenced by: dchrisumlem2 27401

W3C validator