Theorem ppiprm 27315

Description: The prime-counting function π at a prime. (Contributed by Mario Carneiro, 19-Sep-2014.)

Assertion

Ref	Expression
ppiprm	⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (π‘(𝐴 + 1)) = ((π‘𝐴) + 1))

Proof of Theorem ppiprm

Step	Hyp	Ref	Expression
1		fzfid 14005	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (2...𝐴) ∈ Fin)
2		inss1 4189	. . . 4 ⊢ ((2...𝐴) ∩ ℙ) ⊆ (2...𝐴)
3		ssfi 9153	. . . 4 ⊢ (((2...𝐴) ∈ Fin ∧ ((2...𝐴) ∩ ℙ) ⊆ (2...𝐴)) → ((2...𝐴) ∩ ℙ) ∈ Fin)
4	1, 2, 3	sylancl 597	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ((2...𝐴) ∩ ℙ) ∈ Fin)
5		zre 12590	. . . . . . 7 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℝ)
6	5	adantr 485	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → 𝐴 ∈ ℝ)
7	6	ltp1d 12140	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → 𝐴 < (𝐴 + 1))
8		peano2z 12630	. . . . . . . 8 ⊢ (𝐴 ∈ ℤ → (𝐴 + 1) ∈ ℤ)
9	8	adantr 485	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (𝐴 + 1) ∈ ℤ)
10	9	zred 12695	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (𝐴 + 1) ∈ ℝ)
11	6, 10	ltnled 11352	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (𝐴 < (𝐴 + 1) ↔ ¬ (𝐴 + 1) ≤ 𝐴))
12	7, 11	mpbid 235	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ¬ (𝐴 + 1) ≤ 𝐴)
13		elinel1 4154	. . . . 5 ⊢ ((𝐴 + 1) ∈ ((2...𝐴) ∩ ℙ) → (𝐴 + 1) ∈ (2...𝐴))
14		elfzle2 13551	. . . . 5 ⊢ ((𝐴 + 1) ∈ (2...𝐴) → (𝐴 + 1) ≤ 𝐴)
15	13, 14	syl 18	. . . 4 ⊢ ((𝐴 + 1) ∈ ((2...𝐴) ∩ ℙ) → (𝐴 + 1) ≤ 𝐴)
16	12, 15	nsyl 141	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ¬ (𝐴 + 1) ∈ ((2...𝐴) ∩ ℙ))
17		ovex 7443	. . . 4 ⊢ (𝐴 + 1) ∈ V
18		hashunsng 14424	. . . 4 ⊢ ((𝐴 + 1) ∈ V → ((((2...𝐴) ∩ ℙ) ∈ Fin ∧ ¬ (𝐴 + 1) ∈ ((2...𝐴) ∩ ℙ)) → (♯‘(((2...𝐴) ∩ ℙ) ∪ {(𝐴 + 1)})) = ((♯‘((2...𝐴) ∩ ℙ)) + 1)))
19	17, 18	ax-mp 5	. . 3 ⊢ ((((2...𝐴) ∩ ℙ) ∈ Fin ∧ ¬ (𝐴 + 1) ∈ ((2...𝐴) ∩ ℙ)) → (♯‘(((2...𝐴) ∩ ℙ) ∪ {(𝐴 + 1)})) = ((♯‘((2...𝐴) ∩ ℙ)) + 1))
20	4, 16, 19	syl2anc 595	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (♯‘(((2...𝐴) ∩ ℙ) ∪ {(𝐴 + 1)})) = ((♯‘((2...𝐴) ∩ ℙ)) + 1))
21		ppival2 27292	. . . 4 ⊢ ((𝐴 + 1) ∈ ℤ → (π‘(𝐴 + 1)) = (♯‘((2...(𝐴 + 1)) ∩ ℙ)))
22	9, 21	syl 18	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (π‘(𝐴 + 1)) = (♯‘((2...(𝐴 + 1)) ∩ ℙ)))
23		2z 12621	. . . . . . . 8 ⊢ 2 ∈ ℤ
24		zcn 12591	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℂ)
25	24	adantr 485	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → 𝐴 ∈ ℂ)
26		ax-1cn 11153	. . . . . . . . . . 11 ⊢ 1 ∈ ℂ
27		pncan 11458	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐴 + 1) − 1) = 𝐴)
28	25, 26, 27	sylancl 597	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ((𝐴 + 1) − 1) = 𝐴)
29		prmuz2 16749	. . . . . . . . . . . 12 ⊢ ((𝐴 + 1) ∈ ℙ → (𝐴 + 1) ∈ (ℤ≥‘2))
30	29	adantl 486	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (𝐴 + 1) ∈ (ℤ≥‘2))
31		uz2m1nn 12942	. . . . . . . . . . 11 ⊢ ((𝐴 + 1) ∈ (ℤ≥‘2) → ((𝐴 + 1) − 1) ∈ ℕ)
32	30, 31	syl 18	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ((𝐴 + 1) − 1) ∈ ℕ)
33	28, 32	eqeltrrd 2864	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → 𝐴 ∈ ℕ)
34		nnuz 12896	. . . . . . . . . 10 ⊢ ℕ = (ℤ≥‘1)
35		2m1e1 12360	. . . . . . . . . . 11 ⊢ (2 − 1) = 1
36	35	fveq2i 6884	. . . . . . . . . 10 ⊢ (ℤ≥‘(2 − 1)) = (ℤ≥‘1)
37	34, 36	eqtr4i 2789	. . . . . . . . 9 ⊢ ℕ = (ℤ≥‘(2 − 1))
38	33, 37	eleqtrdi 2873	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → 𝐴 ∈ (ℤ≥‘(2 − 1)))
39		fzsuc2 13606	. . . . . . . 8 ⊢ ((2 ∈ ℤ ∧ 𝐴 ∈ (ℤ≥‘(2 − 1))) → (2...(𝐴 + 1)) = ((2...𝐴) ∪ {(𝐴 + 1)}))
40	23, 38, 39	sylancr 598	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (2...(𝐴 + 1)) = ((2...𝐴) ∪ {(𝐴 + 1)}))
41	40	ineq1d 4172	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ((2...(𝐴 + 1)) ∩ ℙ) = (((2...𝐴) ∪ {(𝐴 + 1)}) ∩ ℙ))
42		indir 4239	. . . . . 6 ⊢ (((2...𝐴) ∪ {(𝐴 + 1)}) ∩ ℙ) = (((2...𝐴) ∩ ℙ) ∪ ({(𝐴 + 1)} ∩ ℙ))
43	41, 42	eqtrdi 2814	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ((2...(𝐴 + 1)) ∩ ℙ) = (((2...𝐴) ∩ ℙ) ∪ ({(𝐴 + 1)} ∩ ℙ)))
44		simpr 489	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (𝐴 + 1) ∈ ℙ)
45	44	snssd 4752	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → {(𝐴 + 1)} ⊆ ℙ)
46		dfss2 3923	. . . . . . 7 ⊢ ({(𝐴 + 1)} ⊆ ℙ ↔ ({(𝐴 + 1)} ∩ ℙ) = {(𝐴 + 1)})
47	45, 46	sylib 221	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ({(𝐴 + 1)} ∩ ℙ) = {(𝐴 + 1)})
48	47	uneq2d 4122	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (((2...𝐴) ∩ ℙ) ∪ ({(𝐴 + 1)} ∩ ℙ)) = (((2...𝐴) ∩ ℙ) ∪ {(𝐴 + 1)}))
49	43, 48	eqtrd 2798	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ((2...(𝐴 + 1)) ∩ ℙ) = (((2...𝐴) ∩ ℙ) ∪ {(𝐴 + 1)}))
50	49	fveq2d 6885	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (♯‘((2...(𝐴 + 1)) ∩ ℙ)) = (♯‘(((2...𝐴) ∩ ℙ) ∪ {(𝐴 + 1)})))
51	22, 50	eqtrd 2798	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (π‘(𝐴 + 1)) = (♯‘(((2...𝐴) ∩ ℙ) ∪ {(𝐴 + 1)})))
52		ppival2 27292	. . . 4 ⊢ (𝐴 ∈ ℤ → (π‘𝐴) = (♯‘((2...𝐴) ∩ ℙ)))
53	52	adantr 485	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (π‘𝐴) = (♯‘((2...𝐴) ∩ ℙ)))
54	53	oveq1d 7425	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → ((π‘𝐴) + 1) = ((♯‘((2...𝐴) ∩ ℙ)) + 1))
55	20, 51, 54	3eqtr4d 2808	1 ⊢ ((𝐴 ∈ ℤ ∧ (𝐴 + 1) ∈ ℙ) → (π‘(𝐴 + 1)) = ((π‘𝐴) + 1))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   = wceq 1570   ∈ wcel 2143  Vcvv 3455   ∪ cun 3903   ∩ cin 3904   ⊆ wss 3905  {csn 4589   class class class wbr 5109  ‘cfv 6536  (class class class)co 7410  Fincfn 8939  ℂcc 11093  ℝcr 11094  1c1 11096   + caddc 11098   < clt 11238   ≤ cle 11239   − cmin 11436  ℕcn 12228  2c2 12290  ℤcz 12586  ℤ_≥cuz 12857  ...cfz 13530  ♯chash 14362  ℙcprime 16724  πcppi 27258

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-cnex 11151  ax-resscn 11152  ax-1cn 11153  ax-icn 11154  ax-addcl 11155  ax-addrcl 11156  ax-mulcl 11157  ax-mulrcl 11158  ax-mulcom 11159  ax-addass 11160  ax-mulass 11161  ax-distr 11162  ax-i2m1 11163  ax-1ne0 11164  ax-1rid 11165  ax-rnegex 11166  ax-rrecex 11167  ax-cnre 11168  ax-pre-lttri 11169  ax-pre-lttrn 11170  ax-pre-ltadd 11171  ax-pre-mulgt0 11172  ax-pre-sup 11173

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-int 4913  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7859  df-1st 7982  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-2o 8450  df-oadd 8453  df-er 8690  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-sup 9398  df-inf 9399  df-dju 9883  df-card 9921  df-pnf 11240  df-mnf 11241  df-xr 11242  df-ltxr 11243  df-le 11244  df-sub 11438  df-neg 11439  df-div 11867  df-nn 12229  df-2 12298  df-3 12299  df-n0 12500  df-z 12587  df-uz 12858  df-rp 13012  df-icc 13374  df-fz 13531  df-fl 13821  df-seq 14034  df-exp 14094  df-hash 14363  df-cj 15146  df-re 15147  df-im 15148  df-sqrt 15282  df-abs 15283  df-dvds 16306  df-prm 16725  df-ppi 27264

This theorem is referenced by:  ppip1le  27325  ppi1i  27332  bposlem5  27452