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

Theorem 2lgs 15964
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 15877) 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 12816 . 2 (𝑃 ∈ ℙ → (𝑃 = 2 ∨ ¬ 2 ∥ 𝑃))
2 2lgslem4 15963 . . . . . 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 6057 . . . . . 6 (𝑃 = 2 → (2 /L 𝑃) = (2 /L 2))
54eqeq1d 2241 . . . . 5 (𝑃 = 2 → ((2 /L 𝑃) = 1 ↔ (2 /L 2) = 1))
6 oveq1 6056 . . . . . 6 (𝑃 = 2 → (𝑃 mod 8) = (2 mod 8))
76eleq1d 2301 . . . . 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 12817 . . . . . . . . . 10 2 ∈ ℙ
11 prmnn 12800 . . . . . . . . . 10 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
12 dvdsprime 12812 . . . . . . . . . 10 ((2 ∈ ℙ ∧ 𝑃 ∈ ℕ) → (𝑃 ∥ 2 ↔ (𝑃 = 2 ∨ 𝑃 = 1)))
1310, 11, 12sylancr 414 . . . . . . . . 9 (𝑃 ∈ ℙ → (𝑃 ∥ 2 ↔ (𝑃 = 2 ∨ 𝑃 = 1)))
14 z2even 12593 . . . . . . . . . . . . 13 2 ∥ 2
15 breq2 4112 . . . . . . . . . . . . 13 (𝑃 = 2 → (2 ∥ 𝑃 ↔ 2 ∥ 2))
1614, 15mpbiri 168 . . . . . . . . . . . 12 (𝑃 = 2 → 2 ∥ 𝑃)
1716a1d 22 . . . . . . . . . . 11 (𝑃 = 2 → (𝑃 ∈ ℙ → 2 ∥ 𝑃))
18 eleq1 2295 . . . . . . . . . . . 12 (𝑃 = 1 → (𝑃 ∈ ℙ ↔ 1 ∈ ℙ))
19 1nprm 12804 . . . . . . . . . . . . 13 ¬ 1 ∈ ℙ
2019pm2.21i 651 . . . . . . . . . . . 12 (1 ∈ ℙ → 2 ∥ 𝑃)
2118, 20biimtrdi 163 . . . . . . . . . . 11 (𝑃 = 1 → (𝑃 ∈ ℙ → 2 ∥ 𝑃))
2217, 21jaoi 724 . . . . . . . . . 10 ((𝑃 = 2 ∨ 𝑃 = 1) → (𝑃 ∈ ℙ → 2 ∥ 𝑃))
2322com12 30 . . . . . . . . 9 (𝑃 ∈ ℙ → ((𝑃 = 2 ∨ 𝑃 = 1) → 2 ∥ 𝑃))
2413, 23sylbid 150 . . . . . . . 8 (𝑃 ∈ ℙ → (𝑃 ∥ 2 → 2 ∥ 𝑃))
2524con3dimp 640 . . . . . . 7 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → ¬ 𝑃 ∥ 2)
26 2z 9601 . . . . . . 7 2 ∈ ℤ
2725, 26jctil 312 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2))
28 2lgslem1 15951 . . . . . . 7 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))}) = (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))))
2928eqcomd 2238 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))}))
30 nnoddn2prmb 12953 . . . . . . . . . 10 (𝑃 ∈ (ℙ ∖ {2}) ↔ (𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃))
3130biimpri 133 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → 𝑃 ∈ (ℙ ∖ {2}))
32313ad2ant1 1045 . . . . . . . 8 (((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) ∧ (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2) ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))})) → 𝑃 ∈ (ℙ ∖ {2}))
33 eqid 2232 . . . . . . . 8 ((𝑃 − 1) / 2) = ((𝑃 − 1) / 2)
34 eqid 2232 . . . . . . . 8 (𝑦 ∈ (1...((𝑃 − 1) / 2)) ↦ if((𝑦 · 2) < (𝑃 / 2), (𝑦 · 2), (𝑃 − (𝑦 · 2)))) = (𝑦 ∈ (1...((𝑃 − 1) / 2)) ↦ if((𝑦 · 2) < (𝑃 / 2), (𝑦 · 2), (𝑃 − (𝑦 · 2))))
35 eqid 2232 . . . . . . . 8 (⌊‘(𝑃 / 4)) = (⌊‘(𝑃 / 4))
36 eqid 2232 . . . . . . . 8 (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))
3732, 33, 34, 35, 36gausslemma2d 15929 . . . . . . 7 (((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) ∧ (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2) ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))})) → (2 /L 𝑃) = (-1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))))
3837eqeq1d 2241 . . . . . 6 (((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) ∧ (2 ∈ ℤ ∧ ¬ 𝑃 ∥ 2) ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) = (♯‘{𝑥 ∈ ℤ ∣ ∃𝑖 ∈ (1...((𝑃 − 1) / 2))(𝑥 = (𝑖 · 2) ∧ (𝑃 / 2) < (𝑥 mod 𝑃))})) → ((2 /L 𝑃) = 1 ↔ (-1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))) = 1))
3927, 29, 38mpd3an23 1376 . . . . 5 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → ((2 /L 𝑃) = 1 ↔ (-1↑(((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4)))) = 1))
40362lgslem2 15952 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ∈ ℤ)
41 m1exp1 12580 . . . . . 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 9395 . . . . . . 7 2 ∈ ℕ
44 dvdsval3 12470 . . . . . . 7 ((2 ∈ ℕ ∧ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ∈ ℤ) → (2 ∥ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ↔ ((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = 0))
4543, 40, 44sylancr 414 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (2 ∥ (((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) ↔ ((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = 0))
46362lgslem3 15961 . . . . . . . 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 2241 . . . . . 6 ((𝑃 ∈ ℙ ∧ ¬ 2 ∥ 𝑃) → (((((𝑃 − 1) / 2) − (⌊‘(𝑃 / 4))) mod 2) = 0 ↔ if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0))
49 prmz 12801 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
50 8nn 9401 . . . . . . . . . . . . . . . 16 8 ∈ ℕ
5150a1i 9 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 8 ∈ ℕ)
5249, 51zmodcld 10703 . . . . . . . . . . . . . 14 (𝑃 ∈ ℙ → (𝑃 mod 8) ∈ ℕ0)
5352nn0zd 9694 . . . . . . . . . . . . 13 (𝑃 ∈ ℙ → (𝑃 mod 8) ∈ ℤ)
54 1z 9599 . . . . . . . . . . . . 13 1 ∈ ℤ
55 zdceq 9649 . . . . . . . . . . . . 13 (((𝑃 mod 8) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑃 mod 8) = 1)
5653, 54, 55sylancl 413 . . . . . . . . . . . 12 (𝑃 ∈ ℙ → DECID (𝑃 mod 8) = 1)
57 7nn 9400 . . . . . . . . . . . . . 14 7 ∈ ℕ
5857nnzi 9594 . . . . . . . . . . . . 13 7 ∈ ℤ
59 zdceq 9649 . . . . . . . . . . . . 13 (((𝑃 mod 8) ∈ ℤ ∧ 7 ∈ ℤ) → DECID (𝑃 mod 8) = 7)
6053, 58, 59sylancl 413 . . . . . . . . . . . 12 (𝑃 ∈ ℙ → DECID (𝑃 mod 8) = 7)
61 dcor 944 . . . . . . . . . . . 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 3708 . . . . . . . . . . . . 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 846 . . . . . . . . . . 11 (𝑃 ∈ ℙ → (DECID (𝑃 mod 8) ∈ {1, 7} ↔ DECID ((𝑃 mod 8) = 1 ∨ (𝑃 mod 8) = 7)))
6662, 65mpbird 167 . . . . . . . . . 10 (𝑃 ∈ ℙ → DECID (𝑃 mod 8) ∈ {1, 7})
67 exmiddc 844 . . . . . . . . . 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 3629 . . . . . . . . . . . 12 (¬ (𝑃 mod 8) ∈ {1, 7} → if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 1)
7069eqeq1d 2241 . . . . . . . . . . 11 (¬ (𝑃 mod 8) ∈ {1, 7} → (if((𝑃 mod 8) ∈ {1, 7}, 0, 1) = 0 ↔ 1 = 0))
71 1ne0 9301 . . . . . . . . . . . 12 1 ≠ 0
72 eqneqall 2422 . . . . . . . . . . . 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 804 . . . . . . . . 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 3626 . . . . . . . 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 724 . 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
Syntax hints:  ¬ wn 3  wi 4  wa 104  wb 105  wo 716  DECID wdc 842  w3a 1005   = wceq 1398  wcel 2203  wne 2412  wrex 2521  {crab 2524  cdif 3207  ifcif 3619  {csn 3688  {cpr 3689   class class class wbr 4108  cmpt 4170  cfv 5351  (class class class)co 6049  0cc0 8123  1c1 8124   · cmul 8128   < clt 8304  cmin 8440  -cneg 8441   / cdiv 8942  cn 9233  2c2 9284  4c4 9286  7c7 9289  8c8 9290  0cn0 9492  cz 9573  ...cfz 10338  cfl 10624   mod cmo 10680  cexp 10896  chash 11133  cdvds 12466  cprime 12797   /L clgs 15857
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 8214  ax-resscn 8215  ax-1cn 8216  ax-1re 8217  ax-icn 8218  ax-addcl 8219  ax-addrcl 8220  ax-mulcl 8221  ax-mulrcl 8222  ax-addcom 8223  ax-mulcom 8224  ax-addass 8225  ax-mulass 8226  ax-distr 8227  ax-i2m1 8228  ax-0lt1 8229  ax-1rid 8230  ax-0id 8231  ax-rnegex 8232  ax-precex 8233  ax-cnre 8234  ax-pre-ltirr 8235  ax-pre-ltwlin 8236  ax-pre-lttrn 8237  ax-pre-apti 8238  ax-pre-ltadd 8239  ax-pre-mulgt0 8240  ax-pre-mulext 8241  ax-arch 8242  ax-caucvg 8243
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-tp 3696  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 8306  df-mnf 8307  df-xr 8308  df-ltxr 8309  df-le 8310  df-sub 8442  df-neg 8443  df-reap 8845  df-ap 8852  df-div 8943  df-inn 9234  df-2 9292  df-3 9293  df-4 9294  df-5 9295  df-6 9296  df-7 9297  df-8 9298  df-n0 9493  df-z 9574  df-uz 9850  df-q 9948  df-rp 9983  df-ioo 10221  df-ico 10223  df-fz 10339  df-fzo 10473  df-fl 10626  df-mod 10681  df-seqfrec 10806  df-exp 10897  df-fac 11084  df-ihash 11134  df-cj 11520  df-re 11521  df-im 11522  df-rsqrt 11676  df-abs 11677  df-clim 11957  df-proddc 12230  df-dvds 12467  df-gcd 12643  df-prm 12798  df-phi 12901  df-pc 12976  df-lgs 15858
This theorem is referenced by:  2lgsoddprm  15973
  Copyright terms: Public domain W3C validator