lgsmod - Intuitionistic Logic Explorer

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

Theorem lgsmod 16362

Description: The Legendre (Jacobi) symbol is preserved under reduction mod 𝑛 when 𝑛 is odd. (Contributed by Mario Carneiro, 4-Feb-2015.)

**Assertion**
Ref	Expression
lgsmod	⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → ((𝐴 mod 𝑁) /_L 𝑁) = (𝐴 /_L 𝑁))

Proof of Theorem lgsmod Dummy variable 𝑛 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		zmodcl 10803	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴 mod 𝑁) ∈ ℕ₀)
2	1	3adant3 1048	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → (𝐴 mod 𝑁) ∈ ℕ₀)
3	2	nn0zd 9778	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → (𝐴 mod 𝑁) ∈ ℤ)
4	3	ad2antrr 492	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (𝐴 mod 𝑁) ∈ ℤ)
5		simpr 110	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → 𝑛 ∈ ℙ)
6	5	adantr 276	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ∈ ℙ)
7		simpl3 1033	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → ¬ 2 ∥ 𝑁)
8		breq1 4134	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 = 2 → (𝑛 ∥ 𝑁 ↔ 2 ∥ 𝑁))
9	8	notbid 677	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 = 2 → (¬ 𝑛 ∥ 𝑁 ↔ ¬ 2 ∥ 𝑁))
10	7, 9	syl5ibrcom 157	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → (𝑛 = 2 → ¬ 𝑛 ∥ 𝑁))
11	10	necon2ad 2477	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → (𝑛 ∥ 𝑁 → 𝑛 ≠ 2))
12	11	imp 124	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ≠ 2)
13		eldifsn 3841	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (ℙ ∖ {2}) ↔ (𝑛 ∈ ℙ ∧ 𝑛 ≠ 2))
14	6, 12, 13	sylanbrc 421	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ∈ (ℙ ∖ {2}))
15		oddprm 13068	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (ℙ ∖ {2}) → ((𝑛 − 1) / 2) ∈ ℕ)
16	14, 15	syl 14	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝑛 − 1) / 2) ∈ ℕ)
17	16	nnnn0d 9632	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝑛 − 1) / 2) ∈ ℕ₀)
18		zexpcl 11013	. . . . . . . . . . . . . 14 ⊢ (((𝐴 mod 𝑁) ∈ ℤ ∧ ((𝑛 − 1) / 2) ∈ ℕ₀) → ((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) ∈ ℤ)
19	4, 17, 18	syl2anc 415	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) ∈ ℤ)
20		zq 10043	. . . . . . . . . . . . 13 ⊢ (((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) ∈ ℤ → ((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) ∈ ℚ)
21	19, 20	syl 14	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) ∈ ℚ)
22		simpll1 1067	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝐴 ∈ ℤ)
23		zexpcl 11013	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ ((𝑛 − 1) / 2) ∈ ℕ₀) → (𝐴↑((𝑛 − 1) / 2)) ∈ ℤ)
24	22, 17, 23	syl2anc 415	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (𝐴↑((𝑛 − 1) / 2)) ∈ ℤ)
25		zq 10043	. . . . . . . . . . . . 13 ⊢ ((𝐴↑((𝑛 − 1) / 2)) ∈ ℤ → (𝐴↑((𝑛 − 1) / 2)) ∈ ℚ)
26	24, 25	syl 14	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (𝐴↑((𝑛 − 1) / 2)) ∈ ℚ)
27		1z 9682	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℤ
28		zq 10043	. . . . . . . . . . . . 13 ⊢ (1 ∈ ℤ → 1 ∈ ℚ)
29	27, 28	mp1i 10	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 1 ∈ ℚ)
30		prmz 12915	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℙ → 𝑛 ∈ ℤ)
31	30	ad2antlr 493	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ∈ ℤ)
32		zq 10043	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℤ → 𝑛 ∈ ℚ)
33	31, 32	syl 14	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ∈ ℚ)
34		prmnn 12914	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℙ → 𝑛 ∈ ℕ)
35	34	ad2antlr 493	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ∈ ℕ)
36	35	nngt0d 9358	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 0 < 𝑛)
37		simp2 1029	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → 𝑁 ∈ ℕ)
38	37	ad2antrr 492	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑁 ∈ ℕ)
39	38	nnzd 9779	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑁 ∈ ℤ)
40	4, 22	zsubcld 9785	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁) − 𝐴) ∈ ℤ)
41		simpr 110	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ∥ 𝑁)
42		zq 10043	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℚ)
43	22, 42	syl 14	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝐴 ∈ ℚ)
44		zq 10043	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ ℤ → 𝑁 ∈ ℚ)
45	39, 44	syl 14	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑁 ∈ ℚ)
46	38	nngt0d 9358	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 0 < 𝑁)
47		modqabs2 10817	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℚ ∧ 𝑁 ∈ ℚ ∧ 0 < 𝑁) → ((𝐴 mod 𝑁) mod 𝑁) = (𝐴 mod 𝑁))
48	43, 45, 46, 47	syl3anc 1278	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁) mod 𝑁) = (𝐴 mod 𝑁))
49		moddvds 12592	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ (𝐴 mod 𝑁) ∈ ℤ ∧ 𝐴 ∈ ℤ) → (((𝐴 mod 𝑁) mod 𝑁) = (𝐴 mod 𝑁) ↔ 𝑁 ∥ ((𝐴 mod 𝑁) − 𝐴)))
50	38, 4, 22, 49	syl3anc 1278	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁) mod 𝑁) = (𝐴 mod 𝑁) ↔ 𝑁 ∥ ((𝐴 mod 𝑁) − 𝐴)))
51	48, 50	mpbid 147	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑁 ∥ ((𝐴 mod 𝑁) − 𝐴))
52	31, 39, 40, 41, 51	dvdstrd 12623	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → 𝑛 ∥ ((𝐴 mod 𝑁) − 𝐴))
53		moddvds 12592	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 ∈ ℕ ∧ (𝐴 mod 𝑁) ∈ ℤ ∧ 𝐴 ∈ ℤ) → (((𝐴 mod 𝑁) mod 𝑛) = (𝐴 mod 𝑛) ↔ 𝑛 ∥ ((𝐴 mod 𝑁) − 𝐴)))
54	35, 4, 22, 53	syl3anc 1278	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁) mod 𝑛) = (𝐴 mod 𝑛) ↔ 𝑛 ∥ ((𝐴 mod 𝑁) − 𝐴)))
55	52, 54	mpbird 167	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁) mod 𝑛) = (𝐴 mod 𝑛))
56	4, 22, 17, 33, 36, 55	modqexp 11126	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) mod 𝑛) = ((𝐴↑((𝑛 − 1) / 2)) mod 𝑛))
57	21, 26, 29, 33, 36, 56	modqadd1 10820	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) + 1) mod 𝑛) = (((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛))
58	57	oveq1d 6103	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (((((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1) = ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))
59		lgsval3 16354	. . . . . . . . . . 11 ⊢ (((𝐴 mod 𝑁) ∈ ℤ ∧ 𝑛 ∈ (ℙ ∖ {2})) → ((𝐴 mod 𝑁) /_L 𝑛) = (((((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))
60	4, 14, 59	syl2anc 415	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁) /_L 𝑛) = (((((𝐴 mod 𝑁)↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))
61		lgsval3 16354	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (ℙ ∖ {2})) → (𝐴 /_L 𝑛) = ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))
62	22, 14, 61	syl2anc 415	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (𝐴 /_L 𝑛) = ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))
63	58, 60, 62	3eqtr4d 2281	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁) /_L 𝑛) = (𝐴 /_L 𝑛))
64	63	oveq1d 6103	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)) = ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)))
65	3	ad2antrr 492	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (𝐴 mod 𝑁) ∈ ℤ)
66	30	ad2antlr 493	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → 𝑛 ∈ ℤ)
67		lgscl 16350	. . . . . . . . . . . . 13 ⊢ (((𝐴 mod 𝑁) ∈ ℤ ∧ 𝑛 ∈ ℤ) → ((𝐴 mod 𝑁) /_L 𝑛) ∈ ℤ)
68	65, 66, 67	syl2anc 415	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁) /_L 𝑛) ∈ ℤ)
69	68	zcnd 9781	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → ((𝐴 mod 𝑁) /_L 𝑛) ∈ ℂ)
70	69	exp0d 11127	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁) /_L 𝑛)↑0) = 1)
71		simpll1 1067	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → 𝐴 ∈ ℤ)
72		lgscl 16350	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ ℤ) → (𝐴 /_L 𝑛) ∈ ℤ)
73	71, 66, 72	syl2anc 415	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (𝐴 /_L 𝑛) ∈ ℤ)
74	73	zcnd 9781	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (𝐴 /_L 𝑛) ∈ ℂ)
75	74	exp0d 11127	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → ((𝐴 /_L 𝑛)↑0) = 1)
76	70, 75	eqtr4d 2274	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁) /_L 𝑛)↑0) = ((𝐴 /_L 𝑛)↑0))
77	37	adantr 276	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → 𝑁 ∈ ℕ)
78		pceq0 13131	. . . . . . . . . . . 12 ⊢ ((𝑛 ∈ ℙ ∧ 𝑁 ∈ ℕ) → ((𝑛 pCnt 𝑁) = 0 ↔ ¬ 𝑛 ∥ 𝑁))
79	5, 77, 78	syl2anc 415	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → ((𝑛 pCnt 𝑁) = 0 ↔ ¬ 𝑛 ∥ 𝑁))
80	79	biimpar 297	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (𝑛 pCnt 𝑁) = 0)
81	80	oveq2d 6104	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)) = (((𝐴 mod 𝑁) /_L 𝑛)↑0))
82	80	oveq2d 6104	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)) = ((𝐴 /_L 𝑛)↑0))
83	76, 81, 82	3eqtr4d 2281	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) ∧ ¬ 𝑛 ∥ 𝑁) → (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)) = ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)))
84	34	adantl 277	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → 𝑛 ∈ ℕ)
85	77	nnzd 9779	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → 𝑁 ∈ ℤ)
86		dvdsdc 12591	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℕ ∧ 𝑁 ∈ ℤ) → DECID 𝑛 ∥ 𝑁)
87	84, 85, 86	syl2anc 415	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → DECID 𝑛 ∥ 𝑁)
88		exmiddc 848	. . . . . . . . 9 ⊢ (DECID 𝑛 ∥ 𝑁 → (𝑛 ∥ 𝑁 ∨ ¬ 𝑛 ∥ 𝑁))
89	87, 88	syl 14	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → (𝑛 ∥ 𝑁 ∨ ¬ 𝑛 ∥ 𝑁))
90	64, 83, 89	mpjaodan 810	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℙ) → (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)) = ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)))
91	90	adantlr 481	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℕ) ∧ 𝑛 ∈ ℙ) → (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)) = ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)))
92		prmdc 12934	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → DECID 𝑛 ∈ ℙ)
93	92	adantl 277	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℕ) → DECID 𝑛 ∈ ℙ)
94	91, 93	ifeq1dadc 3671	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) ∧ 𝑛 ∈ ℕ) → if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1) = if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))
95	94	mpteq2dva 4223	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))
96	95	seqeq3d 10914	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))) = seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))))
97	96	fveq1d 5700	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘𝑁) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘𝑁))
98		eqid 2238	. . . 4 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))
99	98	lgsval4a 16358	. . 3 ⊢ (((𝐴 mod 𝑁) ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴 mod 𝑁) /_L 𝑁) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘𝑁))
100	3, 37, 99	syl2anc 415	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → ((𝐴 mod 𝑁) /_L 𝑁) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (((𝐴 mod 𝑁) /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘𝑁))
101		eqid 2238	. . . 4 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))
102	101	lgsval4a 16358	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴 /_L 𝑁) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘𝑁))
103	102	3adant3 1048	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → (𝐴 /_L 𝑁) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘𝑁))
104	97, 100, 103	3eqtr4d 2281	1 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ ¬ 2 ∥ 𝑁) → ((𝐴 mod 𝑁) /_L 𝑁) = (𝐴 /_L 𝑁))

