lgsval2lem - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > lgsval2lem		GIF version

Theorem lgsval2lem 14872

Description: Lemma for lgsval2 14878. (Contributed by Mario Carneiro, 4-Feb-2015.)

**Hypothesis**
Ref	Expression
lgsval.1	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (if(𝑛 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))↑(𝑛 pCnt 𝑁)), 1))

**Assertion**
Ref	Expression
lgsval2lem	⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐴 /_L 𝑁) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))

Distinct variable groups: 𝐴,𝑛 𝑛,𝑁 Allowed substitution hint: 𝐹(𝑛)

Proof of Theorem lgsval2lem Dummy variables 𝑥 𝑦 𝑘 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prmz 12143	. . 3 ⊢ (𝑁 ∈ ℙ → 𝑁 ∈ ℤ)
2		lgsval.1	. . . 4 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (if(𝑛 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))↑(𝑛 pCnt 𝑁)), 1))
3	2	lgsval 14866	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝐴 /_L 𝑁) = if(𝑁 = 0, if((𝐴↑2) = 1, 1, 0), (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , 𝐹)‘(abs‘𝑁)))))
4	1, 3	sylan2 286	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐴 /_L 𝑁) = if(𝑁 = 0, if((𝐴↑2) = 1, 1, 0), (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , 𝐹)‘(abs‘𝑁)))))
5		prmnn 12142	. . . . . 6 ⊢ (𝑁 ∈ ℙ → 𝑁 ∈ ℕ)
6	5	adantl 277	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℕ)
7	6	nnne0d 8994	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ≠ 0)
8	7	neneqd 2381	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ¬ 𝑁 = 0)
9	8	iffalsed 3559	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → if(𝑁 = 0, if((𝐴↑2) = 1, 1, 0), (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , 𝐹)‘(abs‘𝑁)))) = (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , 𝐹)‘(abs‘𝑁))))
10	6	nnnn0d 9259	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℕ₀)
11	10	nn0ge0d 9262	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 0 ≤ 𝑁)
12		0re 7987	. . . . . . . 8 ⊢ 0 ∈ ℝ
13	6	nnred 8962	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℝ)
14		lenlt 8063	. . . . . . . 8 ⊢ ((0 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (0 ≤ 𝑁 ↔ ¬ 𝑁 < 0))
15	12, 13, 14	sylancr 414	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (0 ≤ 𝑁 ↔ ¬ 𝑁 < 0))
16	11, 15	mpbid 147	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ¬ 𝑁 < 0)
17	16	intnanrd 933	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ¬ (𝑁 < 0 ∧ 𝐴 < 0))
18	17	iffalsed 3559	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) = 1)
19	13, 11	absidd 11208	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (abs‘𝑁) = 𝑁)
20	19	fveq2d 5538	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘(abs‘𝑁)) = (seq1( · , 𝐹)‘𝑁))
21		1zzd 9310	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 1 ∈ ℤ)
22		prmuz2 12163	. . . . . . . . 9 ⊢ (𝑁 ∈ ℙ → 𝑁 ∈ (ℤ_≥‘2))
23	22	adantl 277	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ (ℤ_≥‘2))
24		df-2 9008	. . . . . . . . 9 ⊢ 2 = (1 + 1)
25	24	fveq2i 5537	. . . . . . . 8 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
26	23, 25	eleqtrdi 2282	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ (ℤ_≥‘(1 + 1)))
27		simpll 527	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝐴 ∈ ℤ)
28	1	ad2antlr 489	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑁 ∈ ℤ)
29	7	adantr 276	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑁 ≠ 0)
30	2	lgsfcl 14870	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → 𝐹:ℕ⟶ℤ)
31	27, 28, 29, 30	syl3anc 1249	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝐹:ℕ⟶ℤ)
32		elnnuz 9594	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ_≥‘1))
33	32	biimpri 133	. . . . . . . . 9 ⊢ (𝑘 ∈ (ℤ_≥‘1) → 𝑘 ∈ ℕ)
34	33	adantl 277	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℕ)
35	31, 34	ffvelcdmd 5673	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → (𝐹‘𝑘) ∈ ℤ)
36		zmulcl 9336	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ) → (𝑘 · 𝑣) ∈ ℤ)
37	36	adantl 277	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ (𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ)) → (𝑘 · 𝑣) ∈ ℤ)
38	21, 26, 35, 37	seq3m1 10499	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘𝑁) = ((seq1( · , 𝐹)‘(𝑁 − 1)) · (𝐹‘𝑁)))
39		1t1e1 9101	. . . . . . . . 9 ⊢ (1 · 1) = 1
40	39	a1i 9	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (1 · 1) = 1)
41		uz2m1nn 9635	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (𝑁 − 1) ∈ ℕ)
42	23, 41	syl 14	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 − 1) ∈ ℕ)
43		nnuz 9593	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
44	42, 43	eleqtrdi 2282	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 − 1) ∈ (ℤ_≥‘1))
45		simpll 527	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → 𝐴 ∈ ℤ)
46	6	adantr 276	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → 𝑁 ∈ ℕ)
47		elfznn 10084	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (1...(𝑁 − 1)) → 𝑥 ∈ ℕ)
48	47	adantl 277	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → 𝑥 ∈ ℕ)
49	2	lgsfvalg 14867	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (𝐹‘𝑥) = if(𝑥 ∈ ℙ, (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑(𝑥 pCnt 𝑁)), 1))
50	45, 46, 48, 49	syl3anc 1249	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → (𝐹‘𝑥) = if(𝑥 ∈ ℙ, (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑(𝑥 pCnt 𝑁)), 1))
51		elfzelz 10055	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ∈ ℤ)
52	51	zred 9405	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ∈ ℝ)
53	52	ltm1d 8919	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → (𝑁 − 1) < 𝑁)
54		peano2rem 8254	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℝ → (𝑁 − 1) ∈ ℝ)
55	52, 54	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → (𝑁 − 1) ∈ ℝ)
56		elfzle2 10058	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ≤ (𝑁 − 1))
57	52, 55, 56	lensymd 8109	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → ¬ (𝑁 − 1) < 𝑁)
58	53, 57	pm2.65i 640	. . . . . . . . . . . . . . . . 17 ⊢ ¬ 𝑁 ∈ (1...(𝑁 − 1))
59		eleq1 2252	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → (𝑥 ∈ (1...(𝑁 − 1)) ↔ 𝑁 ∈ (1...(𝑁 − 1))))
60	58, 59	mtbiri 676	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → ¬ 𝑥 ∈ (1...(𝑁 − 1)))
61	60	con2i 628	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (1...(𝑁 − 1)) → ¬ 𝑥 = 𝑁)
62	61	ad2antlr 489	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → ¬ 𝑥 = 𝑁)
63		prmuz2 12163	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ (ℤ_≥‘2))
64		simpllr 534	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → 𝑁 ∈ ℙ)
65		dvdsprm 12169	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ (ℤ_≥‘2) ∧ 𝑁 ∈ ℙ) → (𝑥 ∥ 𝑁 ↔ 𝑥 = 𝑁))
66	63, 64, 65	syl2an2 594	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → (𝑥 ∥ 𝑁 ↔ 𝑥 = 𝑁))
67	62, 66	mtbird 674	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → ¬ 𝑥 ∥ 𝑁)
68		simpr 110	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → 𝑥 ∈ ℙ)
69	6	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → 𝑁 ∈ ℕ)
70		pceq0 12354	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ ℙ ∧ 𝑁 ∈ ℕ) → ((𝑥 pCnt 𝑁) = 0 ↔ ¬ 𝑥 ∥ 𝑁))
71	68, 69, 70	syl2anc 411	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → ((𝑥 pCnt 𝑁) = 0 ↔ ¬ 𝑥 ∥ 𝑁))
72	67, 71	mpbird 167	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → (𝑥 pCnt 𝑁) = 0)
73	72	oveq2d 5912	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑(𝑥 pCnt 𝑁)) = (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑0))
74		0zd 9295	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℤ → 0 ∈ ℤ)
75		1zzd 9310	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℤ → 1 ∈ ℤ)
76		neg1z 9315	. . . . . . . . . . . . . . . . . . 19 ⊢ -1 ∈ ℤ
77	76	a1i 9	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℤ → -1 ∈ ℤ)
78		id 19	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℤ)
79		8nn 9116	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ 8 ∈ ℕ
80	79	a1i 9	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ ℤ → 8 ∈ ℕ)
81	78, 80	zmodcld 10376	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈ ℕ₀)
82	81	nn0zd 9403	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈ ℤ)
83		zdceq 9358	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 mod 8) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝐴 mod 8) = 1)
84	82, 75, 83	syl2anc 411	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ ℤ → DECID (𝐴 mod 8) = 1)
85		7nn 9115	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 7 ∈ ℕ
86	85	nnzi 9304	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 7 ∈ ℤ
87		zdceq 9358	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 mod 8) ∈ ℤ ∧ 7 ∈ ℤ) → DECID (𝐴 mod 8) = 7)
88	82, 86, 87	sylancl 413	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ ℤ → DECID (𝐴 mod 8) = 7)
89		dcor 937	. . . . . . . . . . . . . . . . . . . 20 ⊢ (DECID (𝐴 mod 8) = 1 → (DECID (𝐴 mod 8) = 7 → DECID ((𝐴 mod 8) = 1 ∨ (𝐴 mod 8) = 7)))
90	84, 88, 89	sylc 62	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℤ → DECID ((𝐴 mod 8) = 1 ∨ (𝐴 mod 8) = 7))
91		elprg 3627	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 mod 8) ∈ ℕ₀ → ((𝐴 mod 8) ∈ {1, 7} ↔ ((𝐴 mod 8) = 1 ∨ (𝐴 mod 8) = 7)))
92	81, 91	syl 14	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ ℤ → ((𝐴 mod 8) ∈ {1, 7} ↔ ((𝐴 mod 8) = 1 ∨ (𝐴 mod 8) = 7)))
93	92	dcbid 839	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ ℤ → (DECID (𝐴 mod 8) ∈ {1, 7} ↔ DECID ((𝐴 mod 8) = 1 ∨ (𝐴 mod 8) = 7)))
94	90, 93	mpbird 167	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℤ → DECID (𝐴 mod 8) ∈ {1, 7})
95	75, 77, 94	ifcldcd 3585	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℤ → if((𝐴 mod 8) ∈ {1, 7}, 1, -1) ∈ ℤ)
96		2nn 9110	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ ℕ
97		dvdsdc 11837	. . . . . . . . . . . . . . . . . 18 ⊢ ((2 ∈ ℕ ∧ 𝐴 ∈ ℤ) → DECID 2 ∥ 𝐴)
98	96, 97	mpan 424	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℤ → DECID 2 ∥ 𝐴)
99	74, 95, 98	ifcldcd 3585	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℤ → if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) ∈ ℤ)
100	99	ad3antrrr 492	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ 𝑥 = 2) → if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)) ∈ ℤ)
101		simpl 109	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝐴 ∈ ℤ)
102	101	ad2antrr 488	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝐴 ∈ ℤ)
103		simplr 528	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ∈ ℙ)
104		simpr 110	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ¬ 𝑥 = 2)
105	104	neqned 2367	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ≠ 2)
106		eldifsn 3734	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 ∈ (ℙ ∖ {2}) ↔ (𝑥 ∈ ℙ ∧ 𝑥 ≠ 2))
107	103, 105, 106	sylanbrc 417	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ∈ (ℙ ∖ {2}))
108		oddprm 12291	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ (ℙ ∖ {2}) → ((𝑥 − 1) / 2) ∈ ℕ)
109	107, 108	syl 14	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((𝑥 − 1) / 2) ∈ ℕ)
110	109	nnnn0d 9259	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((𝑥 − 1) / 2) ∈ ℕ₀)
111		zexpcl 10566	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℤ ∧ ((𝑥 − 1) / 2) ∈ ℕ₀) → (𝐴↑((𝑥 − 1) / 2)) ∈ ℤ)
112	102, 110, 111	syl2anc 411	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → (𝐴↑((𝑥 − 1) / 2)) ∈ ℤ)
113	112	peano2zd 9408	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((𝐴↑((𝑥 − 1) / 2)) + 1) ∈ ℤ)
114		prmnn 12142	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ ℕ)
115	114	ad2antlr 489	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ∈ ℕ)
116	113, 115	zmodcld 10376	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → (((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) ∈ ℕ₀)
117	116	nn0zd 9403	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → (((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) ∈ ℤ)
118		peano2zm 9321	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) ∈ ℤ → ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1) ∈ ℤ)
119	117, 118	syl 14	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1) ∈ ℤ)
120		prmz 12143	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ ℤ)
121		2z 9311	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℤ
122	121	a1i 9	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) → 2 ∈ ℤ)
123		zdceq 9358	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ ℤ ∧ 2 ∈ ℤ) → DECID 𝑥 = 2)
124	120, 122, 123	syl2an2 594	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) → DECID 𝑥 = 2)
125	100, 119, 124	ifcldadc 3578	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) → if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) ∈ ℤ)
126	125	zcnd 9406	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) → if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) ∈ ℂ)
127	126	adantlr 477	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) ∈ ℂ)
128	127	exp0d 10679	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑0) = 1)
129	73, 128	eqtrd 2222	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑(𝑥 pCnt 𝑁)) = 1)
130		prmdc 12162	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℕ → DECID 𝑥 ∈ ℙ)
131	48, 130	syl 14	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → DECID 𝑥 ∈ ℙ)
132	129, 131	ifeq1dadc 3579	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → if(𝑥 ∈ ℙ, (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑(𝑥 pCnt 𝑁)), 1) = if(𝑥 ∈ ℙ, 1, 1))
133		ifiddc 3583	. . . . . . . . . 10 ⊢ (DECID 𝑥 ∈ ℙ → if(𝑥 ∈ ℙ, 1, 1) = 1)
134	131, 133	syl 14	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → if(𝑥 ∈ ℙ, 1, 1) = 1)
135	50, 132, 134	3eqtrd 2226	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → (𝐹‘𝑥) = 1)
136		simpll 527	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → 𝐴 ∈ ℤ)
137	1	ad2antlr 489	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → 𝑁 ∈ ℤ)
138	7	adantr 276	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → 𝑁 ≠ 0)
139	136, 137, 138, 30	syl3anc 1249	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → 𝐹:ℕ⟶ℤ)
140		elnnuz 9594	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℕ ↔ 𝑥 ∈ (ℤ_≥‘1))
141	140	biimpri 133	. . . . . . . . . 10 ⊢ (𝑥 ∈ (ℤ_≥‘1) → 𝑥 ∈ ℕ)
142	141	adantl 277	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → 𝑥 ∈ ℕ)
143	139, 142	ffvelcdmd 5673	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → (𝐹‘𝑥) ∈ ℤ)
144		zmulcl 9336	. . . . . . . . 9 ⊢ ((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) → (𝑥 · 𝑦) ∈ ℤ)
145	144	adantl 277	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) → (𝑥 · 𝑦) ∈ ℤ)
146	40, 44, 135, 21, 143, 145	seq3id3 10538	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘(𝑁 − 1)) = 1)
147	146	oveq1d 5911	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ((seq1( · , 𝐹)‘(𝑁 − 1)) · (𝐹‘𝑁)) = (1 · (𝐹‘𝑁)))
148	1	adantl 277	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℤ)
149	101, 148, 7, 30	syl3anc 1249	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝐹:ℕ⟶ℤ)
150	149, 6	ffvelcdmd 5673	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) ∈ ℤ)
151	150	zcnd 9406	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) ∈ ℂ)
152	151	mulid2d 8006	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (1 · (𝐹‘𝑁)) = (𝐹‘𝑁))
153	38, 147, 152	3eqtrd 2226	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘𝑁) = (𝐹‘𝑁))
154	20, 153	eqtrd 2222	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘(abs‘𝑁)) = (𝐹‘𝑁))
155	18, 154	oveq12d 5914	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , 𝐹)‘(abs‘𝑁))) = (1 · (𝐹‘𝑁)))
156	2	lgsfvalg 14867	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝐹‘𝑁) = if(𝑁 ∈ ℙ, (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)), 1))
157	101, 6, 6, 156	syl3anc 1249	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) = if(𝑁 ∈ ℙ, (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)), 1))
158		iftrue 3554	. . . . 5 ⊢ (𝑁 ∈ ℙ → if(𝑁 ∈ ℙ, (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)), 1) = (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)))
159	158	adantl 277	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → if(𝑁 ∈ ℙ, (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)), 1) = (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)))
160	6	nncnd 8963	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℂ)
161	160	exp1d 10680	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁↑1) = 𝑁)
162	161	oveq2d 5912	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 pCnt (𝑁↑1)) = (𝑁 pCnt 𝑁))
163		simpr 110	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℙ)
164		1z 9309	. . . . . . . 8 ⊢ 1 ∈ ℤ
165		pcid 12356	. . . . . . . 8 ⊢ ((𝑁 ∈ ℙ ∧ 1 ∈ ℤ) → (𝑁 pCnt (𝑁↑1)) = 1)
166	163, 164, 165	sylancl 413	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 pCnt (𝑁↑1)) = 1)
167	162, 166	eqtr3d 2224	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 pCnt 𝑁) = 1)
168	167	oveq2d 5912	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)) = (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑1))
169		eqeq1 2196	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → (𝑥 = 2 ↔ 𝑁 = 2))
170		oveq1 5903	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑁 → (𝑥 − 1) = (𝑁 − 1))
171	170	oveq1d 5911	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑁 → ((𝑥 − 1) / 2) = ((𝑁 − 1) / 2))
172	171	oveq2d 5912	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑁 → (𝐴↑((𝑥 − 1) / 2)) = (𝐴↑((𝑁 − 1) / 2)))
173	172	oveq1d 5911	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑁 → ((𝐴↑((𝑥 − 1) / 2)) + 1) = ((𝐴↑((𝑁 − 1) / 2)) + 1))
174		id 19	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑁 → 𝑥 = 𝑁)
175	173, 174	oveq12d 5914	. . . . . . . . . 10 ⊢ (𝑥 = 𝑁 → (((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) = (((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁))
176	175	oveq1d 5911	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1) = ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))
177	169, 176	ifbieq2d 3573	. . . . . . . 8 ⊢ (𝑥 = 𝑁 → if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))
178	177	eleq1d 2258	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) ∈ ℂ ↔ if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)) ∈ ℂ))
179	126	ralrimiva 2563	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ∀𝑥 ∈ ℙ if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) ∈ ℂ)
180	178, 179, 163	rspcdva 2861	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)) ∈ ℂ)
181	180	exp1d 10680	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑1) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))
182	168, 181	eqtrd 2222	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))
183	157, 159, 182	3eqtrd 2226	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))
184	155, 152, 183	3eqtrd 2226	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , 𝐹)‘(abs‘𝑁))) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))
185	4, 9, 184	3eqtrd 2226	1 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐴 /_L 𝑁) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 709 DECID wdc 835 = wceq 1364 ∈ wcel 2160 ≠ wne 2360 ∖ cdif 3141 ifcif 3549 {csn 3607 {cpr 3608 class class class wbr 4018 ↦ cmpt 4079 ⟶wf 5231 ‘cfv 5235 (class class class)co 5896 ℂcc 7839 ℝcr 7840 0cc0 7841 1c1 7842 + caddc 7844 · cmul 7846 < clt 8022 ≤ cle 8023 − cmin 8158 -cneg 8159 / cdiv 8659 ℕcn 8949 2c2 9000 7c7 9005 8c8 9006 ℕ₀cn0 9206 ℤcz 9283 ℤ_≥cuz 9558 ...cfz 10038 mod cmo 10353 seqcseq 10476 ↑cexp 10550 abscabs 11038 ∥ cdvds 11826 ℙcprime 12139 pCnt cpc 12316 /_L clgs 14859

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 710 ax-5 1458 ax-7 1459 ax-gen 1460 ax-ie1 1504 ax-ie2 1505 ax-8 1515 ax-10 1516 ax-11 1517 ax-i12 1518 ax-bndl 1520 ax-4 1521 ax-17 1537 ax-i9 1541 ax-ial 1545 ax-i5r 1546 ax-13 2162 ax-14 2163 ax-ext 2171 ax-coll 4133 ax-sep 4136 ax-nul 4144 ax-pow 4192 ax-pr 4227 ax-un 4451 ax-setind 4554 ax-iinf 4605 ax-cnex 7932 ax-resscn 7933 ax-1cn 7934 ax-1re 7935 ax-icn 7936 ax-addcl 7937 ax-addrcl 7938 ax-mulcl 7939 ax-mulrcl 7940 ax-addcom 7941 ax-mulcom 7942 ax-addass 7943 ax-mulass 7944 ax-distr 7945 ax-i2m1 7946 ax-0lt1 7947 ax-1rid 7948 ax-0id 7949 ax-rnegex 7950 ax-precex 7951 ax-cnre 7952 ax-pre-ltirr 7953 ax-pre-ltwlin 7954 ax-pre-lttrn 7955 ax-pre-apti 7956 ax-pre-ltadd 7957 ax-pre-mulgt0 7958 ax-pre-mulext 7959 ax-arch 7960 ax-caucvg 7961

This theorem depends on definitions: df-bi 117 df-stab 832 df-dc 836 df-3or 981 df-3an 982 df-tru 1367 df-fal 1370 df-xor 1387 df-nf 1472 df-sb 1774 df-eu 2041 df-mo 2042 df-clab 2176 df-cleq 2182 df-clel 2185 df-nfc 2321 df-ne 2361 df-nel 2456 df-ral 2473 df-rex 2474 df-reu 2475 df-rmo 2476 df-rab 2477 df-v 2754 df-sbc 2978 df-csb 3073 df-dif 3146 df-un 3148 df-in 3150 df-ss 3157 df-nul 3438 df-if 3550 df-pw 3592 df-sn 3613 df-pr 3614 df-op 3616 df-uni 3825 df-int 3860 df-iun 3903 df-br 4019 df-opab 4080 df-mpt 4081 df-tr 4117 df-id 4311 df-po 4314 df-iso 4315 df-iord 4384 df-on 4386 df-ilim 4387 df-suc 4389 df-iom 4608 df-xp 4650 df-rel 4651 df-cnv 4652 df-co 4653 df-dm 4654 df-rn 4655 df-res 4656 df-ima 4657 df-iota 5196 df-fun 5237 df-fn 5238 df-f 5239 df-f1 5240 df-fo 5241 df-f1o 5242 df-fv 5243 df-isom 5244 df-riota 5852 df-ov 5899 df-oprab 5900 df-mpo 5901 df-1st 6165 df-2nd 6166 df-recs 6330 df-irdg 6395 df-frec 6416 df-1o 6441 df-2o 6442 df-oadd 6445 df-er 6559 df-en 6767 df-dom 6768 df-fin 6769 df-sup 7013 df-inf 7014 df-pnf 8024 df-mnf 8025 df-xr 8026 df-ltxr 8027 df-le 8028 df-sub 8160 df-neg 8161 df-reap 8562 df-ap 8569 df-div 8660 df-inn 8950 df-2 9008 df-3 9009 df-4 9010 df-5 9011 df-6 9012 df-7 9013 df-8 9014 df-n0 9207 df-z 9284 df-uz 9559 df-q 9650 df-rp 9684 df-fz 10039 df-fzo 10173 df-fl 10301 df-mod 10354 df-seqfrec 10477 df-exp 10551 df-ihash 10788 df-cj 10883 df-re 10884 df-im 10885 df-rsqrt 11039 df-abs 11040 df-clim 11319 df-proddc 11591 df-dvds 11827 df-gcd 11976 df-prm 12140 df-phi 12243 df-pc 12317 df-lgs 14860

This theorem is referenced by: lgsval4lem 14873 lgsval2 14878

W3C validator