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

Theorem 4sqlem13m 12726
Description: Lemma for 4sq 12733. (Contributed by Mario Carneiro, 16-Jul-2014.) (Revised by AV, 14-Sep-2020.)
Hypotheses
Ref Expression
4sqlem11.1 𝑆 = {𝑛 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℤ 𝑛 = (((𝑥↑2) + (𝑦↑2)) + ((𝑧↑2) + (𝑤↑2)))}
4sq.2 (𝜑𝑁 ∈ ℕ)
4sq.3 (𝜑𝑃 = ((2 · 𝑁) + 1))
4sq.4 (𝜑𝑃 ∈ ℙ)
4sq.5 (𝜑 → (0...(2 · 𝑁)) ⊆ 𝑆)
4sq.6 𝑇 = {𝑖 ∈ ℕ ∣ (𝑖 · 𝑃) ∈ 𝑆}
4sq.7 𝑀 = inf(𝑇, ℝ, < )
Assertion
Ref Expression
4sqlem13m (𝜑 → (∃𝑗 𝑗𝑇𝑀 < 𝑃))
Distinct variable groups:   𝑛,𝑁   𝑃,𝑖,𝑛,𝑤,𝑥,𝑦,𝑧   𝑆,𝑖,𝑛   𝑇,𝑗   𝜑,𝑖,𝑛
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑤,𝑗)   𝑃(𝑗)   𝑆(𝑥,𝑦,𝑧,𝑤,𝑗)   𝑇(𝑥,𝑦,𝑧,𝑤,𝑖,𝑛)   𝑀(𝑥,𝑦,𝑧,𝑤,𝑖,𝑗,𝑛)   𝑁(𝑥,𝑦,𝑧,𝑤,𝑖,𝑗)

