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 25398

Description: Lemma for dchrisum 25401. 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 12716	. . . . . 6 ⊢ ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅
2	1	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅)
3		rpvmasum.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
4	3	nnnn0d 11563	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
5	4	adantr 472	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
6		nn0re 11513	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℝ)
7	6	adantl 473	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℝ)
8	3	adantr 472	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ)
9	7, 8	nndivred 11281	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 / 𝑁) ∈ ℝ)
10	8	nnrpd 12083	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℝ⁺)
11		nn0ge0 11530	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 0 ≤ 𝑈)
12	11	adantl 473	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ 𝑈)
13	7, 10, 12	divge0d 12125	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ (𝑈 / 𝑁))
14		flge0nn0 12835	. . . . . . . . 9 ⊢ (((𝑈 / 𝑁) ∈ ℝ ∧ 0 ≤ (𝑈 / 𝑁)) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
15	9, 13, 14	syl2anc 696	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
16	5, 15	nn0mulcld 11568	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀)
17		flle 12814	. . . . . . . . 9 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
18	9, 17	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
19		reflcl 12811	. . . . . . . . . 10 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
20	9, 19	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
21	20, 7, 10	lemuldiv2d 12135	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈 ↔ (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁)))
22	18, 21	mpbird 247	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)
23		fznn0 12645	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
24	23	adantl 473	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
25	16, 22, 24	mpbir2and 995	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈))
26		fzosplit 12715	. . . . . 6 ⊢ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
27	25, 26	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
28		fzofi 12987	. . . . . 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 764	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → 𝑋 ∈ 𝐷)
36		elfzoelz 12684	. . . . . . 7 ⊢ (𝑛 ∈ (0..^𝑈) → 𝑛 ∈ ℤ)
37	36	adantl 473	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → 𝑛 ∈ ℤ)
38	30, 31, 32, 33, 35, 37	dchrzrhcl 25190	. . . . 5 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
39	2, 27, 29, 38	fsumsplit 14690	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))))
40		oveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑘 = 0 → (𝑁 · 𝑘) = (𝑁 · 0))
41	40	oveq2d 6830	. . . . . . . . . . 11 ⊢ (𝑘 = 0 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 0)))
42	41	sumeq1d 14650	. . . . . . . . . 10 ⊢ (𝑘 = 0 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)))
43	42	eqeq1d 2762	. . . . . . . . 9 ⊢ (𝑘 = 0 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0))
44	43	imbi2d 329	. . . . . . . 8 ⊢ (𝑘 = 0 → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0)))
45		oveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑚 → (𝑁 · 𝑘) = (𝑁 · 𝑚))
46	45	oveq2d 6830	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑚 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 𝑚)))
47	46	sumeq1d 14650	. . . . . . . . . 10 ⊢ (𝑘 = 𝑚 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)))
48	47	eqeq1d 2762	. . . . . . . . 9 ⊢ (𝑘 = 𝑚 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0))
49	48	imbi2d 329	. . . . . . . 8 ⊢ (𝑘 = 𝑚 → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0)))
50		oveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑚 + 1) → (𝑁 · 𝑘) = (𝑁 · (𝑚 + 1)))
51	50	oveq2d 6830	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑚 + 1) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (𝑚 + 1))))
52	51	sumeq1d 14650	. . . . . . . . . 10 ⊢ (𝑘 = (𝑚 + 1) → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)))
53	52	eqeq1d 2762	. . . . . . . . 9 ⊢ (𝑘 = (𝑚 + 1) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0))
54	53	imbi2d 329	. . . . . . . 8 ⊢ (𝑘 = (𝑚 + 1) → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)))
55		oveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑘) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
56	55	oveq2d 6830	. . . . . . . . . . 11 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))))
57	56	sumeq1d 14650	. . . . . . . . . 10 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)))
58	57	eqeq1d 2762	. . . . . . . . 9 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
59	58	imbi2d 329	. . . . . . . 8 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)))
60	3	nncnd 11248	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℂ)
61	60	mul01d 10447	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 · 0) = 0)
62	61	oveq2d 6830	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(𝑁 · 0)) = (0..^0))
63		fzo0 12706	. . . . . . . . . . 11 ⊢ (0..^0) = ∅
64	62, 63	syl6eq 2810	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(𝑁 · 0)) = ∅)
65	64	sumeq1d 14650	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)))
66		sum0 14671	. . . . . . . . 9 ⊢ Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)) = 0
67	65, 66	syl6eq 2810	. . . . . . . 8 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0)
68		oveq1 6821	. . . . . . . . . . 11 ⊢ (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
69		fzodisj 12716	. . . . . . . . . . . . . 14 ⊢ ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅
70	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅)
71		nn0re 11513	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℝ)
72	71	adantl 473	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℝ)
73	72	lep1d 11167	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ≤ (𝑚 + 1))
74		peano2re 10421	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℝ → (𝑚 + 1) ∈ ℝ)
75	72, 74	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑚 + 1) ∈ ℝ)
76	3	adantr 472	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ)
77	76	nnred 11247	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℝ)
78	76	nngt0d 11276	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 0 < 𝑁)
79		lemul2 11088	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑚 ∈ ℝ ∧ (𝑚 + 1) ∈ ℝ ∧ (𝑁 ∈ ℝ ∧ 0 < 𝑁)) → (𝑚 ≤ (𝑚 + 1) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
80	72, 75, 77, 78, 79	syl112anc 1481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑚 ≤ (𝑚 + 1) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
81	73, 80	mpbid 222	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1)))
82		nn0mulcl 11541	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
83	4, 82	sylan 489	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
84		nn0uz 11935	. . . . . . . . . . . . . . . . 17 ⊢ ℕ₀ = (ℤ_≥‘0)
85	83, 84	syl6eleq 2849	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ (ℤ_≥‘0))
86		nn0p1nn 11544	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → (𝑚 + 1) ∈ ℕ)
87		nnmulcl 11255	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ (𝑚 + 1) ∈ ℕ) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
88	3, 86, 87	syl2an 495	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
89	88	nnzd 11693	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℤ)
90		elfz5 12547	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 · 𝑚) ∈ (ℤ_≥‘0) ∧ (𝑁 · (𝑚 + 1)) ∈ ℤ) → ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
91	85, 89, 90	syl2anc 696	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) ↔ (𝑁 · 𝑚) ≤ (𝑁 · (𝑚 + 1))))
92	81, 91	mpbird 247	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))))
93		fzosplit 12715	. . . . . . . . . . . . . 14 ⊢ ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
94	92, 93	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
95		fzofi 12987	. . . . . . . . . . . . . 14 ⊢ (0..^(𝑁 · (𝑚 + 1))) ∈ Fin
96	95	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) ∈ Fin)
97	34	ad2antrr 764	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑋 ∈ 𝐷)
98		elfzoelz 12684	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (0..^(𝑁 · (𝑚 + 1))) → 𝑛 ∈ ℤ)
99	98	adantl 473	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑛 ∈ ℤ)
100	30, 31, 32, 33, 97, 99	dchrzrhcl 25190	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
101	70, 94, 96, 100	fsumsplit 14690	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
102	76	nncnd 11248	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℂ)
103	72	recnd 10280	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℂ)
104		1cnd 10268	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 1 ∈ ℂ)
105	102, 103, 104	adddid 10276	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + (𝑁 · 1)))
106	102	mulid1d 10269	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 1) = 𝑁)
107	106	oveq2d 6830	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚) + (𝑁 · 1)) = ((𝑁 · 𝑚) + 𝑁))
108	105, 107	eqtrd 2794	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + 𝑁))
109	108	oveq2d 6830	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1))) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
110	109	sumeq1d 14650	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
111		oveq2 6822	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · 𝑚) + 𝑁))
112	111	oveq2d 6830	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
113	112	sumeq1d 14650	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
114		oveq2 6822	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → (0..^𝑘) = (0..^𝑁))
115	114	sumeq1d 14650	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
116	113, 115	eqeq12d 2775	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑁 → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛))))
117	83	nn0zd 11692	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
118	117	adantr 472	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
119		nn0z 11612	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℤ)
120		zaddcl 11629	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 · 𝑚) ∈ ℤ ∧ 𝑘 ∈ ℤ) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
121	117, 119, 120	syl2an 495	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
122		peano2zm 11632	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
123	121, 122	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
124	34	ad3antrrr 768	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑋 ∈ 𝐷)
125		elfzelz 12555	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)) → 𝑛 ∈ ℤ)
126	125	adantl 473	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑛 ∈ ℤ)
127	30, 31, 32, 33, 124, 126	dchrzrhcl 25190	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
128		fveq2 6353	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 = (𝑖 + (𝑁 · 𝑚)) → (𝐿‘𝑛) = (𝐿‘(𝑖 + (𝑁 · 𝑚))))
129	128	fveq2d 6357	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = (𝑖 + (𝑁 · 𝑚)) → (𝑋‘(𝐿‘𝑛)) = (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
130	118, 118, 123, 127, 129	fsumshftm 14732	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
131		fzoval 12685	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
132	121, 131	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
133	132	sumeq1d 14650	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)))
134	119	adantl 473	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℤ)
135		fzoval 12685	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℤ → (0..^𝑘) = (0...(𝑘 − 1)))
136	134, 135	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (0...(𝑘 − 1)))
137	118	zcnd 11695	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℂ)
138	137	subidd 10592	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) − (𝑁 · 𝑚)) = 0)
139	121	zcnd 11695	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℂ)
140		1cnd 10268	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 1 ∈ ℂ)
141	139, 140, 137	sub32d 10636	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1))
142		nn0cn 11514	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℂ)
143	142	adantl 473	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℂ)
144	137, 143	pncan2d 10606	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) = 𝑘)
145	144	oveq1d 6829	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1) = (𝑘 − 1))
146	141, 145	eqtrd 2794	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = (𝑘 − 1))
147	138, 146	oveq12d 6832	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))) = (0...(𝑘 − 1)))
148	136, 147	eqtr4d 2797	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))))
149	148	sumeq1d 14650	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
150	130, 133, 149	3eqtr4d 2804	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
151	3	nnzd 11693	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑁 ∈ ℤ)
152		nn0z 11612	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℤ)
153		dvdsmul1 15225	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑁 ∈ ℤ ∧ 𝑚 ∈ ℤ) → 𝑁 ∥ (𝑁 · 𝑚))
154	151, 152, 153	syl2an 495	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∥ (𝑁 · 𝑚))
155	154	ad2antrr 764	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ (𝑁 · 𝑚))
156		elfzoelz 12684	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑖 ∈ (0..^𝑘) → 𝑖 ∈ ℤ)
157	156	adantl 473	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℤ)
158	157	zcnd 11695	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℂ)
159	137	adantr 472	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑁 · 𝑚) ∈ ℂ)
160	158, 159	pncan2d 10606	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝑖 + (𝑁 · 𝑚)) − 𝑖) = (𝑁 · 𝑚))
161	155, 160	breqtrrd 4832	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖))
162	76	nnnn0d 11563	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
163	162	ad2antrr 764	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∈ ℕ₀)
164		zaddcl 11629	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑖 ∈ ℤ ∧ (𝑁 · 𝑚) ∈ ℤ) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
165	156, 118, 164	syl2anr 496	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
166	31, 33	zndvds 20120	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝑖 + (𝑁 · 𝑚)) ∈ ℤ ∧ 𝑖 ∈ ℤ) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
167	163, 165, 157, 166	syl3anc 1477	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
168	161, 167	mpbird 247	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖))
169	168	fveq2d 6357	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = (𝑋‘(𝐿‘𝑖)))
170	169	sumeq2dv 14652	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)))
171		fveq2 6353	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 = 𝑛 → (𝐿‘𝑖) = (𝐿‘𝑛))
172	171	fveq2d 6357	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑖 = 𝑛 → (𝑋‘(𝐿‘𝑖)) = (𝑋‘(𝐿‘𝑛)))
173	172	cbvsumv 14645	. . . . . . . . . . . . . . . . . . 19 ⊢ Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))
174	170, 173	syl6eq 2810	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
175	150, 174	eqtrd 2794	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
176	175	ralrimiva 3104	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
177	116, 176, 162	rspcdva 3455	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
178		fveq2 6353	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = (𝐿‘𝑛) → (𝑋‘𝑘) = (𝑋‘(𝐿‘𝑛)))
179	3	nnne0d 11277	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑁 ≠ 0)
180		ifnefalse 4242	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ≠ 0 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
181	179, 180	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
182		fzofi 12987	. . . . . . . . . . . . . . . . . . 19 ⊢ (0..^𝑁) ∈ Fin
183	181, 182	syl6eqel 2847	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) ∈ Fin)
184		eqid 2760	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘𝑍) = (Base‘𝑍)
185	33	reseq1i 5547	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))) = ((ℤRHom‘𝑍) ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))
186		eqid 2760	. . . . . . . . . . . . . . . . . . . 20 ⊢ if(𝑁 = 0, ℤ, (0..^𝑁)) = if(𝑁 = 0, ℤ, (0..^𝑁))
187	31, 184, 185, 186	znf1o 20122	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ ℕ₀ → (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))):if(𝑁 = 0, ℤ, (0..^𝑁))–1-1-onto→(Base‘𝑍))
188	4, 187	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))):if(𝑁 = 0, ℤ, (0..^𝑁))–1-1-onto→(Base‘𝑍))
189		fvres 6369	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ if(𝑁 = 0, ℤ, (0..^𝑁)) → ((𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))‘𝑛) = (𝐿‘𝑛))
190	189	adantl 473	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑛 ∈ if(𝑁 = 0, ℤ, (0..^𝑁))) → ((𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))‘𝑛) = (𝐿‘𝑛))
191	30, 31, 32, 184, 34	dchrf 25187	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋:(Base‘𝑍)⟶ℂ)
192	191	ffvelrnda 6523	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (Base‘𝑍)) → (𝑋‘𝑘) ∈ ℂ)
193	178, 183, 188, 190, 192	fsumf1o 14673	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = Σ𝑛 ∈ if (𝑁 = 0, ℤ, (0..^𝑁))(𝑋‘(𝐿‘𝑛)))
194		rpvmasum.1	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 = (0_g‘𝐺)
195	30, 31, 32, 194, 34, 184	dchrsum 25214	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = if(𝑋 = 1 , (ϕ‘𝑁), 0))
196		dchrisum.n1	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋 ≠ 1 )
197		ifnefalse 4242	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ≠ 1 → if(𝑋 = 1 , (ϕ‘𝑁), 0) = 0)
198	196, 197	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑋 = 1 , (ϕ‘𝑁), 0) = 0)
199	195, 198	eqtrd 2794	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = 0)
200	181	sumeq1d 14650	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑛 ∈ if (𝑁 = 0, ℤ, (0..^𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
201	193, 199, 200	3eqtr3rd 2803	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)) = 0)
202	201	adantr 472	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)) = 0)
203	110, 177, 202	3eqtrd 2798	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)
204	203	oveq2d 6830	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + 0))
205		00id 10423	. . . . . . . . . . . . 13 ⊢ (0 + 0) = 0
206	204, 205	syl6req 2811	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 0 = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
207	101, 206	eqeq12d 2775	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0 ↔ (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)))))
208	68, 207	syl5ibr 236	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0))
209	208	expcom 450	. . . . . . . . 9 ⊢ (𝑚 ∈ ℕ₀ → (𝜑 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)))
210	209	a2d 29	. . . . . . . 8 ⊢ (𝑚 ∈ ℕ₀ → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0) → (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)))
211	44, 49, 54, 59, 67, 210	nn0ind 11684	. . . . . . 7 ⊢ ((⌊‘(𝑈 / 𝑁)) ∈ ℕ₀ → (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
212	211	impcom 445	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
213	15, 212	syldan 488	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
214		modval 12884	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ ℝ ∧ 𝑁 ∈ ℝ⁺) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
215	7, 10, 214	syl2anc 696	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
216	215	oveq2d 6830	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))))
217	16	nn0cnd 11565	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℂ)
218		nn0cn 11514	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℂ)
219	218	adantl 473	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℂ)
220	217, 219	pncan3d 10607	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))) = 𝑈)
221	216, 220	eqtr2d 2795	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
222	221	oveq2d 6830	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
223	222	sumeq1d 14650	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
224		nn0z 11612	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℤ)
225		zmodcl 12904	. . . . . . . 8 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ ℕ₀)
226	224, 3, 225	syl2anr 496	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ ℕ₀)
227	176	ralrimiva 3104	. . . . . . . 8 ⊢ (𝜑 → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
228	227	adantr 472	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
229		oveq2 6822	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑚) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
230	229	oveq1d 6829	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))
231	229, 230	oveq12d 6832	. . . . . . . . . 10 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)))
232	231	sumeq1d 14650	. . . . . . . . 9 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)))
233	232	eqeq1d 2762	. . . . . . . 8 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))))
234		oveq2 6822	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
235	234	oveq2d 6830	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
236	235	sumeq1d 14650	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
237		oveq2 6822	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → (0..^𝑘) = (0..^(𝑈 mod 𝑁)))
238	237	sumeq1d 14650	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
239	236, 238	eqeq12d 2775	. . . . . . . 8 ⊢ (𝑘 = (𝑈 mod 𝑁) → (Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
240	233, 239	rspc2va 3462	. . . . . . 7 ⊢ ((((⌊‘(𝑈 / 𝑁)) ∈ ℕ₀ ∧ (𝑈 mod 𝑁) ∈ ℕ₀) ∧ ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
241	15, 226, 228, 240	syl21anc 1476	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
242	223, 241	eqtrd 2794	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
243	213, 242	oveq12d 6832	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
244		fzofi 12987	. . . . . . 7 ⊢ (0..^(𝑈 mod 𝑁)) ∈ Fin
245	244	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^(𝑈 mod 𝑁)) ∈ Fin)
246	34	ad2antrr 764	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑋 ∈ 𝐷)
247		elfzoelz 12684	. . . . . . . 8 ⊢ (𝑛 ∈ (0..^(𝑈 mod 𝑁)) → 𝑛 ∈ ℤ)
248	247	adantl 473	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑛 ∈ ℤ)
249	30, 31, 32, 33, 246, 248	dchrzrhcl 25190	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
250	245, 249	fsumcl 14683	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
251	250	addid2d 10449	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
252	39, 243, 251	3eqtrd 2798	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
253	252	fveq2d 6357	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
254		oveq2 6822	. . . . . 6 ⊢ (𝑢 = (𝑈 mod 𝑁) → (0..^𝑢) = (0..^(𝑈 mod 𝑁)))
255	254	sumeq1d 14650	. . . . 5 ⊢ (𝑢 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
256	255	fveq2d 6357	. . . 4 ⊢ (𝑢 = (𝑈 mod 𝑁) → (abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
257	256	breq1d 4814	. . 3 ⊢ (𝑢 = (𝑈 mod 𝑁) → ((abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅 ↔ (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅))
258		dchrisum.10	. . . 4 ⊢ (𝜑 → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
259	258	adantr 472	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
260		zmodfzo 12907	. . . 4 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
261	224, 3, 260	syl2anr 496	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
262	257, 259, 261	rspcdva 3455	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
263	253, 262	eqbrtrd 4826	1 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 196 ∧ wa 383 ∧ w3a 1072 = wceq 1632 ∈ wcel 2139 ≠ wne 2932 ∀wral 3050 ∪ cun 3713 ∩ cin 3714 ∅c0 4058 ifcif 4230 class class class wbr 4804 ↦ cmpt 4881 ↾ cres 5268 –1-1-onto→wf1o 6048 ‘cfv 6049 (class class class)co 6814 Fincfn 8123 ℂcc 10146 ℝcr 10147 0cc0 10148 1c1 10149 + caddc 10151 · cmul 10153 < clt 10286 ≤ cle 10287 − cmin 10478 / cdiv 10896 ℕcn 11232 ℕ₀cn0 11504 ℤcz 11589 ℤ_≥cuz 11899 ℝ⁺crp 12045 ...cfz 12539 ..^cfzo 12679 ⌊cfl 12805 mod cmo 12882 abscabs 14193 ⇝_𝑟 crli 14435 Σcsu 14635 ∥ cdvds 15202 ϕcphi 15691 Basecbs 16079 0_gc0g 16322 ℤRHomczrh 20070 ℤ/nℤczn 20073 DChrcdchr 25177

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1871 ax-4 1886 ax-5 1988 ax-6 2054 ax-7 2090 ax-8 2141 ax-9 2148 ax-10 2168 ax-11 2183 ax-12 2196 ax-13 2391 ax-ext 2740 ax-rep 4923 ax-sep 4933 ax-nul 4941 ax-pow 4992 ax-pr 5055 ax-un 7115 ax-inf2 8713 ax-cnex 10204 ax-resscn 10205 ax-1cn 10206 ax-icn 10207 ax-addcl 10208 ax-addrcl 10209 ax-mulcl 10210 ax-mulrcl 10211 ax-mulcom 10212 ax-addass 10213 ax-mulass 10214 ax-distr 10215 ax-i2m1 10216 ax-1ne0 10217 ax-1rid 10218 ax-rnegex 10219 ax-rrecex 10220 ax-cnre 10221 ax-pre-lttri 10222 ax-pre-lttrn 10223 ax-pre-ltadd 10224 ax-pre-mulgt0 10225 ax-pre-sup 10226 ax-addf 10227 ax-mulf 10228

This theorem depends on definitions: df-bi 197 df-or 384 df-an 385 df-3or 1073 df-3an 1074 df-tru 1635 df-fal 1638 df-ex 1854 df-nf 1859 df-sb 2047 df-eu 2611 df-mo 2612 df-clab 2747 df-cleq 2753 df-clel 2756 df-nfc 2891 df-ne 2933 df-nel 3036 df-ral 3055 df-rex 3056 df-reu 3057 df-rmo 3058 df-rab 3059 df-v 3342 df-sbc 3577 df-csb 3675 df-dif 3718 df-un 3720 df-in 3722 df-ss 3729 df-pss 3731 df-nul 4059 df-if 4231 df-pw 4304 df-sn 4322 df-pr 4324 df-tp 4326 df-op 4328 df-uni 4589 df-int 4628 df-iun 4674 df-br 4805 df-opab 4865 df-mpt 4882 df-tr 4905 df-id 5174 df-eprel 5179 df-po 5187 df-so 5188 df-fr 5225 df-se 5226 df-we 5227 df-xp 5272 df-rel 5273 df-cnv 5274 df-co 5275 df-dm 5276 df-rn 5277 df-res 5278 df-ima 5279 df-pred 5841 df-ord 5887 df-on 5888 df-lim 5889 df-suc 5890 df-iota 6012 df-fun 6051 df-fn 6052 df-f 6053 df-f1 6054 df-fo 6055 df-f1o 6056 df-fv 6057 df-isom 6058 df-riota 6775 df-ov 6817 df-oprab 6818 df-mpt2 6819 df-of 7063 df-om 7232 df-1st 7334 df-2nd 7335 df-tpos 7522 df-wrecs 7577 df-recs 7638 df-rdg 7676 df-1o 7730 df-oadd 7734 df-er 7913 df-ec 7915 df-qs 7919 df-map 8027 df-en 8124 df-dom 8125 df-sdom 8126 df-fin 8127 df-sup 8515 df-inf 8516 df-oi 8582 df-card 8975 df-pnf 10288 df-mnf 10289 df-xr 10290 df-ltxr 10291 df-le 10292 df-sub 10480 df-neg 10481 df-div 10897 df-nn 11233 df-2 11291 df-3 11292 df-4 11293 df-5 11294 df-6 11295 df-7 11296 df-8 11297 df-9 11298 df-n0 11505 df-xnn0 11576 df-z 11590 df-dec 11706 df-uz 11900 df-rp 12046 df-fz 12540 df-fzo 12680 df-fl 12807 df-mod 12883 df-seq 13016 df-exp 13075 df-hash 13332 df-cj 14058 df-re 14059 df-im 14060 df-sqrt 14194 df-abs 14195 df-clim 14438 df-sum 14636 df-dvds 15203 df-gcd 15439 df-phi 15693 df-struct 16081 df-ndx 16082 df-slot 16083 df-base 16085 df-sets 16086 df-ress 16087 df-plusg 16176 df-mulr 16177 df-starv 16178 df-sca 16179 df-vsca 16180 df-ip 16181 df-tset 16182 df-ple 16183 df-ds 16186 df-unif 16187 df-0g 16324 df-imas 16390 df-qus 16391 df-mgm 17463 df-sgrp 17505 df-mnd 17516 df-mhm 17556 df-grp 17646 df-minusg 17647 df-sbg 17648 df-mulg 17762 df-subg 17812 df-nsg 17813 df-eqg 17814 df-ghm 17879 df-cmn 18415 df-abl 18416 df-mgp 18710 df-ur 18722 df-ring 18769 df-cring 18770 df-oppr 18843 df-dvdsr 18861 df-unit 18862 df-invr 18892 df-rnghom 18937 df-subrg 19000 df-lmod 19087 df-lss 19155 df-lsp 19194 df-sra 19394 df-rgmod 19395 df-lidl 19396 df-rsp 19397 df-2idl 19454 df-cnfld 19969 df-zring 20041 df-zrh 20074 df-zn 20077 df-dchr 25178

This theorem is referenced by: dchrisumlem2 25399

W3C validator