dchrisum0flblem1 - Metamath Proof Explorer

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

Theorem dchrisum0flblem1 25197

Description: Lemma for dchrisum0flb 25199. Base case, prime power. (Contributed by Mario Carneiro, 5-May-2016.)

**Hypotheses**
Ref	Expression
rpvmasum.z	⊢ 𝑍 = (ℤ/nℤ‘𝑁)
rpvmasum.l	⊢ 𝐿 = (ℤRHom‘𝑍)
rpvmasum.a	⊢ (𝜑 → 𝑁 ∈ ℕ)
rpvmasum2.g	⊢ 𝐺 = (DChr‘𝑁)
rpvmasum2.d	⊢ 𝐷 = (Base‘𝐺)
rpvmasum2.1	⊢ 1 = (0_g‘𝐺)
dchrisum0f.f	⊢ 𝐹 = (𝑏 ∈ ℕ ↦ Σ𝑣 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ 𝑏} (𝑋‘(𝐿‘𝑣)))
dchrisum0f.x	⊢ (𝜑 → 𝑋 ∈ 𝐷)
dchrisum0flb.r	⊢ (𝜑 → 𝑋:(Base‘𝑍)⟶ℝ)
dchrisum0flblem1.1	⊢ (𝜑 → 𝑃 ∈ ℙ)
dchrisum0flblem1.2	⊢ (𝜑 → 𝐴 ∈ ℕ₀)

**Assertion**
Ref	Expression
dchrisum0flblem1	⊢ (𝜑 → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ (𝐹‘(𝑃↑𝐴)))

Distinct variable groups: 𝑞,𝑏,𝑣,𝐴 𝑁,𝑞 𝑃,𝑏,𝑞,𝑣 𝐿,𝑏,𝑣 𝑋,𝑏,𝑣 Allowed substitution hints: 𝜑(𝑣,𝑞,𝑏) 𝐷(𝑣,𝑞,𝑏) 1 (𝑣,𝑞,𝑏) 𝐹(𝑣,𝑞,𝑏) 𝐺(𝑣,𝑞,𝑏) 𝐿(𝑞) 𝑁(𝑣,𝑏) 𝑋(𝑞) 𝑍(𝑣,𝑞,𝑏)

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

