Theorem pcmpt2 12940

Description: Dividing two prime count maps yields a number with all dividing primes confined to an interval. (Contributed by Mario Carneiro, 14-Mar-2014.)

Hypotheses

Ref	Expression
pcmpt.1	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1))
pcmpt.2	⊢ (𝜑 → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
pcmpt.3	⊢ (𝜑 → 𝑁 ∈ ℕ)
pcmpt.4	⊢ (𝜑 → 𝑃 ∈ ℙ)
pcmpt.5	⊢ (𝑛 = 𝑃 → 𝐴 = 𝐵)
pcmpt2.6	⊢ (𝜑 → 𝑀 ∈ (ℤ≥‘𝑁))

Assertion

Ref	Expression
pcmpt2	⊢ (𝜑 → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑀) / (seq1( · , 𝐹)‘𝑁))) = if((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁), 𝐵, 0))

Distinct variable groups:   𝐵,𝑛   𝑃,𝑛

Allowed substitution hints:   𝜑(𝑛)   𝐴(𝑛)   𝐹(𝑛)   𝑀(𝑛)   𝑁(𝑛)

Proof of Theorem pcmpt2

Step	Hyp	Ref	Expression
1		pcmpt.4	. . 3 ⊢ (𝜑 → 𝑃 ∈ ℙ)
2		pcmpt.1	. . . . . . 7 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1))
3		pcmpt.2	. . . . . . 7 ⊢ (𝜑 → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
4	2, 3	pcmptcl 12938	. . . . . 6 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
5	4	simprd 114	. . . . 5 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
6		pcmpt.3	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7		pcmpt2.6	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ (ℤ≥‘𝑁))
8		eluznn 9839	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑀 ∈ (ℤ≥‘𝑁)) → 𝑀 ∈ ℕ)
9	6, 7, 8	syl2anc 411	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℕ)
10	5, 9	ffvelcdmd 5786	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℕ)
11	10	nnzd 9606	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℤ)
12	10	nnne0d 9193	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≠ 0)
13	5, 6	ffvelcdmd 5786	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑁) ∈ ℕ)
14		pcdiv 12898	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ ((seq1( · , 𝐹)‘𝑀) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑀) ≠ 0) ∧ (seq1( · , 𝐹)‘𝑁) ∈ ℕ) → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑀) / (seq1( · , 𝐹)‘𝑁))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑀)) − (𝑃 pCnt (seq1( · , 𝐹)‘𝑁))))
15	1, 11, 12, 13, 14	syl121anc 1278	. 2 ⊢ (𝜑 → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑀) / (seq1( · , 𝐹)‘𝑁))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑀)) − (𝑃 pCnt (seq1( · , 𝐹)‘𝑁))))
16		pcmpt.5	. . . 4 ⊢ (𝑛 = 𝑃 → 𝐴 = 𝐵)
17	2, 3, 9, 1, 16	pcmpt 12939	. . 3 ⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑀)) = if(𝑃 ≤ 𝑀, 𝐵, 0))
18	2, 3, 6, 1, 16	pcmpt 12939	. . 3 ⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0))
19	17, 18	oveq12d 6041	. 2 ⊢ (𝜑 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑀)) − (𝑃 pCnt (seq1( · , 𝐹)‘𝑁))) = (if(𝑃 ≤ 𝑀, 𝐵, 0) − if(𝑃 ≤ 𝑁, 𝐵, 0)))
20	16	eleq1d 2299	. . . . . . . 8 ⊢ (𝑛 = 𝑃 → (𝐴 ∈ ℕ0 ↔ 𝐵 ∈ ℕ0))
21	20, 3, 1	rspcdva 2914	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℕ0)
22	21	nn0cnd 9462	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ ℂ)
23	22	subidd 8483	. . . . 5 ⊢ (𝜑 → (𝐵 − 𝐵) = 0)
24	23	adantr 276	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → (𝐵 − 𝐵) = 0)
25		prmnn 12705	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
26	1, 25	syl 14	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℕ)
27	26	nnred 9161	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ ℝ)
28	27	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → 𝑃 ∈ ℝ)
29	6	nnred 9161	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℝ)
30	29	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → 𝑁 ∈ ℝ)
31	9	nnred 9161	. . . . . . . 8 ⊢ (𝜑 → 𝑀 ∈ ℝ)
32	31	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → 𝑀 ∈ ℝ)
33		simpr 110	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → 𝑃 ≤ 𝑁)
34		eluzle 9773	. . . . . . . . 9 ⊢ (𝑀 ∈ (ℤ≥‘𝑁) → 𝑁 ≤ 𝑀)
35	7, 34	syl 14	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ≤ 𝑀)
36	35	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → 𝑁 ≤ 𝑀)
37	28, 30, 32, 33, 36	letrd 8308	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → 𝑃 ≤ 𝑀)
38	37	iftrued 3613	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → if(𝑃 ≤ 𝑀, 𝐵, 0) = 𝐵)
39		iftrue 3611	. . . . . 6 ⊢ (𝑃 ≤ 𝑁 → if(𝑃 ≤ 𝑁, 𝐵, 0) = 𝐵)
40	39	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → if(𝑃 ≤ 𝑁, 𝐵, 0) = 𝐵)
41	38, 40	oveq12d 6041	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → (if(𝑃 ≤ 𝑀, 𝐵, 0) − if(𝑃 ≤ 𝑁, 𝐵, 0)) = (𝐵 − 𝐵))
42		simpr 110	. . . . . 6 ⊢ ((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁) → ¬ 𝑃 ≤ 𝑁)
43	42, 33	nsyl3 631	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → ¬ (𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁))
44	43	iffalsed 3616	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → if((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁), 𝐵, 0) = 0)
45	24, 41, 44	3eqtr4d 2273	. . 3 ⊢ ((𝜑 ∧ 𝑃 ≤ 𝑁) → (if(𝑃 ≤ 𝑀, 𝐵, 0) − if(𝑃 ≤ 𝑁, 𝐵, 0)) = if((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁), 𝐵, 0))
46		iffalse 3614	. . . . . 6 ⊢ (¬ 𝑃 ≤ 𝑁 → if(𝑃 ≤ 𝑁, 𝐵, 0) = 0)
47	46	oveq2d 6039	. . . . 5 ⊢ (¬ 𝑃 ≤ 𝑁 → (if(𝑃 ≤ 𝑀, 𝐵, 0) − if(𝑃 ≤ 𝑁, 𝐵, 0)) = (if(𝑃 ≤ 𝑀, 𝐵, 0) − 0))
48		0cnd 8177	. . . . . . 7 ⊢ (𝜑 → 0 ∈ ℂ)
49	26	nnzd 9606	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ ℤ)
50	9	nnzd 9606	. . . . . . . 8 ⊢ (𝜑 → 𝑀 ∈ ℤ)
51		zdcle 9561	. . . . . . . 8 ⊢ ((𝑃 ∈ ℤ ∧ 𝑀 ∈ ℤ) → DECID 𝑃 ≤ 𝑀)
52	49, 50, 51	syl2anc 411	. . . . . . 7 ⊢ (𝜑 → DECID 𝑃 ≤ 𝑀)
53	22, 48, 52	ifcldcd 3644	. . . . . 6 ⊢ (𝜑 → if(𝑃 ≤ 𝑀, 𝐵, 0) ∈ ℂ)
54	53	subid1d 8484	. . . . 5 ⊢ (𝜑 → (if(𝑃 ≤ 𝑀, 𝐵, 0) − 0) = if(𝑃 ≤ 𝑀, 𝐵, 0))
55	47, 54	sylan9eqr 2285	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑃 ≤ 𝑁) → (if(𝑃 ≤ 𝑀, 𝐵, 0) − if(𝑃 ≤ 𝑁, 𝐵, 0)) = if(𝑃 ≤ 𝑀, 𝐵, 0))
56		simpr 110	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑃 ≤ 𝑁) → ¬ 𝑃 ≤ 𝑁)
57	56	biantrud 304	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝑃 ≤ 𝑁) → (𝑃 ≤ 𝑀 ↔ (𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁)))
58	57	ifbid 3628	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑃 ≤ 𝑁) → if(𝑃 ≤ 𝑀, 𝐵, 0) = if((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁), 𝐵, 0))
59	55, 58	eqtrd 2263	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑃 ≤ 𝑁) → (if(𝑃 ≤ 𝑀, 𝐵, 0) − if(𝑃 ≤ 𝑁, 𝐵, 0)) = if((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁), 𝐵, 0))
60	6	nnzd 9606	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ ℤ)
61		zdcle 9561	. . . . 5 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → DECID 𝑃 ≤ 𝑁)
62	49, 60, 61	syl2anc 411	. . . 4 ⊢ (𝜑 → DECID 𝑃 ≤ 𝑁)
63		exmiddc 843	. . . 4 ⊢ (DECID 𝑃 ≤ 𝑁 → (𝑃 ≤ 𝑁 ∨ ¬ 𝑃 ≤ 𝑁))
64	62, 63	syl 14	. . 3 ⊢ (𝜑 → (𝑃 ≤ 𝑁 ∨ ¬ 𝑃 ≤ 𝑁))
65	45, 59, 64	mpjaodan 805	. 2 ⊢ (𝜑 → (if(𝑃 ≤ 𝑀, 𝐵, 0) − if(𝑃 ≤ 𝑁, 𝐵, 0)) = if((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁), 𝐵, 0))
66	15, 19, 65	3eqtrd 2267	1 ⊢ (𝜑 → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑀) / (seq1( · , 𝐹)‘𝑁))) = if((𝑃 ≤ 𝑀 ∧ ¬ 𝑃 ≤ 𝑁), 𝐵, 0))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 715  DECID wdc 841   = wceq 1397   ∈ wcel 2201   ≠ wne 2401  ∀wral 2509  ifcif 3604   class class class wbr 4089   ↦ cmpt 4151  ⟶wf 5324  ‘cfv 5328  (class class class)co 6023  ℂcc 8035  ℝcr 8036  0cc0 8037  1c1 8038   · cmul 8042   ≤ cle 8220   − cmin 8355   / cdiv 8857  ℕcn 9148  ℕ₀cn0 9407  ℤcz 9484  ℤ_≥cuz 9760  seqcseq 10715  ↑cexp 10806  ℙcprime 12702   pCnt cpc 12880

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 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2203  ax-14 2204  ax-ext 2212  ax-coll 4205  ax-sep 4208  ax-nul 4216  ax-pow 4266  ax-pr 4301  ax-un 4532  ax-setind 4637  ax-iinf 4688  ax-cnex 8128  ax-resscn 8129  ax-1cn 8130  ax-1re 8131  ax-icn 8132  ax-addcl 8133  ax-addrcl 8134  ax-mulcl 8135  ax-mulrcl 8136  ax-addcom 8137  ax-mulcom 8138  ax-addass 8139  ax-mulass 8140  ax-distr 8141  ax-i2m1 8142  ax-0lt1 8143  ax-1rid 8144  ax-0id 8145  ax-rnegex 8146  ax-precex 8147  ax-cnre 8148  ax-pre-ltirr 8149  ax-pre-ltwlin 8150  ax-pre-lttrn 8151  ax-pre-apti 8152  ax-pre-ltadd 8153  ax-pre-mulgt0 8154  ax-pre-mulext 8155  ax-arch 8156  ax-caucvg 8157

