lgsval2lem - Intuitionistic Logic Explorer

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

Theorem lgsval2lem 15875

Description: Lemma for lgsval2 15881. (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 12804	. . 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 15869	. . 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 12803	. . . . . 6 ⊢ (𝑁 ∈ ℙ → 𝑁 ∈ ℕ)
6	5	adantl 277	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℕ)
7	6	nnne0d 9281	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ≠ 0)
8	7	neneqd 2433	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ¬ 𝑁 = 0)
9	8	iffalsed 3631	. 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 9552	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℕ₀)
11	10	nn0ge0d 9555	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 0 ≤ 𝑁)
12		0re 8273	. . . . . . . 8 ⊢ 0 ∈ ℝ
13	6	nnred 9249	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℝ)
14		lenlt 8348	. . . . . . . 8 ⊢ ((0 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (0 ≤ 𝑁 ↔ ¬ 𝑁 < 0))
15	12, 13, 14	sylancr 414	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (0 ≤ 𝑁 ↔ ¬ 𝑁 < 0))
16	11, 15	mpbid 147	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ¬ 𝑁 < 0)
17	16	intnanrd 940	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ¬ (𝑁 < 0 ∧ 𝐴 < 0))
18	17	iffalsed 3631	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) = 1)
19	13, 11	absidd 11848	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (abs‘𝑁) = 𝑁)
20	19	fveq2d 5673	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘(abs‘𝑁)) = (seq1( · , 𝐹)‘𝑁))
21		1zzd 9603	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 1 ∈ ℤ)
22		prmuz2 12824	. . . . . . . . 9 ⊢ (𝑁 ∈ ℙ → 𝑁 ∈ (ℤ_≥‘2))
23	22	adantl 277	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ (ℤ_≥‘2))
24		df-2 9295	. . . . . . . . 9 ⊢ 2 = (1 + 1)
25	24	fveq2i 5672	. . . . . . . 8 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
26	23, 25	eleqtrdi 2325	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ (ℤ_≥‘(1 + 1)))
27		simpll 527	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝐴 ∈ ℤ)
28	1	ad2antlr 489	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑁 ∈ ℤ)
29	7	adantr 276	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑁 ≠ 0)
30	2	lgsfcl 15873	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → 𝐹:ℕ⟶ℤ)
31	27, 28, 29, 30	syl3anc 1274	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝐹:ℕ⟶ℤ)
32		elnnuz 9890	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ_≥‘1))
33	32	biimpri 133	. . . . . . . . 9 ⊢ (𝑘 ∈ (ℤ_≥‘1) → 𝑘 ∈ ℕ)
34	33	adantl 277	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℕ)
35	31, 34	ffvelcdmd 5812	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑘 ∈ (ℤ_≥‘1)) → (𝐹‘𝑘) ∈ ℤ)
36		zmulcl 9630	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ) → (𝑘 · 𝑣) ∈ ℤ)
37	36	adantl 277	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ (𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ)) → (𝑘 · 𝑣) ∈ ℤ)
38	21, 26, 35, 37	seq3m1 10834	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘𝑁) = ((seq1( · , 𝐹)‘(𝑁 − 1)) · (𝐹‘𝑁)))
39		1t1e1 9389	. . . . . . . . 9 ⊢ (1 · 1) = 1
40	39	a1i 9	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (1 · 1) = 1)
41		uz2m1nn 9936	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (𝑁 − 1) ∈ ℕ)
42	23, 41	syl 14	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 − 1) ∈ ℕ)
43		nnuz 9889	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
44	42, 43	eleqtrdi 2325	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 − 1) ∈ (ℤ_≥‘1))
45		simpll 527	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → 𝐴 ∈ ℤ)
46	6	adantr 276	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → 𝑁 ∈ ℕ)
47		elfznn 10387	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (1...(𝑁 − 1)) → 𝑥 ∈ ℕ)
48	47	adantl 277	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → 𝑥 ∈ ℕ)
49	2	lgsfvalg 15870	. . . . . . . . . 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 1274	. . . . . . . . 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 10358	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ∈ ℤ)
52	51	zred 9699	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ∈ ℝ)
53	52	ltm1d 9205	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → (𝑁 − 1) < 𝑁)
54		peano2rem 8539	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℝ → (𝑁 − 1) ∈ ℝ)
55	52, 54	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → (𝑁 − 1) ∈ ℝ)
56		elfzle2 10361	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ≤ (𝑁 − 1))
57	52, 55, 56	lensymd 8394	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ (1...(𝑁 − 1)) → ¬ (𝑁 − 1) < 𝑁)
58	53, 57	pm2.65i 644	. . . . . . . . . . . . . . . . 17 ⊢ ¬ 𝑁 ∈ (1...(𝑁 − 1))
59		eleq1 2295	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → (𝑥 ∈ (1...(𝑁 − 1)) ↔ 𝑁 ∈ (1...(𝑁 − 1))))
60	58, 59	mtbiri 682	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → ¬ 𝑥 ∈ (1...(𝑁 − 1)))
61	60	con2i 632	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (1...(𝑁 − 1)) → ¬ 𝑥 = 𝑁)
62	61	ad2antlr 489	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → ¬ 𝑥 = 𝑁)
63		prmuz2 12824	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ (ℤ_≥‘2))
64		simpllr 536	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → 𝑁 ∈ ℙ)
65		dvdsprm 12830	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ (ℤ_≥‘2) ∧ 𝑁 ∈ ℙ) → (𝑥 ∥ 𝑁 ↔ 𝑥 = 𝑁))
66	63, 64, 65	syl2an2 598	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → (𝑥 ∥ 𝑁 ↔ 𝑥 = 𝑁))
67	62, 66	mtbird 680	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → ¬ 𝑥 ∥ 𝑁)
68		simpr 110	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → 𝑥 ∈ ℙ)
69	6	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → 𝑁 ∈ ℕ)
70		pceq0 13016	. . . . . . . . . . . . . 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 6065	. . . . . . . . . . 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 9588	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℤ → 0 ∈ ℤ)
75		1zzd 9603	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℤ → 1 ∈ ℤ)
76		neg1z 9608	. . . . . . . . . . . . . . . . . . 19 ⊢ -1 ∈ ℤ
77	76	a1i 9	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℤ → -1 ∈ ℤ)
78		id 19	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℤ)
79		8nn 9404	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ 8 ∈ ℕ
80	79	a1i 9	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ ℤ → 8 ∈ ℕ)
81	78, 80	zmodcld 10706	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈ ℕ₀)
82	81	nn0zd 9697	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈ ℤ)
83		zdceq 9652	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 mod 8) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝐴 mod 8) = 1)
84	82, 75, 83	syl2anc 411	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ ℤ → DECID (𝐴 mod 8) = 1)
85		7nn 9403	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 7 ∈ ℕ
86	85	nnzi 9597	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 7 ∈ ℤ
87		zdceq 9652	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 mod 8) ∈ ℤ ∧ 7 ∈ ℤ) → DECID (𝐴 mod 8) = 7)
88	82, 86, 87	sylancl 413	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ ℤ → DECID (𝐴 mod 8) = 7)
89		dcor 944	. . . . . . . . . . . . . . . . . . . 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 3708	. . . . . . . . . . . . . . . . . . . . 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 846	. . . . . . . . . . . . . . . . . . 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 3659	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℤ → if((𝐴 mod 8) ∈ {1, 7}, 1, -1) ∈ ℤ)
96		2nn 9398	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ ℕ
97		dvdsdc 12480	. . . . . . . . . . . . . . . . . 18 ⊢ ((2 ∈ ℕ ∧ 𝐴 ∈ ℤ) → DECID 2 ∥ 𝐴)
98	96, 97	mpan 424	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ ℤ → DECID 2 ∥ 𝐴)
99	74, 95, 98	ifcldcd 3659	. . . . . . . . . . . . . . . 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 529	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ∈ ℙ)
104		simpr 110	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ¬ 𝑥 = 2)
105	104	neqned 2419	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ≠ 2)
106		eldifsn 3819	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 ∈ (ℙ ∖ {2}) ↔ (𝑥 ∈ ℙ ∧ 𝑥 ≠ 2))
107	103, 105, 106	sylanbrc 417	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ∈ (ℙ ∖ {2}))
108		oddprm 12953	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ (ℙ ∖ {2}) → ((𝑥 − 1) / 2) ∈ ℕ)
109	107, 108	syl 14	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((𝑥 − 1) / 2) ∈ ℕ)
110	109	nnnn0d 9552	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((𝑥 − 1) / 2) ∈ ℕ₀)
111		zexpcl 10915	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℤ ∧ ((𝑥 − 1) / 2) ∈ ℕ₀) → (𝐴↑((𝑥 − 1) / 2)) ∈ ℤ)
112	102, 110, 111	syl2anc 411	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → (𝐴↑((𝑥 − 1) / 2)) ∈ ℤ)
113	112	peano2zd 9702	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((𝐴↑((𝑥 − 1) / 2)) + 1) ∈ ℤ)
114		prmnn 12803	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ ℕ)
115	114	ad2antlr 489	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → 𝑥 ∈ ℕ)
116	113, 115	zmodcld 10706	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → (((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) ∈ ℕ₀)
117	116	nn0zd 9697	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → (((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) ∈ ℤ)
118		peano2zm 9614	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) ∈ ℤ → ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1) ∈ ℤ)
119	117, 118	syl 14	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) ∧ ¬ 𝑥 = 2) → ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1) ∈ ℤ)
120		prmz 12804	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ ℙ → 𝑥 ∈ ℤ)
121		2z 9604	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℤ
122	121	a1i 9	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) → 2 ∈ ℤ)
123		zdceq 9652	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ ℤ ∧ 2 ∈ ℤ) → DECID 𝑥 = 2)
124	120, 122, 123	syl2an2 598	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) → DECID 𝑥 = 2)
125	100, 119, 124	ifcldadc 3651	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ ℙ) → if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) ∈ ℤ)
126	125	zcnd 9700	. . . . . . . . . . . . 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 11028	. . . . . . . . . . 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 2265	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) ∧ 𝑥 ∈ ℙ) → (if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1))↑(𝑥 pCnt 𝑁)) = 1)
130		prmdc 12823	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℕ → DECID 𝑥 ∈ ℙ)
131	48, 130	syl 14	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → DECID 𝑥 ∈ ℙ)
132	129, 131	ifeq1dadc 3652	. . . . . . . . 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 3657	. . . . . . . . . 10 ⊢ (DECID 𝑥 ∈ ℙ → if(𝑥 ∈ ℙ, 1, 1) = 1)
134	131, 133	syl 14	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (1...(𝑁 − 1))) → if(𝑥 ∈ ℙ, 1, 1) = 1)
135	50, 132, 134	3eqtrd 2269	. . . . . . . 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 1274	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → 𝐹:ℕ⟶ℤ)
140		elnnuz 9890	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℕ ↔ 𝑥 ∈ (ℤ_≥‘1))
141	140	biimpri 133	. . . . . . . . . 10 ⊢ (𝑥 ∈ (ℤ_≥‘1) → 𝑥 ∈ ℕ)
142	141	adantl 277	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → 𝑥 ∈ ℕ)
143	139, 142	ffvelcdmd 5812	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ 𝑥 ∈ (ℤ_≥‘1)) → (𝐹‘𝑥) ∈ ℤ)
144		zmulcl 9630	. . . . . . . . 9 ⊢ ((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) → (𝑥 · 𝑦) ∈ ℤ)
145	144	adantl 277	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) → (𝑥 · 𝑦) ∈ ℤ)
146	40, 44, 135, 21, 143, 145	seq3id3 10885	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘(𝑁 − 1)) = 1)
147	146	oveq1d 6064	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ((seq1( · , 𝐹)‘(𝑁 − 1)) · (𝐹‘𝑁)) = (1 · (𝐹‘𝑁)))
148	1	adantl 277	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℤ)
149	101, 148, 7, 30	syl3anc 1274	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝐹:ℕ⟶ℤ)
150	149, 6	ffvelcdmd 5812	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) ∈ ℤ)
151	150	zcnd 9700	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) ∈ ℂ)
152	151	mullidd 8291	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (1 · (𝐹‘𝑁)) = (𝐹‘𝑁))
153	38, 147, 152	3eqtrd 2269	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘𝑁) = (𝐹‘𝑁))
154	20, 153	eqtrd 2265	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (seq1( · , 𝐹)‘(abs‘𝑁)) = (𝐹‘𝑁))
155	18, 154	oveq12d 6067	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , 𝐹)‘(abs‘𝑁))) = (1 · (𝐹‘𝑁)))
156	2	lgsfvalg 15870	. . . . 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 1274	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) = if(𝑁 ∈ ℙ, (if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))↑(𝑁 pCnt 𝑁)), 1))
158		iftrue 3626	. . . . 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 9250	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℂ)
161	160	exp1d 11029	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁↑1) = 𝑁)
162	161	oveq2d 6065	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 pCnt (𝑁↑1)) = (𝑁 pCnt 𝑁))
163		simpr 110	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → 𝑁 ∈ ℙ)
164		1z 9602	. . . . . . . 8 ⊢ 1 ∈ ℤ
165		pcid 13018	. . . . . . . 8 ⊢ ((𝑁 ∈ ℙ ∧ 1 ∈ ℤ) → (𝑁 pCnt (𝑁↑1)) = 1)
166	163, 164, 165	sylancl 413	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 pCnt (𝑁↑1)) = 1)
167	162, 166	eqtr3d 2267	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝑁 pCnt 𝑁) = 1)
168	167	oveq2d 6065	. . . . 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 2239	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → (𝑥 = 2 ↔ 𝑁 = 2))
170		oveq1 6056	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑁 → (𝑥 − 1) = (𝑁 − 1))
171	170	oveq1d 6064	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑁 → ((𝑥 − 1) / 2) = ((𝑁 − 1) / 2))
172	171	oveq2d 6065	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑁 → (𝐴↑((𝑥 − 1) / 2)) = (𝐴↑((𝑁 − 1) / 2)))
173	172	oveq1d 6064	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑁 → ((𝐴↑((𝑥 − 1) / 2)) + 1) = ((𝐴↑((𝑁 − 1) / 2)) + 1))
174		id 19	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑁 → 𝑥 = 𝑁)
175	173, 174	oveq12d 6067	. . . . . . . . . 10 ⊢ (𝑥 = 𝑁 → (((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) = (((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁))
176	175	oveq1d 6064	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1) = ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1))
177	169, 176	ifbieq2d 3646	. . . . . . . 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 2301	. . . . . . 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 2615	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → ∀𝑥 ∈ ℙ if(𝑥 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑥 − 1) / 2)) + 1) mod 𝑥) − 1)) ∈ ℂ)
180	178, 179, 163	rspcdva 2925	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)) ∈ ℂ)
181	180	exp1d 11029	. . . . 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 2265	. . . 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 2269	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℙ) → (𝐹‘𝑁) = if(𝑁 = 2, if(2 ∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)), ((((𝐴↑((𝑁 − 1) / 2)) + 1) mod 𝑁) − 1)))
184	155, 152, 183	3eqtrd 2269	. 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 2269	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 716 DECID wdc 842 = wceq 1398 ∈ wcel 2203 ≠ wne 2412 ∖ cdif 3207 ifcif 3619 {csn 3688 {cpr 3689 class class class wbr 4108 ↦ cmpt 4170 ⟶wf 5347 ‘cfv 5351 (class class class)co 6049 ℂcc 8124 ℝcr 8125 0cc0 8126 1c1 8127 + caddc 8129 · cmul 8131 < clt 8307 ≤ cle 8308 − cmin 8443 -cneg 8444 / cdiv 8945 ℕcn 9236 2c2 9287 7c7 9292 8c8 9293 ℕ₀cn0 9495 ℤcz 9576 ℤ_≥cuz 9852 ...cfz 10341 mod cmo 10683 seqcseq 10808 ↑cexp 10899 abscabs 11678 ∥ cdvds 12469 ℙcprime 12800 pCnt cpc 12978 /_L clgs 15862

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 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2205 ax-14 2206 ax-ext 2214 ax-coll 4224 ax-sep 4227 ax-nul 4235 ax-pow 4286 ax-pr 4321 ax-un 4553 ax-setind 4658 ax-iinf 4709 ax-cnex 8217 ax-resscn 8218 ax-1cn 8219 ax-1re 8220 ax-icn 8221 ax-addcl 8222 ax-addrcl 8223 ax-mulcl 8224 ax-mulrcl 8225 ax-addcom 8226 ax-mulcom 8227 ax-addass 8228 ax-mulass 8229 ax-distr 8230 ax-i2m1 8231 ax-0lt1 8232 ax-1rid 8233 ax-0id 8234 ax-rnegex 8235 ax-precex 8236 ax-cnre 8237 ax-pre-ltirr 8238 ax-pre-ltwlin 8239 ax-pre-lttrn 8240 ax-pre-apti 8241 ax-pre-ltadd 8242 ax-pre-mulgt0 8243 ax-pre-mulext 8244 ax-arch 8245 ax-caucvg 8246

This theorem depends on definitions: df-bi 117 df-stab 839 df-dc 843 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-xor 1421 df-nf 1510 df-sb 1812 df-eu 2083 df-mo 2084 df-clab 2219 df-cleq 2225 df-clel 2228 df-nfc 2373 df-ne 2413 df-nel 2508 df-ral 2525 df-rex 2526 df-reu 2527 df-rmo 2528 df-rab 2529 df-v 2814 df-sbc 3042 df-csb 3138 df-dif 3212 df-un 3214 df-in 3216 df-ss 3223 df-nul 3508 df-if 3620 df-pw 3670 df-sn 3694 df-pr 3695 df-op 3697 df-uni 3914 df-int 3949 df-iun 3992 df-br 4109 df-opab 4171 df-mpt 4172 df-tr 4208 df-id 4413 df-po 4416 df-iso 4417 df-iord 4486 df-on 4488 df-ilim 4489 df-suc 4491 df-iom 4712 df-xp 4754 df-rel 4755 df-cnv 4756 df-co 4757 df-dm 4758 df-rn 4759 df-res 4760 df-ima 4761 df-iota 5311 df-fun 5353 df-fn 5354 df-f 5355 df-f1 5356 df-fo 5357 df-f1o 5358 df-fv 5359 df-isom 5360 df-riota 6002 df-ov 6052 df-oprab 6053 df-mpo 6054 df-1st 6333 df-2nd 6334 df-recs 6535 df-irdg 6600 df-frec 6621 df-1o 6646 df-2o 6647 df-oadd 6650 df-er 6766 df-en 6975 df-dom 6976 df-fin 6977 df-sup 7274 df-inf 7275 df-pnf 8309 df-mnf 8310 df-xr 8311 df-ltxr 8312 df-le 8313 df-sub 8445 df-neg 8446 df-reap 8848 df-ap 8855 df-div 8946 df-inn 9237 df-2 9295 df-3 9296 df-4 9297 df-5 9298 df-6 9299 df-7 9300 df-8 9301 df-n0 9496 df-z 9577 df-uz 9853 df-q 9951 df-rp 9986 df-fz 10342 df-fzo 10476 df-fl 10629 df-mod 10684 df-seqfrec 10809 df-exp 10900 df-ihash 11137 df-cj 11523 df-re 11524 df-im 11525 df-rsqrt 11679 df-abs 11680 df-clim 11960 df-proddc 12233 df-dvds 12470 df-gcd 12646 df-prm 12801 df-phi 12904 df-pc 12979 df-lgs 15863

This theorem is referenced by: lgsval4lem 15876 lgsval2 15881

W3C validator