Metamath Proof Explorer


Theorem lgsvalmod

Description: The Legendre symbol is equivalent to a ^ ( ( p - 1 ) / 2 ) , mod p . This theorem is also called "Euler's criterion", see theorem 9.2 in ApostolNT p. 180, or a representation of Euler's criterion using the Legendre symbol, see also lgsqr . (Contributed by Mario Carneiro, 4-Feb-2015)

Ref Expression
Assertion lgsvalmod ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P mod P = A P − 1 2 mod P

Proof

Step Hyp Ref Expression
1 eldifi ⊢ P ∈ ℙ ∖ 2 → P ∈ ℙ
2 1 adantl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → P ∈ ℙ
3 prmz ⊢ P ∈ ℙ → P ∈ ℤ
4 2 3 syl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → P ∈ ℤ
5 lgscl ⊢ A ∈ ℤ ∧ P ∈ ℤ → A / L P ∈ ℤ
6 4 5 syldan ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P ∈ ℤ
7 6 zred ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P ∈ ℝ
8 peano2re ⊢ A / L P ∈ ℝ → A / L P + 1 ∈ ℝ
9 7 8 syl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 ∈ ℝ
10 oddprm ⊢ P ∈ ℙ ∖ 2 → P − 1 2 ∈ ℕ
11 10 adantl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → P − 1 2 ∈ ℕ
12 11 nnnn0d ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → P − 1 2 ∈ ℕ 0
13 zexpcl ⊢ A ∈ ℤ ∧ P − 1 2 ∈ ℕ 0 → A P − 1 2 ∈ ℤ
14 12 13 syldan ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 ∈ ℤ
15 14 zred ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 ∈ ℝ
16 peano2re ⊢ A P − 1 2 ∈ ℝ → A P − 1 2 + 1 ∈ ℝ
17 15 16 syl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 ∈ ℝ
18 neg1rr ⊢ − 1 ∈ ℝ
19 18 a1i ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → − 1 ∈ ℝ
20 prmnn ⊢ P ∈ ℙ → P ∈ ℕ
21 2 20 syl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → P ∈ ℕ
22 21 nnrpd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → P ∈ ℝ +
23 lgsval3 ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P = A P − 1 2 + 1 mod P − 1
24 23 eqcomd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 mod P − 1 = A / L P
25 17 22 modcld ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 mod P ∈ ℝ
26 25 recnd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 mod P ∈ ℂ
27 ax-1cn ⊢ 1 ∈ ℂ
28 27 a1i ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → 1 ∈ ℂ
29 7 recnd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P ∈ ℂ
30 26 28 29 subadd2d ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 mod P − 1 = A / L P ↔ A / L P + 1 = A P − 1 2 + 1 mod P
31 24 30 mpbid ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 = A P − 1 2 + 1 mod P
32 31 oveq1d ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 mod P = A P − 1 2 + 1 mod P mod P
33 modabs2 ⊢ A P − 1 2 + 1 ∈ ℝ ∧ P ∈ ℝ + → A P − 1 2 + 1 mod P mod P = A P − 1 2 + 1 mod P
34 17 22 33 syl2anc ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 mod P mod P = A P − 1 2 + 1 mod P
35 32 34 eqtrd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 mod P = A P − 1 2 + 1 mod P
36 modadd1 ⊢ A / L P + 1 ∈ ℝ ∧ A P − 1 2 + 1 ∈ ℝ ∧ − 1 ∈ ℝ ∧ P ∈ ℝ + ∧ A / L P + 1 mod P = A P − 1 2 + 1 mod P → A / L P + 1 + -1 mod P = A P − 1 2 + 1 + -1 mod P
37 9 17 19 22 35 36 syl221anc ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 + -1 mod P = A P − 1 2 + 1 + -1 mod P
38 9 recnd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 ∈ ℂ
39 negsub ⊢ A / L P + 1 ∈ ℂ ∧ 1 ∈ ℂ → A / L P + 1 + -1 = A / L P + 1 - 1
40 38 27 39 sylancl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 + -1 = A / L P + 1 - 1
41 pncan ⊢ A / L P ∈ ℂ ∧ 1 ∈ ℂ → A / L P + 1 - 1 = A / L P
42 29 27 41 sylancl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 - 1 = A / L P
43 40 42 eqtrd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 + -1 = A / L P
44 43 oveq1d ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P + 1 + -1 mod P = A / L P mod P
45 17 recnd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 ∈ ℂ
46 negsub ⊢ A P − 1 2 + 1 ∈ ℂ ∧ 1 ∈ ℂ → A P − 1 2 + 1 + -1 = A P − 1 2 + 1 - 1
47 45 27 46 sylancl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 + -1 = A P − 1 2 + 1 - 1
48 15 recnd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 ∈ ℂ
49 pncan ⊢ A P − 1 2 ∈ ℂ ∧ 1 ∈ ℂ → A P − 1 2 + 1 - 1 = A P − 1 2
50 48 27 49 sylancl ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 - 1 = A P − 1 2
51 47 50 eqtrd ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 + -1 = A P − 1 2
52 51 oveq1d ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A P − 1 2 + 1 + -1 mod P = A P − 1 2 mod P
53 37 44 52 3eqtr3d ⊢ A ∈ ℤ ∧ P ∈ ℙ ∖ 2 → A / L P mod P = A P − 1 2 mod P