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

Theorem 2lgs 16440
Description: The second supplement to the law of quadratic reciprocity (for the Legendre symbol extended to arbitrary primes as second argument). Two is a square modulo a prime 𝑃 iff 𝑃≡±1 (mod 8), see first case of theorem 9.5 in [ApostolNT] p. 181. This theorem justifies our definition of (𝑁 /L 2) (lgs2 16353) to some degree, by demanding that reciprocity extend to the case 𝑄 = 2. (Proposed by Mario Carneiro, 19-Jun-2015.) (Contributed by AV, 16-Jul-2021.)
Assertion
Ref Expression
2lgs (𝑃 ∈ ℙ → ((2 /L 𝑃) = 1 ↔ (𝑃 mod 8) ∈ {1, 7}))

Proof of Theorem 2lgs
Dummy variables 𝑖 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prm2orodd 12930 . 2 (𝑃 ∈ ℙ → (𝑃 = 2 ∨ ¬ 2 ∥ 𝑃))
2 2lgslem4 16439 . . . . . 6 ((2 /L 2) = 1 ↔ (2 mod 8) ∈ {1, 7})
32a1i 9 . . . . 5 (𝑃 = 2 → ((2 /L 2) = 1 ↔ (2 mod 8) ∈ {1, 7}))
4 oveq2 6096 . . . . . 6 (𝑃 = 2 → (2 /L 𝑃) = (2 /L 2))
54eqeq1d 2247 . . . . 5 (𝑃 = 2 → ((2 /L 𝑃) = 1 ↔ (2 /L 2) = 1))
6 oveq1 6095 . . . . . 6 (𝑃 = 2 → (𝑃 mod 8) = (2 mod 8))
76eleq1d 2307 . . . . 5 (𝑃 = 2 → ((𝑃 mod 8) ∈ {1, 7} ↔ (2 mod 8) ∈ {1, 7}))
83, 5, 73bitr4d 220 . . . 4 (𝑃 = 2 → ((2 /L 𝑃) = 1 ↔ (𝑃 mod 8) ∈ {1, 7}))
98a1d 22 . . 3 (𝑃 = 2 → (𝑃 ∈ ℙ → ((2 /L 𝑃) = 1 ↔ (𝑃 mod 8) ∈ {1, 7})))
10 2prm 12931 . . . . . . . . . 10 2 ∈ ℙ
11 prmnn 12914 . . . . . . . . . 10 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
12 dvdsprime 12926 . . . . . . . . . 10 ((2 ∈ ℙ ∧ 𝑃 ∈ ℕ) → (𝑃 ∥ 2 ↔ (𝑃 = 2 ∨ 𝑃 = 1)))
1310, 11, 12sylancr 418 . . . . . . . . 9 (𝑃 ∈ ℙ → (𝑃 ∥ 2 ↔ (𝑃 = 2 ∨ 𝑃 = 1)))
14 z2even 12707 . . . . . . . . . . . . 13 2 ∥ 2
15 breq2 4135 . . . . . . . . . . . . 13 (𝑃 = 2 → (2 ∥ 𝑃 ↔ 2 ∥ 2))
1614, 15mpbiri 168 . . . . . . . . . . . 12 (𝑃 = 2 → 2 ∥ 𝑃)
1716a1d 22 . . . . . . . . . . 11 (𝑃 = 2 → (𝑃 ∈ ℙ → 2 ∥ 𝑃))
18 eleq1 2301 . . . . . . . . . . . 12 (𝑃 = 1 → (𝑃 ∈ ℙ ↔ 1 ∈ ℙ))
19 1nprm 12918 . . . . . . . . . . . . 13 ¬ 1 ∈ ℙ
2019pm2.21i 655 . . . . . . . . . . . 12 (1 ∈ ℙ → 2 ∥ 𝑃)
2118, 20biimtrdi 163 . . . . . . . . . . 11 (𝑃 = 1 → (𝑃 ∈ ℙ → 2 ∥ 𝑃))
2217, 21jaoi 728 . . . . . . . . . 10 ((𝑃 = 2 ∨ 𝑃 = 1) → (𝑃 ∈ ℙ → 2 ∥ 𝑃))
2322com12 30 . . . . . . . . 9 (𝑃 ∈ ℙ → ((𝑃 = 2 ∨ 𝑃 = 1) → 2 ∥ 𝑃))
2413, 23sylbid 150 . . . . . . . 8 (𝑃 ∈ ℙ → (𝑃 ∥ 2 → 2 ∥ 𝑃))
2524con3dimp 644 . . . . . . 7 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → ¬ 𝑃 ∥ 2)
26 2z 9684 . . . . . . 7 2 ∈ ℤ
2725, 26jctil 312 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2))
28 2lgslem1 16427 . . . . . . 7 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))}) = (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))))
2928eqcomd 2244 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))}))
30 nnoddn2prmb 13071 . . . . . . . . . 10 (𝑃 ∈ (ℙ ∖ {2}) ↔ (𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃))
3130biimpri 133 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → 𝑃 ∈ (ℙ ∖ {2}))
32313ad2ant1 1049 . . . . . . . 8 (((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) ∧ (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2) ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))})) → 𝑃 ∈ (ℙ ∖ {2}))
33 eqid 2238 . . . . . . . 8 ((𝑃 − 1) / 2) = ((𝑃 − 1) / 2)
34 eqid 2238 . . . . . . . 8 (𝑦 ∈ (1...((𝑃 − 1) / 2)) ↦ if((𝑦 · 2) < (𝑃 / 2), (𝑦 · 2), (𝑃 − (𝑦 · 2)))) = (𝑦 ∈ (1...((𝑃 − 1) / 2)) ↦ if((𝑦 · 2) < (𝑃 / 2), (𝑦 · 2), (𝑃 − (𝑦 · 2))))
35 eqid 2238 . . . . . . . 8 (⌊‘(𝑃 / 4)) = (⌊‘(𝑃 / 4))
36 eqid 2238 . . . . . . . 8 (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))
3732, 33, 34, 35, 36gausslemma2d 16405 . . . . . . 7 (((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) ∧ (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2) ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))})) → (2 /L 𝑃) = ( -1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))))
3837eqeq1d 2247 . . . . . 6 (((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) ∧ (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2) ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))})) → ((2 /L 𝑃) = 1 ↔ ( -1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))) = 1))
3927, 29, 38mpd3an23 1380 . . . . 5 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → ((2 /L 𝑃) = 1 ↔ ( -1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))) = 1))
40362lgslem2 16428 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ∈ ℤ)
41 m1exp1 12694 . . . . . 6 ((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ∈ ℤ → (( -1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))) = 1 ↔ 2 ∥ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))))
4240, 41syl 14 . . . . 5 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (( -1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))) = 1 ↔ 2 ∥ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))))
43 2nn 9478 . . . . . . 7 2 ∈ ℕ
44 dvdsval3 12584 . . . . . . 7 ((2 ∈ ℕ ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ∈ ℤ) → (2 ∥ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ↔ ((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = 0))
4543, 40, 44sylancr 418 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (2 ∥ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ↔ ((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = 0))
46362lgslem3 16437 . . . . . . . 8 ((𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → ((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = if((𝑃 mod 8) ∈ {1, 7}, 0, 1))
4711, 46sylan 283 . . . . . . 7 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → ((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = if((𝑃 mod 8) ∈ {1, 7}, 0, 1))
4847eqeq1d 2247 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = 0 ↔ if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0))
49 prmz 12915 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
50 8nn 9484 . . . . . . . . . . . . . . . 16 8 ∈ ℕ
5150a1i 9 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 8 ∈ ℕ)
5249, 51zmodcld 10804 . . . . . . . . . . . . . 14 (𝑃 ∈ ℙ → (𝑃 mod 8) ∈ ℕ0)
5352nn0zd 9778 . . . . . . . . . . . . 13 (𝑃 ∈ ℙ → (𝑃 mod 8) ∈ ℤ)
54 1z 9682 . . . . . . . . . . . . 13 1 ∈ ℤ
55 zdceq 9732 . . . . . . . . . . . . 13 (((𝑃 mod 8) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑃 mod 8) = 1)
5653, 54, 55sylancl 417 . . . . . . . . . . . 12 (𝑃 ∈ ℙ → DECID (𝑃 mod 8) = 1)
57 7nn 9483 . . . . . . . . . . . . . 14 7 ∈ ℕ
5857nnzi 9677 . . . . . . . . . . . . 13 7 ∈ ℤ
59 zdceq 9732 . . . . . . . . . . . . 13 (((𝑃 mod 8) ∈ ℤ ∧ 7 ∈ ℤ) → DECID (𝑃 mod 8) = 7)
6053, 58, 59sylancl 417 . . . . . . . . . . . 12 (𝑃 ∈ ℙ → DECID (𝑃 mod 8) = 7)
61 dcor 948 . . . . . . . . . . . 12 (DECID (𝑃 mod 8) = 1 → (DECID (𝑃 mod 8) = 7 → DECID ((𝑃 mod 8) = 1 ∨ (𝑃 mod 8) = 7)))
6256, 60, 61sylc 62 . . . . . . . . . . 11 (𝑃 ∈ ℙ → DECID ((𝑃 mod 8) = 1 ∨ (𝑃 mod 8) = 7))
63 elprg 3729 . . . . . . . . . . . . 13 ((𝑃 mod 8) ∈ ℕ0 → ((𝑃 mod 8) ∈ {1, 7} ↔ ((𝑃 mod 8) = 1 ∨ (𝑃 mod 8) = 7)))
6452, 63syl 14 . . . . . . . . . . . 12 (𝑃 ∈ ℙ → ((𝑃 mod 8) ∈ {1, 7} ↔ ((𝑃 mod 8) = 1 ∨ (𝑃 mod 8) = 7)))
6564dcbid 850 . . . . . . . . . . 11 (𝑃 ∈ ℙ → (DECID (𝑃 mod 8) ∈ {1, 7} ↔ DECID ((𝑃 mod 8) = 1 ∨ (𝑃 mod 8) = 7)))
6662, 65mpbird 167 . . . . . . . . . 10 (𝑃 ∈ ℙ → DECID (𝑃 mod 8) ∈ {1, 7})
67 exmiddc 848 . . . . . . . . . 10 (DECID (𝑃 mod 8) ∈ {1, 7} → ((𝑃 mod 8) ∈ {1, 7} ∨ ¬ (𝑃 mod 8) ∈ {1, 7}))
6866, 67syl 14 . . . . . . . . 9 (𝑃 ∈ ℙ → ((𝑃 mod 8) ∈ {1, 7} ∨ ¬ (𝑃 mod 8) ∈ {1, 7}))
69 iffalse 3648 . . . . . . . . . . . 12 (¬ (𝑃 mod 8) ∈ {1, 7} → if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 1)
7069eqeq1d 2247 . . . . . . . . . . 11 (¬ (𝑃 mod 8) ∈ {1, 7} → (if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0 ↔ 1 = 0))
71 1ne0 9382 . . . . . . . . . . . 12 1 ≠ 0
72 eqneqall 2430 . . . . . . . . . . . 12 (1 = 0 → (1 ≠ 0 → (𝑃 mod 8) ∈ {1, 7}))
7371, 72mpi 15 . . . . . . . . . . 11 (1 = 0 → (𝑃 mod 8) ∈ {1, 7})
7470, 73biimtrdi 163 . . . . . . . . . 10 (¬ (𝑃 mod 8) ∈ {1, 7} → (if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0 → (𝑃 mod 8) ∈ {1, 7}))
7574jao1i 808 . . . . . . . . 9 (((𝑃 mod 8) ∈ {1, 7} ∨ ¬ (𝑃 mod 8) ∈ {1, 7}) → (if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0 → (𝑃 mod 8) ∈ {1, 7}))
7668, 75syl 14 . . . . . . . 8 (𝑃 ∈ ℙ → (if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0 → (𝑃 mod 8) ∈ {1, 7}))
77 iftrue 3645 . . . . . . . 8 ((𝑃 mod 8) ∈ {1, 7} → if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0)
7876, 77impbid1 142 . . . . . . 7 (𝑃 ∈ ℙ → (if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0 ↔ (𝑃 mod 8) ∈ {1, 7}))
7978adantr 276 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0 ↔ (𝑃 mod 8) ∈ {1, 7}))
8045, 48, 793bitrd 214 . . . . 5 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (2 ∥ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ↔ (𝑃 mod 8) ∈ {1, 7}))
8139, 42, 803bitrd 214 . . . 4 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → ((2 /L 𝑃) = 1 ↔ (𝑃 mod 8) ∈ {1, 7}))
8281expcom 116 . . 3 (¬ 2 ∥ 𝑃 → (𝑃 ∈ ℙ → ((2 /L 𝑃) = 1 ↔ (𝑃 mod 8) ∈ {1, 7})))
839, 82jaoi 728 . 2 ((𝑃 = 2 ∨ ¬ 2 ∥ 𝑃) → (𝑃 ∈ ℙ → ((2 /L 𝑃) = 1 ↔ (𝑃 mod 8) ∈ {1, 7})))
841, 83mpcom 36 1 (𝑃 ∈ ℙ → ((2 /L 𝑃) = 1 ↔ (𝑃 mod 8) ∈ {1, 7}))
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  ∃wrex 2529  {crab 2532   ∖ cdif 3217  ifcif 3638  {csn 3709  {cpr 3710   class class class wbr 4131   ↦ cmpt 4193  ‘cfv 5380  (class class class)co 6088  0cc0 8186  1c1 8187   · cmul 8191   < clt 8367   − cmin 8505   -cneg 8506   / cdiv 9011  ℕcn 9314  2c2 9365  4c4 9367  7c7 9370  8c8 9371  ℕ0cn0 9575  ℤcz 9656  ...cfz 10429  ⌊cfl 10721   mod cmo 10781  ↑cexp 10997  ♯chash 11237   ∥ cdvds 12580  ℙcprime 12911   /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-tp 3717  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-ioo 10312  df-ico 10314  df-fz 10430  df-fzo 10568  df-fl 10723  df-mod 10782  df-seqfrec 10907  df-exp 10998  df-fac 11187  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:  2lgsoddprm  16449
  Copyright terms: Public domain W3C validator