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 27398

Description: Lemma for dchrisum 27401. 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 13596	. . . . . 6 ⊢ ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅
2	1	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅)
3		rpvmasum.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
4	3	nnnn0d 12445	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
5	4	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
6		nn0re 12393	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℝ)
7	6	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℝ)
8	3	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ)
9	7, 8	nndivred 12182	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 / 𝑁) ∈ ℝ)
10	8	nnrpd 12935	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℝ⁺)
11		nn0ge0 12409	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 0 ≤ 𝑈)
12	11	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ 𝑈)
13	7, 10, 12	divge0d 12977	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ (𝑈 / 𝑁))
14		flge0nn0 13724	. . . . . . . . 9 ⊢ (((𝑈 / 𝑁) ∈ ℝ ∧ 0 ≤ (𝑈 / 𝑁)) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
15	9, 13, 14	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
16	5, 15	nn0mulcld 12450	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀)
17		flle 13703	. . . . . . . . 9 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
18	9, 17	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
19		reflcl 13700	. . . . . . . . . 10 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
20	9, 19	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
21	20, 7, 10	lemuldiv2d 12987	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈 ↔ (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁)))
22	18, 21	mpbird 257	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)
23		fznn0 13522	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
24	23	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
25	16, 22, 24	mpbir2and 713	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈))
26		fzosplit 13595	. . . . . 6 ⊢ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
27	25, 26	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
28		fzofi 13881	. . . . . 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 13562	. . . . . . 7 ⊢ (𝑛 ∈ (0..^𝑈) → 𝑛 ∈ ℤ)
37	36	adantl 481	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → 𝑛 ∈ ℤ)
38	30, 31, 32, 33, 35, 37	dchrzrhcl 27154	. . . . 5 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
39	2, 27, 29, 38	fsumsplit 15648	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))))
40		oveq2 7357	. . . . . . . . . . . 12 ⊢ (𝑘 = 0 → (𝑁 · 𝑘) = (𝑁 · 0))
41	40	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝑘 = 0 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 0)))
42	41	sumeq1d 15607	. . . . . . . . . 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 7357	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑚 → (𝑁 · 𝑘) = (𝑁 · 𝑚))
46	45	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑚 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 𝑚)))
47	46	sumeq1d 15607	. . . . . . . . . 10 ⊢ (𝑘 = 𝑚 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)))
48	47	eqeq1d 2731	. . . . . . . . 9 ⊢ (𝑘 = 𝑚 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0))
49	48	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = 𝑚 → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0)))
50		oveq2 7357	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑚 + 1) → (𝑁 · 𝑘) = (𝑁 · (𝑚 + 1)))
51	50	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑚 + 1) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (𝑚 + 1))))
52	51	sumeq1d 15607	. . . . . . . . . 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 7357	. . . . . . . . . . . 12 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑘) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
56	55	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))))
57	56	sumeq1d 15607	. . . . . . . . . 10 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)))
58	57	eqeq1d 2731	. . . . . . . . 9 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
59	58	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)))
60	3	nncnd 12144	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℂ)
61	60	mul01d 11315	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 · 0) = 0)
62	61	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(𝑁 · 0)) = (0..^0))
63		fzo0 13586	. . . . . . . . . . 11 ⊢ (0..^0) = ∅
64	62, 63	eqtrdi 2780	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(𝑁 · 0)) = ∅)
65	64	sumeq1d 15607	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)))
66		sum0 15628	. . . . . . . . 9 ⊢ Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)) = 0
67	65, 66	eqtrdi 2780	. . . . . . . 8 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0)
68		oveq1 7356	. . . . . . . . . . 11 ⊢ (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
69		fzodisj 13596	. . . . . . . . . . . . . 14 ⊢ ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅
70	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅)
71		nn0re 12393	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℝ)
72	71	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℝ)
73	72	lep1d 12056	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ≤ (𝑚 + 1))
74		peano2re 11289	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℝ → (𝑚 + 1) ∈ ℝ)
75	72, 74	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑚 + 1) ∈ ℝ)
76	3	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ)
77	76	nnred 12143	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℝ)
78	76	nngt0d 12177	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 0 < 𝑁)
79		lemul2 11977	. . . . . . . . . . . . . . . . 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 12420	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
83	4, 82	sylan 580	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
84		nn0uz 12777	. . . . . . . . . . . . . . . . 17 ⊢ ℕ₀ = (ℤ_≥‘0)
85	83, 84	eleqtrdi 2838	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ (ℤ_≥‘0))
86		nn0p1nn 12423	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → (𝑚 + 1) ∈ ℕ)
87		nnmulcl 12152	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ (𝑚 + 1) ∈ ℕ) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
88	3, 86, 87	syl2an 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
89	88	nnzd 12498	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℤ)
90		elfz5 13419	. . . . . . . . . . . . . . . 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 13595	. . . . . . . . . . . . . 14 ⊢ ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
94	92, 93	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
95		fzofi 13881	. . . . . . . . . . . . . 14 ⊢ (0..^(𝑁 · (𝑚 + 1))) ∈ Fin
96	95	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) ∈ Fin)
97	34	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑋 ∈ 𝐷)
98		elfzoelz 13562	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (0..^(𝑁 · (𝑚 + 1))) → 𝑛 ∈ ℤ)
99	98	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑛 ∈ ℤ)
100	30, 31, 32, 33, 97, 99	dchrzrhcl 27154	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
101	70, 94, 96, 100	fsumsplit 15648	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
102	76	nncnd 12144	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℂ)
103	72	recnd 11143	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℂ)
104		1cnd 11110	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 1 ∈ ℂ)
105	102, 103, 104	adddid 11139	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + (𝑁 · 1)))
106	102	mulridd 11132	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 1) = 𝑁)
107	106	oveq2d 7365	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚) + (𝑁 · 1)) = ((𝑁 · 𝑚) + 𝑁))
108	105, 107	eqtrd 2764	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + 𝑁))
109	108	oveq2d 7365	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1))) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
110	109	sumeq1d 15607	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
111		oveq2 7357	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · 𝑚) + 𝑁))
112	111	oveq2d 7365	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
113	112	sumeq1d 15607	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
114		oveq2 7357	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → (0..^𝑘) = (0..^𝑁))
115	114	sumeq1d 15607	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
116	113, 115	eqeq12d 2745	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑁 → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛))))
117	83	nn0zd 12497	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
118	117	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
119		nn0z 12496	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℤ)
120		zaddcl 12515	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 · 𝑚) ∈ ℤ ∧ 𝑘 ∈ ℤ) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
121	117, 119, 120	syl2an 596	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
122		peano2zm 12518	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
123	121, 122	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
124	34	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑋 ∈ 𝐷)
125		elfzelz 13427	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)) → 𝑛 ∈ ℤ)
126	125	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑛 ∈ ℤ)
127	30, 31, 32, 33, 124, 126	dchrzrhcl 27154	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
128		2fveq3 6827	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = (𝑖 + (𝑁 · 𝑚)) → (𝑋‘(𝐿‘𝑛)) = (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
129	118, 118, 123, 127, 128	fsumshftm 15688	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
130		fzoval 13563	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
131	121, 130	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
132	131	sumeq1d 15607	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)))
133	119	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℤ)
134		fzoval 13563	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℤ → (0..^𝑘) = (0...(𝑘 − 1)))
135	133, 134	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (0...(𝑘 − 1)))
136	118	zcnd 12581	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℂ)
137	136	subidd 11463	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) − (𝑁 · 𝑚)) = 0)
138	121	zcnd 12581	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℂ)
139		1cnd 11110	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 1 ∈ ℂ)
140	138, 139, 136	sub32d 11507	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1))
141		nn0cn 12394	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℂ)
142	141	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℂ)
143	136, 142	pncan2d 11477	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) = 𝑘)
144	143	oveq1d 7364	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1) = (𝑘 − 1))
145	140, 144	eqtrd 2764	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = (𝑘 − 1))
146	137, 145	oveq12d 7367	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))) = (0...(𝑘 − 1)))
147	135, 146	eqtr4d 2767	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))))
148	147	sumeq1d 15607	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
149	129, 132, 148	3eqtr4d 2774	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
150	3	nnzd 12498	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑁 ∈ ℤ)
151		nn0z 12496	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℤ)
152		dvdsmul1 16188	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑁 ∈ ℤ ∧ 𝑚 ∈ ℤ) → 𝑁 ∥ (𝑁 · 𝑚))
153	150, 151, 152	syl2an 596	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∥ (𝑁 · 𝑚))
154	153	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ (𝑁 · 𝑚))
155		elfzoelz 13562	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑖 ∈ (0..^𝑘) → 𝑖 ∈ ℤ)
156	155	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℤ)
157	156	zcnd 12581	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℂ)
158	136	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑁 · 𝑚) ∈ ℂ)
159	157, 158	pncan2d 11477	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝑖 + (𝑁 · 𝑚)) − 𝑖) = (𝑁 · 𝑚))
160	154, 159	breqtrrd 5120	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖))
161	76	nnnn0d 12445	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
162	161	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∈ ℕ₀)
163		zaddcl 12515	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑖 ∈ ℤ ∧ (𝑁 · 𝑚) ∈ ℤ) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
164	155, 118, 163	syl2anr 597	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
165	31, 33	zndvds 21456	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝑖 + (𝑁 · 𝑚)) ∈ ℤ ∧ 𝑖 ∈ ℤ) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
166	162, 164, 156, 165	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
167	160, 166	mpbird 257	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖))
168	167	fveq2d 6826	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = (𝑋‘(𝐿‘𝑖)))
169	168	sumeq2dv 15609	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)))
170		2fveq3 6827	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑖 = 𝑛 → (𝑋‘(𝐿‘𝑖)) = (𝑋‘(𝐿‘𝑛)))
171	170	cbvsumv 15603	. . . . . . . . . . . . . . . . . . 19 ⊢ Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))
172	169, 171	eqtrdi 2780	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
173	149, 172	eqtrd 2764	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
174	173	ralrimiva 3121	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
175	116, 174, 161	rspcdva 3578	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
176		fveq2 6822	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = (𝐿‘𝑛) → (𝑋‘𝑘) = (𝑋‘(𝐿‘𝑛)))
177	3	nnne0d 12178	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑁 ≠ 0)
178		ifnefalse 4488	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ≠ 0 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
179	177, 178	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
180		fzofi 13881	. . . . . . . . . . . . . . . . . . 19 ⊢ (0..^𝑁) ∈ Fin
181	179, 180	eqeltrdi 2836	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) ∈ Fin)
182		eqid 2729	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘𝑍) = (Base‘𝑍)
183	33	reseq1i 5926	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))) = ((ℤRHom‘𝑍) ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))
184		eqid 2729	. . . . . . . . . . . . . . . . . . . 20 ⊢ if(𝑁 = 0, ℤ, (0..^𝑁)) = if(𝑁 = 0, ℤ, (0..^𝑁))
185	31, 182, 183, 184	znf1o 21458	. . . . . . . . . . . . . . . . . . 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 6841	. . . . . . . . . . . . . . . . . . 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 27151	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋:(Base‘𝑍)⟶ℂ)
190	189	ffvelcdmda 7018	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (Base‘𝑍)) → (𝑋‘𝑘) ∈ ℂ)
191	176, 181, 186, 188, 190	fsumf1o 15630	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = Σ𝑛 ∈ if (𝑁 = 0, ℤ, (0..^𝑁))(𝑋‘(𝐿‘𝑛)))
192		rpvmasum.1	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 = (0_g‘𝐺)
193	30, 31, 32, 192, 34, 182	dchrsum 27178	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = if(𝑋 = 1 , (ϕ‘𝑁), 0))
194		dchrisum.n1	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋 ≠ 1 )
195		ifnefalse 4488	. . . . . . . . . . . . . . . . . . 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 15607	. . . . . . . . . . . . . . . . 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 7365	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + 0))
203		00id 11291	. . . . . . . . . . . . 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 12571	. . . . . . 7 ⊢ ((⌊‘(𝑈 / 𝑁)) ∈ ℕ₀ → (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
210	209	impcom 407	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
211	15, 210	syldan 591	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
212		modval 13775	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ ℝ ∧ 𝑁 ∈ ℝ⁺) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
213	7, 10, 212	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
214	213	oveq2d 7365	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))))
215	16	nn0cnd 12447	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℂ)
216		nn0cn 12394	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℂ)
217	216	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℂ)
218	215, 217	pncan3d 11478	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))) = 𝑈)
219	214, 218	eqtr2d 2765	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
220	219	oveq2d 7365	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
221	220	sumeq1d 15607	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
222		nn0z 12496	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℤ)
223		zmodcl 13795	. . . . . . . 8 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ ℕ₀)
224	222, 3, 223	syl2anr 597	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ ℕ₀)
225	174	ralrimiva 3121	. . . . . . . 8 ⊢ (𝜑 → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
226	225	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
227		oveq2 7357	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑚) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
228	227	oveq1d 7364	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))
229	227, 228	oveq12d 7367	. . . . . . . . . 10 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)))
230	229	sumeq1d 15607	. . . . . . . . 9 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)))
231	230	eqeq1d 2731	. . . . . . . 8 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))))
232		oveq2 7357	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
233	232	oveq2d 7365	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
234	233	sumeq1d 15607	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
235		oveq2 7357	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → (0..^𝑘) = (0..^(𝑈 mod 𝑁)))
236	235	sumeq1d 15607	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
237	234, 236	eqeq12d 2745	. . . . . . . 8 ⊢ (𝑘 = (𝑈 mod 𝑁) → (Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
238	231, 237	rspc2va 3589	. . . . . . 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 7367	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
242		fzofi 13881	. . . . . . 7 ⊢ (0..^(𝑈 mod 𝑁)) ∈ Fin
243	242	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^(𝑈 mod 𝑁)) ∈ Fin)
244	34	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑋 ∈ 𝐷)
245		elfzoelz 13562	. . . . . . . 8 ⊢ (𝑛 ∈ (0..^(𝑈 mod 𝑁)) → 𝑛 ∈ ℤ)
246	245	adantl 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑛 ∈ ℤ)
247	30, 31, 32, 33, 244, 246	dchrzrhcl 27154	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
248	243, 247	fsumcl 15640	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
249	248	addlidd 11317	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
250	39, 241, 249	3eqtrd 2768	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
251	250	fveq2d 6826	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
252		oveq2 7357	. . . . . 6 ⊢ (𝑢 = (𝑈 mod 𝑁) → (0..^𝑢) = (0..^(𝑈 mod 𝑁)))
253	252	sumeq1d 15607	. . . . 5 ⊢ (𝑢 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
254	253	fveq2d 6826	. . . 4 ⊢ (𝑢 = (𝑈 mod 𝑁) → (abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
255	254	breq1d 5102	. . 3 ⊢ (𝑢 = (𝑈 mod 𝑁) → ((abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅 ↔ (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅))
256		dchrisum.10	. . . 4 ⊢ (𝜑 → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
257	256	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
258		zmodfzo 13798	. . . 4 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
259	222, 3, 258	syl2anr 597	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
260	255, 257, 259	rspcdva 3578	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
261	251, 260	eqbrtrd 5114	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 3901 ∩ cin 3902 ∅c0 4284 ifcif 4476 class class class wbr 5092 ↦ cmpt 5173 ↾ cres 5621 –1-1-onto→wf1o 6481 ‘cfv 6482 (class class class)co 7349 Fincfn 8872 ℂcc 11007 ℝcr 11008 0cc0 11009 1c1 11010 + caddc 11012 · cmul 11014 < clt 11149 ≤ cle 11150 − cmin 11347 / cdiv 11777 ℕcn 12128 ℕ₀cn0 12384 ℤcz 12471 ℤ_≥cuz 12735 ℝ⁺crp 12893 ...cfz 13410 ..^cfzo 13557 ⌊cfl 13694 mod cmo 13773 abscabs 15141 ⇝_𝑟 crli 15392 Σcsu 15593 ∥ cdvds 16163 ϕcphi 16675 Basecbs 17120 0_gc0g 17343 ℤRHomczrh 21406 ℤ/nℤczn 21409 DChrcdchr 27141

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 5218 ax-sep 5235 ax-nul 5245 ax-pow 5304 ax-pr 5371 ax-un 7671 ax-inf2 9537 ax-cnex 11065 ax-resscn 11066 ax-1cn 11067 ax-icn 11068 ax-addcl 11069 ax-addrcl 11070 ax-mulcl 11071 ax-mulrcl 11072 ax-mulcom 11073 ax-addass 11074 ax-mulass 11075 ax-distr 11076 ax-i2m1 11077 ax-1ne0 11078 ax-1rid 11079 ax-rnegex 11080 ax-rrecex 11081 ax-cnre 11082 ax-pre-lttri 11083 ax-pre-lttrn 11084 ax-pre-ltadd 11085 ax-pre-mulgt0 11086 ax-pre-sup 11087 ax-addf 11088 ax-mulf 11089

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 3343 df-reu 3344 df-rab 3395 df-v 3438 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-tp 4582 df-op 4584 df-uni 4859 df-int 4897 df-iun 4943 df-br 5093 df-opab 5155 df-mpt 5174 df-tr 5200 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6249 df-ord 6310 df-on 6311 df-lim 6312 df-suc 6313 df-iota 6438 df-fun 6484 df-fn 6485 df-f 6486 df-f1 6487 df-fo 6488 df-f1o 6489 df-fv 6490 df-isom 6491 df-riota 7306 df-ov 7352 df-oprab 7353 df-mpo 7354 df-of 7613 df-om 7800 df-1st 7924 df-2nd 7925 df-tpos 8159 df-frecs 8214 df-wrecs 8245 df-recs 8294 df-rdg 8332 df-1o 8388 df-oadd 8392 df-er 8625 df-ec 8627 df-qs 8631 df-map 8755 df-en 8873 df-dom 8874 df-sdom 8875 df-fin 8876 df-sup 9332 df-inf 9333 df-oi 9402 df-card 9835 df-pnf 11151 df-mnf 11152 df-xr 11153 df-ltxr 11154 df-le 11155 df-sub 11349 df-neg 11350 df-div 11778 df-nn 12129 df-2 12191 df-3 12192 df-4 12193 df-5 12194 df-6 12195 df-7 12196 df-8 12197 df-9 12198 df-n0 12385 df-xnn0 12458 df-z 12472 df-dec 12592 df-uz 12736 df-rp 12894 df-fz 13411 df-fzo 13558 df-fl 13696 df-mod 13774 df-seq 13909 df-exp 13969 df-hash 14238 df-cj 15006 df-re 15007 df-im 15008 df-sqrt 15142 df-abs 15143 df-clim 15395 df-sum 15594 df-dvds 16164 df-gcd 16406 df-phi 16677 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-starv 17176 df-sca 17177 df-vsca 17178 df-ip 17179 df-tset 17180 df-ple 17181 df-ds 17183 df-unif 17184 df-0g 17345 df-imas 17412 df-qus 17413 df-mgm 18514 df-sgrp 18593 df-mnd 18609 df-mhm 18657 df-grp 18815 df-minusg 18816 df-sbg 18817 df-mulg 18947 df-subg 19002 df-nsg 19003 df-eqg 19004 df-ghm 19092 df-cmn 19661 df-abl 19662 df-mgp 20026 df-rng 20038 df-ur 20067 df-ring 20120 df-cring 20121 df-oppr 20222 df-dvdsr 20242 df-unit 20243 df-invr 20273 df-rhm 20357 df-subrng 20431 df-subrg 20455 df-lmod 20765 df-lss 20835 df-lsp 20875 df-sra 21077 df-rgmod 21078 df-lidl 21115 df-rsp 21116 df-2idl 21157 df-cnfld 21262 df-zring 21354 df-zrh 21410 df-zn 21413 df-dchr 27142

This theorem is referenced by: dchrisumlem2 27399

W3C validator