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 27742

Description: Lemma for dchrisum0flb 27744. 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 11236	. . . . 5 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 1 ∈ ℝ)
2		0red 11238	. . . . 5 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) ∧ ¬ (√‘(𝑃↑𝐴)) ∈ ℕ) → 0 ∈ ℝ)
3	1, 2	ifclda 4521	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ)
4		1red 11236	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → 1 ∈ ℝ)
5		fzfid 14039	. . . . . 6 ⊢ (𝜑 → (0...𝐴) ∈ Fin)
6		dchrisum0flb.r	. . . . . . . 8 ⊢ (𝜑 → 𝑋:(Base‘𝑍)⟶ℝ)
7		rpvmasum.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
8	7	nnnn0d 12592	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
9		rpvmasum.z	. . . . . . . . . . 11 ⊢ 𝑍 = (ℤ/nℤ‘𝑁)
10		eqid 2762	. . . . . . . . . . 11 ⊢ (Base‘𝑍) = (Base‘𝑍)
11		rpvmasum.l	. . . . . . . . . . 11 ⊢ 𝐿 = (ℤRHom‘𝑍)
12	9, 10, 11	znzrhfo 21761	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → 𝐿:ℤ–onto→(Base‘𝑍))
13		fof 6793	. . . . . . . . . 10 ⊢ (𝐿:ℤ–onto→(Base‘𝑍) → 𝐿:ℤ⟶(Base‘𝑍))
14	8, 12, 13	3syl 19	. . . . . . . . 9 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘𝑍))
15		dchrisum0flblem1.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℙ)
16		prmz 16769	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
17	15, 16	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
18	14, 17	ffvelcdmd 7081	. . . . . . . 8 ⊢ (𝜑 → (𝐿‘𝑃) ∈ (Base‘𝑍))
19	6, 18	ffvelcdmd 7081	. . . . . . 7 ⊢ (𝜑 → (𝑋‘(𝐿‘𝑃)) ∈ ℝ)
20		elfznn0 13677	. . . . . . 7 ⊢ (𝑖 ∈ (0...𝐴) → 𝑖 ∈ ℕ₀)
21		reexpcl 14144	. . . . . . 7 ⊢ (((𝑋‘(𝐿‘𝑃)) ∈ ℝ ∧ 𝑖 ∈ ℕ₀) → ((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
22	19, 20, 21	syl2an 608	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
23	5, 22	fsumrecl 15822	. . . . 5 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
24	23	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) ∈ ℝ)
25		breq1 5110	. . . . . 6 ⊢ (1 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (1 ≤ 1 ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1))
26		breq1 5110	. . . . . 6 ⊢ (0 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (0 ≤ 1 ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1))
27		1le1 11869	. . . . . 6 ⊢ 1 ≤ 1
28		0le1 11764	. . . . . 6 ⊢ 0 ≤ 1
29	25, 26, 27, 28	keephyp 4557	. . . . 5 ⊢ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1
30	29	a1i 11	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ 1)
31		dchrisum0flblem1.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
32		nn0uz 12928	. . . . . . . . . 10 ⊢ ℕ₀ = (ℤ_≥‘0)
33	31, 32	eleqtrdi 2872	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (ℤ_≥‘0))
34		fzn0 13594	. . . . . . . . 9 ⊢ ((0...𝐴) ≠ ∅ ↔ 𝐴 ∈ (ℤ_≥‘0))
35	33, 34	sylibr 237	. . . . . . . 8 ⊢ (𝜑 → (0...𝐴) ≠ ∅)
36		hashnncl 14432	. . . . . . . . 9 ⊢ ((0...𝐴) ∈ Fin → ((♯‘(0...𝐴)) ∈ ℕ ↔ (0...𝐴) ≠ ∅))
37	5, 36	syl 18	. . . . . . . 8 ⊢ (𝜑 → ((♯‘(0...𝐴)) ∈ ℕ ↔ (0...𝐴) ≠ ∅))
38	35, 37	mpbird 260	. . . . . . 7 ⊢ (𝜑 → (♯‘(0...𝐴)) ∈ ℕ)
39	38	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (♯‘(0...𝐴)) ∈ ℕ)
40	39	nnge1d 12311	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → 1 ≤ (♯‘(0...𝐴)))
41		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (𝑋‘(𝐿‘𝑃)) = 1)
42	41	oveq1d 7431	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → ((𝑋‘(𝐿‘𝑃))↑𝑖) = (1↑𝑖))
43		elfzelz 13580	. . . . . . . . 9 ⊢ (𝑖 ∈ (0...𝐴) → 𝑖 ∈ ℤ)
44		1exp 14157	. . . . . . . . 9 ⊢ (𝑖 ∈ ℤ → (1↑𝑖) = 1)
45	43, 44	syl 18	. . . . . . . 8 ⊢ (𝑖 ∈ (0...𝐴) → (1↑𝑖) = 1)
46	42, 45	sylan9eq 2817	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) ∧ 𝑖 ∈ (0...𝐴)) → ((𝑋‘(𝐿‘𝑃))↑𝑖) = 1)
47	46	sumeq2dv 15791	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = Σ𝑖 ∈ (0...𝐴)1)
48		fzfid 14039	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (0...𝐴) ∈ Fin)
49		ax-1cn 11185	. . . . . . 7 ⊢ 1 ∈ ℂ
50		fsumconst 15878	. . . . . . 7 ⊢ (((0...𝐴) ∈ Fin ∧ 1 ∈ ℂ) → Σ𝑖 ∈ (0...𝐴)1 = ((♯‘(0...𝐴)) · 1))
51	48, 49, 50	sylancl 598	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)1 = ((♯‘(0...𝐴)) · 1))
52	39	nncnd 12276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → (♯‘(0...𝐴)) ∈ ℂ)
53	52	mulridd 11253	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → ((♯‘(0...𝐴)) · 1) = (♯‘(0...𝐴)))
54	47, 51, 53	3eqtrd 2801	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = (♯‘(0...𝐴)))
55	40, 54	breqtrrd 5137	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → 1 ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
56	3, 4, 24, 30, 55	letrd 11394	. . 3 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) = 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
57		oveq1 7423	. . . . . . 7 ⊢ (1 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (1 · (1 − (𝑋‘(𝐿‘𝑃)))) = (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))))
58	57	breq1d 5117	. . . . . 6 ⊢ (1 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → ((1 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)))))
59		oveq1 7423	. . . . . . 7 ⊢ (0 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) = (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))))
60	59	breq1d 5117	. . . . . 6 ⊢ (0 = if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) → ((0 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)))))
61		1re 11235	. . . . . . . . . 10 ⊢ 1 ∈ ℝ
62	19	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ∈ ℝ)
63		resubcl 11549	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ (𝑋‘(𝐿‘𝑃)) ∈ ℝ) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ)
64	61, 62, 63	sylancr 599	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ)
65	64	adantr 486	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ)
66	65	leidd 11807	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − (𝑋‘(𝐿‘𝑃))) ≤ (1 − (𝑋‘(𝐿‘𝑃))))
67	64	recnd 11264	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℂ)
68	67	adantr 486	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − (𝑋‘(𝐿‘𝑃))) ∈ ℂ)
69	68	mullidd 11254	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 · (1 − (𝑋‘(𝐿‘𝑃)))) = (1 − (𝑋‘(𝐿‘𝑃))))
70		nn0p1nn 12570	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℕ₀ → (𝐴 + 1) ∈ ℕ)
71	31, 70	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ)
72	71	ad3antrrr 743	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → (𝐴 + 1) ∈ ℕ)
73	72	0expd 14205	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → (0↑(𝐴 + 1)) = 0)
74		simpr 490	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → (𝑋‘(𝐿‘𝑃)) = 0)
75	74	oveq1d 7431	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (0↑(𝐴 + 1)))
76	73, 75, 74	3eqtr4d 2807	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) = 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (𝑋‘(𝐿‘𝑃)))
77		neg1cn 12230	. . . . . . . . . . . . 13 ⊢ -1 ∈ ℂ
78	31	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝐴 ∈ ℕ₀)
79		expp1 14134	. . . . . . . . . . . . 13 ⊢ ((-1 ∈ ℂ ∧ 𝐴 ∈ ℕ₀) → (-1↑(𝐴 + 1)) = ((-1↑𝐴) · -1))
80	77, 78, 79	sylancr 599	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑(𝐴 + 1)) = ((-1↑𝐴) · -1))
81		prmnn 16768	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
82	15, 81	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑃 ∈ ℕ)
83	82, 31	nnexpcld 14311	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑃↑𝐴) ∈ ℕ)
84	83	nncnd 12276	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑃↑𝐴) ∈ ℂ)
85	84	ad2antrr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃↑𝐴) ∈ ℂ)
86	85	sqsqrtd 15531	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((√‘(𝑃↑𝐴))↑2) = (𝑃↑𝐴))
87	86	oveq2d 7432	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt ((√‘(𝑃↑𝐴))↑2)) = (𝑃 pCnt (𝑃↑𝐴)))
88	15	ad2antrr 739	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝑃 ∈ ℙ)
89		nnq 13014	. . . . . . . . . . . . . . . . . . 19 ⊢ ((√‘(𝑃↑𝐴)) ∈ ℕ → (√‘(𝑃↑𝐴)) ∈ ℚ)
90	89	adantl 487	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (√‘(𝑃↑𝐴)) ∈ ℚ)
91		nnne0 12297	. . . . . . . . . . . . . . . . . . 19 ⊢ ((√‘(𝑃↑𝐴)) ∈ ℕ → (√‘(𝑃↑𝐴)) ≠ 0)
92	91	adantl 487	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (√‘(𝑃↑𝐴)) ≠ 0)
93		2z 12653	. . . . . . . . . . . . . . . . . . 19 ⊢ 2 ∈ ℤ
94	93	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 2 ∈ ℤ)
95		pcexp 16955	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℙ ∧ ((√‘(𝑃↑𝐴)) ∈ ℚ ∧ (√‘(𝑃↑𝐴)) ≠ 0) ∧ 2 ∈ ℤ) → (𝑃 pCnt ((√‘(𝑃↑𝐴))↑2)) = (2 · (𝑃 pCnt (√‘(𝑃↑𝐴)))))
96	88, 90, 92, 94, 95	syl121anc 1402	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt ((√‘(𝑃↑𝐴))↑2)) = (2 · (𝑃 pCnt (√‘(𝑃↑𝐴)))))
97	78	nn0zd 12643	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝐴 ∈ ℤ)
98		pcid 16969	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℤ) → (𝑃 pCnt (𝑃↑𝐴)) = 𝐴)
99	88, 97, 98	syl2anc 596	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt (𝑃↑𝐴)) = 𝐴)
100	87, 96, 99	3eqtr3rd 2806	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 𝐴 = (2 · (𝑃 pCnt (√‘(𝑃↑𝐴)))))
101	100	oveq2d 7432	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑𝐴) = (-1↑(2 · (𝑃 pCnt (√‘(𝑃↑𝐴))))))
102	77	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → -1 ∈ ℂ)
103		simpr 490	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (√‘(𝑃↑𝐴)) ∈ ℕ)
104	88, 103	pccld 16946	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt (√‘(𝑃↑𝐴))) ∈ ℕ₀)
105		2nn0 12548	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℕ₀
106	105	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → 2 ∈ ℕ₀)
107	102, 104, 106	expmuld 14215	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑(2 · (𝑃 pCnt (√‘(𝑃↑𝐴))))) = ((-1↑2)↑(𝑃 pCnt (√‘(𝑃↑𝐴)))))
108		neg1sqe1 14262	. . . . . . . . . . . . . . . . 17 ⊢ (-1↑2) = 1
109	108	oveq1i 7426	. . . . . . . . . . . . . . . 16 ⊢ ((-1↑2)↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = (1↑(𝑃 pCnt (√‘(𝑃↑𝐴))))
110	104	nn0zd 12643	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (𝑃 pCnt (√‘(𝑃↑𝐴))) ∈ ℤ)
111		1exp 14157	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 pCnt (√‘(𝑃↑𝐴))) ∈ ℤ → (1↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = 1)
112	110, 111	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = 1)
113	109, 112	eqtrid 2809	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((-1↑2)↑(𝑃 pCnt (√‘(𝑃↑𝐴)))) = 1)
114	101, 107, 113	3eqtrd 2801	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑𝐴) = 1)
115	114	oveq1d 7431	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((-1↑𝐴) · -1) = (1 · -1))
116	77	mullidi 11241	. . . . . . . . . . . . 13 ⊢ (1 · -1) = -1
117	115, 116	eqtrdi 2813	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((-1↑𝐴) · -1) = -1)
118	80, 117	eqtrd 2797	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (-1↑(𝐴 + 1)) = -1)
119	118	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (-1↑(𝐴 + 1)) = -1)
120	19	recnd 11264	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋‘(𝐿‘𝑃)) ∈ ℂ)
121	120	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ∈ ℂ)
122	121	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) ∈ ℂ)
123	122	negnegd 11587	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → --(𝑋‘(𝐿‘𝑃)) = (𝑋‘(𝐿‘𝑃)))
124		simpr 490	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ≠ 1)
125	124	ad2antrr 739	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) ≠ 1)
126		rpvmasum2.g	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐺 = (DChr‘𝑁)
127		rpvmasum2.d	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐷 = (Base‘𝐺)
128		dchrisum0f.x	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
129	128	ad3antrrr 743	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → 𝑋 ∈ 𝐷)
130		eqid 2762	. . . . . . . . . . . . . . . . . . 19 ⊢ (Unit‘𝑍) = (Unit‘𝑍)
131	126, 9, 127, 10, 130, 128, 18	dchrn0 27484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝑋‘(𝐿‘𝑃)) ≠ 0 ↔ (𝐿‘𝑃) ∈ (Unit‘𝑍)))
132	131	ad2antrr 739	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((𝑋‘(𝐿‘𝑃)) ≠ 0 ↔ (𝐿‘𝑃) ∈ (Unit‘𝑍)))
133	132	biimpa 482	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝐿‘𝑃) ∈ (Unit‘𝑍))
134	126, 127, 129, 9, 130, 133	dchrabs 27494	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (abs‘(𝑋‘(𝐿‘𝑃))) = 1)
135		eqeq1 2766	. . . . . . . . . . . . . . . . . 18 ⊢ ((abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) → ((abs‘(𝑋‘(𝐿‘𝑃))) = 1 ↔ (𝑋‘(𝐿‘𝑃)) = 1))
136	134, 135	syl5ibcom 248	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) → (𝑋‘(𝐿‘𝑃)) = 1))
137	136	necon3ad 2970	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((𝑋‘(𝐿‘𝑃)) ≠ 1 → ¬ (abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃))))
138	125, 137	mpd 16	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ¬ (abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)))
139	62	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) ∈ ℝ)
140	139	absord 15505	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) ∨ (abs‘(𝑋‘(𝐿‘𝑃))) = -(𝑋‘(𝐿‘𝑃))))
141	140	ord 878	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (¬ (abs‘(𝑋‘(𝐿‘𝑃))) = (𝑋‘(𝐿‘𝑃)) → (abs‘(𝑋‘(𝐿‘𝑃))) = -(𝑋‘(𝐿‘𝑃))))
142	138, 141	mpd 16	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (abs‘(𝑋‘(𝐿‘𝑃))) = -(𝑋‘(𝐿‘𝑃)))
143	142, 134	eqtr3d 2799	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → -(𝑋‘(𝐿‘𝑃)) = 1)
144	143	negeqd 11478	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → --(𝑋‘(𝐿‘𝑃)) = -1)
145	123, 144	eqtr3d 2799	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → (𝑋‘(𝐿‘𝑃)) = -1)
146	145	oveq1d 7431	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (-1↑(𝐴 + 1)))
147	119, 146, 145	3eqtr4d 2807	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) ∧ (𝑋‘(𝐿‘𝑃)) ≠ 0) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (𝑋‘(𝐿‘𝑃)))
148	76, 147	pm2.61dane 3044	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) = (𝑋‘(𝐿‘𝑃)))
149	148	oveq2d 7432	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) = (1 − (𝑋‘(𝐿‘𝑃))))
150	66, 69, 149	3brtr4d 5141	. . . . . 6 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ (√‘(𝑃↑𝐴)) ∈ ℕ) → (1 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
151	67	mul02d 11435	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) = 0)
152		peano2nn0 12571	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℕ₀ → (𝐴 + 1) ∈ ℕ₀)
153	31, 152	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ₀)
154	19, 153	reexpcld 14229	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ)
155	154	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ)
156	155	recnd 11264	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℂ)
157	156	abscld 15528	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ)
158		1red 11236	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 1 ∈ ℝ)
159	155	leabsd 15504	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
160	153	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝐴 + 1) ∈ ℕ₀)
161	121, 160	absexpd 15544	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) = ((abs‘(𝑋‘(𝐿‘𝑃)))↑(𝐴 + 1)))
162	121	abscld 15528	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘(𝑋‘(𝐿‘𝑃))) ∈ ℝ)
163	121	absge0d 15536	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 ≤ (abs‘(𝑋‘(𝐿‘𝑃))))
164	126, 127, 9, 10, 128, 18	dchrabs2 27496	. . . . . . . . . . . . 13 ⊢ (𝜑 → (abs‘(𝑋‘(𝐿‘𝑃))) ≤ 1)
165	164	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘(𝑋‘(𝐿‘𝑃))) ≤ 1)
166		exple1 14243	. . . . . . . . . . . 12 ⊢ ((((abs‘(𝑋‘(𝐿‘𝑃))) ∈ ℝ ∧ 0 ≤ (abs‘(𝑋‘(𝐿‘𝑃))) ∧ (abs‘(𝑋‘(𝐿‘𝑃))) ≤ 1) ∧ (𝐴 + 1) ∈ ℕ₀) → ((abs‘(𝑋‘(𝐿‘𝑃)))↑(𝐴 + 1)) ≤ 1)
167	162, 163, 165, 160, 166	syl31anc 1400	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((abs‘(𝑋‘(𝐿‘𝑃)))↑(𝐴 + 1)) ≤ 1)
168	161, 167	eqbrtrd 5131	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (abs‘((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ≤ 1)
169	155, 157, 158, 159, 168	letrd 11394	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ 1)
170		subge0 11754	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ) → (0 ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ 1))
171	61, 155, 170	sylancr 599	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0 ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ≤ 1))
172	169, 171	mpbird 260	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
173	151, 172	eqbrtrd 5131	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
174	173	adantr 486	. . . . . 6 ⊢ (((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) ∧ ¬ (√‘(𝑃↑𝐴)) ∈ ℕ) → (0 · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
175	58, 60, 150, 174	ifbothda 4524	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
176		0re 11237	. . . . . . . 8 ⊢ 0 ∈ ℝ
177	61, 176	ifcli 4533	. . . . . . 7 ⊢ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ
178	177	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ)
179		resubcl 11549	. . . . . . 7 ⊢ ((1 ∈ ℝ ∧ ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1)) ∈ ℝ) → (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ)
180	61, 155, 179	sylancr 599	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ)
181	62	leabsd 15504	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ≤ (abs‘(𝑋‘(𝐿‘𝑃))))
182	62, 162, 158, 181, 165	letrd 11394	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) ≤ 1)
183	124	necomd 3012	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 1 ≠ (𝑋‘(𝐿‘𝑃)))
184	62, 158, 182, 183	leneltd 11391	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝑋‘(𝐿‘𝑃)) < 1)
185		posdif 11734	. . . . . . . 8 ⊢ (((𝑋‘(𝐿‘𝑃)) ∈ ℝ ∧ 1 ∈ ℝ) → ((𝑋‘(𝐿‘𝑃)) < 1 ↔ 0 < (1 − (𝑋‘(𝐿‘𝑃)))))
186	62, 61, 185	sylancl 598	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃)) < 1 ↔ 0 < (1 − (𝑋‘(𝐿‘𝑃)))))
187	184, 186	mpbid 235	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 < (1 − (𝑋‘(𝐿‘𝑃))))
188		lemuldiv 12122	. . . . . 6 ⊢ ((if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ∈ ℝ ∧ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ∈ ℝ ∧ ((1 − (𝑋‘(𝐿‘𝑃))) ∈ ℝ ∧ 0 < (1 − (𝑋‘(𝐿‘𝑃))))) → ((if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃))))))
189	178, 180, 64, 187, 188	syl112anc 1401	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) · (1 − (𝑋‘(𝐿‘𝑃)))) ≤ (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) ↔ if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃))))))
190	175, 189	mpbid 235	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
191	31	nn0zd 12643	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℤ)
192		fzval3 13792	. . . . . . . 8 ⊢ (𝐴 ∈ ℤ → (0...𝐴) = (0..^(𝐴 + 1)))
193	191, 192	syl 18	. . . . . . 7 ⊢ (𝜑 → (0...𝐴) = (0..^(𝐴 + 1)))
194	193	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (0...𝐴) = (0..^(𝐴 + 1)))
195	194	sumeq1d 15789	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = Σ𝑖 ∈ (0..^(𝐴 + 1))((𝑋‘(𝐿‘𝑃))↑𝑖))
196		0nn0 12546	. . . . . . 7 ⊢ 0 ∈ ℕ₀
197	196	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → 0 ∈ ℕ₀)
198	153, 32	eleqtrdi 2872	. . . . . . 7 ⊢ (𝜑 → (𝐴 + 1) ∈ (ℤ_≥‘0))
199	198	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (𝐴 + 1) ∈ (ℤ_≥‘0))
200	121, 124, 197, 199	geoserg 15957	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → Σ𝑖 ∈ (0..^(𝐴 + 1))((𝑋‘(𝐿‘𝑃))↑𝑖) = ((((𝑋‘(𝐿‘𝑃))↑0) − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
201	121	exp0d 14206	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((𝑋‘(𝐿‘𝑃))↑0) = 1)
202	201	oveq1d 7431	. . . . . 6 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → (((𝑋‘(𝐿‘𝑃))↑0) − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) = (1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))))
203	202	oveq1d 7431	. . . . 5 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → ((((𝑋‘(𝐿‘𝑃))↑0) − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))) = ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
204	195, 200, 203	3eqtrd 2801	. . . 4 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖) = ((1 − ((𝑋‘(𝐿‘𝑃))↑(𝐴 + 1))) / (1 − (𝑋‘(𝐿‘𝑃)))))
205	190, 204	breqtrrd 5137	. . 3 ⊢ ((𝜑 ∧ (𝑋‘(𝐿‘𝑃)) ≠ 1) → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
206	56, 205	pm2.61dane 3044	. 2 ⊢ (𝜑 → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
207		rpvmasum2.1	. . . . 5 ⊢ 1 = (0_g‘𝐺)
208		dchrisum0f.f	. . . . 5 ⊢ 𝐹 = (𝑏 ∈ ℕ ↦ Σ𝑣 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ 𝑏} (𝑋‘(𝐿‘𝑣)))
209	9, 11, 7, 126, 127, 207, 208	dchrisum0fval 27739	. . . 4 ⊢ ((𝑃↑𝐴) ∈ ℕ → (𝐹‘(𝑃↑𝐴)) = Σ𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} (𝑋‘(𝐿‘𝑘)))
210	83, 209	syl 18	. . 3 ⊢ (𝜑 → (𝐹‘(𝑃↑𝐴)) = Σ𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} (𝑋‘(𝐿‘𝑘)))
211		2fveq3 6887	. . . 4 ⊢ (𝑘 = (𝑃↑𝑖) → (𝑋‘(𝐿‘𝑘)) = (𝑋‘(𝐿‘(𝑃↑𝑖))))
212		eqid 2762	. . . . . 6 ⊢ (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏)) = (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏))
213	212	dvdsppwf1o 27420	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ₀) → (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏)):(0...𝐴)–1-1-onto→{𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)})
214	15, 31, 213	syl2anc 596	. . . 4 ⊢ (𝜑 → (𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏)):(0...𝐴)–1-1-onto→{𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)})
215		oveq2 7424	. . . . . 6 ⊢ (𝑏 = 𝑖 → (𝑃↑𝑏) = (𝑃↑𝑖))
216		ovex 7449	. . . . . 6 ⊢ (𝑃↑𝑏) ∈ V
217	215, 212, 216	fvmpt3i 6996	. . . . 5 ⊢ (𝑖 ∈ (0...𝐴) → ((𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏))‘𝑖) = (𝑃↑𝑖))
218	217	adantl 487	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ((𝑏 ∈ (0...𝐴) ↦ (𝑃↑𝑏))‘𝑖) = (𝑃↑𝑖))
219	6	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → 𝑋:(Base‘𝑍)⟶ℝ)
220		elrabi 3644	. . . . . . . 8 ⊢ (𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} → 𝑘 ∈ ℕ)
221	220	nnzd 12644	. . . . . . 7 ⊢ (𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} → 𝑘 ∈ ℤ)
222		ffvelcdm 7077	. . . . . . 7 ⊢ ((𝐿:ℤ⟶(Base‘𝑍) ∧ 𝑘 ∈ ℤ) → (𝐿‘𝑘) ∈ (Base‘𝑍))
223	14, 221, 222	syl2an 608	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → (𝐿‘𝑘) ∈ (Base‘𝑍))
224	219, 223	ffvelcdmd 7081	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → (𝑋‘(𝐿‘𝑘)) ∈ ℝ)
225	224	recnd 11264	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)}) → (𝑋‘(𝐿‘𝑘)) ∈ ℂ)
226	211, 5, 214, 218, 225	fsumf1o 15811	. . 3 ⊢ (𝜑 → Σ𝑘 ∈ {𝑞 ∈ ℕ ∣ 𝑞 ∥ (𝑃↑𝐴)} (𝑋‘(𝐿‘𝑘)) = Σ𝑖 ∈ (0...𝐴)(𝑋‘(𝐿‘(𝑃↑𝑖))))
227		zsubrg 21634	. . . . . . . . . . 11 ⊢ ℤ ∈ (SubRing‘ℂ_fld)
228		eqid 2762	. . . . . . . . . . . 12 ⊢ (mulGrp‘ℂ_fld) = (mulGrp‘ℂ_fld)
229	228	subrgsubm 20748	. . . . . . . . . . 11 ⊢ (ℤ ∈ (SubRing‘ℂ_fld) → ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)))
230	227, 229	mp1i 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)))
231	20	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑖 ∈ ℕ₀)
232	17	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑃 ∈ ℤ)
233		eqid 2762	. . . . . . . . . . 11 ⊢ (._g‘(mulGrp‘ℂ_fld)) = (._g‘(mulGrp‘ℂ_fld))
234		zringmpg 21685	. . . . . . . . . . . 12 ⊢ ((mulGrp‘ℂ_fld) ↾_s ℤ) = (mulGrp‘ℤ_ring)
235	234	eqcomi 2771	. . . . . . . . . . 11 ⊢ (mulGrp‘ℤ_ring) = ((mulGrp‘ℂ_fld) ↾_s ℤ)
236		eqid 2762	. . . . . . . . . . 11 ⊢ (._g‘(mulGrp‘ℤ_ring)) = (._g‘(mulGrp‘ℤ_ring))
237	233, 235, 236	submmulg 19242	. . . . . . . . . 10 ⊢ ((ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)) ∧ 𝑖 ∈ ℕ₀ ∧ 𝑃 ∈ ℤ) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑖(._g‘(mulGrp‘ℤ_ring))𝑃))
238	230, 231, 232, 237	syl3anc 1398	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑖(._g‘(mulGrp‘ℤ_ring))𝑃))
239	82	nncnd 12276	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℂ)
240		cnfldexp 21619	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℂ ∧ 𝑖 ∈ ℕ₀) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑃↑𝑖))
241	239, 20, 240	syl2an 608	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℂ_fld))𝑃) = (𝑃↑𝑖))
242	238, 241	eqtr3d 2799	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℤ_ring))𝑃) = (𝑃↑𝑖))
243	242	fveq2d 6886	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘(𝑖(._g‘(mulGrp‘ℤ_ring))𝑃)) = (𝐿‘(𝑃↑𝑖)))
244	9	zncrng 21758	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ₀ → 𝑍 ∈ CRing)
245		crngring 20385	. . . . . . . . . . 11 ⊢ (𝑍 ∈ CRing → 𝑍 ∈ Ring)
246	8, 244, 245	3syl 19	. . . . . . . . . 10 ⊢ (𝜑 → 𝑍 ∈ Ring)
247	11	zrhrhm 21725	. . . . . . . . . 10 ⊢ (𝑍 ∈ Ring → 𝐿 ∈ (ℤ_ring RingHom 𝑍))
248		eqid 2762	. . . . . . . . . . 11 ⊢ (mulGrp‘ℤ_ring) = (mulGrp‘ℤ_ring)
249		eqid 2762	. . . . . . . . . . 11 ⊢ (mulGrp‘𝑍) = (mulGrp‘𝑍)
250	248, 249	rhmmhm 20622	. . . . . . . . . 10 ⊢ (𝐿 ∈ (ℤ_ring RingHom 𝑍) → 𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)))
251	246, 247, 250	3syl 19	. . . . . . . . 9 ⊢ (𝜑 → 𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)))
252	251	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)))
253		zringbas 21667	. . . . . . . . . 10 ⊢ ℤ = (Base‘ℤ_ring)
254	248, 253	mgpbas 20279	. . . . . . . . 9 ⊢ ℤ = (Base‘(mulGrp‘ℤ_ring))
255		eqid 2762	. . . . . . . . 9 ⊢ (._g‘(mulGrp‘𝑍)) = (._g‘(mulGrp‘𝑍))
256	254, 236, 255	mhmmulg 19239	. . . . . . . 8 ⊢ ((𝐿 ∈ ((mulGrp‘ℤ_ring) MndHom (mulGrp‘𝑍)) ∧ 𝑖 ∈ ℕ₀ ∧ 𝑃 ∈ ℤ) → (𝐿‘(𝑖(._g‘(mulGrp‘ℤ_ring))𝑃)) = (𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃)))
257	252, 231, 232, 256	syl3anc 1398	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘(𝑖(._g‘(mulGrp‘ℤ_ring))𝑃)) = (𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃)))
258	243, 257	eqtr3d 2799	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘(𝑃↑𝑖)) = (𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃)))
259	258	fveq2d 6886	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑋‘(𝐿‘(𝑃↑𝑖))) = (𝑋‘(𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃))))
260	126, 9, 127	dchrmhm 27475	. . . . . . . 8 ⊢ 𝐷 ⊆ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld))
261	260, 128	sselid 3932	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld)))
262	261	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → 𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld)))
263	18	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝐿‘𝑃) ∈ (Base‘𝑍))
264	249, 10	mgpbas 20279	. . . . . . 7 ⊢ (Base‘𝑍) = (Base‘(mulGrp‘𝑍))
265	264, 255, 233	mhmmulg 19239	. . . . . 6 ⊢ ((𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂ_fld)) ∧ 𝑖 ∈ ℕ₀ ∧ (𝐿‘𝑃) ∈ (Base‘𝑍)) → (𝑋‘(𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃))) = (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))))
266	262, 231, 263, 265	syl3anc 1398	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑋‘(𝑖(._g‘(mulGrp‘𝑍))(𝐿‘𝑃))) = (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))))
267		cnfldexp 21619	. . . . . 6 ⊢ (((𝑋‘(𝐿‘𝑃)) ∈ ℂ ∧ 𝑖 ∈ ℕ₀) → (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))) = ((𝑋‘(𝐿‘𝑃))↑𝑖))
268	120, 20, 267	syl2an 608	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑖(._g‘(mulGrp‘ℂ_fld))(𝑋‘(𝐿‘𝑃))) = ((𝑋‘(𝐿‘𝑃))↑𝑖))
269	259, 266, 268	3eqtrd 2801	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...𝐴)) → (𝑋‘(𝐿‘(𝑃↑𝑖))) = ((𝑋‘(𝐿‘𝑃))↑𝑖))
270	269	sumeq2dv 15791	. . 3 ⊢ (𝜑 → Σ𝑖 ∈ (0...𝐴)(𝑋‘(𝐿‘(𝑃↑𝑖))) = Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
271	210, 226, 270	3eqtrd 2801	. 2 ⊢ (𝜑 → (𝐹‘(𝑃↑𝐴)) = Σ𝑖 ∈ (0...𝐴)((𝑋‘(𝐿‘𝑃))↑𝑖))
272	206, 271	breqtrrd 5137	1 ⊢ (𝜑 → if((√‘(𝑃↑𝐴)) ∈ ℕ, 1, 0) ≤ (𝐹‘(𝑃↑𝐴)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ≠ wne 2957 {crab 3414 ∅c0 4282 ifcif 4485 class class class wbr 5107 ↦ cmpt 5190 ⟶wf 6533 –onto→wfo 6535 –1-1-onto→wf1o 6536 ‘cfv 6537 (class class class)co 7416 Fincfn 8955 ℂcc 11125 ℝcr 11126 0cc0 11127 1c1 11128 + caddc 11130 · cmul 11132 < clt 11270 ≤ cle 11271 − cmin 11468 -cneg 11469 / cdiv 11898 ℕcn 12260 2c2 12322 ℕ₀cn0 12531 ℤcz 12618 ℤ_≥cuz 12890 ℚcq 13000 ...cfz 13563 ..^cfzo 13711 ↑cexp 14127 ♯chash 14396 √csqrt 15322 abscabs 15323 Σcsu 15775 ∥ cdvds 16346 ℙcprime 16765 pCnt cpc 16932 Basecbs 17305 ↾_s cress 17326 0_gc0g 17528 MndHom cmhm 18890 SubMndcsubmnd 18891 ._gcmg 19191 mulGrpcmgp 20274 Ringcrg 20373 CRingccrg 20374 Unitcui 20497 RingHom crh 20611 SubRingcsubrg 20732 ℂ_fldccnfld 21586 ℤ_ringczring 21660 ℤRHomczrh 21713 ℤ/nℤczn 21716 DChrcdchr 27466

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2215 ax-ext 2734 ax-rep 5236 ax-sep 5255 ax-nul 5267 ax-pow 5334 ax-pr 5402 ax-un 7739 ax-inf2 9623 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205 ax-addf 11206 ax-mulf 11207

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3064 df-ral 3079 df-rex 3089 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4283 df-if 4486 df-pw 4562 df-sn 4588 df-pr 4590 df-tp 4592 df-op 4594 df-uni 4871 df-int 4911 df-iun 4956 df-iin 4957 df-disj 5075 df-br 5108 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5554 df-eprel 5559 df-po 5567 df-so 5568 df-fr 5612 df-se 5613 df-we 5614 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-isom 6546 df-riota 7373 df-ov 7419 df-oprab 7420 df-mpo 7421 df-of 7681 df-om 7866 df-1st 7989 df-2nd 7990 df-supp 8162 df-tpos 8227 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8458 df-2o 8459 df-oadd 8462 df-omul 8463 df-er 8699 df-ec 8701 df-qs 8705 df-map 8831 df-pm 8832 df-ixp 8908 df-en 8956 df-dom 8957 df-sdom 8958 df-fin 8959 df-fsupp 9335 df-fi 9384 df-sup 9415 df-inf 9416 df-oi 9485 df-card 9947 df-acn 9950 df-pnf 11272 df-mnf 11273 df-xr 11274 df-ltxr 11275 df-le 11276 df-sub 11470 df-neg 11471 df-div 11899 df-nn 12261 df-2 12330 df-3 12331 df-4 12332 df-5 12333 df-6 12334 df-7 12335 df-8 12336 df-9 12337 df-n0 12532 df-z 12619 df-dec 12740 df-uz 12891 df-q 13001 df-rp 13045 df-xneg 13165 df-xadd 13166 df-xmul 13167 df-ioo 13404 df-ioc 13405 df-ico 13406 df-icc 13407 df-fz 13564 df-fzo 13712 df-fl 13855 df-mod 13933 df-seq 14068 df-exp 14128 df-fac 14340 df-bc 14369 df-hash 14397 df-shft 15142 df-cj 15188 df-re 15189 df-im 15190 df-sqrt 15324 df-abs 15325 df-limsup 15560 df-clim 15577 df-rlim 15578 df-sum 15776 df-ef 16157 df-sin 16159 df-cos 16160 df-pi 16162 df-dvds 16347 df-gcd 16589 df-prm 16766 df-pc 16933 df-struct 17243 df-sets 17260 df-slot 17278 df-ndx 17290 df-base 17306 df-ress 17327 df-plusg 17359 df-mulr 17360 df-starv 17361 df-sca 17362 df-vsca 17363 df-ip 17364 df-tset 17365 df-ple 17366 df-ds 17368 df-unif 17369 df-hom 17370 df-cco 17371 df-rest 17511 df-topn 17512 df-0g 17530 df-gsum 17531 df-topgen 17532 df-pt 17533 df-prds 17536 df-xrs 17592 df-qtop 17597 df-imas 17598 df-qus 17599 df-xps 17600 df-mre 17674 df-mrc 17675 df-acs 17677 df-mgm 18734 df-sgrp 18823 df-mnd 18839 df-mhm 18892 df-submnd 18893 df-grp 19061 df-minusg 19062 df-sbg 19063 df-mulg 19192 df-subg 19247 df-nsg 19248 df-eqg 19249 df-ghm 19342 df-cntz 19445 df-od 19656 df-cmn 19910 df-abl 19911 df-mgp 20275 df-rng 20289 df-ur 20322 df-ring 20375 df-cring 20376 df-oppr 20479 df-dvdsr 20499 df-unit 20500 df-invr 20530 df-dvr 20543 df-rhm 20614 df-subrng 20709 df-subrg 20733 df-drng 20893 df-lmod 21047 df-lss 21117 df-lsp 21157 df-sra 21358 df-rgmod 21359 df-lidl 21396 df-rsp 21397 df-2idl 21453 df-psmet 21578 df-xmet 21579 df-met 21580 df-bl 21581 df-mopn 21582 df-fbas 21583 df-fg 21584 df-cnfld 21587 df-zring 21661 df-zrh 21717 df-zn 21720 df-top 23120 df-topon 23137 df-topsp 23159 df-bases 23172 df-cld 23245 df-ntr 23246 df-cls 23247 df-nei 23324 df-lp 23362 df-perf 23363 df-cn 23453 df-cnp 23454 df-haus 23541 df-tx 23789 df-hmeo 23982 df-fil 24073 df-fm 24165 df-flim 24166 df-flf 24167 df-xms 24547 df-ms 24548 df-tms 24549 df-cncf 25107 df-limc 26095 df-dv 26096 df-log 26791 df-cxp 26792 df-dchr 27467

This theorem is used by: dchrisum0flblem2 27743 dchrisum0flb 27744

W3C validator