Step	Hyp	Ref	Expression
1		1red 10055	. . . . 5 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 1 ∈ ℝ)
2		0red 10041	. . . . 5 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) ∧ ¬ (√‘(𝑃↑𝐴)) ∈ ℕ) → 0 ∈ ℝ)
3	1, 2	ifclda 4120	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ)
4		1red 10055	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → 1 ∈ ℝ)
5		fzfid 12772	. . . . . 6 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
6		dchrisum0flb.r	. . . . . . . 8 ⊢ (𝜑 → 𝑋:(Base‘𝑍)⟶ℝ)
7		rpvmasum.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
8	7	nnnn0d 11351	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
9		rpvmasum.z	. . . . . . . . . . 11 ⊢ 𝑍 = (ℤ/nℤ‘𝑁)
10		eqid 2622	. . . . . . . . . . 11 ⊢ (Base‘𝑍) = (Base‘𝑍)
11		rpvmasum.l	. . . . . . . . . . 11 ⊢ 𝐿 = (ℤRHom‘𝑍)
12	9, 10, 11	znzrhfo 19896	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → 𝐿:ℤ–onto→(Base‘𝑍))
13		fof 6115	. . . . . . . . . 10 ⊢ (𝐿:ℤ–onto→(Base‘𝑍) → 𝐿:ℤ⟶(Base‘𝑍))
14	8, 12, 13	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘𝑍))
15		dchrisum0flblem1.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℙ)
16		prmz 15389	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
17	15, 16	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
18	14, 17	ffvelrnd 6360	. . . . . . . 8 ⊢ (𝜑 → (𝐿‘𝑃) ∈ (Base‘𝑍))
19	6, 18	ffvelrnd 6360	. . . . . . 7 ⊢ (𝜑 → (𝑋‘(𝐿‘𝑃)) ∈ ℝ)
20		elfznn0 12433	. . . . . . 7 ⊢ (𝑖 ∈ (0...𝐴) → 𝑖 ∈ ℕ₀)
21		reexpcl 12877	. . . . . . 7 ⊢ (((𝑋‘(𝐿‘𝑃)) ∈ ℝ ∧ 𝑖 ∈ ℕ₀) → ((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
22	19, 20, 21	syl2an 494	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
23	5, 22	fsumrecl 14465	. . . . 5 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
24	23	adantr 481	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
25		breq1 4656	. . . . . 6 ⊢ (1 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (1 ≤ 1 ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1))
26		breq1 4656	. . . . . 6 ⊢ (0 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (0 ≤ 1 ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1))
27		1le1 10655	. . . . . 6 ⊢ 1 ≤ 1
28		0le1 10551	. . . . . 6 ⊢ 0 ≤ 1
29	25, 26, 27, 28	keephyp 4152	. . . . 5 ⊢ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1
30	29	a1i 11	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1)
31		dchrisum0flblem1.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
32		nn0uz 11722	. . . . . . . . . 10 ⊢ ℕ₀ = (ℤ_≥‘0)
33	31, 32	syl6eleq 2711	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (ℤ_≥‘0))
34		fzn0 12355	. . . . . . . . 9 ⊢ ((0...𝐴) ≠ ∅ ↔ 𝐴 ∈ (ℤ_≥‘0))
35	33, 34	sylibr 224	. . . . . . . 8 ⊢ (𝜑 → (0...𝐴) ≠ ∅)
36		hashnncl 13157	. . . . . . . . 9 ⊢ ((0...𝐴) ∈ Fin → ((#‘(0...𝐴)) ∈ ℕ ↔ (0...𝐴) ≠ ∅))
37	5, 36	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((#‘(0...𝐴)) ∈ ℕ ↔ (0...𝐴) ≠ ∅))
38	35, 37	mpbird 247	. . . . . . 7 ⊢ (𝜑 → (#‘(0...𝐴)) ∈ ℕ)
39	38	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (#‘(0...𝐴)) ∈ ℕ)
40	39	nnge1d 11063	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → 1 ≤ (#‘(0...𝐴)))
41		simpr 477	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (𝑋‘(𝐿‘𝑃)) = 1)
42	41	oveq1d 6665	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → ((𝑋‘(𝐿‘𝑃))↑𝑖) = (1↑𝑖))
43		elfzelz 12342	. . . . . . . . 9 ⊢ (𝑖 ∈ (0...𝐴) → 𝑖 ∈ ℤ)
44		1exp 12889	. . . . . . . . 9 ⊢ (𝑖 ∈ ℤ → (1↑𝑖) = 1)
45	43, 44	syl 17	. . . . . . . 8 ⊢ (𝑖 ∈ (0...𝐴) → (1↑𝑖) = 1)
46	42, 45	sylan9eq 2676	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) ∧ 𝑖 ∈ (0...𝐴)) → ((𝑋‘(𝐿‘𝑃))↑𝑖) = 1)
47	46	sumeq2dv 14433	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = Σ𝑖 ∈ (0...𝐴)1)
48		fzfid 12772	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (0...𝐴) ∈ Fin)
49		ax-1cn 9994	. . . . . . 7 ⊢ 1 ∈ ℂ
50		fsumconst 14522	. . . . . . 7 ⊢ (((0...𝐴) ∈ Fin ∧ 1 ∈ ℂ) → Σ𝑖 ∈ (0...𝐴)1 = ((#‘(0...𝐴)) · 1))
51	48, 49, 50	sylancl 694	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)1 = ((#‘(0...𝐴)) · 1))
52	39	nncnd 11036	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (#‘(0...𝐴)) ∈ ℂ)
53	52	mulid1d 10057	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → ((#‘(0...𝐴)) · 1) = (#‘(0...𝐴)))
54	47, 51, 53	3eqtrd 2660	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = (#‘(0...𝐴)))
55	40, 54	breqtrrd 4681	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → 1 ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
56	3, 4, 24, 30, 55	letrd 10194	. . 3 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
57		oveq1 6657	. . . . . . 7 ⊢ (1 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (1 · (1 − (𝑋‘(𝐿‘𝑃)))) = (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))))
58	57	breq1d 4663	. . . . . 6 ⊢ (1 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → ((1 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)))))
59		oveq1 6657	. . . . . . 7 ⊢ (0 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) = (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))))
60	59	breq1d 4663	. . . . . 6 ⊢ (0 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → ((0 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)))))
61		1re 10039	. . . . . . . . . 10 ⊢ 1 ∈ ℝ
62	19	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ∈ ℝ)
63		resubcl 10345	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ (𝑋‘(𝐿‘𝑃)) ∈ ℝ) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ)
64	61, 62, 63	sylancr 695	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ)
65	64	adantr 481	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ)
66	65	leidd 10594	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − (𝑋‘(𝐿‘𝑃))) ≤ (1 − (𝑋‘(𝐿‘𝑃))))
67	64	recnd 10068	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℂ)
68	67	adantr 481	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℂ)
69	68	mulid2d 10058	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 · (1 − (𝑋‘(𝐿‘𝑃)))) = (1 − (𝑋‘(𝐿‘𝑃))))
70		nn0p1nn 11332	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℕ₀ → (𝐴 + 1) ∈ ℕ)
71	31, 70	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ)
72	71	ad3antrrr 766	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → (𝐴 + 1) ∈ ℕ)
73	72	0expd 13024	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → (0↑(𝐴 + 1)) = 0)
74		simpr 477	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → (𝑋‘(𝐿‘𝑃)) = 0)
75	74	oveq1d 6665	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (0↑(𝐴 + 1)))
76	73, 75, 74	3eqtr4d 2666	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (𝑋‘(𝐿‘𝑃)))
77		neg1cn 11124	. . . . . . . . . . . . 13 ⊢ -1 ∈ ℂ
78	31	ad2antrr 762	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝐴 ∈ ℕ₀)
79		expp1 12867	. . . . . . . . . . . . 13 ⊢ ((-1 ∈ ℂ ∧ 𝐴 ∈ ℕ₀) → (-1↑(𝐴 + 1)) = ((-1↑𝐴) · -1))
80	77, 78, 79	sylancr 695	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑(𝐴 + 1)) = ((-1↑𝐴) · -1))
81		prmnn 15388	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
82	15, 81	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑃 ∈ ℕ)
83	82, 31	nnexpcld 13030	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑃↑𝐴) ∈ ℕ)
84	83	nncnd 11036	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑃↑𝐴) ∈ ℂ)
85	84	ad2antrr 762	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃↑𝐴) ∈ ℂ)
86	85	sqsqrtd 14178	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((√‘(𝑃↑𝐴))↑2) = (𝑃↑𝐴))
87	86	oveq2d 6666	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt ((√‘(𝑃↑𝐴))↑2)) = (𝑃 pCnt (𝑃↑𝐴)))
88	15	ad2antrr 762	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝑃 ∈ ℙ)
89		nnq 11801	. . . . . . . . . . . . . . . . . . 19 ⊢ ((√‘(𝑃↑𝐴)) ∈ ℕ → (√‘(𝑃↑𝐴)) ∈ ℚ)
90	89	adantl 482	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (√‘(𝑃↑𝐴)) ∈ ℚ)
91		nnne0 11053	. . . . . . . . . . . . . . . . . . 19 ⊢ ((√‘(𝑃↑𝐴)) ∈ ℕ → (√‘(𝑃↑𝐴)) ≠ 0)
92	91	adantl 482	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (√‘(𝑃↑𝐴)) ≠ 0)
93		2z 11409	. . . . . . . . . . . . . . . . . . 19 ⊢ 2 ∈ ℤ
94	93	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 2 ∈ ℤ)
95		pcexp 15564	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℙ ∧ ((√‘(𝑃↑𝐴)) ∈ ℚ ∧ (√‘(𝑃↑𝐴)) ≠ 0) ∧ 2 ∈ ℤ) → (𝑃 pCnt ((√‘(𝑃↑𝐴))↑2)) = (2 · (𝑃 pCnt (√‘(𝑃↑𝐴)))))
96	88, 90, 92, 94, 95	syl121anc 1331	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt ((√‘(𝑃↑𝐴))↑2)) = (2 · (𝑃 pCnt (√‘(𝑃↑𝐴)))))
97	78	nn0zd 11480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝐴 ∈ ℤ)
98		pcid 15577	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℤ) → (𝑃 pCnt (𝑃↑𝐴)) = 𝐴)
99	88, 97, 98	syl2anc 693	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt (𝑃↑𝐴)) = 𝐴)
100	87, 96, 99	3eqtr3rd 2665	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝐴 = (2 · (𝑃 pCnt (√‘(𝑃↑𝐴)))))
101	100	oveq2d 6666	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑𝐴) = (-1↑(2 · (𝑃 pCnt (√‘(𝑃↑𝐴))))))
102	77	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → -1 ∈ ℂ)
103		simpr 477	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (√‘(𝑃↑𝐴)) ∈ ℕ)
104	88, 103	pccld 15555	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt (√‘(𝑃↑𝐴))) ∈ ℕ₀)
105		2nn0 11309	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℕ₀
106	105	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 2 ∈ ℕ₀)
107	102, 104, 106	expmuld 13011	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑(2 · (𝑃 pCnt (√‘(𝑃↑𝐴))))) = ((-1↑2)↑(𝑃 pCnt (√‘(𝑃↑𝐴)))))
108		neg1sqe1 12959	. . . . . . . . . . . . . . . . 17 ⊢ (-1↑2) = 1
109	108	oveq1i 6660	. . . . . . . . . . . . . . . 16 ⊢ ((-1↑2)↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = (1↑(𝑃 pCnt (√‘(𝑃↑𝐴))))
110	104	nn0zd 11480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt (√‘(𝑃↑𝐴))) ∈ ℤ)
111		1exp 12889	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 pCnt (√‘(𝑃↑𝐴))) ∈ ℤ → (1↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = 1)
112	110, 111	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = 1)
113	109, 112	syl5eq 2668	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((-1↑2)↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = 1)
114	101, 107, 113	3eqtrd 2660	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑𝐴) = 1)
115	114	oveq1d 6665	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((-1↑𝐴) · -1) = (1 · -1))
116	77	mulid2i 10043	. . . . . . . . . . . . 13 ⊢ (1 · -1) = -1
117	115, 116	syl6eq 2672	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((-1↑𝐴) · -1) = -1)
118	80, 117	eqtrd 2656	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑(𝐴 + 1)) = -1)
119	118	adantr 481	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (-1↑(𝐴 + 1)) = -1)
120	19	recnd 10068	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋‘(𝐿‘𝑃)) ∈ ℂ)
121	120	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ∈ ℂ)
122	121	ad2antrr 762	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) ∈ ℂ)
123	122	negnegd 10383	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → --(𝑋‘(𝐿‘𝑃)) = (𝑋‘(𝐿‘𝑃)))
124		simpr 477	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ≠ 1)
125	124	ad2antrr 762	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) ≠ 1)
126		rpvmasum2.g	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐺 = (DChr‘𝑁)
127		rpvmasum2.d	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐷 = (Base‘𝐺)
128		dchrisum0f.x	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
129	128	ad3antrrr 766	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → 𝑋 ∈ 𝐷)
130		eqid 2622	. . . . . . . . . . . . . . . . . . 19 ⊢ (Unit‘𝑍) = (Unit‘𝑍)
131	126, 9, 127, 10, 130, 128, 18	dchrn0 24975	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝑋‘(𝐿‘𝑃)) ≠ 0 ↔ (𝐿‘𝑃) ∈ (Unit‘𝑍)))
132	131	ad2antrr 762	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((𝑋‘(𝐿‘𝑃)) ≠ 0 ↔ (𝐿‘𝑃) ∈ (Unit‘𝑍)))
133	132	biimpa 501	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝐿‘𝑃) ∈ (Unit‘𝑍))
134	126, 127, 129, 9, 130, 133	dchrabs 24985	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (abs‘(𝑋‘(𝐿‘𝑃))) = 1)
135		eqeq1 2626	. . . . . . . . . . . . . . . . . 18 ⊢ ((abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) → ((abs‘(𝑋‘(𝐿‘𝑃))) = 1 ↔ (𝑋‘(𝐿‘𝑃)) = 1))
136	134, 135	syl5ibcom 235	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) → (𝑋‘(𝐿‘𝑃)) = 1))
137	136	necon3ad 2807	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((𝑋‘(𝐿‘𝑃)) ≠ 1 → ¬ (abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃))))
138	125, 137	mpd 15	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ¬ (abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)))
139	62	ad2antrr 762	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) ∈ ℝ)
140	139	absord 14154	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) ∨ (abs‘(𝑋‘(𝐿‘𝑃))) = -(𝑋‘(𝐿‘𝑃))))
141	140	ord 392	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (¬ (abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) → (abs‘(𝑋‘(𝐿‘𝑃))) = -(𝑋‘(𝐿‘𝑃))))
142	138, 141	mpd 15	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (abs‘(𝑋‘(𝐿‘𝑃))) = -(𝑋‘(𝐿‘𝑃)))
143	142, 134	eqtr3d 2658	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → -(𝑋‘(𝐿‘𝑃)) = 1)
144	143	negeqd 10275	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → --(𝑋‘(𝐿‘𝑃)) = -1)
145	123, 144	eqtr3d 2658	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) = -1)
146	145	oveq1d 6665	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (-1↑(𝐴 + 1)))
147	119, 146, 145	3eqtr4d 2666	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (𝑋‘(𝐿‘𝑃)))
148	76, 147	pm2.61dane 2881	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (𝑋‘(𝐿‘𝑃)))
149	148	oveq2d 6666	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) = (1 − (𝑋‘(𝐿‘𝑃))))
150	66, 69, 149	3brtr4d 4685	. . . . . 6 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
151	67	mul02d 10234	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) = 0)
152		peano2nn0 11333	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℕ₀ → (𝐴 + 1) ∈ ℕ₀)
153	31, 152	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ₀)
154	19, 153	reexpcld 13025	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ)
155	154	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ)
156	155	recnd 10068	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℂ)
157	156	abscld 14175	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ)
158		1red 10055	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 1 ∈ ℝ)
159	155	leabsd 14153	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
160	153	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝐴 + 1) ∈ ℕ₀)
161	121, 160	absexpd 14191	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) = ((abs‘(𝑋‘(𝐿‘𝑃)))↑(𝐴 + 1)))
162	121	abscld 14175	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘(𝑋‘(𝐿‘𝑃))) ∈ ℝ)
163	121	absge0d 14183	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 ≤ (abs‘(𝑋‘(𝐿‘𝑃))))
164	126, 127, 9, 10, 128, 18	dchrabs2 24987	. . . . . . . . . . . . 13 ⊢ (𝜑 → (abs‘(𝑋‘(𝐿‘𝑃))) ≤ 1)
165	164	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘(𝑋‘(𝐿‘𝑃))) ≤ 1)
166		exple1 12920	. . . . . . . . . . . 12 ⊢ ((((abs‘(𝑋‘(𝐿‘𝑃))) ∈ ℝ ∧ 0 ≤ (abs‘(𝑋‘(𝐿‘𝑃))) ∧ (abs‘(𝑋‘(𝐿‘𝑃))) ≤ 1) ∧ (𝐴 + 1) ∈ ℕ₀) → ((abs‘(𝑋‘(𝐿‘𝑃)))↑(𝐴 + 1)) ≤ 1)
167	162, 163, 165, 160, 166	syl31anc 1329	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((abs‘(𝑋‘(𝐿‘𝑃)))↑(𝐴 + 1)) ≤ 1)
168	161, 167	eqbrtrd 4675	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ≤ 1)
169	155, 157, 158, 159, 168	letrd 10194	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ 1)
170		subge0 10541	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ) → (0 ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ 1))
171	61, 155, 170	sylancr 695	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0 ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ 1))
172	169, 171	mpbird 247	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
173	151, 172	eqbrtrd 4675	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
174	173	adantr 481	. . . . . 6 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ ¬ (√‘(𝑃↑𝐴)) ∈ ℕ) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
175	58, 60, 150, 174	ifbothda 4123	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
176		0re 10040	. . . . . . . 8 ⊢ 0 ∈ ℝ
177	61, 176	keepel 4155	. . . . . . 7 ⊢ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ
178	177	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ)
179		resubcl 10345	. . . . . . 7 ⊢ ((1 ∈ ℝ ∧ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ) → (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ)
180	61, 155, 179	sylancr 695	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ)
181	124	necomd 2849	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 1 ≠ (𝑋‘(𝐿‘𝑃)))
182	62	leabsd 14153	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ≤ (abs‘(𝑋‘(𝐿‘𝑃))))
183	62, 162, 158, 182, 165	letrd 10194	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ≤ 1)
184	62, 158, 183	leltned 10190	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃)) < 1 ↔ 1 ≠ (𝑋‘(𝐿‘𝑃))))
185	181, 184	mpbird 247	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) < 1)
186		posdif 10521	. . . . . . . 8 ⊢ (((𝑋‘(𝐿‘𝑃)) ∈ ℝ ∧ 1 ∈ ℝ) → ((𝑋‘(𝐿‘𝑃)) < 1 ↔ 0 < (1 − (𝑋‘(𝐿‘𝑃)))))
187	62, 61, 186	sylancl 694	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃)) < 1 ↔ 0 < (1 − (𝑋‘(𝐿‘𝑃)))))
188	185, 187	mpbid 222	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 < (1 − (𝑋‘(𝐿‘𝑃))))
189		lemuldiv 10903	. . . . . 6 ⊢ ((if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ ∧ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ ∧ ((1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ ∧ 0 < (1 − (𝑋‘(𝐿‘𝑃))))) → ((if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃))))))
190	178, 180, 64, 188, 189	syl112anc 1330	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃))))))
191	175, 190	mpbid 222	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
192	31	nn0zd 11480	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℤ)
193		fzval3 12536	. . . . . . . 8 ⊢ (𝐴 ∈ ℤ → (0...𝐴) = (0..^(𝐴 + 1)))
194	192, 193	syl 17	. . . . . . 7 ⊢ (𝜑 → (0...𝐴) = (0..^(𝐴 + 1)))
195	194	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0...𝐴) = (0..^(𝐴 + 1)))
196	195	sumeq1d 14431	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = Σ𝑖 ∈ (0..^(𝐴 + 1))((𝑋‘(𝐿‘𝑃))↑𝑖))
197		0nn0 11307	. . . . . . 7 ⊢ 0 ∈ ℕ₀
198	197	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 ∈ ℕ₀)
199	153, 32	syl6eleq 2711	. . . . . . 7 ⊢ (𝜑 → (𝐴 + 1) ∈ (ℤ_≥‘0))
200	199	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝐴 + 1) ∈ (ℤ_≥‘0))
201	121, 124, 198, 200	geoserg 14598	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → Σ𝑖 ∈ (0..^(𝐴 + 1))((𝑋‘(𝐿‘𝑃))↑𝑖) = ((((𝑋‘(𝐿‘𝑃))↑0) − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
202	121	exp0d 13002	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑0) = 1)
203	202	oveq1d 6665	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (((𝑋‘(𝐿‘𝑃))↑0) − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) = (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
204	203	oveq1d 6665	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((((𝑋‘(𝐿‘𝑃))↑0) − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))) = ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
205	196, 201, 204	3eqtrd 2660	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
206	191, 205	breqtrrd 4681	. . 3 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
207	56, 206	pm2.61dane 2881	. 2 ⊢ (𝜑 → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
208		rpvmasum2.1	. . . . 5 ⊢ 1 = (0_g‘𝐺)
209		dchrisum0f.f	. . . . 5 ⊢ 𝐹 = (𝑏 ∈ ℕ ↦ Σ𝑣 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ 𝑏} (𝑋‘(𝐿‘𝑣)))
210	9, 11, 7, 126, 127, 208, 209	dchrisum0fval 25194	. . . 4 ⊢ ((𝑃↑𝐴) ∈ ℕ → (𝐹‘(𝑃↑𝐴)) = Σ𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} (𝑋‘(𝐿‘𝑘)))
211	83, 210	syl 17	. . 3 ⊢ (𝜑 → (𝐹‘(𝑃↑𝐴)) = Σ𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} (𝑋‘(𝐿‘𝑘)))
212		fveq2 6191	. . . . 5 ⊢ (𝑘 = (𝑃↑𝑖) → (𝐿‘𝑘) = (𝐿‘(𝑃↑𝑖)))
213	212	fveq2d 6195	. . . 4 ⊢ (𝑘 = (𝑃↑𝑖) → (𝑋‘(𝐿‘𝑘)) = (𝑋‘(𝐿‘(𝑃↑𝑖))))
214		eqid 2622	. . . . . 6 ⊢ (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏)) = (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏))
215	214	dvdsppwf1o 24912	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ₀) → (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏)):(0...𝐴)–1-1-onto→{𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)})
216	15, 31, 215	syl2anc 693	. . . 4 ⊢ (𝜑 → (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏)):(0...𝐴)–1-1-onto→{𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)})
217		oveq2 6658	. . . . . 6 ⊢ (𝑏 = 𝑖 → (𝑃↑𝑏) = (𝑃↑𝑖))
218		ovex 6678	. . . . . 6 ⊢ (𝑃↑𝑏) ∈ V
219	217, 214, 218	fvmpt3i 6287	. . . . 5 ⊢ (𝑖 ∈ (0...𝐴) → ((𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏))‘𝑖) = (𝑃↑𝑖))
220	219	adantl 482	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏))‘𝑖) = (𝑃↑𝑖))
221	6	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → 𝑋:(Base‘𝑍)⟶ℝ)
222		elrabi 3359	. . . . . . . 8 ⊢ (𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} → 𝑘 ∈ ℕ)
223	222	nnzd 11481	. . . . . . 7 ⊢ (𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} → 𝑘 ∈ ℤ)
224		ffvelrn 6357	. . . . . . 7 ⊢ ((𝐿:ℤ⟶(Base‘𝑍) ∧ 𝑘 ∈ ℤ) → (𝐿‘𝑘) ∈ (Base‘𝑍))
225	14, 223, 224	syl2an 494	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → (𝐿‘𝑘) ∈ (Base‘𝑍))
226	221, 225	ffvelrnd 6360	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → (𝑋‘(𝐿‘𝑘)) ∈ ℝ)
227	226	recnd 10068	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → (𝑋‘(𝐿‘𝑘)) ∈ ℂ)
228	213, 5, 216, 220, 227	fsumf1o 14454	. . 3 ⊢ (𝜑 → Σ𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} (𝑋‘(𝐿‘𝑘)) = Σ𝑖 ∈ (0...𝐴)(𝑋‘(𝐿‘(𝑃↑𝑖))))
229		zsubrg 19799	. . . . . . . . . . 11 ⊢ ℤ ∈ (SubRing‘ℂ_fld)
230		eqid 2622	. . . . . . . . . . . 12 ⊢ (mulGrp‘ℂ_fld) = (mulGrp‘ℂ_fld)
231	230	subrgsubm 18793	. . . . . . . . . . 11 ⊢ (ℤ ∈ (SubRing‘ℂ_fld) → ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)))
232	229, 231	mp1i 13	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)))
233	20	adantl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑖 ∈ ℕ₀)
234	17	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑃 ∈ ℤ)
235		eqid 2622	. . . . . . . . . . 11 ⊢ (._g‘(mulGrp‘ℂ_fld)) = (._g‘(mulGrp‘ℂ_fld))
236		zringmpg 19840	. . . . . . . . . . . 12 ⊢ ((mulGrp‘ℂ_fld) ↾_s ℤ) = (mulGrp‘ℤ_ring)
237	236	eqcomi 2631	. . . . . . . . . . 11 ⊢ (mulGrp‘ℤ_ring) = ((mulGrp‘ℂ_fld) ↾_s ℤ)
238		eqid 2622	. . . . . . . . . . 11 ⊢ (._g‘(mulGrp‘ℤ_ring)) = (._g‘(mulGrp‘ℤ_ring))
239	235, 237, 238	submmulg 17586	. . . . . . . . . 10 ⊢ ((ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)) ∧ 𝑖 ∈ ℕ₀ ∧ 𝑃 ∈ ℤ) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑖(._g‘(mulGrp‘ℤ_ring))𝑃))
240	232, 233, 234, 239	syl3anc 1326	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑖(._g‘(mulGrp‘ℤ_ring))𝑃))
241	82	nncnd 11036	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℂ)
242		cnfldexp 19779	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℂ ∧ 𝑖 ∈ ℕ₀) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑃↑𝑖))
243	241, 20, 242	syl2an 494	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑃↑𝑖))
244	240, 243	eqtr3d 2658	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℤ_ring))𝑃) = (𝑃↑𝑖))
245	244	fveq2d 6195	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘(𝑖(._g‘(mulGrp‘ℤ_ring))𝑃)) = (𝐿‘(𝑃↑𝑖)))
246	9	zncrng 19893	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ₀ → 𝑍 ∈ CRing)
247		crngring 18558	. . . . . . . . . . 11 ⊢ (𝑍 ∈ CRing → 𝑍 ∈ Ring)
248	8, 246, 247	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝑍 ∈ Ring)
249	11	zrhrhm 19860	. . . . . . . . . 10 ⊢ (𝑍 ∈ Ring → 𝐿 ∈ (ℤ_ring RingHom 𝑍))
250		eqid 2622	. . . . . . . . . . 11 ⊢ (mulGrp‘ℤ_ring) = (mulGrp‘ℤ_ring)
251		eqid 2622	. . . . . . . . . . 11 ⊢ (mulGrp‘𝑍) = (mulGrp‘𝑍)
252	250, 251	rhmmhm 18722	. . . . . . . . . 10 ⊢ (𝐿 ∈ (ℤ_ring RingHom 𝑍) → 𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)))
253	248, 249, 252	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)))
254	253	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)))
255		zringbas 19824	. . . . . . . . . 10 ⊢ ℤ = (Base‘ℤ_ring)
256	250, 255	mgpbas 18495	. . . . . . . . 9 ⊢ ℤ = (Base‘(mulGrp‘ℤ_ring))
257		eqid 2622	. . . . . . . . 9 ⊢ (._g‘(mulGrp‘𝑍)) = (._g‘(mulGrp‘𝑍))
258	256, 238, 257	mhmmulg 17583	. . . . . . . 8 ⊢ ((𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)) ∧ 𝑖 ∈ ℕ₀ ∧ 𝑃 ∈ ℤ) → (𝐿‘(𝑖(._g‘(mulGrp‘ℤ_ring))𝑃)) = (𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃)))
259	254, 233, 234, 258	syl3anc 1326	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘(𝑖(._g‘(mulGrp‘ℤ_ring))𝑃)) = (𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃)))
260	245, 259	eqtr3d 2658	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘(𝑃↑𝑖)) = (𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃)))
261	260	fveq2d 6195	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑋‘(𝐿‘(𝑃↑𝑖))) = (𝑋‘(𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃))))
262	126, 9, 127	dchrmhm 24966	. . . . . . . 8 ⊢ 𝐷 ⊆ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld))
263	262, 128	sseldi 3601	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld)))
264	263	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld)))
265	18	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘𝑃) ∈ (Base‘𝑍))
266	251, 10	mgpbas 18495	. . . . . . 7 ⊢ (Base‘𝑍) = (Base‘(mulGrp‘𝑍))
267	266, 257, 235	mhmmulg 17583	. . . . . 6 ⊢ ((𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld)) ∧ 𝑖 ∈ ℕ₀ ∧ (𝐿‘𝑃) ∈ (Base‘𝑍)) → (𝑋‘(𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃))) = (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))))
268	264, 233, 265, 267	syl3anc 1326	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑋‘(𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃))) = (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))))
269		cnfldexp 19779	. . . . . 6 ⊢ (((𝑋‘(𝐿‘𝑃)) ∈ ℂ ∧ 𝑖 ∈ ℕ₀) → (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))) = ((𝑋‘(𝐿‘𝑃))↑𝑖))
270	120, 20, 269	syl2an 494	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))) = ((𝑋‘(𝐿‘𝑃))↑𝑖))
271	261, 268, 270	3eqtrd 2660	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑋‘(𝐿‘(𝑃↑𝑖))) = ((𝑋‘(𝐿‘𝑃))↑𝑖))
272	271	sumeq2dv 14433	. . 3 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝐴)(𝑋‘(𝐿‘(𝑃↑𝑖))) = Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
273	211, 228, 272	3eqtrd 2660	. 2 ⊢ (𝜑 → (𝐹‘(𝑃↑𝐴)) = Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
274	207, 273	breqtrrd 4681	1 ⊢ (𝜑 → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ (𝐹‘(𝑃↑𝐴)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 196 ∧ wa 384 = wceq 1483 ∈ wcel 1990 ≠ wne 2794 {crab 2916 ∅c0 3915 ifcif 4086 class class class wbr 4653 ↦ cmpt 4729 ⟶wf 5884 –onto→wfo 5886 –1-1-onto→wf1o 5887 ‘cfv 5888 (class class class)co 6650 Fincfn 7955 ℂcc 9934 ℝcr 9935 0cc0 9936 1c1 9937 + caddc 9939 · cmul 9941 < clt 10074 ≤ cle 10075 − cmin 10266 -cneg 10267 / cdiv 10684 ℕcn 11020 2c2 11070 ℕ₀cn0 11292 ℤcz 11377 ℤ_≥cuz 11687 ℚcq 11788 ...cfz 12326 ..^cfzo 12465 ↑cexp 12860 #chash 13117 √csqrt 13973 abscabs 13974 Σcsu 14416 ∥ cdvds 14983 ℙcprime 15385 pCnt cpc 15541 Basecbs 15857 ↾_s cress 15858 0_gc0g 16100 MndHom cmhm 17333 SubMndcsubmnd 17334 ._gcmg 17540 mulGrpcmgp 18489 Ringcrg 18547 CRingccrg 18548 Unitcui 18639 RingHom crh 18712 SubRingcsubrg 18776 ℂ_fldccnfld 19746 ℤ_ringzring 19818 ℤRHomczrh 19848 ℤ/nℤczn 19851 DChrcdchr 24957

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-inf2 8538 ax-cnex 9992 ax-resscn 9993 ax-1cn 9994 ax-icn 9995 ax-addcl 9996 ax-addrcl 9997 ax-mulcl 9998 ax-mulrcl 9999 ax-mulcom 10000 ax-addass 10001 ax-mulass 10002 ax-distr 10003 ax-i2m1 10004 ax-1ne0 10005 ax-1rid 10006 ax-rnegex 10007 ax-rrecex 10008 ax-cnre 10009 ax-pre-lttri 10010 ax-pre-lttrn 10011 ax-pre-ltadd 10012 ax-pre-mulgt0 10013 ax-pre-sup 10014 ax-addf 10015 ax-mulf 10016

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-fal 1489 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-nel 2898 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-iun 4522 df-iin 4523 df-disj 4621 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-se 5074 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-of 6897 df-om 7066 df-1st 7168 df-2nd 7169 df-supp 7296 df-tpos 7352 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-1o 7560 df-2o 7561 df-oadd 7564 df-omul 7565 df-er 7742 df-ec 7744 df-qs 7748 df-map 7859 df-pm 7860 df-ixp 7909 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-fsupp 8276 df-fi 8317 df-sup 8348 df-inf 8349 df-oi 8415 df-card 8765 df-acn 8768 df-cda 8990 df-pnf 10076 df-mnf 10077 df-xr 10078 df-ltxr 10079 df-le 10080 df-sub 10268 df-neg 10269 df-div 10685 df-nn 11021 df-2 11079 df-3 11080 df-4 11081 df-5 11082 df-6 11083 df-7 11084 df-8 11085 df-9 11086 df-n0 11293 df-z 11378 df-dec 11494 df-uz 11688 df-q 11789 df-rp 11833 df-xneg 11946 df-xadd 11947 df-xmul 11948 df-ioo 12179 df-ioc 12180 df-ico 12181 df-icc 12182 df-fz 12327 df-fzo 12466 df-fl 12593 df-mod 12669 df-seq 12802 df-exp 12861 df-fac 13061 df-bc 13090 df-hash 13118 df-shft 13807 df-cj 13839 df-re 13840 df-im 13841 df-sqrt 13975 df-abs 13976 df-limsup 14202 df-clim 14219 df-rlim 14220 df-sum 14417 df-ef 14798 df-sin 14800 df-cos 14801 df-pi 14803 df-dvds 14984 df-gcd 15217 df-prm 15386 df-pc 15542 df-struct 15859 df-ndx 15860 df-slot 15861 df-base 15863 df-sets 15864 df-ress 15865 df-plusg 15954 df-mulr 15955 df-starv 15956 df-sca 15957 df-vsca 15958 df-ip 15959 df-tset 15960 df-ple 15961 df-ds 15964 df-unif 15965 df-hom 15966 df-cco 15967 df-rest 16083 df-topn 16084 df-0g 16102 df-gsum 16103 df-topgen 16104 df-pt 16105 df-prds 16108 df-xrs 16162 df-qtop 16167 df-imas 16168 df-qus 16169 df-xps 16170 df-mre 16246 df-mrc 16247 df-acs 16249 df-mgm 17242 df-sgrp 17284 df-mnd 17295 df-mhm 17335 df-submnd 17336 df-grp 17425 df-minusg 17426 df-sbg 17427 df-mulg 17541 df-subg 17591 df-nsg 17592 df-eqg 17593 df-ghm 17658 df-cntz 17750 df-od 17948 df-cmn 18195 df-abl 18196 df-mgp 18490 df-ur 18502 df-ring 18549 df-cring 18550 df-oppr 18623 df-dvdsr 18641 df-unit 18642 df-invr 18672 df-dvr 18683 df-rnghom 18715 df-drng 18749 df-subrg 18778 df-lmod 18865 df-lss 18933 df-lsp 18972 df-sra 19172 df-rgmod 19173 df-lidl 19174 df-rsp 19175 df-2idl 19232 df-psmet 19738 df-xmet 19739 df-met 19740 df-bl 19741 df-mopn 19742 df-fbas 19743 df-fg 19744 df-cnfld 19747 df-zring 19819 df-zrh 19852 df-zn 19855 df-top 20699 df-topon 20716 df-topsp 20737 df-bases 20750 df-cld 20823 df-ntr 20824 df-cls 20825 df-nei 20902 df-lp 20940 df-perf 20941 df-cn 21031 df-cnp 21032 df-haus 21119 df-tx 21365 df-hmeo 21558 df-fil 21650 df-fm 21742 df-flim 21743 df-flf 21744 df-xms 22125 df-ms 22126 df-tms 22127 df-cncf 22681 df-limc 23630 df-dv 23631 df-log 24303 df-cxp 24304 df-dchr 24958

This theorem is referenced by: dchrisum0flblem2 25198 dchrisum0flb 25199

W3C validator