Proof of Theorem 4sqlem13m
Dummy variables 𝑘 𝑢 𝑚 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 4sqlem11.1 . . 3 𝑆 = {𝑛 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℤ 𝑛 = (((𝑥↑2) + (𝑦↑2)) + ((𝑧↑2) + (𝑤↑2)))}
2 4sq.2 . . 3 (𝜑𝑁 ∈ ℕ)
3 4sq.3 . . 3 (𝜑𝑃 = ((2 · 𝑁) + 1))
4 4sq.4 . . 3 (𝜑𝑃 ∈ ℙ)
5 eqid 2205 . . 3 {𝑢 ∣ ∃𝑚 ∈ (0...𝑁)𝑢 = ((𝑚↑2) mod 𝑃)} = {𝑢 ∣ ∃𝑚 ∈ (0...𝑁)𝑢 = ((𝑚↑2) mod 𝑃)}
6 eqid 2205 . . 3 (𝑣 ∈ {𝑢 ∣ ∃𝑚 ∈ (0...𝑁)𝑢 = ((𝑚↑2) mod 𝑃)} ↦ ((𝑃 − 1) − 𝑣)) = (𝑣 ∈ {𝑢 ∣ ∃𝑚 ∈ (0...𝑁)𝑢 = ((𝑚↑2) mod 𝑃)} ↦ ((𝑃 − 1) − 𝑣))
71, 2, 3, 4, 5, 64sqlem12 12725 . 2 (𝜑 → ∃𝑘 ∈ (1...(𝑃 − 1))∃𝑢 ∈ ℤ[i] (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃))
8 simplrl 535 . . . . . . . 8 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑘 ∈ (1...(𝑃 − 1)))
9 elfznn 10176 . . . . . . . 8 (𝑘 ∈ (1...(𝑃 − 1)) → 𝑘 ∈ ℕ)
108, 9syl 14 . . . . . . 7 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑘 ∈ ℕ)
11 simpr 110 . . . . . . . 8 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃))
12 abs1 11383 . . . . . . . . . . . 12 (abs‘1) = 1
1312oveq1i 5954 . . . . . . . . . . 11 ((abs‘1)↑2) = (1↑2)
14 sq1 10778 . . . . . . . . . . 11 (1↑2) = 1
1513, 14eqtri 2226 . . . . . . . . . 10 ((abs‘1)↑2) = 1
1615oveq2i 5955 . . . . . . . . 9 (((abs‘𝑢)↑2) + ((abs‘1)↑2)) = (((abs‘𝑢)↑2) + 1)
17 simplrr 536 . . . . . . . . . 10 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑢 ∈ ℤ[i])
18 1z 9398 . . . . . . . . . . 11 1 ∈ ℤ
19 zgz 12696 . . . . . . . . . . 11 (1 ∈ ℤ → 1 ∈ ℤ[i])
2018, 19ax-mp 5 . . . . . . . . . 10 1 ∈ ℤ[i]
2114sqlem4a 12714 . . . . . . . . . 10 ((𝑢 ∈ ℤ[i] ∧ 1 ∈ ℤ[i]) → (((abs‘𝑢)↑2) + ((abs‘1)↑2)) ∈ 𝑆)
2217, 20, 21sylancl 413 . . . . . . . . 9 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → (((abs‘𝑢)↑2) + ((abs‘1)↑2)) ∈ 𝑆)
2316, 22eqeltrrid 2293 . . . . . . . 8 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → (((abs‘𝑢)↑2) + 1) ∈ 𝑆)
2411, 23eqeltrrd 2283 . . . . . . 7 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → (𝑘 · 𝑃) ∈ 𝑆)
25 oveq1 5951 . . . . . . . . 9 (𝑖 = 𝑘 → (𝑖 · 𝑃) = (𝑘 · 𝑃))
2625eleq1d 2274 . . . . . . . 8 (𝑖 = 𝑘 → ((𝑖 · 𝑃) ∈ 𝑆 ↔ (𝑘 · 𝑃) ∈ 𝑆))
27 4sq.6 . . . . . . . 8 𝑇 = {𝑖 ∈ ℕ ∣ (𝑖 · 𝑃) ∈ 𝑆}
2826, 27elrab2 2932 . . . . . . 7 (𝑘𝑇 ↔ (𝑘 ∈ ℕ ∧ (𝑘 · 𝑃) ∈ 𝑆))
2910, 24, 28sylanbrc 417 . . . . . 6 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑘𝑇)
30 elex2 2788 . . . . . 6 (𝑘𝑇 → ∃𝑗 𝑗𝑇)
3129, 30syl 14 . . . . 5 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → ∃𝑗 𝑗𝑇)
3227ssrab3 3279 . . . . . . . 8 𝑇 ⊆ ℕ
33 4sq.7 . . . . . . . . 9 𝑀 = inf(𝑇, ℝ, < )
34 1zzd 9399 . . . . . . . . . 10 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 1 ∈ ℤ)
35 nnuz 9684 . . . . . . . . . . . 12 ℕ = (ℤ‘1)
3635rabeqi 2765 . . . . . . . . . . 11 {𝑖 ∈ ℕ ∣ (𝑖 · 𝑃) ∈ 𝑆} = {𝑖 ∈ (ℤ‘1) ∣ (𝑖 · 𝑃) ∈ 𝑆}
3727, 36eqtri 2226 . . . . . . . . . 10 𝑇 = {𝑖 ∈ (ℤ‘1) ∣ (𝑖 · 𝑃) ∈ 𝑆}
38 elfznn 10176 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...𝑘) → 𝑖 ∈ ℕ)
3938adantl 277 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) ∧ 𝑖 ∈ (1...𝑘)) → 𝑖 ∈ ℕ)
40 prmnn 12432 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
414, 40syl 14 . . . . . . . . . . . . . 14 (𝜑𝑃 ∈ ℕ)
4241ad3antrrr 492 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) ∧ 𝑖 ∈ (1...𝑘)) → 𝑃 ∈ ℕ)
4339, 42nnmulcld 9085 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) ∧ 𝑖 ∈ (1...𝑘)) → (𝑖 · 𝑃) ∈ ℕ)
4443nnnn0d 9348 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) ∧ 𝑖 ∈ (1...𝑘)) → (𝑖 · 𝑃) ∈ ℕ0)
4514sqlemsdc 12723 . . . . . . . . . . 11 ((𝑖 · 𝑃) ∈ ℕ0DECID (𝑖 · 𝑃) ∈ 𝑆)
4644, 45syl 14 . . . . . . . . . 10 ((((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) ∧ 𝑖 ∈ (1...𝑘)) → DECID (𝑖 · 𝑃) ∈ 𝑆)
4734, 37, 29, 46infssuzcldc 10378 . . . . . . . . 9 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → inf(𝑇, ℝ, < ) ∈ 𝑇)
4833, 47eqeltrid 2292 . . . . . . . 8 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑀𝑇)
4932, 48sselid 3191 . . . . . . 7 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑀 ∈ ℕ)
5049nnred 9049 . . . . . 6 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑀 ∈ ℝ)
5110nnred 9049 . . . . . 6 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑘 ∈ ℝ)
5241nnred 9049 . . . . . . 7 (𝜑𝑃 ∈ ℝ)
5352ad2antrr 488 . . . . . 6 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑃 ∈ ℝ)
5434, 37, 29, 46infssuzledc 10377 . . . . . . 7 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → inf(𝑇, ℝ, < ) ≤ 𝑘)
5533, 54eqbrtrid 4079 . . . . . 6 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑀𝑘)
56 prmz 12433 . . . . . . . . . . 11 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
574, 56syl 14 . . . . . . . . . 10 (𝜑𝑃 ∈ ℤ)
5857ad2antrr 488 . . . . . . . . 9 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑃 ∈ ℤ)
59 elfzm11 10213 . . . . . . . . 9 ((1 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑘 ∈ (1...(𝑃 − 1)) ↔ (𝑘 ∈ ℤ ∧ 1 ≤ 𝑘𝑘 < 𝑃)))
6018, 58, 59sylancr 414 . . . . . . . 8 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → (𝑘 ∈ (1...(𝑃 − 1)) ↔ (𝑘 ∈ ℤ ∧ 1 ≤ 𝑘𝑘 < 𝑃)))
618, 60mpbid 147 . . . . . . 7 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → (𝑘 ∈ ℤ ∧ 1 ≤ 𝑘𝑘 < 𝑃))
6261simp3d 1014 . . . . . 6 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑘 < 𝑃)
6350, 51, 53, 55, 62lelttrd 8197 . . . . 5 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → 𝑀 < 𝑃)
6431, 63jca 306 . . . 4 (((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) ∧ (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃)) → (∃𝑗 𝑗𝑇𝑀 < 𝑃))
6564ex 115 . . 3 ((𝜑 ∧ (𝑘 ∈ (1...(𝑃 − 1)) ∧ 𝑢 ∈ ℤ[i])) → ((((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃) → (∃𝑗 𝑗𝑇𝑀 < 𝑃)))
6665rexlimdvva 2631 . 2 (𝜑 → (∃𝑘 ∈ (1...(𝑃 − 1))∃𝑢 ∈ ℤ[i] (((abs‘𝑢)↑2) + 1) = (𝑘 · 𝑃) → (∃𝑗 𝑗𝑇𝑀 < 𝑃)))
677, 66mpd 13 1 (𝜑 → (∃𝑗 𝑗𝑇𝑀 < 𝑃))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wb 105  DECID wdc 836  w3a 981   = wceq 1373  wex 1515  wcel 2176  {cab 2191  wrex 2485  {crab 2488  wss 3166   class class class wbr 4044  cmpt 4105  cfv 5271  (class class class)co 5944  infcinf 7085  cr 7924  0cc0 7925  1c1 7926   + caddc 7928   · cmul 7930   < clt 8107  cle 8108  cmin 8243  cn 9036  2c2 9087  0cn0 9295  cz 9372  cuz 9648  ...cfz 10130   mod cmo 10467  cexp 10683  abscabs 11308  cprime 12429  ℤ[i]cgz 12692
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 615  ax-in2 616  ax-io 711  ax-5 1470  ax-7 1471  ax-gen 1472  ax-ie1 1516  ax-ie2 1517  ax-8 1527  ax-10 1528  ax-11 1529  ax-i12 1530  ax-bndl 1532  ax-4 1533  ax-17 1549  ax-i9 1553  ax-ial 1557  ax-i5r 1558  ax-13 2178  ax-14 2179  ax-ext 2187  ax-coll 4159  ax-sep 4162  ax-nul 4170  ax-pow 4218  ax-pr 4253  ax-un 4480  ax-setind 4585  ax-iinf 4636  ax-cnex 8016  ax-resscn 8017  ax-1cn 8018  ax-1re 8019  ax-icn 8020  ax-addcl 8021  ax-addrcl 8022  ax-mulcl 8023  ax-mulrcl 8024  ax-addcom 8025  ax-mulcom 8026  ax-addass 8027  ax-mulass 8028  ax-distr 8029  ax-i2m1 8030  ax-0lt1 8031  ax-1rid 8032  ax-0id 8033  ax-rnegex 8034  ax-precex 8035  ax-cnre 8036  ax-pre-ltirr 8037  ax-pre-ltwlin 8038  ax-pre-lttrn 8039  ax-pre-apti 8040  ax-pre-ltadd 8041  ax-pre-mulgt0 8042  ax-pre-mulext 8043  ax-arch 8044  ax-caucvg 8045
This theorem depends on definitions:  df-bi 117  df-stab 833  df-dc 837  df-3or 982  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1484  df-sb 1786  df-eu 2057  df-mo 2058  df-clab 2192  df-cleq 2198  df-clel 2201  df-nfc 2337  df-ne 2377  df-nel 2472  df-ral 2489  df-rex 2490  df-reu 2491  df-rmo 2492  df-rab 2493  df-v 2774  df-sbc 2999  df-csb 3094  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-nul 3461  df-if 3572  df-pw 3618  df-sn 3639  df-pr 3640  df-op 3642  df-uni 3851  df-int 3886  df-iun 3929  df-br 4045  df-opab 4106  df-mpt 4107  df-tr 4143  df-id 4340  df-po 4343  df-iso 4344  df-iord 4413  df-on 4415  df-ilim 4416  df-suc 4418  df-iom 4639  df-xp 4681  df-rel 4682  df-cnv 4683  df-co 4684  df-dm 4685  df-rn 4686  df-res 4687  df-ima 4688  df-iota 5232  df-fun 5273  df-fn 5274  df-f 5275  df-f1 5276  df-fo 5277  df-f1o 5278  df-fv 5279  df-isom 5280  df-riota 5899  df-ov 5947  df-oprab 5948  df-mpo 5949  df-1st 6226  df-2nd 6227  df-recs 6391  df-irdg 6456  df-frec 6477  df-1o 6502  df-2o 6503  df-oadd 6506  df-er 6620  df-en 6828  df-dom 6829  df-fin 6830  df-sup 7086  df-inf 7087  df-pnf 8109  df-mnf 8110  df-xr 8111  df-ltxr 8112  df-le 8113  df-sub 8245  df-neg 8246  df-reap 8648  df-ap 8655  df-div 8746  df-inn 9037  df-2 9095  df-3 9096  df-4 9097  df-n0 9296  df-z 9373  df-uz 9649  df-q 9741  df-rp 9776  df-fz 10131  df-fzo 10265  df-fl 10413  df-mod 10468  df-seqfrec 10593  df-exp 10684  df-ihash 10921  df-cj 11153  df-re 11154  df-im 11155  df-rsqrt 11309  df-abs 11310  df-dvds 12099  df-gcd 12275  df-prm 12430  df-gz 12693
This theorem is referenced by:  4sqlem14  12727  4sqlem17  12730  4sqlem18  12731
  Copyright terms: Public domain W3C validator