Colors of variables: wff set class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 720 DECID wdc 846 ∧ w3a 1009 = wceq 1402 ∈ wcel 2209 ≠ wne 2420 ∖ cdif 3217 ifcif 3638 {csn 3709 class class class wbr 4131 ↦ cmpt 4193 ‘cfv 5380 (class class class)co 6088 0cc0 8186 1c1 8187 + caddc 8189 · cmul 8191 < clt 8367 − cmin 8505 / cdiv 9011 ℕcn 9314 2c2 9365 ℕ₀cn0 9575 ℤcz 9656 ℚcq 10036 mod cmo 10781 seqcseq 10906 ↑cexp 10997 ∥ cdvds 12580 ℙcprime 12911 pCnt cpc 13093 /_L clgs 16333

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 623 ax-in2 624 ax-io 721 ax-5 1500 ax-7 1501 ax-gen 1502 ax-ie1 1546 ax-ie2 1547 ax-8 1557 ax-10 1558 ax-11 1559 ax-i12 1560 ax-bndl 1562 ax-4 1563 ax-17 1579 ax-i9 1583 ax-ial 1587 ax-i5r 1588 ax-14 2212 ax-ext 2220 ax-coll 4248 ax-sep 4251 ax-nul 4261 ax-pow 4313 ax-pr 4348 ax-un 4580 ax-setind 4686 ax-iinf 4737 ax-cnex 8277 ax-resscn 8278 ax-1cn 8279 ax-1re 8280 ax-icn 8281 ax-addcl 8282 ax-addrcl 8283 ax-mulcl 8284 ax-mulrcl 8285 ax-addcom 8286 ax-mulcom 8287 ax-addass 8288 ax-mulass 8289 ax-distr 8290 ax-i2m1 8291 ax-0lt1 8292 ax-1rid 8293 ax-0id 8294 ax-rnegex 8295 ax-precex 8296 ax-cnre 8297 ax-pre-ltirr 8298 ax-pre-ltwlin 8299 ax-pre-lttrn 8300 ax-pre-apti 8301 ax-pre-ltadd 8302 ax-pre-mulgt0 8303 ax-pre-mulext 8304 ax-arch 8305 ax-caucvg 8306

This proof depends on definitions: df-bi 117 df-stab 843 df-dc 847 df-3or 1010 df-3an 1011 df-tru 1405 df-fal 1408 df-xor 1425 df-nf 1514 df-sb 1816 df-eu 2089 df-mo 2090 df-clab 2225 df-cleq 2231 df-clel 2234 df-nfc 2381 df-ne 2421 df-nel 2516 df-ral 2533 df-rex 2534 df-reu 2535 df-rmo 2536 df-rab 2537 df-v 2823 df-sbc 3052 df-csb 3148 df-dif 3222 df-un 3224 df-in 3226 df-ss 3233 df-nul 3521 df-if 3639 df-pw 3690 df-sn 3715 df-pr 3716 df-op 3718 df-uni 3936 df-int 3971 df-iun 4014 df-br 4132 df-opab 4194 df-mpt 4195 df-tr 4232 df-id 4440 df-po 4443 df-iso 4444 df-iord 4513 df-on 4515 df-ilim 4516 df-suc 4518 df-iom 4740 df-xp 4782 df-rel 4783 df-cnv 4784 df-co 4785 df-dm 4786 df-rn 4787 df-res 4788 df-ima 4789 df-iota 5340 df-fun 5382 df-fn 5383 df-f 5384 df-f1 5385 df-fo 5386 df-f1o 5387 df-fv 5388 df-isom 5389 df-riota 6041 df-ov 6091 df-oprab 6092 df-mpo 6093 df-1st 6378 df-2nd 6379 df-recs 6580 df-irdg 6645 df-frec 6666 df-1o 6691 df-2o 6692 df-oadd 6695 df-er 6811 df-en 7028 df-dom 7029 df-fin 7030 df-sup 7331 df-inf 7332 df-pnf 8369 df-mnf 8370 df-xr 8371 df-ltxr 8372 df-le 8373 df-sub 8507 df-neg 8508 df-reap 8912 df-ap 8919 df-div 9012 df-inn 9315 df-2 9373 df-3 9374 df-4 9375 df-5 9376 df-6 9377 df-7 9378 df-8 9379 df-n0 9576 df-z 9657 df-uz 9939 df-q 10037 df-rp 10073 df-fz 10430 df-fzo 10568 df-fl 10723 df-mod 10782 df-seqfrec 10907 df-exp 10998 df-ihash 11238 df-cj 11630 df-re 11631 df-im 11632 df-rsqrt 11787 df-abs 11788 df-clim 12071 df-proddc 12344 df-dvds 12581 df-gcd 12757 df-prm 12912 df-phi 13019 df-pc 13094 df-lgs 16334

This theorem is used by: lgsmodeq 16381

W3C validator