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

Theorem phicl2 11817
Description: Bounds and closure for the value of the Euler ϕ function. (Contributed by Mario Carneiro, 23-Feb-2014.)
Assertion
Ref Expression
phicl2 (𝑁 ∈ ℕ → (ϕ‘𝑁) ∈ (1...𝑁))

Proof of Theorem phicl2
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 phival 11816 . 2 (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
2 phivalfi 11815 . . . . 5 (𝑁 ∈ ℕ → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∈ Fin)
3 hashcl 10495 . . . . 5 ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∈ Fin → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ ℕ0)
42, 3syl 14 . . . 4 (𝑁 ∈ ℕ → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ ℕ0)
54nn0zd 9139 . . 3 (𝑁 ∈ ℕ → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ ℤ)
6 1z 9048 . . . . 5 1 ∈ ℤ
7 hashsng 10512 . . . . 5 (1 ∈ ℤ → (♯‘{1}) = 1)
86, 7ax-mp 5 . . . 4 (♯‘{1}) = 1
9 eluzfz1 9779 . . . . . . . . 9 (𝑁 ∈ (ℤ‘1) → 1 ∈ (1...𝑁))
10 nnuz 9329 . . . . . . . . 9 ℕ = (ℤ‘1)
119, 10eleq2s 2212 . . . . . . . 8 (𝑁 ∈ ℕ → 1 ∈ (1...𝑁))
12 nnz 9041 . . . . . . . . 9 (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
13 1gcd 11607 . . . . . . . . 9 (𝑁 ∈ ℤ → (1 gcd 𝑁) = 1)
1412, 13syl 14 . . . . . . . 8 (𝑁 ∈ ℕ → (1 gcd 𝑁) = 1)
15 oveq1 5749 . . . . . . . . . 10 (𝑥 = 1 → (𝑥 gcd 𝑁) = (1 gcd 𝑁))
1615eqeq1d 2126 . . . . . . . . 9 (𝑥 = 1 → ((𝑥 gcd 𝑁) = 1 ↔ (1 gcd 𝑁) = 1))
1716elrab 2813 . . . . . . . 8 (1 ∈ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ↔ (1 ∈ (1...𝑁) ∧ (1 gcd 𝑁) = 1))
1811, 14, 17sylanbrc 413 . . . . . . 7 (𝑁 ∈ ℕ → 1 ∈ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1})
1918snssd 3635 . . . . . 6 (𝑁 ∈ ℕ → {1} ⊆ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1})
20 ssdomg 6640 . . . . . 6 ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∈ Fin → ({1} ⊆ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} → {1} ≼ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
212, 19, 20sylc 62 . . . . 5 (𝑁 ∈ ℕ → {1} ≼ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1})
22 1nn 8699 . . . . . . 7 1 ∈ ℕ
23 snfig 6676 . . . . . . 7 (1 ∈ ℕ → {1} ∈ Fin)
2422, 23ax-mp 5 . . . . . 6 {1} ∈ Fin
25 fihashdom 10517 . . . . . 6 (({1} ∈ Fin ∧ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∈ Fin) → ((♯‘{1}) ≤ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ↔ {1} ≼ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
2624, 2, 25sylancr 410 . . . . 5 (𝑁 ∈ ℕ → ((♯‘{1}) ≤ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ↔ {1} ≼ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
2721, 26mpbird 166 . . . 4 (𝑁 ∈ ℕ → (♯‘{1}) ≤ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
288, 27eqbrtrrid 3934 . . 3 (𝑁 ∈ ℕ → 1 ≤ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
29 1zzd 9049 . . . . . . 7 (𝑁 ∈ ℕ → 1 ∈ ℤ)
3029, 12fzfigd 10172 . . . . . 6 (𝑁 ∈ ℕ → (1...𝑁) ∈ Fin)
31 ssrab2 3152 . . . . . 6 {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1...𝑁)
32 ssdomg 6640 . . . . . 6 ((1...𝑁) ∈ Fin → ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1...𝑁) → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ≼ (1...𝑁)))
3330, 31, 32mpisyl 1407 . . . . 5 (𝑁 ∈ ℕ → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ≼ (1...𝑁))
34 fihashdom 10517 . . . . . 6 (({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∈ Fin ∧ (1...𝑁) ∈ Fin) → ((♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ≤ (♯‘(1...𝑁)) ↔ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ≼ (1...𝑁)))
352, 30, 34syl2anc 408 . . . . 5 (𝑁 ∈ ℕ → ((♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ≤ (♯‘(1...𝑁)) ↔ {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ≼ (1...𝑁)))
3633, 35mpbird 166 . . . 4 (𝑁 ∈ ℕ → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ≤ (♯‘(1...𝑁)))
37 nnnn0 8952 . . . . 5 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
38 hashfz1 10497 . . . . 5 (𝑁 ∈ ℕ0 → (♯‘(1...𝑁)) = 𝑁)
3937, 38syl 14 . . . 4 (𝑁 ∈ ℕ → (♯‘(1...𝑁)) = 𝑁)
4036, 39breqtrd 3924 . . 3 (𝑁 ∈ ℕ → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ≤ 𝑁)
41 elfz1 9763 . . . 4 ((1 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ (1...𝑁) ↔ ((♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ ℤ ∧ 1 ≤ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∧ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ≤ 𝑁)))
426, 12, 41sylancr 410 . . 3 (𝑁 ∈ ℕ → ((♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ (1...𝑁) ↔ ((♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ ℤ ∧ 1 ≤ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∧ (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ≤ 𝑁)))
435, 28, 40, 42mpbir3and 1149 . 2 (𝑁 ∈ ℕ → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) ∈ (1...𝑁))
441, 43eqeltrd 2194 1 (𝑁 ∈ ℕ → (ϕ‘𝑁) ∈ (1...𝑁))
Colors of variables: wff set class
Syntax hints:  wi 4  wb 104  w3a 947   = wceq 1316  wcel 1465  {crab 2397  wss 3041  {csn 3497   class class class wbr 3899  cfv 5093  (class class class)co 5742  cdom 6601  Fincfn 6602  1c1 7589  cle 7769  cn 8688  0cn0 8945  cz 9022  cuz 9294  ...cfz 9758  chash 10489   gcd cgcd 11562  ϕcphi 11813
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 588  ax-in2 589  ax-io 683  ax-5 1408  ax-7 1409  ax-gen 1410  ax-ie1 1454  ax-ie2 1455  ax-8 1467  ax-10 1468  ax-11 1469  ax-i12 1470  ax-bndl 1471  ax-4 1472  ax-13 1476  ax-14 1477  ax-17 1491  ax-i9 1495  ax-ial 1499  ax-i5r 1500  ax-ext 2099  ax-coll 4013  ax-sep 4016  ax-nul 4024  ax-pow 4068  ax-pr 4101  ax-un 4325  ax-setind 4422  ax-iinf 4472  ax-cnex 7679  ax-resscn 7680  ax-1cn 7681  ax-1re 7682  ax-icn 7683  ax-addcl 7684  ax-addrcl 7685  ax-mulcl 7686  ax-mulrcl 7687  ax-addcom 7688  ax-mulcom 7689  ax-addass 7690  ax-mulass 7691  ax-distr 7692  ax-i2m1 7693  ax-0lt1 7694  ax-1rid 7695  ax-0id 7696  ax-rnegex 7697  ax-precex 7698  ax-cnre 7699  ax-pre-ltirr 7700  ax-pre-ltwlin 7701  ax-pre-lttrn 7702  ax-pre-apti 7703  ax-pre-ltadd 7704  ax-pre-mulgt0 7705  ax-pre-mulext 7706  ax-arch 7707  ax-caucvg 7708
This theorem depends on definitions:  df-bi 116  df-dc 805  df-3or 948  df-3an 949  df-tru 1319  df-fal 1322  df-nf 1422  df-sb 1721  df-eu 1980  df-mo 1981  df-clab 2104  df-cleq 2110  df-clel 2113  df-nfc 2247  df-ne 2286  df-nel 2381  df-ral 2398  df-rex 2399  df-reu 2400  df-rmo 2401  df-rab 2402  df-v 2662  df-sbc 2883  df-csb 2976  df-dif 3043  df-un 3045  df-in 3047  df-ss 3054  df-nul 3334  df-if 3445  df-pw 3482  df-sn 3503  df-pr 3504  df-op 3506  df-uni 3707  df-int 3742  df-iun 3785  df-br 3900  df-opab 3960  df-mpt 3961  df-tr 3997  df-id 4185  df-po 4188  df-iso 4189  df-iord 4258  df-on 4260  df-ilim 4261  df-suc 4263  df-iom 4475  df-xp 4515  df-rel 4516  df-cnv 4517  df-co 4518  df-dm 4519  df-rn 4520  df-res 4521  df-ima 4522  df-iota 5058  df-fun 5095  df-fn 5096  df-f 5097  df-f1 5098  df-fo 5099  df-f1o 5100  df-fv 5101  df-riota 5698  df-ov 5745  df-oprab 5746  df-mpo 5747  df-1st 6006  df-2nd 6007  df-recs 6170  df-frec 6256  df-1o 6281  df-er 6397  df-en 6603  df-dom 6604  df-fin 6605  df-sup 6839  df-pnf 7770  df-mnf 7771  df-xr 7772  df-ltxr 7773  df-le 7774  df-sub 7903  df-neg 7904  df-reap 8305  df-ap 8312  df-div 8401  df-inn 8689  df-2 8747  df-3 8748  df-4 8749  df-n0 8946  df-z 9023  df-uz 9295  df-q 9380  df-rp 9410  df-fz 9759  df-fzo 9888  df-fl 10011  df-mod 10064  df-seqfrec 10187  df-exp 10261  df-ihash 10490  df-cj 10582  df-re 10583  df-im 10584  df-rsqrt 10738  df-abs 10739  df-dvds 11421  df-gcd 11563  df-phi 11814
This theorem is referenced by:  phicl  11818  phi1  11822
  Copyright terms: Public domain W3C validator