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 27433

Description: Lemma for dchrisum 27436. 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 13599	. . . . . 6 ⊢ ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅
2	1	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∩ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)) = ∅)
3		rpvmasum.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
4	3	nnnn0d 12448	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
5	4	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
6		nn0re 12396	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℝ)
7	6	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℝ)
8	3	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℕ)
9	7, 8	nndivred 12185	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 / 𝑁) ∈ ℝ)
10	8	nnrpd 12938	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑁 ∈ ℝ⁺)
11		nn0ge0 12412	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 0 ≤ 𝑈)
12	11	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ 𝑈)
13	7, 10, 12	divge0d 12980	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 0 ≤ (𝑈 / 𝑁))
14		flge0nn0 13730	. . . . . . . . 9 ⊢ (((𝑈 / 𝑁) ∈ ℝ ∧ 0 ≤ (𝑈 / 𝑁)) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
15	9, 13, 14	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀)
16	5, 15	nn0mulcld 12453	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀)
17		flle 13709	. . . . . . . . 9 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
18	9, 17	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁))
19		reflcl 13706	. . . . . . . . . 10 ⊢ ((𝑈 / 𝑁) ∈ ℝ → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
20	9, 19	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (⌊‘(𝑈 / 𝑁)) ∈ ℝ)
21	20, 7, 10	lemuldiv2d 12990	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈 ↔ (⌊‘(𝑈 / 𝑁)) ≤ (𝑈 / 𝑁)))
22	18, 21	mpbird 257	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)
23		fznn0 13525	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
24	23	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) ↔ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℕ₀ ∧ (𝑁 · (⌊‘(𝑈 / 𝑁))) ≤ 𝑈)))
25	16, 22, 24	mpbir2and 713	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈))
26		fzosplit 13598	. . . . . 6 ⊢ ((𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ (0...𝑈) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
27	25, 26	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^𝑈) = ((0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))) ∪ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)))
28		fzofi 13887	. . . . . 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 13565	. . . . . . 7 ⊢ (𝑛 ∈ (0..^𝑈) → 𝑛 ∈ ℤ)
37	36	adantl 481	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → 𝑛 ∈ ℤ)
38	30, 31, 32, 33, 35, 37	dchrzrhcl 27189	. . . . 5 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^𝑈)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
39	2, 27, 29, 38	fsumsplit 15654	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))))
40		oveq2 7360	. . . . . . . . . . . 12 ⊢ (𝑘 = 0 → (𝑁 · 𝑘) = (𝑁 · 0))
41	40	oveq2d 7368	. . . . . . . . . . 11 ⊢ (𝑘 = 0 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 0)))
42	41	sumeq1d 15613	. . . . . . . . . 10 ⊢ (𝑘 = 0 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)))
43	42	eqeq1d 2733	. . . . . . . . 9 ⊢ (𝑘 = 0 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0))
44	43	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = 0 → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0)))
45		oveq2 7360	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑚 → (𝑁 · 𝑘) = (𝑁 · 𝑚))
46	45	oveq2d 7368	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑚 → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · 𝑚)))
47	46	sumeq1d 15613	. . . . . . . . . 10 ⊢ (𝑘 = 𝑚 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)))
48	47	eqeq1d 2733	. . . . . . . . 9 ⊢ (𝑘 = 𝑚 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0))
49	48	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = 𝑚 → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0)))
50		oveq2 7360	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑚 + 1) → (𝑁 · 𝑘) = (𝑁 · (𝑚 + 1)))
51	50	oveq2d 7368	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑚 + 1) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (𝑚 + 1))))
52	51	sumeq1d 15613	. . . . . . . . . 10 ⊢ (𝑘 = (𝑚 + 1) → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)))
53	52	eqeq1d 2733	. . . . . . . . 9 ⊢ (𝑘 = (𝑚 + 1) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0))
54	53	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = (𝑚 + 1) → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)))
55		oveq2 7360	. . . . . . . . . . . 12 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑘) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
56	55	oveq2d 7368	. . . . . . . . . . 11 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (0..^(𝑁 · 𝑘)) = (0..^(𝑁 · (⌊‘(𝑈 / 𝑁)))))
57	56	sumeq1d 15613	. . . . . . . . . 10 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)))
58	57	eqeq1d 2733	. . . . . . . . 9 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0 ↔ Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
59	58	imbi2d 340	. . . . . . . 8 ⊢ (𝑘 = (⌊‘(𝑈 / 𝑁)) → ((𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 𝑘))(𝑋‘(𝐿‘𝑛)) = 0) ↔ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)))
60	3	nncnd 12147	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℂ)
61	60	mul01d 11318	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 · 0) = 0)
62	61	oveq2d 7368	. . . . . . . . . . 11 ⊢ (𝜑 → (0..^(𝑁 · 0)) = (0..^0))
63		fzo0 13589	. . . . . . . . . . 11 ⊢ (0..^0) = ∅
64	62, 63	eqtrdi 2782	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(𝑁 · 0)) = ∅)
65	64	sumeq1d 15613	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)))
66		sum0 15634	. . . . . . . . 9 ⊢ Σ𝑛 ∈ ∅ (𝑋‘(𝐿‘𝑛)) = 0
67	65, 66	eqtrdi 2782	. . . . . . . 8 ⊢ (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · 0))(𝑋‘(𝐿‘𝑛)) = 0)
68		oveq1 7359	. . . . . . . . . . 11 ⊢ (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) = 0 → (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
69		fzodisj 13599	. . . . . . . . . . . . . 14 ⊢ ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅
70	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((0..^(𝑁 · 𝑚)) ∩ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))) = ∅)
71		nn0re 12396	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℝ)
72	71	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℝ)
73	72	lep1d 12059	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ≤ (𝑚 + 1))
74		peano2re 11292	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℝ → (𝑚 + 1) ∈ ℝ)
75	72, 74	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑚 + 1) ∈ ℝ)
76	3	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ)
77	76	nnred 12146	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℝ)
78	76	nngt0d 12180	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 0 < 𝑁)
79		lemul2 11980	. . . . . . . . . . . . . . . . 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 12423	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
83	4, 82	sylan 580	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℕ₀)
84		nn0uz 12780	. . . . . . . . . . . . . . . . 17 ⊢ ℕ₀ = (ℤ_≥‘0)
85	83, 84	eleqtrdi 2841	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ (ℤ_≥‘0))
86		nn0p1nn 12426	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ₀ → (𝑚 + 1) ∈ ℕ)
87		nnmulcl 12155	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ (𝑚 + 1) ∈ ℕ) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
88	3, 86, 87	syl2an 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℕ)
89	88	nnzd 12501	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) ∈ ℤ)
90		elfz5 13422	. . . . . . . . . . . . . . . 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 13598	. . . . . . . . . . . . . 14 ⊢ ((𝑁 · 𝑚) ∈ (0...(𝑁 · (𝑚 + 1))) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
94	92, 93	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) = ((0..^(𝑁 · 𝑚)) ∪ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))))
95		fzofi 13887	. . . . . . . . . . . . . 14 ⊢ (0..^(𝑁 · (𝑚 + 1))) ∈ Fin
96	95	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0..^(𝑁 · (𝑚 + 1))) ∈ Fin)
97	34	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑋 ∈ 𝐷)
98		elfzoelz 13565	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (0..^(𝑁 · (𝑚 + 1))) → 𝑛 ∈ ℤ)
99	98	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → 𝑛 ∈ ℤ)
100	30, 31, 32, 33, 97, 99	dchrzrhcl 27189	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
101	70, 94, 96, 100	fsumsplit 15654	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^(𝑁 · 𝑚))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
102	76	nncnd 12147	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℂ)
103	72	recnd 11146	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑚 ∈ ℂ)
104		1cnd 11113	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 1 ∈ ℂ)
105	102, 103, 104	adddid 11142	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + (𝑁 · 1)))
106	102	mulridd 11135	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 1) = 𝑁)
107	106	oveq2d 7368	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚) + (𝑁 · 1)) = ((𝑁 · 𝑚) + 𝑁))
108	105, 107	eqtrd 2766	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · (𝑚 + 1)) = ((𝑁 · 𝑚) + 𝑁))
109	108	oveq2d 7368	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1))) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
110	109	sumeq1d 15613	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
111		oveq2 7360	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · 𝑚) + 𝑁))
112	111	oveq2d 7368	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁)))
113	112	sumeq1d 15613	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)))
114		oveq2 7360	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑁 → (0..^𝑘) = (0..^𝑁))
115	114	sumeq1d 15613	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑁 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
116	113, 115	eqeq12d 2747	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑁 → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛))))
117	83	nn0zd 12500	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
118	117	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℤ)
119		nn0z 12499	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℤ)
120		zaddcl 12518	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 · 𝑚) ∈ ℤ ∧ 𝑘 ∈ ℤ) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
121	117, 119, 120	syl2an 596	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℤ)
122		peano2zm 12521	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
123	121, 122	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − 1) ∈ ℤ)
124	34	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑋 ∈ 𝐷)
125		elfzelz 13430	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)) → 𝑛 ∈ ℤ)
126	125	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → 𝑛 ∈ ℤ)
127	30, 31, 32, 33, 124, 126	dchrzrhcl 27189	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
128		2fveq3 6833	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = (𝑖 + (𝑁 · 𝑚)) → (𝑋‘(𝐿‘𝑛)) = (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
129	118, 118, 123, 127, 128	fsumshftm 15694	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
130		fzoval 13566	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 · 𝑚) + 𝑘) ∈ ℤ → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
131	121, 130	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1)))
132	131	sumeq1d 15613	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · 𝑚)...(((𝑁 · 𝑚) + 𝑘) − 1))(𝑋‘(𝐿‘𝑛)))
133	119	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℤ)
134		fzoval 13566	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ ℤ → (0..^𝑘) = (0...(𝑘 − 1)))
135	133, 134	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (0...(𝑘 − 1)))
136	118	zcnd 12584	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (𝑁 · 𝑚) ∈ ℂ)
137	136	subidd 11466	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) − (𝑁 · 𝑚)) = 0)
138	121	zcnd 12584	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((𝑁 · 𝑚) + 𝑘) ∈ ℂ)
139		1cnd 11113	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 1 ∈ ℂ)
140	138, 139, 136	sub32d 11510	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1))
141		nn0cn 12397	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑘 ∈ ℕ₀ → 𝑘 ∈ ℂ)
142	141	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℂ)
143	136, 142	pncan2d 11480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) = 𝑘)
144	143	oveq1d 7367	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − (𝑁 · 𝑚)) − 1) = (𝑘 − 1))
145	140, 144	eqtrd 2766	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → ((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)) = (𝑘 − 1))
146	137, 145	oveq12d 7370	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))) = (0...(𝑘 − 1)))
147	135, 146	eqtr4d 2769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → (0..^𝑘) = (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚))))
148	147	sumeq1d 15613	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (((𝑁 · 𝑚) − (𝑁 · 𝑚))...((((𝑁 · 𝑚) + 𝑘) − 1) − (𝑁 · 𝑚)))(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
149	129, 132, 148	3eqtr4d 2776	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))))
150	3	nnzd 12501	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑁 ∈ ℤ)
151		nn0z 12499	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑚 ∈ ℕ₀ → 𝑚 ∈ ℤ)
152		dvdsmul1 16194	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑁 ∈ ℤ ∧ 𝑚 ∈ ℤ) → 𝑁 ∥ (𝑁 · 𝑚))
153	150, 151, 152	syl2an 596	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∥ (𝑁 · 𝑚))
154	153	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ (𝑁 · 𝑚))
155		elfzoelz 13565	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑖 ∈ (0..^𝑘) → 𝑖 ∈ ℤ)
156	155	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℤ)
157	156	zcnd 12584	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑖 ∈ ℂ)
158	136	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑁 · 𝑚) ∈ ℂ)
159	157, 158	pncan2d 11480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝑖 + (𝑁 · 𝑚)) − 𝑖) = (𝑁 · 𝑚))
160	154, 159	breqtrrd 5121	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖))
161	76	nnnn0d 12448	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 𝑁 ∈ ℕ₀)
162	161	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → 𝑁 ∈ ℕ₀)
163		zaddcl 12518	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑖 ∈ ℤ ∧ (𝑁 · 𝑚) ∈ ℤ) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
164	155, 118, 163	syl2anr 597	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑖 + (𝑁 · 𝑚)) ∈ ℤ)
165	31, 33	zndvds 21492	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝑖 + (𝑁 · 𝑚)) ∈ ℤ ∧ 𝑖 ∈ ℤ) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
166	162, 164, 156, 165	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → ((𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖) ↔ 𝑁 ∥ ((𝑖 + (𝑁 · 𝑚)) − 𝑖)))
167	160, 166	mpbird 257	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝐿‘(𝑖 + (𝑁 · 𝑚))) = (𝐿‘𝑖))
168	167	fveq2d 6832	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) ∧ 𝑖 ∈ (0..^𝑘)) → (𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = (𝑋‘(𝐿‘𝑖)))
169	168	sumeq2dv 15615	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)))
170		2fveq3 6833	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑖 = 𝑛 → (𝑋‘(𝐿‘𝑖)) = (𝑋‘(𝐿‘𝑛)))
171	170	cbvsumv 15609	. . . . . . . . . . . . . . . . . . 19 ⊢ Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑖)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))
172	169, 171	eqtrdi 2782	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑖 ∈ (0..^𝑘)(𝑋‘(𝐿‘(𝑖 + (𝑁 · 𝑚)))) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
173	149, 172	eqtrd 2766	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℕ₀) ∧ 𝑘 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
174	173	ralrimiva 3124	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
175	116, 174, 161	rspcdva 3573	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
176		fveq2 6828	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = (𝐿‘𝑛) → (𝑋‘𝑘) = (𝑋‘(𝐿‘𝑛)))
177	3	nnne0d 12181	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑁 ≠ 0)
178		ifnefalse 4486	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ≠ 0 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
179	177, 178	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) = (0..^𝑁))
180		fzofi 13887	. . . . . . . . . . . . . . . . . . 19 ⊢ (0..^𝑁) ∈ Fin
181	179, 180	eqeltrdi 2839	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑁 = 0, ℤ, (0..^𝑁)) ∈ Fin)
182		eqid 2731	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘𝑍) = (Base‘𝑍)
183	33	reseq1i 5929	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐿 ↾ if(𝑁 = 0, ℤ, (0..^𝑁))) = ((ℤRHom‘𝑍) ↾ if(𝑁 = 0, ℤ, (0..^𝑁)))
184		eqid 2731	. . . . . . . . . . . . . . . . . . . 20 ⊢ if(𝑁 = 0, ℤ, (0..^𝑁)) = if(𝑁 = 0, ℤ, (0..^𝑁))
185	31, 182, 183, 184	znf1o 21494	. . . . . . . . . . . . . . . . . . 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 6847	. . . . . . . . . . . . . . . . . . 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 27186	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋:(Base‘𝑍)⟶ℂ)
190	189	ffvelcdmda 7023	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (Base‘𝑍)) → (𝑋‘𝑘) ∈ ℂ)
191	176, 181, 186, 188, 190	fsumf1o 15636	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = Σ𝑛 ∈ if (𝑁 = 0, ℤ, (0..^𝑁))(𝑋‘(𝐿‘𝑛)))
192		rpvmasum.1	. . . . . . . . . . . . . . . . . . 19 ⊢ 1 = (0_g‘𝐺)
193	30, 31, 32, 192, 34, 182	dchrsum 27213	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = if(𝑋 = 1 , (ϕ‘𝑁), 0))
194		dchrisum.n1	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋 ≠ 1 )
195		ifnefalse 4486	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ≠ 1 → if(𝑋 = 1 , (ϕ‘𝑁), 0) = 0)
196	194, 195	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → if(𝑋 = 1 , (ϕ‘𝑁), 0) = 0)
197	193, 196	eqtrd 2766	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑘 ∈ (Base‘𝑍)(𝑋‘𝑘) = 0)
198	179	sumeq1d 15613	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Σ𝑛 ∈ if (𝑁 = 0, ℤ, (0..^𝑁))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)))
199	191, 197, 198	3eqtr3rd 2775	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)) = 0)
200	199	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑁)(𝑋‘(𝐿‘𝑛)) = 0)
201	110, 175, 200	3eqtrd 2770	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛)) = 0)
202	201	oveq2d 7368	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))) = (0 + 0))
203		00id 11294	. . . . . . . . . . . . 13 ⊢ (0 + 0) = 0
204	202, 203	eqtr2di 2783	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ₀) → 0 = (0 + Σ𝑛 ∈ ((𝑁 · 𝑚)..^(𝑁 · (𝑚 + 1)))(𝑋‘(𝐿‘𝑛))))
205	101, 204	eqeq12d 2747	. . . . . . . . . . 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 12574	. . . . . . 7 ⊢ ((⌊‘(𝑈 / 𝑁)) ∈ ℕ₀ → (𝜑 → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0))
210	209	impcom 407	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝑈 / 𝑁)) ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
211	15, 210	syldan 591	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) = 0)
212		modval 13781	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ ℝ ∧ 𝑁 ∈ ℝ⁺) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
213	7, 10, 212	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) = (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁)))))
214	213	oveq2d 7368	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))))
215	16	nn0cnd 12450	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑁 · (⌊‘(𝑈 / 𝑁))) ∈ ℂ)
216		nn0cn 12397	. . . . . . . . . . 11 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℂ)
217	216	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 ∈ ℂ)
218	215, 217	pncan3d 11481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 − (𝑁 · (⌊‘(𝑈 / 𝑁))))) = 𝑈)
219	214, 218	eqtr2d 2767	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → 𝑈 = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
220	219	oveq2d 7368	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
221	220	sumeq1d 15613	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
222		nn0z 12499	. . . . . . . 8 ⊢ (𝑈 ∈ ℕ₀ → 𝑈 ∈ ℤ)
223		zmodcl 13801	. . . . . . . 8 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ ℕ₀)
224	222, 3, 223	syl2anr 597	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ ℕ₀)
225	174	ralrimiva 3124	. . . . . . . 8 ⊢ (𝜑 → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
226	225	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)))
227		oveq2 7360	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (𝑁 · 𝑚) = (𝑁 · (⌊‘(𝑈 / 𝑁))))
228	227	oveq1d 7367	. . . . . . . . . . 11 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))
229	227, 228	oveq12d 7370	. . . . . . . . . 10 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)))
230	229	sumeq1d 15613	. . . . . . . . 9 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)))
231	230	eqeq1d 2733	. . . . . . . 8 ⊢ (𝑚 = (⌊‘(𝑈 / 𝑁)) → (Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))))
232		oveq2 7360	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘) = ((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))
233	232	oveq2d 7368	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘)) = ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁))))
234	233	sumeq1d 15613	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)))
235		oveq2 7360	. . . . . . . . . 10 ⊢ (𝑘 = (𝑈 mod 𝑁) → (0..^𝑘) = (0..^(𝑈 mod 𝑁)))
236	235	sumeq1d 15613	. . . . . . . . 9 ⊢ (𝑘 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
237	234, 236	eqeq12d 2747	. . . . . . . 8 ⊢ (𝑘 = (𝑈 mod 𝑁) → (Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ↔ Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
238	231, 237	rspc2va 3584	. . . . . . 7 ⊢ ((((⌊‘(𝑈 / 𝑁)) ∈ ℕ₀ ∧ (𝑈 mod 𝑁) ∈ ℕ₀) ∧ ∀𝑚 ∈ ℕ₀ ∀𝑘 ∈ ℕ₀ Σ𝑛 ∈ ((𝑁 · 𝑚)..^((𝑁 · 𝑚) + 𝑘))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛))) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
239	15, 224, 226, 238	syl21anc 837	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^((𝑁 · (⌊‘(𝑈 / 𝑁))) + (𝑈 mod 𝑁)))(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
240	221, 239	eqtrd 2766	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
241	211, 240	oveq12d 7370	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (Σ𝑛 ∈ (0..^(𝑁 · (⌊‘(𝑈 / 𝑁))))(𝑋‘(𝐿‘𝑛)) + Σ𝑛 ∈ ((𝑁 · (⌊‘(𝑈 / 𝑁)))..^𝑈)(𝑋‘(𝐿‘𝑛))) = (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
242		fzofi 13887	. . . . . . 7 ⊢ (0..^(𝑈 mod 𝑁)) ∈ Fin
243	242	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0..^(𝑈 mod 𝑁)) ∈ Fin)
244	34	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑋 ∈ 𝐷)
245		elfzoelz 13565	. . . . . . . 8 ⊢ (𝑛 ∈ (0..^(𝑈 mod 𝑁)) → 𝑛 ∈ ℤ)
246	245	adantl 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → 𝑛 ∈ ℤ)
247	30, 31, 32, 33, 244, 246	dchrzrhcl 27189	. . . . . 6 ⊢ (((𝜑 ∧ 𝑈 ∈ ℕ₀) ∧ 𝑛 ∈ (0..^(𝑈 mod 𝑁))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
248	243, 247	fsumcl 15646	. . . . 5 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
249	248	addlidd 11320	. . . 4 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (0 + Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
250	39, 241, 249	3eqtrd 2770	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
251	250	fveq2d 6832	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
252		oveq2 7360	. . . . . 6 ⊢ (𝑢 = (𝑈 mod 𝑁) → (0..^𝑢) = (0..^(𝑈 mod 𝑁)))
253	252	sumeq1d 15613	. . . . 5 ⊢ (𝑢 = (𝑈 mod 𝑁) → Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛)))
254	253	fveq2d 6832	. . . 4 ⊢ (𝑢 = (𝑈 mod 𝑁) → (abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) = (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))))
255	254	breq1d 5103	. . 3 ⊢ (𝑢 = (𝑈 mod 𝑁) → ((abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅 ↔ (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅))
256		dchrisum.10	. . . 4 ⊢ (𝜑 → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
257	256	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
258		zmodfzo 13804	. . . 4 ⊢ ((𝑈 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
259	222, 3, 258	syl2anr 597	. . 3 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (𝑈 mod 𝑁) ∈ (0..^𝑁))
260	255, 257, 259	rspcdva 3573	. 2 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^(𝑈 mod 𝑁))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
261	251, 260	eqbrtrd 5115	1 ⊢ ((𝜑 ∧ 𝑈 ∈ ℕ₀) → (abs‘Σ𝑛 ∈ (0..^𝑈)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2111 ≠ wne 2928 ∀wral 3047 ∪ cun 3895 ∩ cin 3896 ∅c0 4282 ifcif 4474 class class class wbr 5093 ↦ cmpt 5174 ↾ cres 5621 –1-1-onto→wf1o 6486 ‘cfv 6487 (class class class)co 7352 Fincfn 8875 ℂcc 11010 ℝcr 11011 0cc0 11012 1c1 11013 + caddc 11015 · cmul 11017 < clt 11152 ≤ cle 11153 − cmin 11350 / cdiv 11780 ℕcn 12131 ℕ₀cn0 12387 ℤcz 12474 ℤ_≥cuz 12738 ℝ⁺crp 12896 ...cfz 13413 ..^cfzo 13560 ⌊cfl 13700 mod cmo 13779 abscabs 15147 ⇝_𝑟 crli 15398 Σcsu 15599 ∥ cdvds 16169 ϕcphi 16681 Basecbs 17126 0_gc0g 17349 ℤRHomczrh 21442 ℤ/nℤczn 21445 DChrcdchr 27176

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5219 ax-sep 5236 ax-nul 5246 ax-pow 5305 ax-pr 5372 ax-un 7674 ax-inf2 9537 ax-cnex 11068 ax-resscn 11069 ax-1cn 11070 ax-icn 11071 ax-addcl 11072 ax-addrcl 11073 ax-mulcl 11074 ax-mulrcl 11075 ax-mulcom 11076 ax-addass 11077 ax-mulass 11078 ax-distr 11079 ax-i2m1 11080 ax-1ne0 11081 ax-1rid 11082 ax-rnegex 11083 ax-rrecex 11084 ax-cnre 11085 ax-pre-lttri 11086 ax-pre-lttrn 11087 ax-pre-ltadd 11088 ax-pre-mulgt0 11089 ax-pre-sup 11090 ax-addf 11091 ax-mulf 11092

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3737 df-csb 3846 df-dif 3900 df-un 3902 df-in 3904 df-ss 3914 df-pss 3917 df-nul 4283 df-if 4475 df-pw 4551 df-sn 4576 df-pr 4578 df-tp 4580 df-op 4582 df-uni 4859 df-int 4898 df-iun 4943 df-br 5094 df-opab 5156 df-mpt 5175 df-tr 5201 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 6254 df-ord 6315 df-on 6316 df-lim 6317 df-suc 6318 df-iota 6443 df-fun 6489 df-fn 6490 df-f 6491 df-f1 6492 df-fo 6493 df-f1o 6494 df-fv 6495 df-isom 6496 df-riota 7309 df-ov 7355 df-oprab 7356 df-mpo 7357 df-of 7616 df-om 7803 df-1st 7927 df-2nd 7928 df-tpos 8162 df-frecs 8217 df-wrecs 8248 df-recs 8297 df-rdg 8335 df-1o 8391 df-oadd 8395 df-er 8628 df-ec 8630 df-qs 8634 df-map 8758 df-en 8876 df-dom 8877 df-sdom 8878 df-fin 8879 df-sup 9332 df-inf 9333 df-oi 9402 df-card 9838 df-pnf 11154 df-mnf 11155 df-xr 11156 df-ltxr 11157 df-le 11158 df-sub 11352 df-neg 11353 df-div 11781 df-nn 12132 df-2 12194 df-3 12195 df-4 12196 df-5 12197 df-6 12198 df-7 12199 df-8 12200 df-9 12201 df-n0 12388 df-xnn0 12461 df-z 12475 df-dec 12595 df-uz 12739 df-rp 12897 df-fz 13414 df-fzo 13561 df-fl 13702 df-mod 13780 df-seq 13915 df-exp 13975 df-hash 14244 df-cj 15012 df-re 15013 df-im 15014 df-sqrt 15148 df-abs 15149 df-clim 15401 df-sum 15600 df-dvds 16170 df-gcd 16412 df-phi 16683 df-struct 17064 df-sets 17081 df-slot 17099 df-ndx 17111 df-base 17127 df-ress 17148 df-plusg 17180 df-mulr 17181 df-starv 17182 df-sca 17183 df-vsca 17184 df-ip 17185 df-tset 17186 df-ple 17187 df-ds 17189 df-unif 17190 df-0g 17351 df-imas 17418 df-qus 17419 df-mgm 18554 df-sgrp 18633 df-mnd 18649 df-mhm 18697 df-grp 18855 df-minusg 18856 df-sbg 18857 df-mulg 18987 df-subg 19042 df-nsg 19043 df-eqg 19044 df-ghm 19131 df-cmn 19700 df-abl 19701 df-mgp 20065 df-rng 20077 df-ur 20106 df-ring 20159 df-cring 20160 df-oppr 20261 df-dvdsr 20281 df-unit 20282 df-invr 20312 df-rhm 20396 df-subrng 20467 df-subrg 20491 df-lmod 20801 df-lss 20871 df-lsp 20911 df-sra 21113 df-rgmod 21114 df-lidl 21151 df-rsp 21152 df-2idl 21193 df-cnfld 21298 df-zring 21390 df-zrh 21446 df-zn 21449 df-dchr 27177

This theorem is referenced by: dchrisumlem2 27434

W3C validator