This theorem depends on definitions:  df-bi 117  df-stab 838  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1810  df-eu 2081  df-mo 2082  df-clab 2217  df-cleq 2223  df-clel 2226  df-nfc 2362  df-ne 2402  df-nel 2497  df-ral 2514  df-rex 2515  df-reu 2516  df-rmo 2517  df-rab 2518  df-v 2803  df-sbc 3031  df-csb 3127  df-dif 3201  df-un 3203  df-in 3205  df-ss 3212  df-nul 3494  df-if 3605  df-pw 3655  df-sn 3676  df-pr 3677  df-op 3679  df-uni 3895  df-int 3930  df-iun 3973  df-br 4090  df-opab 4152  df-mpt 4153  df-tr 4189  df-id 4392  df-po 4395  df-iso 4396  df-iord 4465  df-on 4467  df-ilim 4468  df-suc 4470  df-iom 4691  df-xp 4733  df-rel 4734  df-cnv 4735  df-co 4736  df-dm 4737  df-rn 4738  df-res 4739  df-ima 4740  df-iota 5288  df-fun 5330  df-fn 5331  df-f 5332  df-f1 5333  df-fo 5334  df-f1o 5335  df-fv 5336  df-isom 5337  df-riota 5976  df-ov 6026  df-oprab 6027  df-mpo 6028  df-1st 6308  df-2nd 6309  df-recs 6476  df-frec 6562  df-1o 6587  df-2o 6588  df-er 6707  df-en 6915  df-fin 6917  df-sup 7188  df-inf 7189  df-pnf 8221  df-mnf 8222  df-xr 8223  df-ltxr 8224  df-le 8225  df-sub 8357  df-neg 8358  df-reap 8760  df-ap 8767  df-div 8858  df-inn 9149  df-2 9207  df-3 9208  df-4 9209  df-n0 9408  df-z 9485  df-uz 9761  df-q 9859  df-rp 9894  df-fz 10249  df-fzo 10383  df-fl 10536  df-mod 10591  df-seqfrec 10716  df-exp 10807  df-cj 11425  df-re 11426  df-im 11427  df-rsqrt 11581  df-abs 11582  df-dvds 12372  df-gcd 12548  df-prm 12703  df-pc 12881

This theorem is referenced by:  pcmptdvds  12941